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
|
;;
;; DO NOT EDIT THIS FILE
;; this file is automatically generated from euslisp+euslib version
;;
;;
(defclass sakae-900-desk-object
:super cascaded-link
:slots (sensors
))
(defmethod sakae-900-desk-object
(:init
(&rest args &key (name "sakae-900-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 :sakae-900-desk-bodyset2
(setq bc (list
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 450.0 300.0 700.0) (float-vector -450.0 300.0 700.0) (float-vector -450.0 -300.0 700.0) (float-vector 450.0 -300.0 700.0)))
(instance face :init :vertices (list (float-vector -450.0 300.0 680.0) (float-vector 450.0 300.0 680.0) (float-vector 450.0 -300.0 680.0) (float-vector -450.0 -300.0 680.0)))
(instance face :init :vertices (list (float-vector 450.0 300.0 700.0) (float-vector 450.0 300.0 680.0) (float-vector -450.0 300.0 680.0) (float-vector -450.0 300.0 700.0)))
(instance face :init :vertices (list (float-vector 450.0 -300.0 700.0) (float-vector 450.0 -300.0 680.0) (float-vector 450.0 300.0 680.0) (float-vector 450.0 300.0 700.0)))
(instance face :init :vertices (list (float-vector -450.0 -300.0 700.0) (float-vector -450.0 -300.0 680.0) (float-vector 450.0 -300.0 680.0) (float-vector 450.0 -300.0 700.0)))
(instance face :init :vertices (list (float-vector -450.0 300.0 700.0) (float-vector -450.0 300.0 680.0) (float-vector -450.0 -300.0 680.0) (float-vector -450.0 -300.0 700.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -315.0 -220.0 680.0) (float-vector -365.0 -220.0 680.0) (float-vector -365.0 -245.0 680.0) (float-vector -315.0 -245.0 680.0)))
(instance face :init :vertices (list (float-vector -365.0 -220.0 40.0) (float-vector -315.0 -220.0 40.0) (float-vector -315.0 -245.0 40.0) (float-vector -365.0 -245.0 40.0)))
(instance face :init :vertices (list (float-vector -315.0 -220.0 680.0) (float-vector -315.0 -220.0 40.0) (float-vector -365.0 -220.0 40.0) (float-vector -365.0 -220.0 680.0)))
(instance face :init :vertices (list (float-vector -315.0 -245.0 680.0) (float-vector -315.0 -245.0 40.0) (float-vector -315.0 -220.0 40.0) (float-vector -315.0 -220.0 680.0)))
(instance face :init :vertices (list (float-vector -365.0 -245.0 680.0) (float-vector -365.0 -245.0 40.0) (float-vector -315.0 -245.0 40.0) (float-vector -315.0 -245.0 680.0)))
(instance face :init :vertices (list (float-vector -365.0 -220.0 680.0) (float-vector -365.0 -220.0 40.0) (float-vector -365.0 -245.0 40.0) (float-vector -365.0 -245.0 680.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -315.0 245.0 680.0) (float-vector -365.0 245.0 680.0) (float-vector -365.0 220.0 680.0) (float-vector -315.0 220.0 680.0)))
(instance face :init :vertices (list (float-vector -365.0 245.0 40.0) (float-vector -315.0 245.0 40.0) (float-vector -315.0 220.0 40.0) (float-vector -365.0 220.0 40.0)))
(instance face :init :vertices (list (float-vector -315.0 245.0 680.0) (float-vector -315.0 245.0 40.0) (float-vector -365.0 245.0 40.0) (float-vector -365.0 245.0 680.0)))
(instance face :init :vertices (list (float-vector -315.0 220.0 680.0) (float-vector -315.0 220.0 40.0) (float-vector -315.0 245.0 40.0) (float-vector -315.0 245.0 680.0)))
(instance face :init :vertices (list (float-vector -365.0 220.0 680.0) (float-vector -365.0 220.0 40.0) (float-vector -315.0 220.0 40.0) (float-vector -315.0 220.0 680.0)))
(instance face :init :vertices (list (float-vector -365.0 245.0 680.0) (float-vector -365.0 245.0 40.0) (float-vector -365.0 220.0 40.0) (float-vector -365.0 220.0 680.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 365.0 -220.0 680.0) (float-vector 315.0 -220.0 680.0) (float-vector 315.0 -245.0 680.0) (float-vector 365.0 -245.0 680.0)))
(instance face :init :vertices (list (float-vector 315.0 -220.0 40.0) (float-vector 365.0 -220.0 40.0) (float-vector 365.0 -245.0 40.0) (float-vector 315.0 -245.0 40.0)))
(instance face :init :vertices (list (float-vector 365.0 -220.0 680.0) (float-vector 365.0 -220.0 40.0) (float-vector 315.0 -220.0 40.0) (float-vector 315.0 -220.0 680.0)))
(instance face :init :vertices (list (float-vector 365.0 -245.0 680.0) (float-vector 365.0 -245.0 40.0) (float-vector 365.0 -220.0 40.0) (float-vector 365.0 -220.0 680.0)))
(instance face :init :vertices (list (float-vector 315.0 -245.0 680.0) (float-vector 315.0 -245.0 40.0) (float-vector 365.0 -245.0 40.0) (float-vector 365.0 -245.0 680.0)))
(instance face :init :vertices (list (float-vector 315.0 -220.0 680.0) (float-vector 315.0 -220.0 40.0) (float-vector 315.0 -245.0 40.0) (float-vector 315.0 -245.0 680.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 365.0 245.0 680.0) (float-vector 315.0 245.0 680.0) (float-vector 315.0 220.0 680.0) (float-vector 365.0 220.0 680.0)))
(instance face :init :vertices (list (float-vector 315.0 245.0 40.0) (float-vector 365.0 245.0 40.0) (float-vector 365.0 220.0 40.0) (float-vector 315.0 220.0 40.0)))
(instance face :init :vertices (list (float-vector 365.0 245.0 680.0) (float-vector 365.0 245.0 40.0) (float-vector 315.0 245.0 40.0) (float-vector 315.0 245.0 680.0)))
(instance face :init :vertices (list (float-vector 365.0 220.0 680.0) (float-vector 365.0 220.0 40.0) (float-vector 365.0 245.0 40.0) (float-vector 365.0 245.0 680.0)))
(instance face :init :vertices (list (float-vector 315.0 220.0 680.0) (float-vector 315.0 220.0 40.0) (float-vector 365.0 220.0 40.0) (float-vector 365.0 220.0 680.0)))
(instance face :init :vertices (list (float-vector 315.0 245.0 680.0) (float-vector 315.0 245.0 40.0) (float-vector 315.0 220.0 40.0) (float-vector 315.0 220.0 680.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -305.359 -257.5 20.0) (float-vector -300.0 -257.5 40.0) (float-vector -305.359 -257.5 60.0) (float-vector -320.0 -257.5 74.641) (float-vector -340.0 -257.5 80.0) (float-vector -360.0 -257.5 74.641) (float-vector -374.641 -257.5 60.0) (float-vector -380.0 -257.5 40.0) (float-vector -374.641 -257.5 20.0) (float-vector -360.0 -257.5 5.35898) (float-vector -340.0 -257.5 2.842171e-14) (float-vector -320.0 -257.5 5.35898)))
(instance face :init :vertices (list (float-vector -300.0 -232.5 40.0) (float-vector -305.359 -232.5 20.0) (float-vector -320.0 -232.5 5.35898) (float-vector -340.0 -232.5 2.131628e-14) (float-vector -360.0 -232.5 5.35898) (float-vector -374.641 -232.5 20.0) (float-vector -380.0 -232.5 40.0) (float-vector -374.641 -232.5 60.0) (float-vector -360.0 -232.5 74.641) (float-vector -340.0 -232.5 80.0) (float-vector -320.0 -232.5 74.641) (float-vector -305.359 -232.5 60.0)))
(instance face :init :vertices (list (float-vector -305.359 -257.5 20.0) (float-vector -305.359 -232.5 20.0) (float-vector -300.0 -232.5 40.0) (float-vector -300.0 -257.5 40.0)))
(instance face :init :vertices (list (float-vector -320.0 -257.5 5.35898) (float-vector -320.0 -232.5 5.35898) (float-vector -305.359 -232.5 20.0) (float-vector -305.359 -257.5 20.0)))
(instance face :init :vertices (list (float-vector -340.0 -257.5 2.842171e-14) (float-vector -340.0 -232.5 2.131628e-14) (float-vector -320.0 -232.5 5.35898) (float-vector -320.0 -257.5 5.35898)))
(instance face :init :vertices (list (float-vector -360.0 -257.5 5.35898) (float-vector -360.0 -232.5 5.35898) (float-vector -340.0 -232.5 2.131628e-14) (float-vector -340.0 -257.5 2.842171e-14)))
(instance face :init :vertices (list (float-vector -374.641 -257.5 20.0) (float-vector -374.641 -232.5 20.0) (float-vector -360.0 -232.5 5.35898) (float-vector -360.0 -257.5 5.35898)))
(instance face :init :vertices (list (float-vector -380.0 -257.5 40.0) (float-vector -380.0 -232.5 40.0) (float-vector -374.641 -232.5 20.0) (float-vector -374.641 -257.5 20.0)))
(instance face :init :vertices (list (float-vector -374.641 -257.5 60.0) (float-vector -374.641 -232.5 60.0) (float-vector -380.0 -232.5 40.0) (float-vector -380.0 -257.5 40.0)))
(instance face :init :vertices (list (float-vector -360.0 -257.5 74.641) (float-vector -360.0 -232.5 74.641) (float-vector -374.641 -232.5 60.0) (float-vector -374.641 -257.5 60.0)))
(instance face :init :vertices (list (float-vector -340.0 -257.5 80.0) (float-vector -340.0 -232.5 80.0) (float-vector -360.0 -232.5 74.641) (float-vector -360.0 -257.5 74.641)))
(instance face :init :vertices (list (float-vector -320.0 -257.5 74.641) (float-vector -320.0 -232.5 74.641) (float-vector -340.0 -232.5 80.0) (float-vector -340.0 -257.5 80.0)))
(instance face :init :vertices (list (float-vector -305.359 -257.5 60.0) (float-vector -305.359 -232.5 60.0) (float-vector -320.0 -232.5 74.641) (float-vector -320.0 -257.5 74.641)))
(instance face :init :vertices (list (float-vector -300.0 -257.5 40.0) (float-vector -300.0 -232.5 40.0) (float-vector -305.359 -232.5 60.0) (float-vector -305.359 -257.5 60.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -305.359 207.5 20.0) (float-vector -300.0 207.5 40.0) (float-vector -305.359 207.5 60.0) (float-vector -320.0 207.5 74.641) (float-vector -340.0 207.5 80.0) (float-vector -360.0 207.5 74.641) (float-vector -374.641 207.5 60.0) (float-vector -380.0 207.5 40.0) (float-vector -374.641 207.5 20.0) (float-vector -360.0 207.5 5.35898) (float-vector -340.0 207.5 2.842171e-14) (float-vector -320.0 207.5 5.35898)))
(instance face :init :vertices (list (float-vector -300.0 232.5 40.0) (float-vector -305.359 232.5 20.0) (float-vector -320.0 232.5 5.35898) (float-vector -340.0 232.5 2.131628e-14) (float-vector -360.0 232.5 5.35898) (float-vector -374.641 232.5 20.0) (float-vector -380.0 232.5 40.0) (float-vector -374.641 232.5 60.0) (float-vector -360.0 232.5 74.641) (float-vector -340.0 232.5 80.0) (float-vector -320.0 232.5 74.641) (float-vector -305.359 232.5 60.0)))
(instance face :init :vertices (list (float-vector -305.359 207.5 20.0) (float-vector -305.359 232.5 20.0) (float-vector -300.0 232.5 40.0) (float-vector -300.0 207.5 40.0)))
(instance face :init :vertices (list (float-vector -320.0 207.5 5.35898) (float-vector -320.0 232.5 5.35898) (float-vector -305.359 232.5 20.0) (float-vector -305.359 207.5 20.0)))
(instance face :init :vertices (list (float-vector -340.0 207.5 2.842171e-14) (float-vector -340.0 232.5 2.131628e-14) (float-vector -320.0 232.5 5.35898) (float-vector -320.0 207.5 5.35898)))
(instance face :init :vertices (list (float-vector -360.0 207.5 5.35898) (float-vector -360.0 232.5 5.35898) (float-vector -340.0 232.5 2.131628e-14) (float-vector -340.0 207.5 2.842171e-14)))
(instance face :init :vertices (list (float-vector -374.641 207.5 20.0) (float-vector -374.641 232.5 20.0) (float-vector -360.0 232.5 5.35898) (float-vector -360.0 207.5 5.35898)))
(instance face :init :vertices (list (float-vector -380.0 207.5 40.0) (float-vector -380.0 232.5 40.0) (float-vector -374.641 232.5 20.0) (float-vector -374.641 207.5 20.0)))
(instance face :init :vertices (list (float-vector -374.641 207.5 60.0) (float-vector -374.641 232.5 60.0) (float-vector -380.0 232.5 40.0) (float-vector -380.0 207.5 40.0)))
(instance face :init :vertices (list (float-vector -360.0 207.5 74.641) (float-vector -360.0 232.5 74.641) (float-vector -374.641 232.5 60.0) (float-vector -374.641 207.5 60.0)))
(instance face :init :vertices (list (float-vector -340.0 207.5 80.0) (float-vector -340.0 232.5 80.0) (float-vector -360.0 232.5 74.641) (float-vector -360.0 207.5 74.641)))
(instance face :init :vertices (list (float-vector -320.0 207.5 74.641) (float-vector -320.0 232.5 74.641) (float-vector -340.0 232.5 80.0) (float-vector -340.0 207.5 80.0)))
(instance face :init :vertices (list (float-vector -305.359 207.5 60.0) (float-vector -305.359 232.5 60.0) (float-vector -320.0 232.5 74.641) (float-vector -320.0 207.5 74.641)))
(instance face :init :vertices (list (float-vector -300.0 207.5 40.0) (float-vector -300.0 232.5 40.0) (float-vector -305.359 232.5 60.0) (float-vector -305.359 207.5 60.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 374.641 -257.5 20.0) (float-vector 380.0 -257.5 40.0) (float-vector 374.641 -257.5 60.0) (float-vector 360.0 -257.5 74.641) (float-vector 340.0 -257.5 80.0) (float-vector 320.0 -257.5 74.641) (float-vector 305.359 -257.5 60.0) (float-vector 300.0 -257.5 40.0) (float-vector 305.359 -257.5 20.0) (float-vector 320.0 -257.5 5.35898) (float-vector 340.0 -257.5 2.842171e-14) (float-vector 360.0 -257.5 5.35898)))
(instance face :init :vertices (list (float-vector 380.0 -232.5 40.0) (float-vector 374.641 -232.5 20.0) (float-vector 360.0 -232.5 5.35898) (float-vector 340.0 -232.5 2.131628e-14) (float-vector 320.0 -232.5 5.35898) (float-vector 305.359 -232.5 20.0) (float-vector 300.0 -232.5 40.0) (float-vector 305.359 -232.5 60.0) (float-vector 320.0 -232.5 74.641) (float-vector 340.0 -232.5 80.0) (float-vector 360.0 -232.5 74.641) (float-vector 374.641 -232.5 60.0)))
(instance face :init :vertices (list (float-vector 374.641 -257.5 20.0) (float-vector 374.641 -232.5 20.0) (float-vector 380.0 -232.5 40.0) (float-vector 380.0 -257.5 40.0)))
(instance face :init :vertices (list (float-vector 360.0 -257.5 5.35898) (float-vector 360.0 -232.5 5.35898) (float-vector 374.641 -232.5 20.0) (float-vector 374.641 -257.5 20.0)))
(instance face :init :vertices (list (float-vector 340.0 -257.5 2.842171e-14) (float-vector 340.0 -232.5 2.131628e-14) (float-vector 360.0 -232.5 5.35898) (float-vector 360.0 -257.5 5.35898)))
(instance face :init :vertices (list (float-vector 320.0 -257.5 5.35898) (float-vector 320.0 -232.5 5.35898) (float-vector 340.0 -232.5 2.131628e-14) (float-vector 340.0 -257.5 2.842171e-14)))
(instance face :init :vertices (list (float-vector 305.359 -257.5 20.0) (float-vector 305.359 -232.5 20.0) (float-vector 320.0 -232.5 5.35898) (float-vector 320.0 -257.5 5.35898)))
(instance face :init :vertices (list (float-vector 300.0 -257.5 40.0) (float-vector 300.0 -232.5 40.0) (float-vector 305.359 -232.5 20.0) (float-vector 305.359 -257.5 20.0)))
(instance face :init :vertices (list (float-vector 305.359 -257.5 60.0) (float-vector 305.359 -232.5 60.0) (float-vector 300.0 -232.5 40.0) (float-vector 300.0 -257.5 40.0)))
(instance face :init :vertices (list (float-vector 320.0 -257.5 74.641) (float-vector 320.0 -232.5 74.641) (float-vector 305.359 -232.5 60.0) (float-vector 305.359 -257.5 60.0)))
(instance face :init :vertices (list (float-vector 340.0 -257.5 80.0) (float-vector 340.0 -232.5 80.0) (float-vector 320.0 -232.5 74.641) (float-vector 320.0 -257.5 74.641)))
(instance face :init :vertices (list (float-vector 360.0 -257.5 74.641) (float-vector 360.0 -232.5 74.641) (float-vector 340.0 -232.5 80.0) (float-vector 340.0 -257.5 80.0)))
(instance face :init :vertices (list (float-vector 374.641 -257.5 60.0) (float-vector 374.641 -232.5 60.0) (float-vector 360.0 -232.5 74.641) (float-vector 360.0 -257.5 74.641)))
(instance face :init :vertices (list (float-vector 380.0 -257.5 40.0) (float-vector 380.0 -232.5 40.0) (float-vector 374.641 -232.5 60.0) (float-vector 374.641 -257.5 60.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 374.641 207.5 20.0) (float-vector 380.0 207.5 40.0) (float-vector 374.641 207.5 60.0) (float-vector 360.0 207.5 74.641) (float-vector 340.0 207.5 80.0) (float-vector 320.0 207.5 74.641) (float-vector 305.359 207.5 60.0) (float-vector 300.0 207.5 40.0) (float-vector 305.359 207.5 20.0) (float-vector 320.0 207.5 5.35898) (float-vector 340.0 207.5 2.842171e-14) (float-vector 360.0 207.5 5.35898)))
(instance face :init :vertices (list (float-vector 380.0 232.5 40.0) (float-vector 374.641 232.5 20.0) (float-vector 360.0 232.5 5.35898) (float-vector 340.0 232.5 2.131628e-14) (float-vector 320.0 232.5 5.35898) (float-vector 305.359 232.5 20.0) (float-vector 300.0 232.5 40.0) (float-vector 305.359 232.5 60.0) (float-vector 320.0 232.5 74.641) (float-vector 340.0 232.5 80.0) (float-vector 360.0 232.5 74.641) (float-vector 374.641 232.5 60.0)))
(instance face :init :vertices (list (float-vector 374.641 207.5 20.0) (float-vector 374.641 232.5 20.0) (float-vector 380.0 232.5 40.0) (float-vector 380.0 207.5 40.0)))
(instance face :init :vertices (list (float-vector 360.0 207.5 5.35898) (float-vector 360.0 232.5 5.35898) (float-vector 374.641 232.5 20.0) (float-vector 374.641 207.5 20.0)))
(instance face :init :vertices (list (float-vector 340.0 207.5 2.842171e-14) (float-vector 340.0 232.5 2.131628e-14) (float-vector 360.0 232.5 5.35898) (float-vector 360.0 207.5 5.35898)))
(instance face :init :vertices (list (float-vector 320.0 207.5 5.35898) (float-vector 320.0 232.5 5.35898) (float-vector 340.0 232.5 2.131628e-14) (float-vector 340.0 207.5 2.842171e-14)))
(instance face :init :vertices (list (float-vector 305.359 207.5 20.0) (float-vector 305.359 232.5 20.0) (float-vector 320.0 232.5 5.35898) (float-vector 320.0 207.5 5.35898)))
(instance face :init :vertices (list (float-vector 300.0 207.5 40.0) (float-vector 300.0 232.5 40.0) (float-vector 305.359 232.5 20.0) (float-vector 305.359 207.5 20.0)))
(instance face :init :vertices (list (float-vector 305.359 207.5 60.0) (float-vector 305.359 232.5 60.0) (float-vector 300.0 232.5 40.0) (float-vector 300.0 207.5 40.0)))
(instance face :init :vertices (list (float-vector 320.0 207.5 74.641) (float-vector 320.0 232.5 74.641) (float-vector 305.359 232.5 60.0) (float-vector 305.359 207.5 60.0)))
(instance face :init :vertices (list (float-vector 340.0 207.5 80.0) (float-vector 340.0 232.5 80.0) (float-vector 320.0 232.5 74.641) (float-vector 320.0 207.5 74.641)))
(instance face :init :vertices (list (float-vector 360.0 207.5 74.641) (float-vector 360.0 232.5 74.641) (float-vector 340.0 232.5 80.0) (float-vector 340.0 207.5 80.0)))
(instance face :init :vertices (list (float-vector 374.641 207.5 60.0) (float-vector 374.641 232.5 60.0) (float-vector 360.0 232.5 74.641) (float-vector 360.0 207.5 74.641)))
(instance face :init :vertices (list (float-vector 380.0 207.5 40.0) (float-vector 380.0 232.5 40.0) (float-vector 374.641 232.5 60.0) (float-vector 374.641 207.5 60.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 315.0 -220.0 422.5) (float-vector 315.0 -230.0 422.5) (float-vector 315.0 -230.0 417.5) (float-vector 315.0 -220.0 417.5)))
(instance face :init :vertices (list (float-vector 315.0 -220.0 422.5) (float-vector 315.0 -220.0 417.5) (float-vector 360.0 -220.0 417.5) (float-vector 360.0 -220.0 422.5)))
(instance face :init :vertices (list (float-vector -315.0 -220.0 417.5) (float-vector -315.0 -230.0 417.5) (float-vector -315.0 -230.0 422.5) (float-vector -315.0 -220.0 422.5)))
(instance face :init :vertices (list (float-vector -315.0 -220.0 417.5) (float-vector -315.0 -220.0 422.5) (float-vector -360.0 -220.0 422.5) (float-vector -360.0 -220.0 417.5)))
(instance face :init :vertices (list (float-vector -315.0 -230.0 417.5) (float-vector -315.0 -220.0 417.5) (float-vector -360.0 -220.0 417.5) (float-vector -360.0 220.0 417.5) (float-vector -315.0 220.0 417.5) (float-vector -315.0 230.0 417.5) (float-vector 315.0 230.0 417.5) (float-vector 315.0 220.0 417.5) (float-vector 360.0 220.0 417.5) (float-vector 360.0 -220.0 417.5) (float-vector 315.0 -220.0 417.5) (float-vector 315.0 -230.0 417.5)))
(instance face :init :vertices (list (float-vector 315.0 230.0 422.5) (float-vector 315.0 230.0 417.5) (float-vector -315.0 230.0 417.5) (float-vector -315.0 230.0 422.5)))
(instance face :init :vertices (list (float-vector -360.0 220.0 417.5) (float-vector -360.0 -220.0 417.5) (float-vector -360.0 -220.0 422.5) (float-vector -360.0 220.0 422.5)))
(instance face :init :vertices (list (float-vector -315.0 -230.0 422.5) (float-vector -315.0 -230.0 417.5) (float-vector 315.0 -230.0 417.5) (float-vector 315.0 -230.0 422.5)))
(instance face :init :vertices (list (float-vector 360.0 -220.0 422.5) (float-vector 360.0 -220.0 417.5) (float-vector 360.0 220.0 417.5) (float-vector 360.0 220.0 422.5)))
(instance face :init :vertices (list (float-vector -360.0 220.0 422.5) (float-vector -360.0 -220.0 422.5) (float-vector -315.0 -220.0 422.5) (float-vector -315.0 -230.0 422.5) (float-vector 315.0 -230.0 422.5) (float-vector 315.0 -220.0 422.5) (float-vector 360.0 -220.0 422.5) (float-vector 360.0 220.0 422.5) (float-vector 315.0 220.0 422.5) (float-vector 315.0 230.0 422.5) (float-vector -315.0 230.0 422.5) (float-vector -315.0 220.0 422.5)))
(instance face :init :vertices (list (float-vector -315.0 220.0 422.5) (float-vector -315.0 230.0 422.5) (float-vector -315.0 230.0 417.5) (float-vector -315.0 220.0 417.5)))
(instance face :init :vertices (list (float-vector -315.0 220.0 417.5) (float-vector -360.0 220.0 417.5) (float-vector -360.0 220.0 422.5) (float-vector -315.0 220.0 422.5)))
(instance face :init :vertices (list (float-vector 315.0 220.0 422.5) (float-vector 360.0 220.0 422.5) (float-vector 360.0 220.0 417.5) (float-vector 315.0 220.0 417.5)))
(instance face :init :vertices (list (float-vector 315.0 220.0 417.5) (float-vector 315.0 230.0 417.5) (float-vector 315.0 230.0 422.5) (float-vector 315.0 220.0 422.5)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 315.0 -220.0 122.5) (float-vector 315.0 -230.0 122.5) (float-vector 315.0 -230.0 117.5) (float-vector 315.0 -220.0 117.5)))
(instance face :init :vertices (list (float-vector 315.0 -220.0 122.5) (float-vector 315.0 -220.0 117.5) (float-vector 360.0 -220.0 117.5) (float-vector 360.0 -220.0 122.5)))
(instance face :init :vertices (list (float-vector -315.0 -220.0 117.5) (float-vector -315.0 -230.0 117.5) (float-vector -315.0 -230.0 122.5) (float-vector -315.0 -220.0 122.5)))
(instance face :init :vertices (list (float-vector -315.0 -220.0 117.5) (float-vector -315.0 -220.0 122.5) (float-vector -360.0 -220.0 122.5) (float-vector -360.0 -220.0 117.5)))
(instance face :init :vertices (list (float-vector -315.0 -230.0 117.5) (float-vector -315.0 -220.0 117.5) (float-vector -360.0 -220.0 117.5) (float-vector -360.0 220.0 117.5) (float-vector -315.0 220.0 117.5) (float-vector -315.0 230.0 117.5) (float-vector 315.0 230.0 117.5) (float-vector 315.0 220.0 117.5) (float-vector 360.0 220.0 117.5) (float-vector 360.0 -220.0 117.5) (float-vector 315.0 -220.0 117.5) (float-vector 315.0 -230.0 117.5)))
(instance face :init :vertices (list (float-vector 315.0 230.0 122.5) (float-vector 315.0 230.0 117.5) (float-vector -315.0 230.0 117.5) (float-vector -315.0 230.0 122.5)))
(instance face :init :vertices (list (float-vector -360.0 220.0 117.5) (float-vector -360.0 -220.0 117.5) (float-vector -360.0 -220.0 122.5) (float-vector -360.0 220.0 122.5)))
(instance face :init :vertices (list (float-vector -315.0 -230.0 122.5) (float-vector -315.0 -230.0 117.5) (float-vector 315.0 -230.0 117.5) (float-vector 315.0 -230.0 122.5)))
(instance face :init :vertices (list (float-vector 360.0 -220.0 122.5) (float-vector 360.0 -220.0 117.5) (float-vector 360.0 220.0 117.5) (float-vector 360.0 220.0 122.5)))
(instance face :init :vertices (list (float-vector -360.0 220.0 122.5) (float-vector -360.0 -220.0 122.5) (float-vector -315.0 -220.0 122.5) (float-vector -315.0 -230.0 122.5) (float-vector 315.0 -230.0 122.5) (float-vector 315.0 -220.0 122.5) (float-vector 360.0 -220.0 122.5) (float-vector 360.0 220.0 122.5) (float-vector 315.0 220.0 122.5) (float-vector 315.0 230.0 122.5) (float-vector -315.0 230.0 122.5) (float-vector -315.0 220.0 122.5)))
(instance face :init :vertices (list (float-vector -315.0 220.0 122.5) (float-vector -315.0 230.0 122.5) (float-vector -315.0 230.0 117.5) (float-vector -315.0 220.0 117.5)))
(instance face :init :vertices (list (float-vector -315.0 220.0 117.5) (float-vector -360.0 220.0 117.5) (float-vector -360.0 220.0 122.5) (float-vector -315.0 220.0 122.5)))
(instance face :init :vertices (list (float-vector 315.0 220.0 122.5) (float-vector 360.0 220.0 122.5) (float-vector 360.0 220.0 117.5) (float-vector 315.0 220.0 117.5)))
(instance face :init :vertices (list (float-vector 315.0 220.0 117.5) (float-vector 315.0 230.0 117.5) (float-vector 315.0 230.0 122.5) (float-vector 315.0 220.0 122.5)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 362.5 220.0 680.0) (float-vector 357.5 220.0 680.0) (float-vector 357.5 -220.0 680.0) (float-vector 362.5 -220.0 680.0)))
(instance face :init :vertices (list (float-vector 357.5 220.0 80.0) (float-vector 362.5 220.0 80.0) (float-vector 362.5 -220.0 80.0) (float-vector 357.5 -220.0 80.0)))
(instance face :init :vertices (list (float-vector 362.5 220.0 680.0) (float-vector 362.5 220.0 80.0) (float-vector 357.5 220.0 80.0) (float-vector 357.5 220.0 680.0)))
(instance face :init :vertices (list (float-vector 362.5 -220.0 680.0) (float-vector 362.5 -220.0 80.0) (float-vector 362.5 220.0 80.0) (float-vector 362.5 220.0 680.0)))
(instance face :init :vertices (list (float-vector 357.5 -220.0 680.0) (float-vector 357.5 -220.0 80.0) (float-vector 362.5 -220.0 80.0) (float-vector 362.5 -220.0 680.0)))
(instance face :init :vertices (list (float-vector 357.5 220.0 680.0) (float-vector 357.5 220.0 80.0) (float-vector 357.5 -220.0 80.0) (float-vector 357.5 -220.0 680.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -357.5 220.0 680.0) (float-vector -362.5 220.0 680.0) (float-vector -362.5 -220.0 680.0) (float-vector -357.5 -220.0 680.0)))
(instance face :init :vertices (list (float-vector -362.5 220.0 80.0) (float-vector -357.5 220.0 80.0) (float-vector -357.5 -220.0 80.0) (float-vector -362.5 -220.0 80.0)))
(instance face :init :vertices (list (float-vector -357.5 220.0 680.0) (float-vector -357.5 220.0 80.0) (float-vector -362.5 220.0 80.0) (float-vector -362.5 220.0 680.0)))
(instance face :init :vertices (list (float-vector -357.5 -220.0 680.0) (float-vector -357.5 -220.0 80.0) (float-vector -357.5 220.0 80.0) (float-vector -357.5 220.0 680.0)))
(instance face :init :vertices (list (float-vector -362.5 -220.0 680.0) (float-vector -362.5 -220.0 80.0) (float-vector -357.5 -220.0 80.0) (float-vector -357.5 -220.0 680.0)))
(instance face :init :vertices (list (float-vector -362.5 220.0 680.0) (float-vector -362.5 220.0 80.0) (float-vector -362.5 -220.0 80.0) (float-vector -362.5 -220.0 680.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 315.0 232.5 680.0) (float-vector -315.0 232.5 680.0) (float-vector -315.0 227.5 680.0) (float-vector 315.0 227.5 680.0)))
(instance face :init :vertices (list (float-vector -315.0 232.5 80.0) (float-vector 315.0 232.5 80.0) (float-vector 315.0 227.5 80.0) (float-vector -315.0 227.5 80.0)))
(instance face :init :vertices (list (float-vector 315.0 232.5 680.0) (float-vector 315.0 232.5 80.0) (float-vector -315.0 232.5 80.0) (float-vector -315.0 232.5 680.0)))
(instance face :init :vertices (list (float-vector 315.0 227.5 680.0) (float-vector 315.0 227.5 80.0) (float-vector 315.0 232.5 80.0) (float-vector 315.0 232.5 680.0)))
(instance face :init :vertices (list (float-vector -315.0 227.5 680.0) (float-vector -315.0 227.5 80.0) (float-vector 315.0 227.5 80.0) (float-vector 315.0 227.5 680.0)))
(instance face :init :vertices (list (float-vector -315.0 232.5 680.0) (float-vector -315.0 232.5 80.0) (float-vector -315.0 227.5 80.0) (float-vector -315.0 227.5 680.0)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :darkgreen)
(send (elt bc 1) :set-color :green)
(send (elt bc 2) :set-color :green)
(send (elt bc 3) :set-color :green)
(send (elt bc 4) :set-color :green)
(send (elt bc 5) :set-color :gray30)
(send (elt bc 6) :set-color :gray30)
(send (elt bc 7) :set-color :gray30)
(send (elt bc 8) :set-color :gray30)
(send (elt bc 9) :set-color :green)
(send (elt bc 10) :set-color :green)
(send (elt bc 11) :set-color :green)
(send (elt bc 12) :set-color :green)
(send (elt bc 13) :set-color :green)
(setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :sakae-900-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
;; 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 ) args))
(:attention (&rest args) (forward-message-to-all (list ) args))
(:button (&rest args) (forward-message-to-all (list ) args))
)
(defun sakae-900-desk (&rest args) (instance* sakae-900-desk-object :init args))
;; (format *error-output* "(instance sakae-900-desk-object :init) for generating model~%")
|
