Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Assoc handles and attentions with adequate parent link #33

Merged
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion models/3t-600-clean-locker-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -135,7 +135,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 200.0 -268.5 991.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "door-handle"))
(send self :assoc handle0)
(send blink1 :assoc handle0)

;; init-ending
(setq links (list blink0 blink1))
Expand Down
6 changes: 3 additions & 3 deletions models/akiba-door-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -229,11 +229,11 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 75.0 355.0 990.0) :rot #2f((-1.0 -1.224606e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224606e-16 1.0 -2.220446e-16)) :name "rear-knob"))
(send self :assoc handle0)
(send blink2 :assoc handle0)
(setq handle1 (make-cascoords :pos (float-vector 75.0 355.0 930.0) :rot #2f((-1.0 -1.224606e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224606e-16 1.0 -2.220446e-16)) :name "front-knob"))
(send self :assoc handle1)
(send blink2 :assoc handle1)
(setq handle2 (make-cascoords :pos (float-vector 65.0 435.0 1060.0) :rot #2f((-1.0 -1.224606e-16 0.0) (1.224606e-16 -1.0 0.0) (0.0 0.0 1.0)) :name "lock"))
(send self :assoc handle2)
(send blink3 :assoc handle2)

;; init-ending
(setq links (list blink0 blink1 blink2 blink3))
Expand Down
6 changes: 3 additions & 3 deletions models/akiba-room-door-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -249,11 +249,11 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 75.0 250.0 990.0) :rot #2f((-1.0 -1.224606e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224606e-16 1.0 -2.220446e-16)) :name "rear-knob"))
(send self :assoc handle0)
(send blink2 :assoc handle0)
(setq handle1 (make-cascoords :pos (float-vector 75.0 250.0 930.0) :rot #2f((-1.0 -1.224606e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224606e-16 1.0 -2.220446e-16)) :name "front-knob"))
(send self :assoc handle1)
(send blink2 :assoc handle1)
(setq handle2 (make-cascoords :pos (float-vector 65.0 330.0 1060.0) :rot #2f((-1.0 -1.224606e-16 0.0) (1.224606e-16 -1.0 0.0) (0.0 0.0 1.0)) :name "lock"))
(send self :assoc handle2)
(send blink3 :assoc handle2)

;; init-ending
(setq links (list blink0 blink1 blink2 blink3))
Expand Down
2 changes: 1 addition & 1 deletion models/askul-gdh-cupboard-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -294,7 +294,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0 blink1 blink2 blink3 blink4 blink5))
Expand Down
2 changes: 1 addition & 1 deletion models/askul-ntr-cupboard-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -241,7 +241,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0 blink1 blink2 blink3 blink4))
Expand Down
2 changes: 1 addition & 1 deletion models/asplund-cabinet-4dan-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -450,7 +450,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0 blink1 blink2 blink3 blink4))
Expand Down
2 changes: 1 addition & 1 deletion models/asplund-cabinet-4danbase-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -183,7 +183,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0 blink1))
Expand Down
2 changes: 1 addition & 1 deletion models/audio_shelf-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -246,7 +246,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0 blink1 blink2 blink3 blink4 blink5))
Expand Down
6 changes: 3 additions & 3 deletions models/azuma-broom-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -67,13 +67,13 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 850.0) :rot #2f((0.5 0.866025 0.0) (-0.866025 0.5 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)
(setq handle1 (make-cascoords :pos (float-vector 0.0 0.0 1050.0) :rot #2f((0.5 -0.866025 0.0) (0.866025 0.5 0.0) (0.0 0.0 1.0)) :name "handle1"))
(send self :assoc handle1)
(send blink0 :assoc handle1)

;; definition of :attention
(setq attention0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "attention0"))
(send self :assoc attention0)
(send blink0 :assoc attention0)

;; init-ending
(setq links (list blink0))
Expand Down
6 changes: 3 additions & 3 deletions models/azuma-short-broom-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -76,13 +76,13 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 580.0) :rot #2f((0.5 0.866025 0.0) (-0.866025 0.5 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)
(setq handle1 (make-cascoords :pos (float-vector 0.0 0.0 690.0) :rot #2f((0.5 -0.866025 0.0) (0.866025 0.5 0.0) (0.0 0.0 1.0)) :name "handle1"))
(send self :assoc handle1)
(send blink0 :assoc handle1)

;; definition of :attention
(setq attention0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "attention0"))
(send self :assoc attention0)
(send blink0 :assoc attention0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/ball-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -1317,7 +1317,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
6 changes: 3 additions & 3 deletions models/bamboo-broom-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -63,13 +63,13 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 920.0) :rot #2f((0.5 0.866025 0.0) (-0.866025 0.5 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)
(setq handle1 (make-cascoords :pos (float-vector 0.0 0.0 1110.0) :rot #2f((0.5 -0.866025 0.0) (0.866025 0.5 0.0) (0.0 0.0 1.0)) :name "handle1"))
(send self :assoc handle1)
(send blink0 :assoc handle1)

;; definition of :attention
(setq attention0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "attention0"))
(send self :assoc attention0)
(send blink0 :assoc attention0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/bariera-1200-corner-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -303,7 +303,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/bariera-1200-middle-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -219,7 +219,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/bariera-1200-middle2-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -242,7 +242,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/bariera-1200-middle3-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -242,7 +242,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/bariera-1200-right-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -335,7 +335,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/bariera-1400-middle-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -219,7 +219,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/bariera-900-left-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -297,7 +297,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/bariera-900-middle-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -288,7 +288,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
18 changes: 9 additions & 9 deletions models/blue-clear-cup-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -230,25 +230,25 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 83.6231 -83.6231 59.0) :rot #2f((-0.541675 0.454519 -0.707107) (0.541675 -0.454519 -0.707107) (-0.642788 -0.766044 -1.498801e-15)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)
(setq handle1 (make-cascoords :pos (float-vector -6.519447e-13 -118.261 59.0) :rot #2f((4.440892e-15 -1.665335e-15 -1.0) (0.766044 -0.642788 4.496403e-15) (-0.642788 -0.766044 -1.554312e-15)) :name "handle1"))
(send self :assoc handle1)
(send blink0 :assoc handle1)
(setq handle2 (make-cascoords :pos (float-vector -83.6231 -83.6231 59.0) :rot #2f((0.541675 -0.454519 -0.707107) (0.541675 -0.454519 0.707107) (-0.642788 -0.766044 -9.714451e-16)) :name "handle2"))
(send self :assoc handle2)
(send blink0 :assoc handle2)
(setq handle3 (make-cascoords :pos (float-vector -118.261 2.245563e-13 59.0) :rot #2f((0.766044 -0.642788 2.442491e-15) (-2.886580e-15 3.538836e-16 1.0) (-0.642788 -0.766044 -1.575129e-15)) :name "handle3"))
(send self :assoc handle3)
(send blink0 :assoc handle3)
(setq handle4 (make-cascoords :pos (float-vector -83.6231 83.6231 59.0) :rot #2f((0.541675 -0.454519 0.707107) (-0.541675 0.454519 0.707107) (-0.642788 -0.766044 -1.490127e-15)) :name "handle4"))
(send self :assoc handle4)
(send blink0 :assoc handle4)
(setq handle5 (make-cascoords :pos (float-vector 7.241390e-15 118.261 59.0) :rot #2f((-1.276756e-15 -6.106227e-16 1.0) (-0.766044 0.642788 -6.106227e-16) (-0.642788 -0.766044 -1.276756e-15)) :name "handle5"))
(send self :assoc handle5)
(send blink0 :assoc handle5)
(setq handle6 (make-cascoords :pos (float-vector 83.6231 83.6231 59.0) :rot #2f((-0.541675 0.454519 0.707107) (-0.541675 0.454519 -0.707107) (-0.642788 -0.766044 -1.720846e-15)) :name "handle6"))
(send self :assoc handle6)
(send blink0 :assoc handle6)
(setq handle7 (make-cascoords :pos (float-vector 118.261 0.0 59.0) :rot #2f((-0.766044 0.642788 1.110223e-15) (2.220446e-16 1.942890e-15 -1.0) (-0.642788 -0.766044 -1.609823e-15)) :name "handle7"))
(send self :assoc handle7)
(send blink0 :assoc handle7)

;; definition of :attention
(setq attention0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "attention0"))
(send self :assoc attention0)
(send blink0 :assoc attention0)

;; init-ending
(setq links (list blink0))
Expand Down
8 changes: 4 additions & 4 deletions models/book-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -59,13 +59,13 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 75.0 0.0 210.0) :rot #2f((2.220446e-16 0.0 1.0) (0.0 1.0 0.0) (-1.0 0.0 2.220446e-16)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)
(setq handle1 (make-cascoords :pos (float-vector 75.0 0.0 0.0) :rot #2f((2.220446e-16 0.0 -1.0) (0.0 1.0 0.0) (1.0 0.0 2.220446e-16)) :name "handle1"))
(send self :assoc handle1)
(send blink0 :assoc handle1)
(setq handle2 (make-cascoords :pos (float-vector 150.0 0.0 105.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle2"))
(send self :assoc handle2)
(send blink0 :assoc handle2)
(setq handle3 (make-cascoords :pos (float-vector 0.0 0.0 105.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle3"))
(send self :assoc handle3)
(send blink0 :assoc handle3)

;; init-ending
(setq links (list blink0))
Expand Down
6 changes: 3 additions & 3 deletions models/broom-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -63,13 +63,13 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 830.0) :rot #2f((0.5 0.866025 0.0) (-0.866025 0.5 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)
(setq handle1 (make-cascoords :pos (float-vector 0.0 0.0 1040.0) :rot #2f((0.5 -0.866025 0.0) (0.866025 0.5 0.0) (0.0 0.0 1.0)) :name "handle1"))
(send self :assoc handle1)
(send blink0 :assoc handle1)

;; definition of :attention
(setq attention0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "attention0"))
(send self :assoc attention0)
(send blink0 :assoc attention0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/brown-board-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -211,7 +211,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0 blink1 blink2 blink3))
Expand Down
4 changes: 2 additions & 2 deletions models/chair-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -436,9 +436,9 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 165.0 300.0 780.0) :rot #2f((-0.258819 0.965926 0.0) (-0.965926 -0.258819 0.0) (0.0 0.0 1.0)) :name ":larm"))
(send self :assoc handle0)
(send blink0 :assoc handle0)
(setq handle1 (make-cascoords :pos (float-vector -165.0 300.0 780.0) :rot #2f((0.258819 0.965926 0.0) (-0.965926 0.258819 0.0) (0.0 0.0 1.0)) :name ":rarm"))
(send self :assoc handle1)
(send blink0 :assoc handle1)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/chessboard-10-3x3-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -124,7 +124,7 @@

;; definition of :attention
(setq attention0 (make-cascoords :pos (float-vector -5.0 -5.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (1.0 -2.220446e-16 0.0) (0.0 0.0 -1.0)) :name "origin"))
(send self :assoc attention0)
(send blink0 :assoc attention0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/chessboard-108-9x7-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -610,7 +610,7 @@

;; definition of :attention
(setq attention0 (make-cascoords :pos (float-vector -378.0 -270.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (1.0 -2.220446e-16 0.0) (0.0 0.0 -1.0)) :name "origin"))
(send self :assoc attention0)
(send blink0 :assoc attention0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/chessboard-30-6x5-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -313,7 +313,7 @@

;; definition of :attention
(setq attention0 (make-cascoords :pos (float-vector -60.0 -45.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (1.0 -2.220446e-16 0.0) (0.0 0.0 -1.0)) :name "origin"))
(send self :assoc attention0)
(send blink0 :assoc attention0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/chessboard-30-7x5-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -358,7 +358,7 @@

;; definition of :attention
(setq attention0 (make-cascoords :pos (float-vector -75.0 -45.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (1.0 -2.220446e-16 0.0) (0.0 0.0 -1.0)) :name "origin"))
(send self :assoc attention0)
(send blink0 :assoc attention0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/coe-1200-shelf-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -88,7 +88,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/coe-450-shelf-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -97,7 +97,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/coe-800-shelf-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -88,7 +88,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/coe-corner-shelf-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -88,7 +88,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
2 changes: 1 addition & 1 deletion models/coffee-cup-cup-object.l
Original file line number Diff line number Diff line change
Expand Up @@ -557,7 +557,7 @@

;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 50.0 0.0 50.0) :rot #2f((-1.0 -1.224606e-16 0.0) (1.224606e-16 -1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
(send self :assoc handle0)
(send blink0 :assoc handle0)

;; init-ending
(setq links (list blink0))
Expand Down
Loading