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
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
|
;;
;; DO NOT EDIT THIS FILE
;; this file is automatically generated from euslisp+euslib version
;;
;;
(defclass maxvalu-supermarket-basket-object
:super cascaded-link
:slots (sensors
handle0 handle1 handle2
attention0
joint0 joint1 ))
(defmethod maxvalu-supermarket-basket-object
(:init
(&rest args &key (name "maxvalu-supermarket-basket") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
(let (c bc
blink0 blink1 blink2
)
(send-super* :init :name name args)
;; definition of link
;; definition of :box
(setq bc (list
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -14.4444 -215.469 15.625) (float-vector -43.3333 -215.469 15.625) (float-vector -43.3333 -221.25 15.625) (float-vector -14.4444 -221.25 15.625)))
(instance face :init :vertices (list (float-vector -14.4444 221.25 15.625) (float-vector -43.3333 221.25 15.625) (float-vector -43.3333 215.469 15.625) (float-vector -14.4444 215.469 15.625)))
(instance face :init :vertices (list (float-vector -14.4444 -215.469 15.625) (float-vector -14.4444 -221.25 15.625) (float-vector -14.4444 -226.25 78.125) (float-vector -14.4444 -220.677 78.125)))
(instance face :init :vertices (list (float-vector -14.4444 221.25 15.625) (float-vector -14.4444 215.469 15.625) (float-vector -14.4444 220.677 78.125) (float-vector -14.4444 226.25 78.125)))
(instance face :init :vertices (list (float-vector -14.4444 -220.677 78.125) (float-vector -14.4444 -226.25 78.125) (float-vector -43.3333 -226.25 78.125) (float-vector -43.3333 -220.677 78.125)))
(instance face :init :vertices (list (float-vector -14.4444 226.25 78.125) (float-vector -14.4444 220.677 78.125) (float-vector -43.3333 220.677 78.125) (float-vector -43.3333 226.25 78.125)))
(instance face :init :vertices (list (float-vector -43.3333 215.469 15.625) (float-vector -43.3333 221.25 15.625) (float-vector -43.3333 226.25 78.125) (float-vector -43.3333 220.677 78.125)))
(instance face :init :vertices (list (float-vector -43.3333 -221.25 15.625) (float-vector -43.3333 -215.469 15.625) (float-vector -43.3333 -220.677 78.125) (float-vector -43.3333 -226.25 78.125)))
(instance face :init :vertices (list (float-vector 101.111 -215.469 15.625) (float-vector 72.2222 -215.469 15.625) (float-vector 72.2222 -221.25 15.625) (float-vector 101.111 -221.25 15.625)))
(instance face :init :vertices (list (float-vector 101.111 -215.469 15.625) (float-vector 101.111 -221.25 15.625) (float-vector 101.111 -226.25 78.125) (float-vector 101.111 -220.677 78.125)))
(instance face :init :vertices (list (float-vector 101.111 221.25 15.625) (float-vector 72.2222 221.25 15.625) (float-vector 72.2222 215.469 15.625) (float-vector 101.111 215.469 15.625)))
(instance face :init :vertices (list (float-vector 101.111 221.25 15.625) (float-vector 101.111 215.469 15.625) (float-vector 101.111 220.677 78.125) (float-vector 101.111 226.25 78.125)))
(instance face :init :vertices (list (float-vector 101.111 -220.677 78.125) (float-vector 101.111 -226.25 78.125) (float-vector 72.2222 -226.25 78.125) (float-vector 72.2222 -220.677 78.125)))
(instance face :init :vertices (list (float-vector 101.111 226.25 78.125) (float-vector 101.111 220.677 78.125) (float-vector 72.2222 220.677 78.125) (float-vector 72.2222 226.25 78.125)))
(instance face :init :vertices (list (float-vector 72.2222 226.25 78.125) (float-vector 72.2222 220.677 78.125) (float-vector 72.2222 215.469 15.625) (float-vector 72.2222 221.25 15.625)))
(instance face :init :vertices (list (float-vector 72.2222 -220.677 78.125) (float-vector 72.2222 -226.25 78.125) (float-vector 72.2222 -221.25 15.625) (float-vector 72.2222 -215.469 15.625)))
(instance face :init :vertices (list (float-vector 126.202 -24.4444 15.625) (float-vector 126.202 -73.3333 15.625) (float-vector 131.898 -73.3333 15.625) (float-vector 131.898 -24.4444 15.625)))
(instance face :init :vertices (list (float-vector 126.202 -24.4444 15.625) (float-vector 131.898 -24.4444 15.625) (float-vector 136.528 -24.4444 78.125) (float-vector 131.01 -24.4444 78.125)))
(instance face :init :vertices (list (float-vector -131.898 -24.4444 15.625) (float-vector -131.898 -73.3333 15.625) (float-vector -126.202 -73.3333 15.625) (float-vector -126.202 -24.4444 15.625)))
(instance face :init :vertices (list (float-vector -131.898 -24.4444 15.625) (float-vector -126.202 -24.4444 15.625) (float-vector -131.01 -24.4444 78.125) (float-vector -136.528 -24.4444 78.125)))
(instance face :init :vertices (list (float-vector 131.01 -24.4444 78.125) (float-vector 136.528 -24.4444 78.125) (float-vector 136.528 -73.3333 78.125) (float-vector 131.01 -73.3333 78.125)))
(instance face :init :vertices (list (float-vector -136.528 -24.4444 78.125) (float-vector -131.01 -24.4444 78.125) (float-vector -131.01 -73.3333 78.125) (float-vector -136.528 -73.3333 78.125)))
(instance face :init :vertices (list (float-vector -126.202 -73.3333 15.625) (float-vector -131.898 -73.3333 15.625) (float-vector -136.528 -73.3333 78.125) (float-vector -131.01 -73.3333 78.125)))
(instance face :init :vertices (list (float-vector 131.898 -73.3333 15.625) (float-vector 126.202 -73.3333 15.625) (float-vector 131.01 -73.3333 78.125) (float-vector 136.528 -73.3333 78.125)))
(instance face :init :vertices (list (float-vector 126.202 171.111 15.625) (float-vector 126.202 122.222 15.625) (float-vector 131.898 122.222 15.625) (float-vector 131.898 171.111 15.625)))
(instance face :init :vertices (list (float-vector 126.202 171.111 15.625) (float-vector 131.898 171.111 15.625) (float-vector 136.528 171.111 78.125) (float-vector 131.01 171.111 78.125)))
(instance face :init :vertices (list (float-vector -131.898 171.111 15.625) (float-vector -131.898 122.222 15.625) (float-vector -126.202 122.222 15.625) (float-vector -126.202 171.111 15.625)))
(instance face :init :vertices (list (float-vector -131.898 171.111 15.625) (float-vector -126.202 171.111 15.625) (float-vector -131.01 171.111 78.125) (float-vector -136.528 171.111 78.125)))
(instance face :init :vertices (list (float-vector 131.01 171.111 78.125) (float-vector 136.528 171.111 78.125) (float-vector 136.528 122.222 78.125) (float-vector 131.01 122.222 78.125)))
(instance face :init :vertices (list (float-vector -136.528 171.111 78.125) (float-vector -131.01 171.111 78.125) (float-vector -131.01 122.222 78.125) (float-vector -136.528 122.222 78.125)))
(instance face :init :vertices (list (float-vector -136.528 122.222 78.125) (float-vector -131.01 122.222 78.125) (float-vector -126.202 122.222 15.625) (float-vector -131.898 122.222 15.625)))
(instance face :init :vertices (list (float-vector 131.01 122.222 78.125) (float-vector 136.528 122.222 78.125) (float-vector 131.898 122.222 15.625) (float-vector 126.202 122.222 15.625)))
(instance face :init :vertices (list (float-vector -14.4444 -221.979 93.75) (float-vector -43.3333 -221.979 93.75) (float-vector -43.3333 -227.5 93.75) (float-vector -14.4444 -227.5 93.75)))
(instance face :init :vertices (list (float-vector -14.4444 -221.979 93.75) (float-vector -14.4444 -227.5 93.75) (float-vector -14.4444 -232.5 156.25) (float-vector -14.4444 -227.187 156.25)))
(instance face :init :vertices (list (float-vector -14.4444 227.5 93.75) (float-vector -43.3333 227.5 93.75) (float-vector -43.3333 221.979 93.75) (float-vector -14.4444 221.979 93.75)))
(instance face :init :vertices (list (float-vector -14.4444 227.5 93.75) (float-vector -14.4444 221.979 93.75) (float-vector -14.4444 227.188 156.25) (float-vector -14.4444 232.5 156.25)))
(instance face :init :vertices (list (float-vector -14.4444 -227.187 156.25) (float-vector -14.4444 -232.5 156.25) (float-vector -43.3333 -232.5 156.25) (float-vector -43.3333 -227.188 156.25)))
(instance face :init :vertices (list (float-vector -14.4444 232.5 156.25) (float-vector -14.4444 227.188 156.25) (float-vector -43.3333 227.187 156.25) (float-vector -43.3333 232.5 156.25)))
(instance face :init :vertices (list (float-vector -43.3333 221.979 93.75) (float-vector -43.3333 227.5 93.75) (float-vector -43.3333 232.5 156.25) (float-vector -43.3333 227.187 156.25)))
(instance face :init :vertices (list (float-vector -43.3333 -227.5 93.75) (float-vector -43.3333 -221.979 93.75) (float-vector -43.3333 -227.188 156.25) (float-vector -43.3333 -232.5 156.25)))
(instance face :init :vertices (list (float-vector 101.111 -221.979 93.75) (float-vector 72.2222 -221.979 93.75) (float-vector 72.2222 -227.5 93.75) (float-vector 101.111 -227.5 93.75)))
(instance face :init :vertices (list (float-vector 101.111 -221.979 93.75) (float-vector 101.111 -227.5 93.75) (float-vector 101.111 -232.5 156.25) (float-vector 101.111 -227.187 156.25)))
(instance face :init :vertices (list (float-vector 101.111 227.5 93.75) (float-vector 72.2222 227.5 93.75) (float-vector 72.2222 221.979 93.75) (float-vector 101.111 221.979 93.75)))
(instance face :init :vertices (list (float-vector 101.111 227.5 93.75) (float-vector 101.111 221.979 93.75) (float-vector 101.111 227.188 156.25) (float-vector 101.111 232.5 156.25)))
(instance face :init :vertices (list (float-vector 101.111 -227.187 156.25) (float-vector 101.111 -232.5 156.25) (float-vector 72.2222 -232.5 156.25) (float-vector 72.2222 -227.188 156.25)))
(instance face :init :vertices (list (float-vector 101.111 232.5 156.25) (float-vector 101.111 227.188 156.25) (float-vector 72.2222 227.187 156.25) (float-vector 72.2222 232.5 156.25)))
(instance face :init :vertices (list (float-vector 72.2222 232.5 156.25) (float-vector 72.2222 227.187 156.25) (float-vector 72.2222 221.979 93.75) (float-vector 72.2222 227.5 93.75)))
(instance face :init :vertices (list (float-vector 72.2222 -227.188 156.25) (float-vector 72.2222 -232.5 156.25) (float-vector 72.2222 -227.5 93.75) (float-vector 72.2222 -221.979 93.75)))
(instance face :init :vertices (list (float-vector 132.212 -24.4444 93.75) (float-vector 132.212 -73.3333 93.75) (float-vector 137.685 -73.3333 93.75) (float-vector 137.685 -24.4444 93.75)))
(instance face :init :vertices (list (float-vector 132.212 -24.4444 93.75) (float-vector 137.685 -24.4444 93.75) (float-vector 142.315 -24.4444 156.25) (float-vector 137.019 -24.4444 156.25)))
(instance face :init :vertices (list (float-vector -137.685 -24.4444 93.75) (float-vector -137.685 -73.3333 93.75) (float-vector -132.212 -73.3333 93.75) (float-vector -132.212 -24.4444 93.75)))
(instance face :init :vertices (list (float-vector -137.685 -24.4444 93.75) (float-vector -132.212 -24.4444 93.75) (float-vector -137.019 -24.4444 156.25) (float-vector -142.315 -24.4444 156.25)))
(instance face :init :vertices (list (float-vector 137.019 -24.4444 156.25) (float-vector 142.315 -24.4444 156.25) (float-vector 142.315 -73.3333 156.25) (float-vector 137.019 -73.3333 156.25)))
(instance face :init :vertices (list (float-vector -142.315 -24.4444 156.25) (float-vector -137.019 -24.4444 156.25) (float-vector -137.019 -73.3333 156.25) (float-vector -142.315 -73.3333 156.25)))
(instance face :init :vertices (list (float-vector -132.212 -73.3333 93.75) (float-vector -137.685 -73.3333 93.75) (float-vector -142.315 -73.3333 156.25) (float-vector -137.019 -73.3333 156.25)))
(instance face :init :vertices (list (float-vector 137.685 -73.3333 93.75) (float-vector 132.212 -73.3333 93.75) (float-vector 137.019 -73.3333 156.25) (float-vector 142.315 -73.3333 156.25)))
(instance face :init :vertices (list (float-vector 132.212 171.111 93.75) (float-vector 132.212 122.222 93.75) (float-vector 137.685 122.222 93.75) (float-vector 137.685 171.111 93.75)))
(instance face :init :vertices (list (float-vector 132.212 171.111 93.75) (float-vector 137.685 171.111 93.75) (float-vector 142.315 171.111 156.25) (float-vector 137.019 171.111 156.25)))
(instance face :init :vertices (list (float-vector -137.685 171.111 93.75) (float-vector -137.685 122.222 93.75) (float-vector -132.212 122.222 93.75) (float-vector -132.212 171.111 93.75)))
(instance face :init :vertices (list (float-vector -137.685 171.111 93.75) (float-vector -132.212 171.111 93.75) (float-vector -137.019 171.111 156.25) (float-vector -142.315 171.111 156.25)))
(instance face :init :vertices (list (float-vector 137.019 171.111 156.25) (float-vector 142.315 171.111 156.25) (float-vector 142.315 122.222 156.25) (float-vector 137.019 122.222 156.25)))
(instance face :init :vertices (list (float-vector -142.315 171.111 156.25) (float-vector -137.019 171.111 156.25) (float-vector -137.019 122.222 156.25) (float-vector -142.315 122.222 156.25)))
(instance face :init :vertices (list (float-vector -142.315 122.222 156.25) (float-vector -137.019 122.222 156.25) (float-vector -132.212 122.222 93.75) (float-vector -137.685 122.222 93.75)))
(instance face :init :vertices (list (float-vector 137.019 122.222 156.25) (float-vector 142.315 122.222 156.25) (float-vector 137.685 122.222 93.75) (float-vector 132.212 122.222 93.75)))
(instance face :init :vertices (list (float-vector 101.111 -228.49 171.875) (float-vector 72.2222 -228.49 171.875) (float-vector 72.2222 -233.75 171.875) (float-vector 101.111 -233.75 171.875)))
(instance face :init :vertices (list (float-vector 101.111 -228.49 171.875) (float-vector 101.111 -233.75 171.875) (float-vector 101.111 -238.75 234.375) (float-vector 101.111 -233.698 234.375)))
(instance face :init :vertices (list (float-vector 101.111 233.75 171.875) (float-vector 72.2222 233.75 171.875) (float-vector 72.2222 228.49 171.875) (float-vector 101.111 228.49 171.875)))
(instance face :init :vertices (list (float-vector 101.111 233.75 171.875) (float-vector 101.111 228.49 171.875) (float-vector 101.111 233.698 234.375) (float-vector 101.111 238.75 234.375)))
(instance face :init :vertices (list (float-vector 101.111 -233.698 234.375) (float-vector 101.111 -238.75 234.375) (float-vector 72.2222 -238.75 234.375) (float-vector 72.2222 -233.698 234.375)))
(instance face :init :vertices (list (float-vector 101.111 238.75 234.375) (float-vector 101.111 233.698 234.375) (float-vector 72.2222 233.698 234.375) (float-vector 72.2222 238.75 234.375)))
(instance face :init :vertices (list (float-vector 72.2222 228.49 171.875) (float-vector 72.2222 233.75 171.875) (float-vector 72.2222 238.75 234.375) (float-vector 72.2222 233.698 234.375)))
(instance face :init :vertices (list (float-vector 72.2222 -233.75 171.875) (float-vector 72.2222 -228.49 171.875) (float-vector 72.2222 -233.698 234.375) (float-vector 72.2222 -238.75 234.375)))
(instance face :init :vertices (list (float-vector 138.221 171.111 171.875) (float-vector 138.221 122.222 171.875) (float-vector 143.472 122.222 171.875) (float-vector 143.472 171.111 171.875)))
(instance face :init :vertices (list (float-vector 138.221 171.111 171.875) (float-vector 143.472 171.111 171.875) (float-vector 148.102 171.111 234.375) (float-vector 143.029 171.111 234.375)))
(instance face :init :vertices (list (float-vector -143.472 171.111 171.875) (float-vector -143.472 122.222 171.875) (float-vector -138.221 122.222 171.875) (float-vector -138.221 171.111 171.875)))
(instance face :init :vertices (list (float-vector -143.472 171.111 171.875) (float-vector -138.221 171.111 171.875) (float-vector -143.029 171.111 234.375) (float-vector -148.102 171.111 234.375)))
(instance face :init :vertices (list (float-vector 143.029 171.111 234.375) (float-vector 148.102 171.111 234.375) (float-vector 148.102 122.222 234.375) (float-vector 143.029 122.222 234.375)))
(instance face :init :vertices (list (float-vector -148.102 171.111 234.375) (float-vector -143.029 171.111 234.375) (float-vector -143.029 122.222 234.375) (float-vector -148.102 122.222 234.375)))
(instance face :init :vertices (list (float-vector -148.102 122.222 234.375) (float-vector -143.029 122.222 234.375) (float-vector -138.221 122.222 171.875) (float-vector -143.472 122.222 171.875)))
(instance face :init :vertices (list (float-vector 143.029 122.222 234.375) (float-vector 148.102 122.222 234.375) (float-vector 143.472 122.222 171.875) (float-vector 138.221 122.222 171.875)))
(instance face :init :vertices (list (float-vector 125.769 215.0 10.0) (float-vector 144.231 235.0 250.0) (float-vector -144.231 235.0 250.0) (float-vector -125.769 215.0 10.0))
:holes (list
(instance hole :init :vertices (list (float-vector -30.0 232.708 222.5) (float-vector 30.0 232.708 222.5) (float-vector 30.0 230.625 197.5) (float-vector -30.0 230.625 197.5)))
(instance hole :init :vertices (list (float-vector -101.111 233.698 234.375) (float-vector -72.2222 233.698 234.375) (float-vector -72.2222 228.49 171.875) (float-vector -101.111 228.49 171.875)))
(instance hole :init :vertices (list (float-vector 14.4444 227.187 156.25) (float-vector 43.3333 227.188 156.25) (float-vector 43.3333 221.979 93.75) (float-vector 14.4444 221.979 93.75)))
(instance hole :init :vertices (list (float-vector -101.111 227.187 156.25) (float-vector -72.2222 227.188 156.25) (float-vector -72.2222 221.979 93.75) (float-vector -101.111 221.979 93.75)))
(instance hole :init :vertices (list (float-vector 14.4444 220.677 78.125) (float-vector 43.3333 220.677 78.125) (float-vector 43.3333 215.469 15.625) (float-vector 14.4444 215.469 15.625)))
(instance hole :init :vertices (list (float-vector 72.2222 233.698 234.375) (float-vector 101.111 233.698 234.375) (float-vector 101.111 228.49 171.875) (float-vector 72.2222 228.49 171.875)))
(instance hole :init :vertices (list (float-vector 72.2222 227.187 156.25) (float-vector 101.111 227.188 156.25) (float-vector 101.111 221.979 93.75) (float-vector 72.2222 221.979 93.75)))
(instance hole :init :vertices (list (float-vector -43.3333 227.187 156.25) (float-vector -14.4444 227.188 156.25) (float-vector -14.4444 221.979 93.75) (float-vector -43.3333 221.979 93.75)))
(instance hole :init :vertices (list (float-vector 72.2222 220.677 78.125) (float-vector 101.111 220.677 78.125) (float-vector 101.111 215.469 15.625) (float-vector 72.2222 215.469 15.625)))
(instance hole :init :vertices (list (float-vector -43.3333 220.677 78.125) (float-vector -14.4444 220.677 78.125) (float-vector -14.4444 215.469 15.625) (float-vector -43.3333 215.469 15.625)))
(instance hole :init :vertices (list (float-vector -101.111 215.469 15.625) (float-vector -101.111 220.677 78.125) (float-vector -72.2222 220.677 78.125) (float-vector -72.2222 215.469 15.625)))
))
(instance face :init :vertices (list (float-vector 125.769 215.0 10.0) (float-vector -125.769 215.0 10.0) (float-vector -125.769 -215.0 10.0) (float-vector 125.769 -215.0 10.0)))
(instance face :init :vertices (list (float-vector 125.769 -215.0 10.0) (float-vector -125.769 -215.0 10.0) (float-vector -144.231 -235.0 250.0) (float-vector 144.231 -235.0 250.0))
:holes (list
(instance hole :init :vertices (list (float-vector -30.0 -230.625 197.5) (float-vector 30.0 -230.625 197.5) (float-vector 30.0 -232.708 222.5) (float-vector -30.0 -232.708 222.5)))
(instance hole :init :vertices (list (float-vector -101.111 -228.49 171.875) (float-vector -72.2222 -228.49 171.875) (float-vector -72.2222 -233.698 234.375) (float-vector -101.111 -233.698 234.375)))
(instance hole :init :vertices (list (float-vector 14.4444 -221.979 93.75) (float-vector 43.3333 -221.979 93.75) (float-vector 43.3333 -227.187 156.25) (float-vector 14.4444 -227.187 156.25)))
(instance hole :init :vertices (list (float-vector -101.111 -221.979 93.75) (float-vector -72.2222 -221.979 93.75) (float-vector -72.2222 -227.187 156.25) (float-vector -101.111 -227.187 156.25)))
(instance hole :init :vertices (list (float-vector 14.4444 -215.469 15.625) (float-vector 43.3333 -215.469 15.625) (float-vector 43.3333 -220.677 78.125) (float-vector 14.4444 -220.677 78.125)))
(instance hole :init :vertices (list (float-vector 72.2222 -228.49 171.875) (float-vector 101.111 -228.49 171.875) (float-vector 101.111 -233.698 234.375) (float-vector 72.2222 -233.698 234.375)))
(instance hole :init :vertices (list (float-vector 72.2222 -221.979 93.75) (float-vector 101.111 -221.979 93.75) (float-vector 101.111 -227.187 156.25) (float-vector 72.2222 -227.188 156.25)))
(instance hole :init :vertices (list (float-vector -43.3333 -221.979 93.75) (float-vector -14.4444 -221.979 93.75) (float-vector -14.4444 -227.187 156.25) (float-vector -43.3333 -227.188 156.25)))
(instance hole :init :vertices (list (float-vector 72.2222 -215.469 15.625) (float-vector 101.111 -215.469 15.625) (float-vector 101.111 -220.677 78.125) (float-vector 72.2222 -220.677 78.125)))
(instance hole :init :vertices (list (float-vector -43.3333 -215.469 15.625) (float-vector -14.4444 -215.469 15.625) (float-vector -14.4444 -220.677 78.125) (float-vector -43.3333 -220.677 78.125)))
(instance hole :init :vertices (list (float-vector -72.2222 -215.469 15.625) (float-vector -72.2222 -220.677 78.125) (float-vector -101.111 -220.677 78.125) (float-vector -101.111 -215.469 15.625)))
))
(instance face :init :vertices (list (float-vector 144.231 235.0 250.0) (float-vector 125.769 215.0 10.0) (float-vector 125.769 -215.0 10.0) (float-vector 144.231 -235.0 250.0))
:holes (list
(instance hole :init :vertices (list (float-vector 138.221 -171.111 171.875) (float-vector 138.221 -122.222 171.875) (float-vector 143.029 -122.222 234.375) (float-vector 143.029 -171.111 234.375)))
(instance hole :init :vertices (list (float-vector 132.212 24.4444 93.75) (float-vector 132.212 73.3333 93.75) (float-vector 137.019 73.3333 156.25) (float-vector 137.019 24.4444 156.25)))
(instance hole :init :vertices (list (float-vector 132.212 -171.111 93.75) (float-vector 132.212 -122.222 93.75) (float-vector 137.019 -122.222 156.25) (float-vector 137.019 -171.111 156.25)))
(instance hole :init :vertices (list (float-vector 126.202 24.4444 15.625) (float-vector 126.202 73.3333 15.625) (float-vector 131.01 73.3333 78.125) (float-vector 131.01 24.4444 78.125)))
(instance hole :init :vertices (list (float-vector 126.202 -171.111 15.625) (float-vector 126.202 -122.222 15.625) (float-vector 131.01 -122.222 78.125) (float-vector 131.01 -171.111 78.125)))
(instance hole :init :vertices (list (float-vector 138.221 122.222 171.875) (float-vector 138.221 171.111 171.875) (float-vector 143.029 171.111 234.375) (float-vector 143.029 122.222 234.375)))
(instance hole :init :vertices (list (float-vector 132.212 122.222 93.75) (float-vector 132.212 171.111 93.75) (float-vector 137.019 171.111 156.25) (float-vector 137.019 122.222 156.25)))
(instance hole :init :vertices (list (float-vector 132.212 -73.3333 93.75) (float-vector 132.212 -24.4444 93.75) (float-vector 137.019 -24.4444 156.25) (float-vector 137.019 -73.3333 156.25)))
(instance hole :init :vertices (list (float-vector 126.202 122.222 15.625) (float-vector 126.202 171.111 15.625) (float-vector 131.01 171.111 78.125) (float-vector 131.01 122.222 78.125)))
(instance hole :init :vertices (list (float-vector 126.202 -73.3333 15.625) (float-vector 126.202 -24.4444 15.625) (float-vector 131.01 -24.4444 78.125) (float-vector 131.01 -73.3333 78.125)))
))
(instance face :init :vertices (list (float-vector -144.231 -235.0 250.0) (float-vector -125.769 -215.0 10.0) (float-vector -125.769 215.0 10.0) (float-vector -144.231 235.0 250.0))
:holes (list
(instance hole :init :vertices (list (float-vector -143.029 -171.111 234.375) (float-vector -143.029 -122.222 234.375) (float-vector -138.221 -122.222 171.875) (float-vector -138.221 -171.111 171.875)))
(instance hole :init :vertices (list (float-vector -137.019 24.4444 156.25) (float-vector -137.019 73.3333 156.25) (float-vector -132.212 73.3333 93.75) (float-vector -132.212 24.4444 93.75)))
(instance hole :init :vertices (list (float-vector -137.019 -171.111 156.25) (float-vector -137.019 -122.222 156.25) (float-vector -132.212 -122.222 93.75) (float-vector -132.212 -171.111 93.75)))
(instance hole :init :vertices (list (float-vector -131.01 24.4444 78.125) (float-vector -131.01 73.3333 78.125) (float-vector -126.202 73.3333 15.625) (float-vector -126.202 24.4444 15.625)))
(instance hole :init :vertices (list (float-vector -131.01 -171.111 78.125) (float-vector -131.01 -122.222 78.125) (float-vector -126.202 -122.222 15.625) (float-vector -126.202 -171.111 15.625)))
(instance hole :init :vertices (list (float-vector -143.029 122.222 234.375) (float-vector -143.029 171.111 234.375) (float-vector -138.221 171.111 171.875) (float-vector -138.221 122.222 171.875)))
(instance hole :init :vertices (list (float-vector -137.019 122.222 156.25) (float-vector -137.019 171.111 156.25) (float-vector -132.212 171.111 93.75) (float-vector -132.212 122.222 93.75)))
(instance hole :init :vertices (list (float-vector -137.019 -73.3333 156.25) (float-vector -137.019 -24.4444 156.25) (float-vector -132.212 -24.4444 93.75) (float-vector -132.212 -73.3333 93.75)))
(instance hole :init :vertices (list (float-vector -131.01 122.222 78.125) (float-vector -131.01 171.111 78.125) (float-vector -126.202 171.111 15.625) (float-vector -126.202 122.222 15.625)))
(instance hole :init :vertices (list (float-vector -131.01 -73.3333 78.125) (float-vector -131.01 -24.4444 78.125) (float-vector -126.202 -24.4444 15.625) (float-vector -126.202 -73.3333 15.625)))
))
(instance face :init :vertices (list (float-vector -149.259 240.0 250.0) (float-vector -149.259 -240.0 250.0) (float-vector 149.259 -240.0 250.0) (float-vector 149.259 240.0 250.0))
:holes (list
(instance hole :init :vertices (list (float-vector -144.231 235.0 250.0) (float-vector 144.231 235.0 250.0) (float-vector 144.231 -235.0 250.0) (float-vector -144.231 -235.0 250.0)))
))
(instance face :init :vertices (list (float-vector -149.259 240.0 250.0) (float-vector 149.259 240.0 250.0) (float-vector 130.741 220.0 1.749657e-14) (float-vector -130.741 220.0 1.485451e-15))
:holes (list
(instance hole :init :vertices (list (float-vector -30.0 235.8 197.5) (float-vector 30.0 235.8 197.5) (float-vector 30.0 237.8 222.5) (float-vector -30.0 237.8 222.5)))
(instance hole :init :vertices (list (float-vector -101.111 233.75 171.875) (float-vector -72.2222 233.75 171.875) (float-vector -72.2222 238.75 234.375) (float-vector -101.111 238.75 234.375)))
(instance hole :init :vertices (list (float-vector 14.4444 227.5 93.75) (float-vector 43.3333 227.5 93.75) (float-vector 43.3333 232.5 156.25) (float-vector 14.4444 232.5 156.25)))
(instance hole :init :vertices (list (float-vector -101.111 227.5 93.75) (float-vector -72.2222 227.5 93.75) (float-vector -72.2222 232.5 156.25) (float-vector -101.111 232.5 156.25)))
(instance hole :init :vertices (list (float-vector 14.4444 221.25 15.625) (float-vector 43.3333 221.25 15.625) (float-vector 43.3333 226.25 78.125) (float-vector 14.4444 226.25 78.125)))
(instance hole :init :vertices (list (float-vector 72.2222 233.75 171.875) (float-vector 101.111 233.75 171.875) (float-vector 101.111 238.75 234.375) (float-vector 72.2222 238.75 234.375)))
(instance hole :init :vertices (list (float-vector 72.2222 227.5 93.75) (float-vector 101.111 227.5 93.75) (float-vector 101.111 232.5 156.25) (float-vector 72.2222 232.5 156.25)))
(instance hole :init :vertices (list (float-vector -43.3333 227.5 93.75) (float-vector -14.4444 227.5 93.75) (float-vector -14.4444 232.5 156.25) (float-vector -43.3333 232.5 156.25)))
(instance hole :init :vertices (list (float-vector 72.2222 221.25 15.625) (float-vector 101.111 221.25 15.625) (float-vector 101.111 226.25 78.125) (float-vector 72.2222 226.25 78.125)))
(instance hole :init :vertices (list (float-vector -43.3333 221.25 15.625) (float-vector -14.4444 221.25 15.625) (float-vector -14.4444 226.25 78.125) (float-vector -43.3333 226.25 78.125)))
(instance hole :init :vertices (list (float-vector -72.2222 221.25 15.625) (float-vector -72.2222 226.25 78.125) (float-vector -101.111 226.25 78.125) (float-vector -101.111 221.25 15.625)))
))
(instance face :init :vertices (list (float-vector -130.741 220.0 1.485451e-15) (float-vector 130.741 220.0 1.749657e-14) (float-vector 130.741 -220.0 1.749657e-14) (float-vector -130.741 -220.0 1.485451e-15)))
(instance face :init :vertices (list (float-vector 130.741 -220.0 1.749657e-14) (float-vector 130.741 220.0 1.749657e-14) (float-vector 149.259 240.0 250.0) (float-vector 149.259 -240.0 250.0))
:holes (list
(instance hole :init :vertices (list (float-vector 148.102 -171.111 234.375) (float-vector 148.102 -122.222 234.375) (float-vector 143.472 -122.222 171.875) (float-vector 143.472 -171.111 171.875)))
(instance hole :init :vertices (list (float-vector 142.315 24.4444 156.25) (float-vector 142.315 73.3333 156.25) (float-vector 137.685 73.3333 93.75) (float-vector 137.685 24.4444 93.75)))
(instance hole :init :vertices (list (float-vector 142.315 -171.111 156.25) (float-vector 142.315 -122.222 156.25) (float-vector 137.685 -122.222 93.75) (float-vector 137.685 -171.111 93.75)))
(instance hole :init :vertices (list (float-vector 136.528 24.4444 78.125) (float-vector 136.528 73.3333 78.125) (float-vector 131.898 73.3333 15.625) (float-vector 131.898 24.4444 15.625)))
(instance hole :init :vertices (list (float-vector 136.528 -171.111 78.125) (float-vector 136.528 -122.222 78.125) (float-vector 131.898 -122.222 15.625) (float-vector 131.898 -171.111 15.625)))
(instance hole :init :vertices (list (float-vector 148.102 122.222 234.375) (float-vector 148.102 171.111 234.375) (float-vector 143.472 171.111 171.875) (float-vector 143.472 122.222 171.875)))
(instance hole :init :vertices (list (float-vector 142.315 122.222 156.25) (float-vector 142.315 171.111 156.25) (float-vector 137.685 171.111 93.75) (float-vector 137.685 122.222 93.75)))
(instance hole :init :vertices (list (float-vector 142.315 -73.3333 156.25) (float-vector 142.315 -24.4444 156.25) (float-vector 137.685 -24.4444 93.75) (float-vector 137.685 -73.3333 93.75)))
(instance hole :init :vertices (list (float-vector 136.528 122.222 78.125) (float-vector 136.528 171.111 78.125) (float-vector 131.898 171.111 15.625) (float-vector 131.898 122.222 15.625)))
(instance hole :init :vertices (list (float-vector 136.528 -73.3333 78.125) (float-vector 136.528 -24.4444 78.125) (float-vector 131.898 -24.4444 15.625) (float-vector 131.898 -73.3333 15.625)))
))
(instance face :init :vertices (list (float-vector -130.741 -220.0 1.485451e-15) (float-vector 130.741 -220.0 1.749657e-14) (float-vector 149.259 -240.0 250.0) (float-vector -149.259 -240.0 250.0))
:holes (list
(instance hole :init :vertices (list (float-vector -30.0 -237.8 222.5) (float-vector 30.0 -237.8 222.5) (float-vector 30.0 -235.8 197.5) (float-vector -30.0 -235.8 197.5)))
(instance hole :init :vertices (list (float-vector -101.111 -238.75 234.375) (float-vector -72.2222 -238.75 234.375) (float-vector -72.2222 -233.75 171.875) (float-vector -101.111 -233.75 171.875)))
(instance hole :init :vertices (list (float-vector 14.4444 -232.5 156.25) (float-vector 43.3333 -232.5 156.25) (float-vector 43.3333 -227.5 93.75) (float-vector 14.4444 -227.5 93.75)))
(instance hole :init :vertices (list (float-vector -101.111 -232.5 156.25) (float-vector -72.2222 -232.5 156.25) (float-vector -72.2222 -227.5 93.75) (float-vector -101.111 -227.5 93.75)))
(instance hole :init :vertices (list (float-vector 14.4444 -226.25 78.125) (float-vector 43.3333 -226.25 78.125) (float-vector 43.3333 -221.25 15.625) (float-vector 14.4444 -221.25 15.625)))
(instance hole :init :vertices (list (float-vector 72.2222 -238.75 234.375) (float-vector 101.111 -238.75 234.375) (float-vector 101.111 -233.75 171.875) (float-vector 72.2222 -233.75 171.875)))
(instance hole :init :vertices (list (float-vector 72.2222 -232.5 156.25) (float-vector 101.111 -232.5 156.25) (float-vector 101.111 -227.5 93.75) (float-vector 72.2222 -227.5 93.75)))
(instance hole :init :vertices (list (float-vector -43.3333 -232.5 156.25) (float-vector -14.4444 -232.5 156.25) (float-vector -14.4444 -227.5 93.75) (float-vector -43.3333 -227.5 93.75)))
(instance hole :init :vertices (list (float-vector 72.2222 -226.25 78.125) (float-vector 101.111 -226.25 78.125) (float-vector 101.111 -221.25 15.625) (float-vector 72.2222 -221.25 15.625)))
(instance hole :init :vertices (list (float-vector -43.3333 -226.25 78.125) (float-vector -14.4444 -226.25 78.125) (float-vector -14.4444 -221.25 15.625) (float-vector -43.3333 -221.25 15.625)))
(instance hole :init :vertices (list (float-vector -101.111 -221.25 15.625) (float-vector -101.111 -226.25 78.125) (float-vector -72.2222 -226.25 78.125) (float-vector -72.2222 -221.25 15.625)))
))
(instance face :init :vertices (list (float-vector -149.259 -240.0 250.0) (float-vector -149.259 240.0 250.0) (float-vector -130.741 220.0 1.485451e-15) (float-vector -130.741 -220.0 1.485451e-15))
:holes (list
(instance hole :init :vertices (list (float-vector -143.472 -171.111 171.875) (float-vector -143.472 -122.222 171.875) (float-vector -148.102 -122.222 234.375) (float-vector -148.102 -171.111 234.375)))
(instance hole :init :vertices (list (float-vector -137.685 24.4444 93.75) (float-vector -137.685 73.3333 93.75) (float-vector -142.315 73.3333 156.25) (float-vector -142.315 24.4444 156.25)))
(instance hole :init :vertices (list (float-vector -137.685 -171.111 93.75) (float-vector -137.685 -122.222 93.75) (float-vector -142.315 -122.222 156.25) (float-vector -142.315 -171.111 156.25)))
(instance hole :init :vertices (list (float-vector -131.898 24.4444 15.625) (float-vector -131.898 73.3333 15.625) (float-vector -136.528 73.3333 78.125) (float-vector -136.528 24.4444 78.125)))
(instance hole :init :vertices (list (float-vector -131.898 -171.111 15.625) (float-vector -131.898 -122.222 15.625) (float-vector -136.528 -122.222 78.125) (float-vector -136.528 -171.111 78.125)))
(instance hole :init :vertices (list (float-vector -143.472 122.222 171.875) (float-vector -143.472 171.111 171.875) (float-vector -148.102 171.111 234.375) (float-vector -148.102 122.222 234.375)))
(instance hole :init :vertices (list (float-vector -137.685 122.222 93.75) (float-vector -137.685 171.111 93.75) (float-vector -142.315 171.111 156.25) (float-vector -142.315 122.222 156.25)))
(instance hole :init :vertices (list (float-vector -137.685 -73.3333 93.75) (float-vector -137.685 -24.4444 93.75) (float-vector -142.315 -24.4444 156.25) (float-vector -142.315 -73.3333 156.25)))
(instance hole :init :vertices (list (float-vector -131.898 122.222 15.625) (float-vector -131.898 171.111 15.625) (float-vector -136.528 171.111 78.125) (float-vector -136.528 122.222 78.125)))
(instance hole :init :vertices (list (float-vector -131.898 -73.3333 15.625) (float-vector -131.898 -24.4444 15.625) (float-vector -136.528 -24.4444 78.125) (float-vector -136.528 -73.3333 78.125)))
))
(instance face :init :vertices (list (float-vector -30.0 -230.625 197.5) (float-vector -30.0 -232.708 222.5) (float-vector -30.0 -237.8 222.5) (float-vector -30.0 -235.8 197.5)))
(instance face :init :vertices (list (float-vector -30.0 235.8 197.5) (float-vector -30.0 237.8 222.5) (float-vector -30.0 232.708 222.5) (float-vector -30.0 230.625 197.5)))
(instance face :init :vertices (list (float-vector 30.0 232.708 222.5) (float-vector -30.0 232.708 222.5) (float-vector -30.0 237.8 222.5) (float-vector 30.0 237.8 222.5)))
(instance face :init :vertices (list (float-vector 30.0 -237.8 222.5) (float-vector -30.0 -237.8 222.5) (float-vector -30.0 -232.708 222.5) (float-vector 30.0 -232.708 222.5)))
(instance face :init :vertices (list (float-vector 30.0 230.625 197.5) (float-vector 30.0 232.708 222.5) (float-vector 30.0 237.8 222.5) (float-vector 30.0 235.8 197.5)))
(instance face :init :vertices (list (float-vector 30.0 235.8 197.5) (float-vector -30.0 235.8 197.5) (float-vector -30.0 230.625 197.5) (float-vector 30.0 230.625 197.5)))
(instance face :init :vertices (list (float-vector 30.0 -235.8 197.5) (float-vector 30.0 -237.8 222.5) (float-vector 30.0 -232.708 222.5) (float-vector 30.0 -230.625 197.5)))
(instance face :init :vertices (list (float-vector 30.0 -230.625 197.5) (float-vector -30.0 -230.625 197.5) (float-vector -30.0 -235.8 197.5) (float-vector 30.0 -235.8 197.5)))
(instance face :init :vertices (list (float-vector 148.102 -171.111 234.375) (float-vector 143.472 -171.111 171.875) (float-vector 138.221 -171.111 171.875) (float-vector 143.029 -171.111 234.375)))
(instance face :init :vertices (list (float-vector -143.029 -171.111 234.375) (float-vector -138.221 -171.111 171.875) (float-vector -143.472 -171.111 171.875) (float-vector -148.102 -171.111 234.375)))
(instance face :init :vertices (list (float-vector -143.029 -122.222 234.375) (float-vector -143.029 -171.111 234.375) (float-vector -148.102 -171.111 234.375) (float-vector -148.102 -122.222 234.375)))
(instance face :init :vertices (list (float-vector 148.102 -122.222 234.375) (float-vector 148.102 -171.111 234.375) (float-vector 143.029 -171.111 234.375) (float-vector 143.029 -122.222 234.375)))
(instance face :init :vertices (list (float-vector -138.221 -122.222 171.875) (float-vector -143.029 -122.222 234.375) (float-vector -148.102 -122.222 234.375) (float-vector -143.472 -122.222 171.875)))
(instance face :init :vertices (list (float-vector -143.472 -122.222 171.875) (float-vector -143.472 -171.111 171.875) (float-vector -138.221 -171.111 171.875) (float-vector -138.221 -122.222 171.875)))
(instance face :init :vertices (list (float-vector 143.472 -122.222 171.875) (float-vector 148.102 -122.222 234.375) (float-vector 143.029 -122.222 234.375) (float-vector 138.221 -122.222 171.875)))
(instance face :init :vertices (list (float-vector 138.221 -122.222 171.875) (float-vector 138.221 -171.111 171.875) (float-vector 143.472 -171.111 171.875) (float-vector 143.472 -122.222 171.875)))
(instance face :init :vertices (list (float-vector -101.111 -228.49 171.875) (float-vector -101.111 -233.698 234.375) (float-vector -101.111 -238.75 234.375) (float-vector -101.111 -233.75 171.875)))
(instance face :init :vertices (list (float-vector -101.111 233.75 171.875) (float-vector -101.111 238.75 234.375) (float-vector -101.111 233.698 234.375) (float-vector -101.111 228.49 171.875)))
(instance face :init :vertices (list (float-vector -72.2222 233.698 234.375) (float-vector -101.111 233.698 234.375) (float-vector -101.111 238.75 234.375) (float-vector -72.2222 238.75 234.375)))
(instance face :init :vertices (list (float-vector -72.2222 -238.75 234.375) (float-vector -101.111 -238.75 234.375) (float-vector -101.111 -233.698 234.375) (float-vector -72.2222 -233.698 234.375)))
(instance face :init :vertices (list (float-vector -72.2222 228.49 171.875) (float-vector -72.2222 233.698 234.375) (float-vector -72.2222 238.75 234.375) (float-vector -72.2222 233.75 171.875)))
(instance face :init :vertices (list (float-vector -72.2222 233.75 171.875) (float-vector -101.111 233.75 171.875) (float-vector -101.111 228.49 171.875) (float-vector -72.2222 228.49 171.875)))
(instance face :init :vertices (list (float-vector -72.2222 -233.75 171.875) (float-vector -72.2222 -238.75 234.375) (float-vector -72.2222 -233.698 234.375) (float-vector -72.2222 -228.49 171.875)))
(instance face :init :vertices (list (float-vector -72.2222 -228.49 171.875) (float-vector -101.111 -228.49 171.875) (float-vector -101.111 -233.75 171.875) (float-vector -72.2222 -233.75 171.875)))
(instance face :init :vertices (list (float-vector 142.315 24.4444 156.25) (float-vector 137.685 24.4444 93.75) (float-vector 132.212 24.4444 93.75) (float-vector 137.019 24.4444 156.25)))
(instance face :init :vertices (list (float-vector -137.019 24.4444 156.25) (float-vector -132.212 24.4444 93.75) (float-vector -137.685 24.4444 93.75) (float-vector -142.315 24.4444 156.25)))
(instance face :init :vertices (list (float-vector -137.019 73.3333 156.25) (float-vector -137.019 24.4444 156.25) (float-vector -142.315 24.4444 156.25) (float-vector -142.315 73.3333 156.25)))
(instance face :init :vertices (list (float-vector 142.315 73.3333 156.25) (float-vector 142.315 24.4444 156.25) (float-vector 137.019 24.4444 156.25) (float-vector 137.019 73.3333 156.25)))
(instance face :init :vertices (list (float-vector -132.212 73.3333 93.75) (float-vector -137.019 73.3333 156.25) (float-vector -142.315 73.3333 156.25) (float-vector -137.685 73.3333 93.75)))
(instance face :init :vertices (list (float-vector -137.685 73.3333 93.75) (float-vector -137.685 24.4444 93.75) (float-vector -132.212 24.4444 93.75) (float-vector -132.212 73.3333 93.75)))
(instance face :init :vertices (list (float-vector 137.685 73.3333 93.75) (float-vector 142.315 73.3333 156.25) (float-vector 137.019 73.3333 156.25) (float-vector 132.212 73.3333 93.75)))
(instance face :init :vertices (list (float-vector 132.212 73.3333 93.75) (float-vector 132.212 24.4444 93.75) (float-vector 137.685 24.4444 93.75) (float-vector 137.685 73.3333 93.75)))
(instance face :init :vertices (list (float-vector 132.212 -171.111 93.75) (float-vector 137.019 -171.111 156.25) (float-vector 142.315 -171.111 156.25) (float-vector 137.685 -171.111 93.75)))
(instance face :init :vertices (list (float-vector -137.685 -171.111 93.75) (float-vector -142.315 -171.111 156.25) (float-vector -137.019 -171.111 156.25) (float-vector -132.212 -171.111 93.75)))
(instance face :init :vertices (list (float-vector -137.019 -122.222 156.25) (float-vector -137.019 -171.111 156.25) (float-vector -142.315 -171.111 156.25) (float-vector -142.315 -122.222 156.25)))
(instance face :init :vertices (list (float-vector 142.315 -122.222 156.25) (float-vector 142.315 -171.111 156.25) (float-vector 137.019 -171.111 156.25) (float-vector 137.019 -122.222 156.25)))
(instance face :init :vertices (list (float-vector -132.212 -122.222 93.75) (float-vector -137.019 -122.222 156.25) (float-vector -142.315 -122.222 156.25) (float-vector -137.685 -122.222 93.75)))
(instance face :init :vertices (list (float-vector -137.685 -122.222 93.75) (float-vector -137.685 -171.111 93.75) (float-vector -132.212 -171.111 93.75) (float-vector -132.212 -122.222 93.75)))
(instance face :init :vertices (list (float-vector 137.685 -122.222 93.75) (float-vector 142.315 -122.222 156.25) (float-vector 137.019 -122.222 156.25) (float-vector 132.212 -122.222 93.75)))
(instance face :init :vertices (list (float-vector 132.212 -122.222 93.75) (float-vector 132.212 -171.111 93.75) (float-vector 137.685 -171.111 93.75) (float-vector 137.685 -122.222 93.75)))
(instance face :init :vertices (list (float-vector 14.4444 -232.5 156.25) (float-vector 14.4444 -227.5 93.75) (float-vector 14.4444 -221.979 93.75) (float-vector 14.4444 -227.187 156.25)))
(instance face :init :vertices (list (float-vector 14.4444 227.187 156.25) (float-vector 14.4444 221.979 93.75) (float-vector 14.4444 227.5 93.75) (float-vector 14.4444 232.5 156.25)))
(instance face :init :vertices (list (float-vector 43.3333 227.188 156.25) (float-vector 14.4444 227.187 156.25) (float-vector 14.4444 232.5 156.25) (float-vector 43.3333 232.5 156.25)))
(instance face :init :vertices (list (float-vector 43.3333 -232.5 156.25) (float-vector 14.4444 -232.5 156.25) (float-vector 14.4444 -227.187 156.25) (float-vector 43.3333 -227.187 156.25)))
(instance face :init :vertices (list (float-vector 43.3333 221.979 93.75) (float-vector 43.3333 227.188 156.25) (float-vector 43.3333 232.5 156.25) (float-vector 43.3333 227.5 93.75)))
(instance face :init :vertices (list (float-vector 43.3333 227.5 93.75) (float-vector 14.4444 227.5 93.75) (float-vector 14.4444 221.979 93.75) (float-vector 43.3333 221.979 93.75)))
(instance face :init :vertices (list (float-vector 43.3333 -227.5 93.75) (float-vector 43.3333 -232.5 156.25) (float-vector 43.3333 -227.187 156.25) (float-vector 43.3333 -221.979 93.75)))
(instance face :init :vertices (list (float-vector 43.3333 -221.979 93.75) (float-vector 14.4444 -221.979 93.75) (float-vector 14.4444 -227.5 93.75) (float-vector 43.3333 -227.5 93.75)))
(instance face :init :vertices (list (float-vector -101.111 -221.979 93.75) (float-vector -101.111 -227.187 156.25) (float-vector -101.111 -232.5 156.25) (float-vector -101.111 -227.5 93.75)))
(instance face :init :vertices (list (float-vector -101.111 227.5 93.75) (float-vector -101.111 232.5 156.25) (float-vector -101.111 227.187 156.25) (float-vector -101.111 221.979 93.75)))
(instance face :init :vertices (list (float-vector -72.2222 227.188 156.25) (float-vector -101.111 227.187 156.25) (float-vector -101.111 232.5 156.25) (float-vector -72.2222 232.5 156.25)))
(instance face :init :vertices (list (float-vector -72.2222 -232.5 156.25) (float-vector -101.111 -232.5 156.25) (float-vector -101.111 -227.187 156.25) (float-vector -72.2222 -227.187 156.25)))
(instance face :init :vertices (list (float-vector -72.2222 221.979 93.75) (float-vector -72.2222 227.188 156.25) (float-vector -72.2222 232.5 156.25) (float-vector -72.2222 227.5 93.75)))
(instance face :init :vertices (list (float-vector -72.2222 227.5 93.75) (float-vector -101.111 227.5 93.75) (float-vector -101.111 221.979 93.75) (float-vector -72.2222 221.979 93.75)))
(instance face :init :vertices (list (float-vector -72.2222 -227.5 93.75) (float-vector -72.2222 -232.5 156.25) (float-vector -72.2222 -227.187 156.25) (float-vector -72.2222 -221.979 93.75)))
(instance face :init :vertices (list (float-vector -72.2222 -221.979 93.75) (float-vector -101.111 -221.979 93.75) (float-vector -101.111 -227.5 93.75) (float-vector -72.2222 -227.5 93.75)))
(instance face :init :vertices (list (float-vector 136.528 24.4444 78.125) (float-vector 131.898 24.4444 15.625) (float-vector 126.202 24.4444 15.625) (float-vector 131.01 24.4444 78.125)))
(instance face :init :vertices (list (float-vector -131.01 24.4444 78.125) (float-vector -126.202 24.4444 15.625) (float-vector -131.898 24.4444 15.625) (float-vector -136.528 24.4444 78.125)))
(instance face :init :vertices (list (float-vector -131.01 73.3333 78.125) (float-vector -131.01 24.4444 78.125) (float-vector -136.528 24.4444 78.125) (float-vector -136.528 73.3333 78.125)))
(instance face :init :vertices (list (float-vector 136.528 73.3333 78.125) (float-vector 136.528 24.4444 78.125) (float-vector 131.01 24.4444 78.125) (float-vector 131.01 73.3333 78.125)))
(instance face :init :vertices (list (float-vector -126.202 73.3333 15.625) (float-vector -131.01 73.3333 78.125) (float-vector -136.528 73.3333 78.125) (float-vector -131.898 73.3333 15.625)))
(instance face :init :vertices (list (float-vector -131.898 73.3333 15.625) (float-vector -131.898 24.4444 15.625) (float-vector -126.202 24.4444 15.625) (float-vector -126.202 73.3333 15.625)))
(instance face :init :vertices (list (float-vector 131.898 73.3333 15.625) (float-vector 136.528 73.3333 78.125) (float-vector 131.01 73.3333 78.125) (float-vector 126.202 73.3333 15.625)))
(instance face :init :vertices (list (float-vector 126.202 73.3333 15.625) (float-vector 126.202 24.4444 15.625) (float-vector 131.898 24.4444 15.625) (float-vector 131.898 73.3333 15.625)))
(instance face :init :vertices (list (float-vector 126.202 -171.111 15.625) (float-vector 131.01 -171.111 78.125) (float-vector 136.528 -171.111 78.125) (float-vector 131.898 -171.111 15.625)))
(instance face :init :vertices (list (float-vector -131.898 -171.111 15.625) (float-vector -136.528 -171.111 78.125) (float-vector -131.01 -171.111 78.125) (float-vector -126.202 -171.111 15.625)))
(instance face :init :vertices (list (float-vector -131.01 -122.222 78.125) (float-vector -131.01 -171.111 78.125) (float-vector -136.528 -171.111 78.125) (float-vector -136.528 -122.222 78.125)))
(instance face :init :vertices (list (float-vector 136.528 -122.222 78.125) (float-vector 136.528 -171.111 78.125) (float-vector 131.01 -171.111 78.125) (float-vector 131.01 -122.222 78.125)))
(instance face :init :vertices (list (float-vector -126.202 -122.222 15.625) (float-vector -131.01 -122.222 78.125) (float-vector -136.528 -122.222 78.125) (float-vector -131.898 -122.222 15.625)))
(instance face :init :vertices (list (float-vector -131.898 -122.222 15.625) (float-vector -131.898 -171.111 15.625) (float-vector -126.202 -171.111 15.625) (float-vector -126.202 -122.222 15.625)))
(instance face :init :vertices (list (float-vector 131.898 -122.222 15.625) (float-vector 136.528 -122.222 78.125) (float-vector 131.01 -122.222 78.125) (float-vector 126.202 -122.222 15.625)))
(instance face :init :vertices (list (float-vector 126.202 -122.222 15.625) (float-vector 126.202 -171.111 15.625) (float-vector 131.898 -171.111 15.625) (float-vector 131.898 -122.222 15.625)))
(instance face :init :vertices (list (float-vector 14.4444 -226.25 78.125) (float-vector 14.4444 -221.25 15.625) (float-vector 14.4444 -215.469 15.625) (float-vector 14.4444 -220.677 78.125)))
(instance face :init :vertices (list (float-vector 14.4444 220.677 78.125) (float-vector 14.4444 215.469 15.625) (float-vector 14.4444 221.25 15.625) (float-vector 14.4444 226.25 78.125)))
(instance face :init :vertices (list (float-vector 43.3333 220.677 78.125) (float-vector 14.4444 220.677 78.125) (float-vector 14.4444 226.25 78.125) (float-vector 43.3333 226.25 78.125)))
(instance face :init :vertices (list (float-vector 43.3333 -226.25 78.125) (float-vector 14.4444 -226.25 78.125) (float-vector 14.4444 -220.677 78.125) (float-vector 43.3333 -220.677 78.125)))
(instance face :init :vertices (list (float-vector 43.3333 215.469 15.625) (float-vector 43.3333 220.677 78.125) (float-vector 43.3333 226.25 78.125) (float-vector 43.3333 221.25 15.625)))
(instance face :init :vertices (list (float-vector 43.3333 221.25 15.625) (float-vector 14.4444 221.25 15.625) (float-vector 14.4444 215.469 15.625) (float-vector 43.3333 215.469 15.625)))
(instance face :init :vertices (list (float-vector 43.3333 -221.25 15.625) (float-vector 43.3333 -226.25 78.125) (float-vector 43.3333 -220.677 78.125) (float-vector 43.3333 -215.469 15.625)))
(instance face :init :vertices (list (float-vector 43.3333 -215.469 15.625) (float-vector 14.4444 -215.469 15.625) (float-vector 14.4444 -221.25 15.625) (float-vector 43.3333 -221.25 15.625)))
(instance face :init :vertices (list (float-vector -101.111 -215.469 15.625) (float-vector -101.111 -220.677 78.125) (float-vector -101.111 -226.25 78.125) (float-vector -101.111 -221.25 15.625)))
(instance face :init :vertices (list (float-vector -101.111 221.25 15.625) (float-vector -101.111 226.25 78.125) (float-vector -101.111 220.677 78.125) (float-vector -101.111 215.469 15.625)))
(instance face :init :vertices (list (float-vector -72.2222 220.677 78.125) (float-vector -101.111 220.677 78.125) (float-vector -101.111 226.25 78.125) (float-vector -72.2222 226.25 78.125)))
(instance face :init :vertices (list (float-vector -72.2222 -226.25 78.125) (float-vector -101.111 -226.25 78.125) (float-vector -101.111 -220.677 78.125) (float-vector -72.2222 -220.677 78.125)))
(instance face :init :vertices (list (float-vector -72.2222 215.469 15.625) (float-vector -72.2222 220.677 78.125) (float-vector -72.2222 226.25 78.125) (float-vector -72.2222 221.25 15.625)))
(instance face :init :vertices (list (float-vector -72.2222 -221.25 15.625) (float-vector -72.2222 -226.25 78.125) (float-vector -72.2222 -220.677 78.125) (float-vector -72.2222 -215.469 15.625)))
(instance face :init :vertices (list (float-vector -72.2222 221.25 15.625) (float-vector -101.111 221.25 15.625) (float-vector -101.111 215.469 15.625) (float-vector -72.2222 215.469 15.625)))
(instance face :init :vertices (list (float-vector -72.2222 -215.469 15.625) (float-vector -101.111 -215.469 15.625) (float-vector -101.111 -221.25 15.625) (float-vector -72.2222 -221.25 15.625)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :gray)
(setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :box :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 :left
(setq bc (list
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -150.0 0.0 -5.0) (float-vector -150.0 -160.0 -5.0) (float-vector -150.0 -160.0 5.0) (float-vector -150.0 0.0 5.0)))
(instance face :init :vertices (list (float-vector 150.0 -160.0 -5.0) (float-vector 150.0 -160.0 5.0) (float-vector -150.0 -160.0 5.0) (float-vector -150.0 -160.0 -5.0)))
(instance face :init :vertices (list (float-vector 150.0 0.0 -5.0) (float-vector 150.0 0.0 5.0) (float-vector 150.0 -160.0 5.0) (float-vector 150.0 -160.0 -5.0)))
(instance face :init :vertices (list (float-vector 145.0 0.0 5.0) (float-vector 145.0 -155.0 5.0) (float-vector -145.0 -155.0 5.0) (float-vector -145.0 0.0 5.0) (float-vector -150.0 0.0 5.0) (float-vector -150.0 -160.0 5.0) (float-vector 150.0 -160.0 5.0) (float-vector 150.0 0.0 5.0)))
(instance face :init :vertices (list (float-vector 150.0 0.0 -5.0) (float-vector 150.0 -160.0 -5.0) (float-vector -150.0 -160.0 -5.0) (float-vector -150.0 0.0 -5.0) (float-vector -145.0 0.0 -5.0) (float-vector -145.0 -155.0 -5.0) (float-vector 145.0 -155.0 -5.0) (float-vector 145.0 0.0 -5.0)))
(instance face :init :vertices (list (float-vector -150.0 0.0 -5.0) (float-vector -150.0 0.0 5.0) (float-vector -145.0 0.0 5.0) (float-vector -145.0 0.0 -5.0)))
(instance face :init :vertices (list (float-vector 145.0 0.0 -5.0) (float-vector 145.0 0.0 5.0) (float-vector 150.0 0.0 5.0) (float-vector 150.0 0.0 -5.0)))
(instance face :init :vertices (list (float-vector -145.0 -155.0 -5.0) (float-vector -145.0 0.0 -5.0) (float-vector -145.0 0.0 5.0) (float-vector -145.0 -155.0 5.0)))
(instance face :init :vertices (list (float-vector 145.0 -155.0 5.0) (float-vector 145.0 0.0 5.0) (float-vector 145.0 0.0 -5.0) (float-vector 145.0 -155.0 -5.0)))
(instance face :init :vertices (list (float-vector 145.0 -155.0 -5.0) (float-vector -145.0 -155.0 -5.0) (float-vector -145.0 -155.0 5.0) (float-vector 145.0 -155.0 5.0)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :gray)
(setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name :left :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 :right
(setq bc (list
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -150.0 160.0 -5.0) (float-vector -150.0 0.0 -5.0) (float-vector -150.0 0.0 5.0) (float-vector -150.0 160.0 5.0)))
(instance face :init :vertices (list (float-vector 150.0 0.0 -5.0) (float-vector 150.0 0.0 5.0) (float-vector 145.0 0.0 5.0) (float-vector 145.0 0.0 -5.0)))
(instance face :init :vertices (list (float-vector -145.0 0.0 -5.0) (float-vector -145.0 0.0 5.0) (float-vector -150.0 0.0 5.0) (float-vector -150.0 0.0 -5.0)))
(instance face :init :vertices (list (float-vector 150.0 160.0 -5.0) (float-vector 150.0 160.0 5.0) (float-vector 150.0 0.0 5.0) (float-vector 150.0 0.0 -5.0)))
(instance face :init :vertices (list (float-vector -150.0 160.0 5.0) (float-vector -150.0 0.0 5.0) (float-vector -145.0 0.0 5.0) (float-vector -145.0 155.0 5.0) (float-vector 145.0 155.0 5.0) (float-vector 145.0 0.0 5.0) (float-vector 150.0 0.0 5.0) (float-vector 150.0 160.0 5.0)))
(instance face :init :vertices (list (float-vector 150.0 160.0 -5.0) (float-vector 150.0 0.0 -5.0) (float-vector 145.0 0.0 -5.0) (float-vector 145.0 155.0 -5.0) (float-vector -145.0 155.0 -5.0) (float-vector -145.0 0.0 -5.0) (float-vector -150.0 0.0 -5.0) (float-vector -150.0 160.0 -5.0)))
(instance face :init :vertices (list (float-vector -150.0 160.0 -5.0) (float-vector -150.0 160.0 5.0) (float-vector 150.0 160.0 5.0) (float-vector 150.0 160.0 -5.0)))
(instance face :init :vertices (list (float-vector -145.0 155.0 5.0) (float-vector -145.0 0.0 5.0) (float-vector -145.0 0.0 -5.0) (float-vector -145.0 155.0 -5.0)))
(instance face :init :vertices (list (float-vector 145.0 155.0 5.0) (float-vector -145.0 155.0 5.0) (float-vector -145.0 155.0 -5.0) (float-vector 145.0 155.0 -5.0)))
(instance face :init :vertices (list (float-vector 145.0 155.0 -5.0) (float-vector 145.0 0.0 -5.0) (float-vector 145.0 0.0 5.0) (float-vector 145.0 155.0 5.0)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :gray)
(setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name :right :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 blink1 :newcoords (make-coords :pos (float-vector 0.0 80.0 255.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
(send blink0 :assoc blink1)
(send blink2 :newcoords (make-coords :pos (float-vector 0.0 -80.0 255.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
(send blink0 :assoc blink2)
(send self :assoc blink0)
;; definition of end-coords
;; definition of joint
;; definition of :handle-hinge1
(setq joint0 (instance rotational-joint :init
:parent-link blink0 :child-link blink1 :name :handle-hinge1 :axis :x
:min 0.0 :max 180.0 :max-joint-velocity 5 :max-joint-torque 100))
;; definition of :handle-hinge2
(setq joint1 (instance rotational-joint :init
:parent-link blink0 :child-link blink2 :name :handle-hinge2 :axis :x
:min -180.0 :max 0.0 :max-joint-velocity 5 :max-joint-torque 100))
;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 388.564) :rot #2f((7.216450e-16 0.0 1.0) (0.0 1.0 0.0) (-1.0 0.0 7.216450e-16)) :name ":single"))
(send blink0 :assoc handle0)
(setq handle1 (make-cascoords :pos (float-vector 0.0 240.0 210.0) :rot #2f((7.216450e-16 0.0 1.0) (0.0 1.0 0.0) (-1.0 0.0 7.216450e-16)) :name ":larm"))
(send blink0 :assoc handle1)
(setq handle2 (make-cascoords :pos (float-vector 0.0 -240.0 210.0) :rot #2f((7.216450e-16 0.0 1.0) (0.0 1.0 0.0) (-1.0 0.0 7.216450e-16)) :name ":rarm"))
(send blink0 :assoc handle2)
;; definition of :attention
(setq attention0 (make-cascoords :pos (float-vector 0.0 0.0 300.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name ":opening"))
(send blink0 :assoc attention0)
;; init-ending
(setq links (list blink0 blink1 blink2))
(setq joint-list (list joint0 joint1))
(send self :init-ending)
(send self :move-to (make-coords :pos pos :rot rot))
(send-all links :worldcoords)
self))
(:reset-pose () (send self :angle-vector (float-vector 0.0 0.0)))
(:handle-hinge1 (&rest args) (forward-message-to joint0 args))
(:handle-hinge2 (&rest args) (forward-message-to joint1 args))
(:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
(:handle-single (&rest args) (forward-message-to handle0 args))
(:handle-larm (&rest args) (forward-message-to handle1 args))
(:handle-rarm (&rest args) (forward-message-to handle2 args))
(:attention (&rest args) (forward-message-to-all (list attention0) args))
(:attention-opening (&rest args) (forward-message-to attention0 args))
(:button (&rest args) (forward-message-to-all (list ) args))
)
(defun maxvalu-supermarket-basket (&rest args) (instance* maxvalu-supermarket-basket-object :init args))
;; (format *error-output* "(instance maxvalu-supermarket-basket-object :init) for generating model~%")
|
