1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
|
;;
;; DO NOT EDIT THIS FILE
;; this file is automatically generated from euslisp+euslib version
;;
;;
(defclass foldable-desk-object
:super cascaded-link
:slots (sensors
handle0 handle1
))
(defmethod foldable-desk-object
(:init
(&rest args &key (name "foldable-desk") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
(let (c bc
blink0
)
(send-super* :init :name name args)
;; definition of link
;; definition of :foldable-desk-bodyset2
(setq bc (list
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 240.0 370.0 700.0) (float-vector -240.0 370.0 700.0) (float-vector -240.0 -370.0 700.0) (float-vector 240.0 -370.0 700.0)))
(instance face :init :vertices (list (float-vector -240.0 370.0 680.0) (float-vector 240.0 370.0 680.0) (float-vector 240.0 -370.0 680.0) (float-vector -240.0 -370.0 680.0)))
(instance face :init :vertices (list (float-vector 240.0 370.0 700.0) (float-vector 240.0 370.0 680.0) (float-vector -240.0 370.0 680.0) (float-vector -240.0 370.0 700.0)))
(instance face :init :vertices (list (float-vector 240.0 -370.0 700.0) (float-vector 240.0 -370.0 680.0) (float-vector 240.0 370.0 680.0) (float-vector 240.0 370.0 700.0)))
(instance face :init :vertices (list (float-vector -240.0 -370.0 700.0) (float-vector -240.0 -370.0 680.0) (float-vector 240.0 -370.0 680.0) (float-vector 240.0 -370.0 700.0)))
(instance face :init :vertices (list (float-vector -240.0 370.0 700.0) (float-vector -240.0 370.0 680.0) (float-vector -240.0 -370.0 680.0) (float-vector -240.0 -370.0 700.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 175.0 300.0 380.0) (float-vector 175.0 300.0 680.0) (float-vector 175.0 -300.0 680.0) (float-vector 175.0 -300.0 380.0)))
(instance face :init :vertices (list (float-vector 165.0 300.0 680.0) (float-vector 165.0 300.0 380.0) (float-vector 165.0 -300.0 380.0) (float-vector 165.0 -300.0 680.0)))
(instance face :init :vertices (list (float-vector 175.0 300.0 380.0) (float-vector 165.0 300.0 380.0) (float-vector 165.0 300.0 680.0) (float-vector 175.0 300.0 680.0)))
(instance face :init :vertices (list (float-vector 175.0 -300.0 380.0) (float-vector 165.0 -300.0 380.0) (float-vector 165.0 300.0 380.0) (float-vector 175.0 300.0 380.0)))
(instance face :init :vertices (list (float-vector 175.0 -300.0 680.0) (float-vector 165.0 -300.0 680.0) (float-vector 165.0 -300.0 380.0) (float-vector 175.0 -300.0 380.0)))
(instance face :init :vertices (list (float-vector 175.0 300.0 680.0) (float-vector 165.0 300.0 680.0) (float-vector 165.0 -300.0 680.0) (float-vector 175.0 -300.0 680.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -48.5549 293.75 666.901) (float-vector -47.0191 300.0 667.569) (float-vector -48.5549 306.25 666.901) (float-vector -52.7508 310.825 665.077) (float-vector -58.4825 312.5 662.585) (float-vector -64.2142 310.825 660.093) (float-vector -68.4101 306.25 658.268) (float-vector -69.9459 300.0 657.601) (float-vector -68.4101 293.75 658.268) (float-vector -64.2142 289.175 660.093) (float-vector -58.4825 287.5 662.585) (float-vector -52.7508 289.175 665.077)))
(instance face :init :vertices (list (float-vector 36.7134 300.0 474.984) (float-vector 35.1776 293.75 474.316) (float-vector 30.9817 289.175 472.492) (float-vector 25.25 287.5 470.0) (float-vector 19.5183 289.175 467.508) (float-vector 15.3224 293.75 465.684) (float-vector 13.7866 300.0 465.016) (float-vector 15.3224 306.25 465.684) (float-vector 19.5183 310.825 467.508) (float-vector 25.25 312.5 470.0) (float-vector 30.9817 310.825 472.492) (float-vector 35.1776 306.25 474.316)))
(instance face :init :vertices (list (float-vector -48.5549 293.75 666.901) (float-vector 35.1776 293.75 474.316) (float-vector 36.7134 300.0 474.984) (float-vector -47.0191 300.0 667.569)))
(instance face :init :vertices (list (float-vector -52.7508 289.175 665.077) (float-vector 30.9817 289.175 472.492) (float-vector 35.1776 293.75 474.316) (float-vector -48.5549 293.75 666.901)))
(instance face :init :vertices (list (float-vector -58.4825 287.5 662.585) (float-vector 25.25 287.5 470.0) (float-vector 30.9817 289.175 472.492) (float-vector -52.7508 289.175 665.077)))
(instance face :init :vertices (list (float-vector -64.2142 289.175 660.093) (float-vector 19.5183 289.175 467.508) (float-vector 25.25 287.5 470.0) (float-vector -58.4825 287.5 662.585)))
(instance face :init :vertices (list (float-vector -68.4101 293.75 658.268) (float-vector 15.3224 293.75 465.684) (float-vector 19.5183 289.175 467.508) (float-vector -64.2142 289.175 660.093)))
(instance face :init :vertices (list (float-vector -69.9459 300.0 657.601) (float-vector 13.7866 300.0 465.016) (float-vector 15.3224 293.75 465.684) (float-vector -68.4101 293.75 658.268)))
(instance face :init :vertices (list (float-vector -68.4101 306.25 658.268) (float-vector 15.3224 306.25 465.684) (float-vector 13.7866 300.0 465.016) (float-vector -69.9459 300.0 657.601)))
(instance face :init :vertices (list (float-vector -64.2142 310.825 660.093) (float-vector 19.5183 310.825 467.508) (float-vector 15.3224 306.25 465.684) (float-vector -68.4101 306.25 658.268)))
(instance face :init :vertices (list (float-vector -58.4825 312.5 662.585) (float-vector 25.25 312.5 470.0) (float-vector 19.5183 310.825 467.508) (float-vector -64.2142 310.825 660.093)))
(instance face :init :vertices (list (float-vector -52.7508 310.825 665.077) (float-vector 30.9817 310.825 472.492) (float-vector 25.25 312.5 470.0) (float-vector -58.4825 312.5 662.585)))
(instance face :init :vertices (list (float-vector -48.5549 306.25 666.901) (float-vector 35.1776 306.25 474.316) (float-vector 30.9817 310.825 472.492) (float-vector -52.7508 310.825 665.077)))
(instance face :init :vertices (list (float-vector -47.0191 300.0 667.569) (float-vector 36.7134 300.0 474.984) (float-vector 35.1776 306.25 474.316) (float-vector -48.5549 306.25 666.901)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -61.0549 293.75 666.901) (float-vector -59.5191 300.0 667.569) (float-vector -61.0549 306.25 666.901) (float-vector -65.2508 310.825 665.077) (float-vector -70.9825 312.5 662.585) (float-vector -76.7142 310.825 660.093) (float-vector -80.9101 306.25 658.268) (float-vector -82.4459 300.0 657.601) (float-vector -80.9101 293.75 658.268) (float-vector -76.7142 289.175 660.093) (float-vector -70.9825 287.5 662.585) (float-vector -65.2508 289.175 665.077)))
(instance face :init :vertices (list (float-vector 24.2134 300.0 474.984) (float-vector 22.6776 293.75 474.316) (float-vector 18.4817 289.175 472.492) (float-vector 12.75 287.5 470.0) (float-vector 7.01831 289.175 467.508) (float-vector 2.82243 293.75 465.684) (float-vector 1.28662 300.0 465.016) (float-vector 2.82243 306.25 465.684) (float-vector 7.01831 310.825 467.508) (float-vector 12.75 312.5 470.0) (float-vector 18.4817 310.825 472.492) (float-vector 22.6776 306.25 474.316)))
(instance face :init :vertices (list (float-vector -61.0549 293.75 666.901) (float-vector 22.6776 293.75 474.316) (float-vector 24.2134 300.0 474.984) (float-vector -59.5191 300.0 667.569)))
(instance face :init :vertices (list (float-vector -65.2508 289.175 665.077) (float-vector 18.4817 289.175 472.492) (float-vector 22.6776 293.75 474.316) (float-vector -61.0549 293.75 666.901)))
(instance face :init :vertices (list (float-vector -70.9825 287.5 662.585) (float-vector 12.75 287.5 470.0) (float-vector 18.4817 289.175 472.492) (float-vector -65.2508 289.175 665.077)))
(instance face :init :vertices (list (float-vector -76.7142 289.175 660.093) (float-vector 7.01831 289.175 467.508) (float-vector 12.75 287.5 470.0) (float-vector -70.9825 287.5 662.585)))
(instance face :init :vertices (list (float-vector -80.9101 293.75 658.268) (float-vector 2.82243 293.75 465.684) (float-vector 7.01831 289.175 467.508) (float-vector -76.7142 289.175 660.093)))
(instance face :init :vertices (list (float-vector -82.4459 300.0 657.601) (float-vector 1.28662 300.0 465.016) (float-vector 2.82243 293.75 465.684) (float-vector -80.9101 293.75 658.268)))
(instance face :init :vertices (list (float-vector -80.9101 306.25 658.268) (float-vector 2.82243 306.25 465.684) (float-vector 1.28662 300.0 465.016) (float-vector -82.4459 300.0 657.601)))
(instance face :init :vertices (list (float-vector -76.7142 310.825 660.093) (float-vector 7.01831 310.825 467.508) (float-vector 2.82243 306.25 465.684) (float-vector -80.9101 306.25 658.268)))
(instance face :init :vertices (list (float-vector -70.9825 312.5 662.585) (float-vector 12.75 312.5 470.0) (float-vector 7.01831 310.825 467.508) (float-vector -76.7142 310.825 660.093)))
(instance face :init :vertices (list (float-vector -65.2508 310.825 665.077) (float-vector 18.4817 310.825 472.492) (float-vector 12.75 312.5 470.0) (float-vector -70.9825 312.5 662.585)))
(instance face :init :vertices (list (float-vector -61.0549 306.25 666.901) (float-vector 22.6776 306.25 474.316) (float-vector 18.4817 310.825 472.492) (float-vector -65.2508 310.825 665.077)))
(instance face :init :vertices (list (float-vector -59.5191 300.0 667.569) (float-vector 24.2134 300.0 474.984) (float-vector 22.6776 306.25 474.316) (float-vector -61.0549 306.25 666.901)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 35.1776 293.75 474.316) (float-vector 36.7134 300.0 474.984) (float-vector 35.1776 306.25 474.316) (float-vector 30.9817 310.825 472.492) (float-vector 25.25 312.5 470.0) (float-vector 19.5183 310.825 467.508) (float-vector 15.3224 306.25 465.684) (float-vector 13.7866 300.0 465.016) (float-vector 15.3224 293.75 465.684) (float-vector 19.5183 289.175 467.508) (float-vector 25.25 287.5 470.0) (float-vector 30.9817 289.175 472.492)))
(instance face :init :vertices (list (float-vector 236.713 300.0 14.9841) (float-vector 235.178 293.75 14.3163) (float-vector 230.982 289.175 12.492) (float-vector 225.25 287.5 10.0) (float-vector 219.518 289.175 7.50796) (float-vector 215.322 293.75 5.68366) (float-vector 213.787 300.0 5.01592) (float-vector 215.322 306.25 5.68366) (float-vector 219.518 310.825 7.50796) (float-vector 225.25 312.5 10.0) (float-vector 230.982 310.825 12.492) (float-vector 235.178 306.25 14.3163)))
(instance face :init :vertices (list (float-vector 35.1776 293.75 474.316) (float-vector 235.178 293.75 14.3163) (float-vector 236.713 300.0 14.9841) (float-vector 36.7134 300.0 474.984)))
(instance face :init :vertices (list (float-vector 30.9817 289.175 472.492) (float-vector 230.982 289.175 12.492) (float-vector 235.178 293.75 14.3163) (float-vector 35.1776 293.75 474.316)))
(instance face :init :vertices (list (float-vector 25.25 287.5 470.0) (float-vector 225.25 287.5 10.0) (float-vector 230.982 289.175 12.492) (float-vector 30.9817 289.175 472.492)))
(instance face :init :vertices (list (float-vector 19.5183 289.175 467.508) (float-vector 219.518 289.175 7.50796) (float-vector 225.25 287.5 10.0) (float-vector 25.25 287.5 470.0)))
(instance face :init :vertices (list (float-vector 15.3224 293.75 465.684) (float-vector 215.322 293.75 5.68366) (float-vector 219.518 289.175 7.50796) (float-vector 19.5183 289.175 467.508)))
(instance face :init :vertices (list (float-vector 13.7866 300.0 465.016) (float-vector 213.787 300.0 5.01592) (float-vector 215.322 293.75 5.68366) (float-vector 15.3224 293.75 465.684)))
(instance face :init :vertices (list (float-vector 15.3224 306.25 465.684) (float-vector 215.322 306.25 5.68366) (float-vector 213.787 300.0 5.01592) (float-vector 13.7866 300.0 465.016)))
(instance face :init :vertices (list (float-vector 19.5183 310.825 467.508) (float-vector 219.518 310.825 7.50796) (float-vector 215.322 306.25 5.68366) (float-vector 15.3224 306.25 465.684)))
(instance face :init :vertices (list (float-vector 25.25 312.5 470.0) (float-vector 225.25 312.5 10.0) (float-vector 219.518 310.825 7.50796) (float-vector 19.5183 310.825 467.508)))
(instance face :init :vertices (list (float-vector 30.9817 310.825 472.492) (float-vector 230.982 310.825 12.492) (float-vector 225.25 312.5 10.0) (float-vector 25.25 312.5 470.0)))
(instance face :init :vertices (list (float-vector 35.1776 306.25 474.316) (float-vector 235.178 306.25 14.3163) (float-vector 230.982 310.825 12.492) (float-vector 30.9817 310.825 472.492)))
(instance face :init :vertices (list (float-vector 36.7134 300.0 474.984) (float-vector 236.713 300.0 14.9841) (float-vector 235.178 306.25 14.3163) (float-vector 35.1776 306.25 474.316)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 22.1741 293.75 464.673) (float-vector 23.632 300.0 463.849) (float-vector 22.1741 306.25 464.673) (float-vector 18.191 310.825 466.925) (float-vector 12.75 312.5 470.0) (float-vector 7.30898 310.825 473.075) (float-vector 3.32588 306.25 475.327) (float-vector 1.86796 300.0 476.151) (float-vector 3.32588 293.75 475.327) (float-vector 7.30898 289.175 473.075) (float-vector 12.75 287.5 470.0) (float-vector 18.191 289.175 466.925)))
(instance face :init :vertices (list (float-vector -236.368 300.0 3.84928) (float-vector -237.826 293.75 4.67332) (float-vector -241.809 289.175 6.92464) (float-vector -247.25 287.5 10.0) (float-vector -252.691 289.175 13.0754) (float-vector -256.674 293.75 15.3267) (float-vector -258.132 300.0 16.1507) (float-vector -256.674 306.25 15.3267) (float-vector -252.691 310.825 13.0754) (float-vector -247.25 312.5 10.0) (float-vector -241.809 310.825 6.92464) (float-vector -237.826 306.25 4.67332)))
(instance face :init :vertices (list (float-vector 22.1741 293.75 464.673) (float-vector -237.826 293.75 4.67332) (float-vector -236.368 300.0 3.84928) (float-vector 23.632 300.0 463.849)))
(instance face :init :vertices (list (float-vector 18.191 289.175 466.925) (float-vector -241.809 289.175 6.92464) (float-vector -237.826 293.75 4.67332) (float-vector 22.1741 293.75 464.673)))
(instance face :init :vertices (list (float-vector 12.75 287.5 470.0) (float-vector -247.25 287.5 10.0) (float-vector -241.809 289.175 6.92464) (float-vector 18.191 289.175 466.925)))
(instance face :init :vertices (list (float-vector 7.30898 289.175 473.075) (float-vector -252.691 289.175 13.0754) (float-vector -247.25 287.5 10.0) (float-vector 12.75 287.5 470.0)))
(instance face :init :vertices (list (float-vector 3.32588 293.75 475.327) (float-vector -256.674 293.75 15.3267) (float-vector -252.691 289.175 13.0754) (float-vector 7.30898 289.175 473.075)))
(instance face :init :vertices (list (float-vector 1.86796 300.0 476.151) (float-vector -258.132 300.0 16.1507) (float-vector -256.674 293.75 15.3267) (float-vector 3.32588 293.75 475.327)))
(instance face :init :vertices (list (float-vector 3.32588 306.25 475.327) (float-vector -256.674 306.25 15.3267) (float-vector -258.132 300.0 16.1507) (float-vector 1.86796 300.0 476.151)))
(instance face :init :vertices (list (float-vector 7.30898 310.825 473.075) (float-vector -252.691 310.825 13.0754) (float-vector -256.674 306.25 15.3267) (float-vector 3.32588 306.25 475.327)))
(instance face :init :vertices (list (float-vector 12.75 312.5 470.0) (float-vector -247.25 312.5 10.0) (float-vector -252.691 310.825 13.0754) (float-vector 7.30898 310.825 473.075)))
(instance face :init :vertices (list (float-vector 18.191 310.825 466.925) (float-vector -241.809 310.825 6.92464) (float-vector -247.25 312.5 10.0) (float-vector 12.75 312.5 470.0)))
(instance face :init :vertices (list (float-vector 22.1741 306.25 464.673) (float-vector -237.826 306.25 4.67332) (float-vector -241.809 310.825 6.92464) (float-vector 18.191 310.825 466.925)))
(instance face :init :vertices (list (float-vector 23.632 300.0 463.849) (float-vector -236.368 300.0 3.84928) (float-vector -237.826 306.25 4.67332) (float-vector 22.1741 306.25 464.673)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 165.0 285.0 680.0) (float-vector -165.0 285.0 680.0) (float-vector -165.0 285.0 620.0) (float-vector 165.0 285.0 620.0)))
(instance face :init :vertices (list (float-vector -165.0 315.0 680.0) (float-vector 165.0 315.0 680.0) (float-vector 165.0 315.0 620.0) (float-vector -165.0 315.0 620.0)))
(instance face :init :vertices (list (float-vector 165.0 285.0 680.0) (float-vector 165.0 315.0 680.0) (float-vector -165.0 315.0 680.0) (float-vector -165.0 285.0 680.0)))
(instance face :init :vertices (list (float-vector 165.0 285.0 620.0) (float-vector 165.0 315.0 620.0) (float-vector 165.0 315.0 680.0) (float-vector 165.0 285.0 680.0)))
(instance face :init :vertices (list (float-vector -165.0 285.0 620.0) (float-vector -165.0 315.0 620.0) (float-vector 165.0 315.0 620.0) (float-vector 165.0 285.0 620.0)))
(instance face :init :vertices (list (float-vector -165.0 285.0 680.0) (float-vector -165.0 315.0 680.0) (float-vector -165.0 315.0 620.0) (float-vector -165.0 285.0 620.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 246.901 277.5 12.5) (float-vector 250.25 277.5 25.0) (float-vector 246.901 277.5 37.5) (float-vector 237.75 277.5 46.6506) (float-vector 225.25 277.5 50.0) (float-vector 212.75 277.5 46.6506) (float-vector 203.599 277.5 37.5) (float-vector 200.25 277.5 25.0) (float-vector 203.599 277.5 12.5) (float-vector 212.75 277.5 3.34936) (float-vector 225.25 277.5 1.065814e-14) (float-vector 237.75 277.5 3.34936)))
(instance face :init :vertices (list (float-vector 250.25 322.5 25.0) (float-vector 246.901 322.5 12.5) (float-vector 237.75 322.5 3.34936) (float-vector 225.25 322.5 0.0) (float-vector 212.75 322.5 3.34936) (float-vector 203.599 322.5 12.5) (float-vector 200.25 322.5 25.0) (float-vector 203.599 322.5 37.5) (float-vector 212.75 322.5 46.6506) (float-vector 225.25 322.5 50.0) (float-vector 237.75 322.5 46.6506) (float-vector 246.901 322.5 37.5)))
(instance face :init :vertices (list (float-vector 246.901 277.5 12.5) (float-vector 246.901 322.5 12.5) (float-vector 250.25 322.5 25.0) (float-vector 250.25 277.5 25.0)))
(instance face :init :vertices (list (float-vector 237.75 277.5 3.34936) (float-vector 237.75 322.5 3.34936) (float-vector 246.901 322.5 12.5) (float-vector 246.901 277.5 12.5)))
(instance face :init :vertices (list (float-vector 225.25 277.5 1.065814e-14) (float-vector 225.25 322.5 0.0) (float-vector 237.75 322.5 3.34936) (float-vector 237.75 277.5 3.34936)))
(instance face :init :vertices (list (float-vector 212.75 277.5 3.34936) (float-vector 212.75 322.5 3.34936) (float-vector 225.25 322.5 0.0) (float-vector 225.25 277.5 1.065814e-14)))
(instance face :init :vertices (list (float-vector 203.599 277.5 12.5) (float-vector 203.599 322.5 12.5) (float-vector 212.75 322.5 3.34936) (float-vector 212.75 277.5 3.34936)))
(instance face :init :vertices (list (float-vector 200.25 277.5 25.0) (float-vector 200.25 322.5 25.0) (float-vector 203.599 322.5 12.5) (float-vector 203.599 277.5 12.5)))
(instance face :init :vertices (list (float-vector 203.599 277.5 37.5) (float-vector 203.599 322.5 37.5) (float-vector 200.25 322.5 25.0) (float-vector 200.25 277.5 25.0)))
(instance face :init :vertices (list (float-vector 212.75 277.5 46.6506) (float-vector 212.75 322.5 46.6506) (float-vector 203.599 322.5 37.5) (float-vector 203.599 277.5 37.5)))
(instance face :init :vertices (list (float-vector 225.25 277.5 50.0) (float-vector 225.25 322.5 50.0) (float-vector 212.75 322.5 46.6506) (float-vector 212.75 277.5 46.6506)))
(instance face :init :vertices (list (float-vector 237.75 277.5 46.6506) (float-vector 237.75 322.5 46.6506) (float-vector 225.25 322.5 50.0) (float-vector 225.25 277.5 50.0)))
(instance face :init :vertices (list (float-vector 246.901 277.5 37.5) (float-vector 246.901 322.5 37.5) (float-vector 237.75 322.5 46.6506) (float-vector 237.75 277.5 46.6506)))
(instance face :init :vertices (list (float-vector 250.25 277.5 25.0) (float-vector 250.25 322.5 25.0) (float-vector 246.901 322.5 37.5) (float-vector 246.901 277.5 37.5)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -225.599 277.5 12.5) (float-vector -222.25 277.5 25.0) (float-vector -225.599 277.5 37.5) (float-vector -234.75 277.5 46.6506) (float-vector -247.25 277.5 50.0) (float-vector -259.75 277.5 46.6506) (float-vector -268.901 277.5 37.5) (float-vector -272.25 277.5 25.0) (float-vector -268.901 277.5 12.5) (float-vector -259.75 277.5 3.34936) (float-vector -247.25 277.5 1.065814e-14) (float-vector -234.75 277.5 3.34936)))
(instance face :init :vertices (list (float-vector -222.25 322.5 25.0) (float-vector -225.599 322.5 12.5) (float-vector -234.75 322.5 3.34936) (float-vector -247.25 322.5 0.0) (float-vector -259.75 322.5 3.34936) (float-vector -268.901 322.5 12.5) (float-vector -272.25 322.5 25.0) (float-vector -268.901 322.5 37.5) (float-vector -259.75 322.5 46.6506) (float-vector -247.25 322.5 50.0) (float-vector -234.75 322.5 46.6506) (float-vector -225.599 322.5 37.5)))
(instance face :init :vertices (list (float-vector -225.599 277.5 12.5) (float-vector -225.599 322.5 12.5) (float-vector -222.25 322.5 25.0) (float-vector -222.25 277.5 25.0)))
(instance face :init :vertices (list (float-vector -234.75 277.5 3.34936) (float-vector -234.75 322.5 3.34936) (float-vector -225.599 322.5 12.5) (float-vector -225.599 277.5 12.5)))
(instance face :init :vertices (list (float-vector -247.25 277.5 1.065814e-14) (float-vector -247.25 322.5 0.0) (float-vector -234.75 322.5 3.34936) (float-vector -234.75 277.5 3.34936)))
(instance face :init :vertices (list (float-vector -259.75 277.5 3.34936) (float-vector -259.75 322.5 3.34936) (float-vector -247.25 322.5 0.0) (float-vector -247.25 277.5 1.065814e-14)))
(instance face :init :vertices (list (float-vector -268.901 277.5 12.5) (float-vector -268.901 322.5 12.5) (float-vector -259.75 322.5 3.34936) (float-vector -259.75 277.5 3.34936)))
(instance face :init :vertices (list (float-vector -272.25 277.5 25.0) (float-vector -272.25 322.5 25.0) (float-vector -268.901 322.5 12.5) (float-vector -268.901 277.5 12.5)))
(instance face :init :vertices (list (float-vector -268.901 277.5 37.5) (float-vector -268.901 322.5 37.5) (float-vector -272.25 322.5 25.0) (float-vector -272.25 277.5 25.0)))
(instance face :init :vertices (list (float-vector -259.75 277.5 46.6506) (float-vector -259.75 322.5 46.6506) (float-vector -268.901 322.5 37.5) (float-vector -268.901 277.5 37.5)))
(instance face :init :vertices (list (float-vector -247.25 277.5 50.0) (float-vector -247.25 322.5 50.0) (float-vector -259.75 322.5 46.6506) (float-vector -259.75 277.5 46.6506)))
(instance face :init :vertices (list (float-vector -234.75 277.5 46.6506) (float-vector -234.75 322.5 46.6506) (float-vector -247.25 322.5 50.0) (float-vector -247.25 277.5 50.0)))
(instance face :init :vertices (list (float-vector -225.599 277.5 37.5) (float-vector -225.599 322.5 37.5) (float-vector -234.75 322.5 46.6506) (float-vector -234.75 277.5 46.6506)))
(instance face :init :vertices (list (float-vector -222.25 277.5 25.0) (float-vector -222.25 322.5 25.0) (float-vector -225.599 322.5 37.5) (float-vector -225.599 277.5 37.5)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -48.5549 -306.25 666.901) (float-vector -47.0191 -300.0 667.569) (float-vector -48.5549 -293.75 666.901) (float-vector -52.7508 -289.175 665.077) (float-vector -58.4825 -287.5 662.585) (float-vector -64.2142 -289.175 660.093) (float-vector -68.4101 -293.75 658.268) (float-vector -69.9459 -300.0 657.601) (float-vector -68.4101 -306.25 658.268) (float-vector -64.2142 -310.825 660.093) (float-vector -58.4825 -312.5 662.585) (float-vector -52.7508 -310.825 665.077)))
(instance face :init :vertices (list (float-vector 36.7134 -300.0 474.984) (float-vector 35.1776 -306.25 474.316) (float-vector 30.9817 -310.825 472.492) (float-vector 25.25 -312.5 470.0) (float-vector 19.5183 -310.825 467.508) (float-vector 15.3224 -306.25 465.684) (float-vector 13.7866 -300.0 465.016) (float-vector 15.3224 -293.75 465.684) (float-vector 19.5183 -289.175 467.508) (float-vector 25.25 -287.5 470.0) (float-vector 30.9817 -289.175 472.492) (float-vector 35.1776 -293.75 474.316)))
(instance face :init :vertices (list (float-vector -48.5549 -306.25 666.901) (float-vector 35.1776 -306.25 474.316) (float-vector 36.7134 -300.0 474.984) (float-vector -47.0191 -300.0 667.569)))
(instance face :init :vertices (list (float-vector -52.7508 -310.825 665.077) (float-vector 30.9817 -310.825 472.492) (float-vector 35.1776 -306.25 474.316) (float-vector -48.5549 -306.25 666.901)))
(instance face :init :vertices (list (float-vector -58.4825 -312.5 662.585) (float-vector 25.25 -312.5 470.0) (float-vector 30.9817 -310.825 472.492) (float-vector -52.7508 -310.825 665.077)))
(instance face :init :vertices (list (float-vector -64.2142 -310.825 660.093) (float-vector 19.5183 -310.825 467.508) (float-vector 25.25 -312.5 470.0) (float-vector -58.4825 -312.5 662.585)))
(instance face :init :vertices (list (float-vector -68.4101 -306.25 658.268) (float-vector 15.3224 -306.25 465.684) (float-vector 19.5183 -310.825 467.508) (float-vector -64.2142 -310.825 660.093)))
(instance face :init :vertices (list (float-vector -69.9459 -300.0 657.601) (float-vector 13.7866 -300.0 465.016) (float-vector 15.3224 -306.25 465.684) (float-vector -68.4101 -306.25 658.268)))
(instance face :init :vertices (list (float-vector -68.4101 -293.75 658.268) (float-vector 15.3224 -293.75 465.684) (float-vector 13.7866 -300.0 465.016) (float-vector -69.9459 -300.0 657.601)))
(instance face :init :vertices (list (float-vector -64.2142 -289.175 660.093) (float-vector 19.5183 -289.175 467.508) (float-vector 15.3224 -293.75 465.684) (float-vector -68.4101 -293.75 658.268)))
(instance face :init :vertices (list (float-vector -58.4825 -287.5 662.585) (float-vector 25.25 -287.5 470.0) (float-vector 19.5183 -289.175 467.508) (float-vector -64.2142 -289.175 660.093)))
(instance face :init :vertices (list (float-vector -52.7508 -289.175 665.077) (float-vector 30.9817 -289.175 472.492) (float-vector 25.25 -287.5 470.0) (float-vector -58.4825 -287.5 662.585)))
(instance face :init :vertices (list (float-vector -48.5549 -293.75 666.901) (float-vector 35.1776 -293.75 474.316) (float-vector 30.9817 -289.175 472.492) (float-vector -52.7508 -289.175 665.077)))
(instance face :init :vertices (list (float-vector -47.0191 -300.0 667.569) (float-vector 36.7134 -300.0 474.984) (float-vector 35.1776 -293.75 474.316) (float-vector -48.5549 -293.75 666.901)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -61.0549 -306.25 666.901) (float-vector -59.5191 -300.0 667.569) (float-vector -61.0549 -293.75 666.901) (float-vector -65.2508 -289.175 665.077) (float-vector -70.9825 -287.5 662.585) (float-vector -76.7142 -289.175 660.093) (float-vector -80.9101 -293.75 658.268) (float-vector -82.4459 -300.0 657.601) (float-vector -80.9101 -306.25 658.268) (float-vector -76.7142 -310.825 660.093) (float-vector -70.9825 -312.5 662.585) (float-vector -65.2508 -310.825 665.077)))
(instance face :init :vertices (list (float-vector 24.2134 -300.0 474.984) (float-vector 22.6776 -306.25 474.316) (float-vector 18.4817 -310.825 472.492) (float-vector 12.75 -312.5 470.0) (float-vector 7.01831 -310.825 467.508) (float-vector 2.82243 -306.25 465.684) (float-vector 1.28662 -300.0 465.016) (float-vector 2.82243 -293.75 465.684) (float-vector 7.01831 -289.175 467.508) (float-vector 12.75 -287.5 470.0) (float-vector 18.4817 -289.175 472.492) (float-vector 22.6776 -293.75 474.316)))
(instance face :init :vertices (list (float-vector -61.0549 -306.25 666.901) (float-vector 22.6776 -306.25 474.316) (float-vector 24.2134 -300.0 474.984) (float-vector -59.5191 -300.0 667.569)))
(instance face :init :vertices (list (float-vector -65.2508 -310.825 665.077) (float-vector 18.4817 -310.825 472.492) (float-vector 22.6776 -306.25 474.316) (float-vector -61.0549 -306.25 666.901)))
(instance face :init :vertices (list (float-vector -70.9825 -312.5 662.585) (float-vector 12.75 -312.5 470.0) (float-vector 18.4817 -310.825 472.492) (float-vector -65.2508 -310.825 665.077)))
(instance face :init :vertices (list (float-vector -76.7142 -310.825 660.093) (float-vector 7.01831 -310.825 467.508) (float-vector 12.75 -312.5 470.0) (float-vector -70.9825 -312.5 662.585)))
(instance face :init :vertices (list (float-vector -80.9101 -306.25 658.268) (float-vector 2.82243 -306.25 465.684) (float-vector 7.01831 -310.825 467.508) (float-vector -76.7142 -310.825 660.093)))
(instance face :init :vertices (list (float-vector -82.4459 -300.0 657.601) (float-vector 1.28662 -300.0 465.016) (float-vector 2.82243 -306.25 465.684) (float-vector -80.9101 -306.25 658.268)))
(instance face :init :vertices (list (float-vector -80.9101 -293.75 658.268) (float-vector 2.82243 -293.75 465.684) (float-vector 1.28662 -300.0 465.016) (float-vector -82.4459 -300.0 657.601)))
(instance face :init :vertices (list (float-vector -76.7142 -289.175 660.093) (float-vector 7.01831 -289.175 467.508) (float-vector 2.82243 -293.75 465.684) (float-vector -80.9101 -293.75 658.268)))
(instance face :init :vertices (list (float-vector -70.9825 -287.5 662.585) (float-vector 12.75 -287.5 470.0) (float-vector 7.01831 -289.175 467.508) (float-vector -76.7142 -289.175 660.093)))
(instance face :init :vertices (list (float-vector -65.2508 -289.175 665.077) (float-vector 18.4817 -289.175 472.492) (float-vector 12.75 -287.5 470.0) (float-vector -70.9825 -287.5 662.585)))
(instance face :init :vertices (list (float-vector -61.0549 -293.75 666.901) (float-vector 22.6776 -293.75 474.316) (float-vector 18.4817 -289.175 472.492) (float-vector -65.2508 -289.175 665.077)))
(instance face :init :vertices (list (float-vector -59.5191 -300.0 667.569) (float-vector 24.2134 -300.0 474.984) (float-vector 22.6776 -293.75 474.316) (float-vector -61.0549 -293.75 666.901)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 35.1776 -306.25 474.316) (float-vector 36.7134 -300.0 474.984) (float-vector 35.1776 -293.75 474.316) (float-vector 30.9817 -289.175 472.492) (float-vector 25.25 -287.5 470.0) (float-vector 19.5183 -289.175 467.508) (float-vector 15.3224 -293.75 465.684) (float-vector 13.7866 -300.0 465.016) (float-vector 15.3224 -306.25 465.684) (float-vector 19.5183 -310.825 467.508) (float-vector 25.25 -312.5 470.0) (float-vector 30.9817 -310.825 472.492)))
(instance face :init :vertices (list (float-vector 236.713 -300.0 14.9841) (float-vector 235.178 -306.25 14.3163) (float-vector 230.982 -310.825 12.492) (float-vector 225.25 -312.5 10.0) (float-vector 219.518 -310.825 7.50796) (float-vector 215.322 -306.25 5.68366) (float-vector 213.787 -300.0 5.01592) (float-vector 215.322 -293.75 5.68366) (float-vector 219.518 -289.175 7.50796) (float-vector 225.25 -287.5 10.0) (float-vector 230.982 -289.175 12.492) (float-vector 235.178 -293.75 14.3163)))
(instance face :init :vertices (list (float-vector 35.1776 -306.25 474.316) (float-vector 235.178 -306.25 14.3163) (float-vector 236.713 -300.0 14.9841) (float-vector 36.7134 -300.0 474.984)))
(instance face :init :vertices (list (float-vector 30.9817 -310.825 472.492) (float-vector 230.982 -310.825 12.492) (float-vector 235.178 -306.25 14.3163) (float-vector 35.1776 -306.25 474.316)))
(instance face :init :vertices (list (float-vector 25.25 -312.5 470.0) (float-vector 225.25 -312.5 10.0) (float-vector 230.982 -310.825 12.492) (float-vector 30.9817 -310.825 472.492)))
(instance face :init :vertices (list (float-vector 19.5183 -310.825 467.508) (float-vector 219.518 -310.825 7.50796) (float-vector 225.25 -312.5 10.0) (float-vector 25.25 -312.5 470.0)))
(instance face :init :vertices (list (float-vector 15.3224 -306.25 465.684) (float-vector 215.322 -306.25 5.68366) (float-vector 219.518 -310.825 7.50796) (float-vector 19.5183 -310.825 467.508)))
(instance face :init :vertices (list (float-vector 13.7866 -300.0 465.016) (float-vector 213.787 -300.0 5.01592) (float-vector 215.322 -306.25 5.68366) (float-vector 15.3224 -306.25 465.684)))
(instance face :init :vertices (list (float-vector 15.3224 -293.75 465.684) (float-vector 215.322 -293.75 5.68366) (float-vector 213.787 -300.0 5.01592) (float-vector 13.7866 -300.0 465.016)))
(instance face :init :vertices (list (float-vector 19.5183 -289.175 467.508) (float-vector 219.518 -289.175 7.50796) (float-vector 215.322 -293.75 5.68366) (float-vector 15.3224 -293.75 465.684)))
(instance face :init :vertices (list (float-vector 25.25 -287.5 470.0) (float-vector 225.25 -287.5 10.0) (float-vector 219.518 -289.175 7.50796) (float-vector 19.5183 -289.175 467.508)))
(instance face :init :vertices (list (float-vector 30.9817 -289.175 472.492) (float-vector 230.982 -289.175 12.492) (float-vector 225.25 -287.5 10.0) (float-vector 25.25 -287.5 470.0)))
(instance face :init :vertices (list (float-vector 35.1776 -293.75 474.316) (float-vector 235.178 -293.75 14.3163) (float-vector 230.982 -289.175 12.492) (float-vector 30.9817 -289.175 472.492)))
(instance face :init :vertices (list (float-vector 36.7134 -300.0 474.984) (float-vector 236.713 -300.0 14.9841) (float-vector 235.178 -293.75 14.3163) (float-vector 35.1776 -293.75 474.316)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 22.1741 -306.25 464.673) (float-vector 23.632 -300.0 463.849) (float-vector 22.1741 -293.75 464.673) (float-vector 18.191 -289.175 466.925) (float-vector 12.75 -287.5 470.0) (float-vector 7.30898 -289.175 473.075) (float-vector 3.32588 -293.75 475.327) (float-vector 1.86796 -300.0 476.151) (float-vector 3.32588 -306.25 475.327) (float-vector 7.30898 -310.825 473.075) (float-vector 12.75 -312.5 470.0) (float-vector 18.191 -310.825 466.925)))
(instance face :init :vertices (list (float-vector -236.368 -300.0 3.84928) (float-vector -237.826 -306.25 4.67332) (float-vector -241.809 -310.825 6.92464) (float-vector -247.25 -312.5 10.0) (float-vector -252.691 -310.825 13.0754) (float-vector -256.674 -306.25 15.3267) (float-vector -258.132 -300.0 16.1507) (float-vector -256.674 -293.75 15.3267) (float-vector -252.691 -289.175 13.0754) (float-vector -247.25 -287.5 10.0) (float-vector -241.809 -289.175 6.92464) (float-vector -237.826 -293.75 4.67332)))
(instance face :init :vertices (list (float-vector 22.1741 -306.25 464.673) (float-vector -237.826 -306.25 4.67332) (float-vector -236.368 -300.0 3.84928) (float-vector 23.632 -300.0 463.849)))
(instance face :init :vertices (list (float-vector 18.191 -310.825 466.925) (float-vector -241.809 -310.825 6.92464) (float-vector -237.826 -306.25 4.67332) (float-vector 22.1741 -306.25 464.673)))
(instance face :init :vertices (list (float-vector 12.75 -312.5 470.0) (float-vector -247.25 -312.5 10.0) (float-vector -241.809 -310.825 6.92464) (float-vector 18.191 -310.825 466.925)))
(instance face :init :vertices (list (float-vector 7.30898 -310.825 473.075) (float-vector -252.691 -310.825 13.0754) (float-vector -247.25 -312.5 10.0) (float-vector 12.75 -312.5 470.0)))
(instance face :init :vertices (list (float-vector 3.32588 -306.25 475.327) (float-vector -256.674 -306.25 15.3267) (float-vector -252.691 -310.825 13.0754) (float-vector 7.30898 -310.825 473.075)))
(instance face :init :vertices (list (float-vector 1.86796 -300.0 476.151) (float-vector -258.132 -300.0 16.1507) (float-vector -256.674 -306.25 15.3267) (float-vector 3.32588 -306.25 475.327)))
(instance face :init :vertices (list (float-vector 3.32588 -293.75 475.327) (float-vector -256.674 -293.75 15.3267) (float-vector -258.132 -300.0 16.1507) (float-vector 1.86796 -300.0 476.151)))
(instance face :init :vertices (list (float-vector 7.30898 -289.175 473.075) (float-vector -252.691 -289.175 13.0754) (float-vector -256.674 -293.75 15.3267) (float-vector 3.32588 -293.75 475.327)))
(instance face :init :vertices (list (float-vector 12.75 -287.5 470.0) (float-vector -247.25 -287.5 10.0) (float-vector -252.691 -289.175 13.0754) (float-vector 7.30898 -289.175 473.075)))
(instance face :init :vertices (list (float-vector 18.191 -289.175 466.925) (float-vector -241.809 -289.175 6.92464) (float-vector -247.25 -287.5 10.0) (float-vector 12.75 -287.5 470.0)))
(instance face :init :vertices (list (float-vector 22.1741 -293.75 464.673) (float-vector -237.826 -293.75 4.67332) (float-vector -241.809 -289.175 6.92464) (float-vector 18.191 -289.175 466.925)))
(instance face :init :vertices (list (float-vector 23.632 -300.0 463.849) (float-vector -236.368 -300.0 3.84928) (float-vector -237.826 -293.75 4.67332) (float-vector 22.1741 -293.75 464.673)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 165.0 -315.0 680.0) (float-vector -165.0 -315.0 680.0) (float-vector -165.0 -315.0 620.0) (float-vector 165.0 -315.0 620.0)))
(instance face :init :vertices (list (float-vector -165.0 -285.0 680.0) (float-vector 165.0 -285.0 680.0) (float-vector 165.0 -285.0 620.0) (float-vector -165.0 -285.0 620.0)))
(instance face :init :vertices (list (float-vector 165.0 -315.0 680.0) (float-vector 165.0 -285.0 680.0) (float-vector -165.0 -285.0 680.0) (float-vector -165.0 -315.0 680.0)))
(instance face :init :vertices (list (float-vector 165.0 -315.0 620.0) (float-vector 165.0 -285.0 620.0) (float-vector 165.0 -285.0 680.0) (float-vector 165.0 -315.0 680.0)))
(instance face :init :vertices (list (float-vector -165.0 -315.0 620.0) (float-vector -165.0 -285.0 620.0) (float-vector 165.0 -285.0 620.0) (float-vector 165.0 -315.0 620.0)))
(instance face :init :vertices (list (float-vector -165.0 -315.0 680.0) (float-vector -165.0 -285.0 680.0) (float-vector -165.0 -285.0 620.0) (float-vector -165.0 -315.0 620.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 246.901 -322.5 12.5) (float-vector 250.25 -322.5 25.0) (float-vector 246.901 -322.5 37.5) (float-vector 237.75 -322.5 46.6506) (float-vector 225.25 -322.5 50.0) (float-vector 212.75 -322.5 46.6506) (float-vector 203.599 -322.5 37.5) (float-vector 200.25 -322.5 25.0) (float-vector 203.599 -322.5 12.5) (float-vector 212.75 -322.5 3.34936) (float-vector 225.25 -322.5 1.065814e-14) (float-vector 237.75 -322.5 3.34936)))
(instance face :init :vertices (list (float-vector 250.25 -277.5 25.0) (float-vector 246.901 -277.5 12.5) (float-vector 237.75 -277.5 3.34936) (float-vector 225.25 -277.5 0.0) (float-vector 212.75 -277.5 3.34936) (float-vector 203.599 -277.5 12.5) (float-vector 200.25 -277.5 25.0) (float-vector 203.599 -277.5 37.5) (float-vector 212.75 -277.5 46.6506) (float-vector 225.25 -277.5 50.0) (float-vector 237.75 -277.5 46.6506) (float-vector 246.901 -277.5 37.5)))
(instance face :init :vertices (list (float-vector 246.901 -322.5 12.5) (float-vector 246.901 -277.5 12.5) (float-vector 250.25 -277.5 25.0) (float-vector 250.25 -322.5 25.0)))
(instance face :init :vertices (list (float-vector 237.75 -322.5 3.34936) (float-vector 237.75 -277.5 3.34936) (float-vector 246.901 -277.5 12.5) (float-vector 246.901 -322.5 12.5)))
(instance face :init :vertices (list (float-vector 225.25 -322.5 1.065814e-14) (float-vector 225.25 -277.5 0.0) (float-vector 237.75 -277.5 3.34936) (float-vector 237.75 -322.5 3.34936)))
(instance face :init :vertices (list (float-vector 212.75 -322.5 3.34936) (float-vector 212.75 -277.5 3.34936) (float-vector 225.25 -277.5 0.0) (float-vector 225.25 -322.5 1.065814e-14)))
(instance face :init :vertices (list (float-vector 203.599 -322.5 12.5) (float-vector 203.599 -277.5 12.5) (float-vector 212.75 -277.5 3.34936) (float-vector 212.75 -322.5 3.34936)))
(instance face :init :vertices (list (float-vector 200.25 -322.5 25.0) (float-vector 200.25 -277.5 25.0) (float-vector 203.599 -277.5 12.5) (float-vector 203.599 -322.5 12.5)))
(instance face :init :vertices (list (float-vector 203.599 -322.5 37.5) (float-vector 203.599 -277.5 37.5) (float-vector 200.25 -277.5 25.0) (float-vector 200.25 -322.5 25.0)))
(instance face :init :vertices (list (float-vector 212.75 -322.5 46.6506) (float-vector 212.75 -277.5 46.6506) (float-vector 203.599 -277.5 37.5) (float-vector 203.599 -322.5 37.5)))
(instance face :init :vertices (list (float-vector 225.25 -322.5 50.0) (float-vector 225.25 -277.5 50.0) (float-vector 212.75 -277.5 46.6506) (float-vector 212.75 -322.5 46.6506)))
(instance face :init :vertices (list (float-vector 237.75 -322.5 46.6506) (float-vector 237.75 -277.5 46.6506) (float-vector 225.25 -277.5 50.0) (float-vector 225.25 -322.5 50.0)))
(instance face :init :vertices (list (float-vector 246.901 -322.5 37.5) (float-vector 246.901 -277.5 37.5) (float-vector 237.75 -277.5 46.6506) (float-vector 237.75 -322.5 46.6506)))
(instance face :init :vertices (list (float-vector 250.25 -322.5 25.0) (float-vector 250.25 -277.5 25.0) (float-vector 246.901 -277.5 37.5) (float-vector 246.901 -322.5 37.5)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -225.599 -322.5 12.5) (float-vector -222.25 -322.5 25.0) (float-vector -225.599 -322.5 37.5) (float-vector -234.75 -322.5 46.6506) (float-vector -247.25 -322.5 50.0) (float-vector -259.75 -322.5 46.6506) (float-vector -268.901 -322.5 37.5) (float-vector -272.25 -322.5 25.0) (float-vector -268.901 -322.5 12.5) (float-vector -259.75 -322.5 3.34936) (float-vector -247.25 -322.5 1.065814e-14) (float-vector -234.75 -322.5 3.34936)))
(instance face :init :vertices (list (float-vector -222.25 -277.5 25.0) (float-vector -225.599 -277.5 12.5) (float-vector -234.75 -277.5 3.34936) (float-vector -247.25 -277.5 0.0) (float-vector -259.75 -277.5 3.34936) (float-vector -268.901 -277.5 12.5) (float-vector -272.25 -277.5 25.0) (float-vector -268.901 -277.5 37.5) (float-vector -259.75 -277.5 46.6506) (float-vector -247.25 -277.5 50.0) (float-vector -234.75 -277.5 46.6506) (float-vector -225.599 -277.5 37.5)))
(instance face :init :vertices (list (float-vector -225.599 -322.5 12.5) (float-vector -225.599 -277.5 12.5) (float-vector -222.25 -277.5 25.0) (float-vector -222.25 -322.5 25.0)))
(instance face :init :vertices (list (float-vector -234.75 -322.5 3.34936) (float-vector -234.75 -277.5 3.34936) (float-vector -225.599 -277.5 12.5) (float-vector -225.599 -322.5 12.5)))
(instance face :init :vertices (list (float-vector -247.25 -322.5 1.065814e-14) (float-vector -247.25 -277.5 0.0) (float-vector -234.75 -277.5 3.34936) (float-vector -234.75 -322.5 3.34936)))
(instance face :init :vertices (list (float-vector -259.75 -322.5 3.34936) (float-vector -259.75 -277.5 3.34936) (float-vector -247.25 -277.5 0.0) (float-vector -247.25 -322.5 1.065814e-14)))
(instance face :init :vertices (list (float-vector -268.901 -322.5 12.5) (float-vector -268.901 -277.5 12.5) (float-vector -259.75 -277.5 3.34936) (float-vector -259.75 -322.5 3.34936)))
(instance face :init :vertices (list (float-vector -272.25 -322.5 25.0) (float-vector -272.25 -277.5 25.0) (float-vector -268.901 -277.5 12.5) (float-vector -268.901 -322.5 12.5)))
(instance face :init :vertices (list (float-vector -268.901 -322.5 37.5) (float-vector -268.901 -277.5 37.5) (float-vector -272.25 -277.5 25.0) (float-vector -272.25 -322.5 25.0)))
(instance face :init :vertices (list (float-vector -259.75 -322.5 46.6506) (float-vector -259.75 -277.5 46.6506) (float-vector -268.901 -277.5 37.5) (float-vector -268.901 -322.5 37.5)))
(instance face :init :vertices (list (float-vector -247.25 -322.5 50.0) (float-vector -247.25 -277.5 50.0) (float-vector -259.75 -277.5 46.6506) (float-vector -259.75 -322.5 46.6506)))
(instance face :init :vertices (list (float-vector -234.75 -322.5 46.6506) (float-vector -234.75 -277.5 46.6506) (float-vector -247.25 -277.5 50.0) (float-vector -247.25 -322.5 50.0)))
(instance face :init :vertices (list (float-vector -225.599 -322.5 37.5) (float-vector -225.599 -277.5 37.5) (float-vector -234.75 -277.5 46.6506) (float-vector -234.75 -322.5 46.6506)))
(instance face :init :vertices (list (float-vector -222.25 -322.5 25.0) (float-vector -222.25 -277.5 25.0) (float-vector -225.599 -277.5 37.5) (float-vector -225.599 -322.5 37.5)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :darkgoldenrod2)
(send (elt bc 1) :set-color :gray20)
(send (elt bc 2) :set-color :gray)
(send (elt bc 3) :set-color :gray)
(send (elt bc 4) :set-color :gray)
(send (elt bc 5) :set-color :gray)
(send (elt bc 6) :set-color :gray40)
(send (elt bc 7) :set-color :gray10)
(send (elt bc 8) :set-color :gray10)
(send (elt bc 9) :set-color :gray)
(send (elt bc 10) :set-color :gray)
(send (elt bc 11) :set-color :gray)
(send (elt bc 12) :set-color :gray)
(send (elt bc 13) :set-color :gray40)
(send (elt bc 14) :set-color :gray10)
(send (elt bc 15) :set-color :gray10)
(setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :foldable-desk-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
;; definition of assoc
(send self :assoc blink0)
;; definition of end-coords
;; definition of joint
;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector -230.0 -270.0 690.0) :rot #2f((1.0 0.0 0.0) (0.0 2.220446e-16 1.0) (0.0 -1.0 2.220446e-16)) :name ":rarm"))
(send blink0 :assoc handle0)
(setq handle1 (make-cascoords :pos (float-vector -230.0 270.0 690.0) :rot #2f((1.0 0.0 0.0) (0.0 2.220446e-16 -1.0) (0.0 1.0 2.220446e-16)) :name ":larm"))
(send blink0 :assoc handle1)
;; init-ending
(setq links (list blink0))
(setq joint-list (list))
(send self :init-ending)
(send self :move-to (make-coords :pos pos :rot rot))
(send-all links :worldcoords)
self))
(:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
(:handle-rarm (&rest args) (forward-message-to handle0 args))
(:handle-larm (&rest args) (forward-message-to handle1 args))
(:attention (&rest args) (forward-message-to-all (list ) args))
(:button (&rest args) (forward-message-to-all (list ) args))
)
(defun foldable-desk (&rest args) (instance* foldable-desk-object :init args))
;; (format *error-output* "(instance foldable-desk-object :init) for generating model~%")
|
