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
|
;;
;; DO NOT EDIT THIS FILE
;; this file is automatically generated from euslisp+euslib version
;;
;;
(defclass askul-corner-desk-object
:super cascaded-link
:slots (sensors
))
(defmethod askul-corner-desk-object
(:init
(&rest args &key (name "askul-corner-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 :askul-corner-desk-bodyset2
(setq bc (list
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -535.0 -185.0 700.0) (float-vector -185.0 -535.0 700.0) (float-vector 535.0 -535.0 700.0) (float-vector 535.0 535.0 700.0) (float-vector -535.0 535.0 700.0)))
(instance face :init :vertices (list (float-vector -185.0 -535.0 682.0) (float-vector -535.0 -185.0 682.0) (float-vector -535.0 535.0 682.0) (float-vector 535.0 535.0 682.0) (float-vector 535.0 -535.0 682.0)))
(instance face :init :vertices (list (float-vector -535.0 -185.0 700.0) (float-vector -535.0 -185.0 682.0) (float-vector -185.0 -535.0 682.0) (float-vector -185.0 -535.0 700.0)))
(instance face :init :vertices (list (float-vector -535.0 535.0 700.0) (float-vector -535.0 535.0 682.0) (float-vector -535.0 -185.0 682.0) (float-vector -535.0 -185.0 700.0)))
(instance face :init :vertices (list (float-vector 535.0 535.0 700.0) (float-vector 535.0 535.0 682.0) (float-vector -535.0 535.0 682.0) (float-vector -535.0 535.0 700.0)))
(instance face :init :vertices (list (float-vector 535.0 -535.0 700.0) (float-vector 535.0 -535.0 682.0) (float-vector 535.0 535.0 682.0) (float-vector 535.0 535.0 700.0)))
(instance face :init :vertices (list (float-vector -185.0 -535.0 700.0) (float-vector -185.0 -535.0 682.0) (float-vector 535.0 -535.0 682.0) (float-vector 535.0 -535.0 700.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -121.144 -508.0 682.0) (float-vector -119.0 -500.0 682.0) (float-vector -121.144 -492.0 682.0) (float-vector -127.0 -486.144 682.0) (float-vector -135.0 -484.0 682.0) (float-vector -143.0 -486.144 682.0) (float-vector -148.856 -492.0 682.0) (float-vector -151.0 -500.0 682.0) (float-vector -148.856 -508.0 682.0) (float-vector -143.0 -513.856 682.0) (float-vector -135.0 -516.0 682.0) (float-vector -127.0 -513.856 682.0)))
(instance face :init :vertices (list (float-vector -119.0 -500.0 0.0) (float-vector -121.144 -508.0 0.0) (float-vector -127.0 -513.856 0.0) (float-vector -135.0 -516.0 0.0) (float-vector -143.0 -513.856 0.0) (float-vector -148.856 -508.0 0.0) (float-vector -151.0 -500.0 0.0) (float-vector -148.856 -492.0 0.0) (float-vector -143.0 -486.144 0.0) (float-vector -135.0 -484.0 0.0) (float-vector -127.0 -486.144 0.0) (float-vector -121.144 -492.0 0.0)))
(instance face :init :vertices (list (float-vector -121.144 -508.0 682.0) (float-vector -121.144 -508.0 0.0) (float-vector -119.0 -500.0 0.0) (float-vector -119.0 -500.0 682.0)))
(instance face :init :vertices (list (float-vector -127.0 -513.856 682.0) (float-vector -127.0 -513.856 0.0) (float-vector -121.144 -508.0 0.0) (float-vector -121.144 -508.0 682.0)))
(instance face :init :vertices (list (float-vector -135.0 -516.0 682.0) (float-vector -135.0 -516.0 0.0) (float-vector -127.0 -513.856 0.0) (float-vector -127.0 -513.856 682.0)))
(instance face :init :vertices (list (float-vector -143.0 -513.856 682.0) (float-vector -143.0 -513.856 0.0) (float-vector -135.0 -516.0 0.0) (float-vector -135.0 -516.0 682.0)))
(instance face :init :vertices (list (float-vector -148.856 -508.0 682.0) (float-vector -148.856 -508.0 0.0) (float-vector -143.0 -513.856 0.0) (float-vector -143.0 -513.856 682.0)))
(instance face :init :vertices (list (float-vector -151.0 -500.0 682.0) (float-vector -151.0 -500.0 0.0) (float-vector -148.856 -508.0 0.0) (float-vector -148.856 -508.0 682.0)))
(instance face :init :vertices (list (float-vector -148.856 -492.0 682.0) (float-vector -148.856 -492.0 0.0) (float-vector -151.0 -500.0 0.0) (float-vector -151.0 -500.0 682.0)))
(instance face :init :vertices (list (float-vector -143.0 -486.144 682.0) (float-vector -143.0 -486.144 0.0) (float-vector -148.856 -492.0 0.0) (float-vector -148.856 -492.0 682.0)))
(instance face :init :vertices (list (float-vector -135.0 -484.0 682.0) (float-vector -135.0 -484.0 0.0) (float-vector -143.0 -486.144 0.0) (float-vector -143.0 -486.144 682.0)))
(instance face :init :vertices (list (float-vector -127.0 -486.144 682.0) (float-vector -127.0 -486.144 0.0) (float-vector -135.0 -484.0 0.0) (float-vector -135.0 -484.0 682.0)))
(instance face :init :vertices (list (float-vector -121.144 -492.0 682.0) (float-vector -121.144 -492.0 0.0) (float-vector -127.0 -486.144 0.0) (float-vector -127.0 -486.144 682.0)))
(instance face :init :vertices (list (float-vector -119.0 -500.0 682.0) (float-vector -119.0 -500.0 0.0) (float-vector -121.144 -492.0 0.0) (float-vector -121.144 -492.0 682.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 513.856 -508.0 682.0) (float-vector 516.0 -500.0 682.0) (float-vector 513.856 -492.0 682.0) (float-vector 508.0 -486.144 682.0) (float-vector 500.0 -484.0 682.0) (float-vector 492.0 -486.144 682.0) (float-vector 486.144 -492.0 682.0) (float-vector 484.0 -500.0 682.0) (float-vector 486.144 -508.0 682.0) (float-vector 492.0 -513.856 682.0) (float-vector 500.0 -516.0 682.0) (float-vector 508.0 -513.856 682.0)))
(instance face :init :vertices (list (float-vector 516.0 -500.0 0.0) (float-vector 513.856 -508.0 0.0) (float-vector 508.0 -513.856 0.0) (float-vector 500.0 -516.0 0.0) (float-vector 492.0 -513.856 0.0) (float-vector 486.144 -508.0 0.0) (float-vector 484.0 -500.0 0.0) (float-vector 486.144 -492.0 0.0) (float-vector 492.0 -486.144 0.0) (float-vector 500.0 -484.0 0.0) (float-vector 508.0 -486.144 0.0) (float-vector 513.856 -492.0 0.0)))
(instance face :init :vertices (list (float-vector 513.856 -508.0 682.0) (float-vector 513.856 -508.0 0.0) (float-vector 516.0 -500.0 0.0) (float-vector 516.0 -500.0 682.0)))
(instance face :init :vertices (list (float-vector 508.0 -513.856 682.0) (float-vector 508.0 -513.856 0.0) (float-vector 513.856 -508.0 0.0) (float-vector 513.856 -508.0 682.0)))
(instance face :init :vertices (list (float-vector 500.0 -516.0 682.0) (float-vector 500.0 -516.0 0.0) (float-vector 508.0 -513.856 0.0) (float-vector 508.0 -513.856 682.0)))
(instance face :init :vertices (list (float-vector 492.0 -513.856 682.0) (float-vector 492.0 -513.856 0.0) (float-vector 500.0 -516.0 0.0) (float-vector 500.0 -516.0 682.0)))
(instance face :init :vertices (list (float-vector 486.144 -508.0 682.0) (float-vector 486.144 -508.0 0.0) (float-vector 492.0 -513.856 0.0) (float-vector 492.0 -513.856 682.0)))
(instance face :init :vertices (list (float-vector 484.0 -500.0 682.0) (float-vector 484.0 -500.0 0.0) (float-vector 486.144 -508.0 0.0) (float-vector 486.144 -508.0 682.0)))
(instance face :init :vertices (list (float-vector 486.144 -492.0 682.0) (float-vector 486.144 -492.0 0.0) (float-vector 484.0 -500.0 0.0) (float-vector 484.0 -500.0 682.0)))
(instance face :init :vertices (list (float-vector 492.0 -486.144 682.0) (float-vector 492.0 -486.144 0.0) (float-vector 486.144 -492.0 0.0) (float-vector 486.144 -492.0 682.0)))
(instance face :init :vertices (list (float-vector 500.0 -484.0 682.0) (float-vector 500.0 -484.0 0.0) (float-vector 492.0 -486.144 0.0) (float-vector 492.0 -486.144 682.0)))
(instance face :init :vertices (list (float-vector 508.0 -486.144 682.0) (float-vector 508.0 -486.144 0.0) (float-vector 500.0 -484.0 0.0) (float-vector 500.0 -484.0 682.0)))
(instance face :init :vertices (list (float-vector 513.856 -492.0 682.0) (float-vector 513.856 -492.0 0.0) (float-vector 508.0 -486.144 0.0) (float-vector 508.0 -486.144 682.0)))
(instance face :init :vertices (list (float-vector 516.0 -500.0 682.0) (float-vector 516.0 -500.0 0.0) (float-vector 513.856 -492.0 0.0) (float-vector 513.856 -492.0 682.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 513.856 492.0 682.0) (float-vector 516.0 500.0 682.0) (float-vector 513.856 508.0 682.0) (float-vector 508.0 513.856 682.0) (float-vector 500.0 516.0 682.0) (float-vector 492.0 513.856 682.0) (float-vector 486.144 508.0 682.0) (float-vector 484.0 500.0 682.0) (float-vector 486.144 492.0 682.0) (float-vector 492.0 486.144 682.0) (float-vector 500.0 484.0 682.0) (float-vector 508.0 486.144 682.0)))
(instance face :init :vertices (list (float-vector 516.0 500.0 0.0) (float-vector 513.856 492.0 0.0) (float-vector 508.0 486.144 0.0) (float-vector 500.0 484.0 0.0) (float-vector 492.0 486.144 0.0) (float-vector 486.144 492.0 0.0) (float-vector 484.0 500.0 0.0) (float-vector 486.144 508.0 0.0) (float-vector 492.0 513.856 0.0) (float-vector 500.0 516.0 0.0) (float-vector 508.0 513.856 0.0) (float-vector 513.856 508.0 0.0)))
(instance face :init :vertices (list (float-vector 513.856 492.0 682.0) (float-vector 513.856 492.0 0.0) (float-vector 516.0 500.0 0.0) (float-vector 516.0 500.0 682.0)))
(instance face :init :vertices (list (float-vector 508.0 486.144 682.0) (float-vector 508.0 486.144 0.0) (float-vector 513.856 492.0 0.0) (float-vector 513.856 492.0 682.0)))
(instance face :init :vertices (list (float-vector 500.0 484.0 682.0) (float-vector 500.0 484.0 0.0) (float-vector 508.0 486.144 0.0) (float-vector 508.0 486.144 682.0)))
(instance face :init :vertices (list (float-vector 492.0 486.144 682.0) (float-vector 492.0 486.144 0.0) (float-vector 500.0 484.0 0.0) (float-vector 500.0 484.0 682.0)))
(instance face :init :vertices (list (float-vector 486.144 492.0 682.0) (float-vector 486.144 492.0 0.0) (float-vector 492.0 486.144 0.0) (float-vector 492.0 486.144 682.0)))
(instance face :init :vertices (list (float-vector 484.0 500.0 682.0) (float-vector 484.0 500.0 0.0) (float-vector 486.144 492.0 0.0) (float-vector 486.144 492.0 682.0)))
(instance face :init :vertices (list (float-vector 486.144 508.0 682.0) (float-vector 486.144 508.0 0.0) (float-vector 484.0 500.0 0.0) (float-vector 484.0 500.0 682.0)))
(instance face :init :vertices (list (float-vector 492.0 513.856 682.0) (float-vector 492.0 513.856 0.0) (float-vector 486.144 508.0 0.0) (float-vector 486.144 508.0 682.0)))
(instance face :init :vertices (list (float-vector 500.0 516.0 682.0) (float-vector 500.0 516.0 0.0) (float-vector 492.0 513.856 0.0) (float-vector 492.0 513.856 682.0)))
(instance face :init :vertices (list (float-vector 508.0 513.856 682.0) (float-vector 508.0 513.856 0.0) (float-vector 500.0 516.0 0.0) (float-vector 500.0 516.0 682.0)))
(instance face :init :vertices (list (float-vector 513.856 508.0 682.0) (float-vector 513.856 508.0 0.0) (float-vector 508.0 513.856 0.0) (float-vector 508.0 513.856 682.0)))
(instance face :init :vertices (list (float-vector 516.0 500.0 682.0) (float-vector 516.0 500.0 0.0) (float-vector 513.856 508.0 0.0) (float-vector 513.856 508.0 682.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -486.144 492.0 682.0) (float-vector -484.0 500.0 682.0) (float-vector -486.144 508.0 682.0) (float-vector -492.0 513.856 682.0) (float-vector -500.0 516.0 682.0) (float-vector -508.0 513.856 682.0) (float-vector -513.856 508.0 682.0) (float-vector -516.0 500.0 682.0) (float-vector -513.856 492.0 682.0) (float-vector -508.0 486.144 682.0) (float-vector -500.0 484.0 682.0) (float-vector -492.0 486.144 682.0)))
(instance face :init :vertices (list (float-vector -484.0 500.0 0.0) (float-vector -486.144 492.0 0.0) (float-vector -492.0 486.144 0.0) (float-vector -500.0 484.0 0.0) (float-vector -508.0 486.144 0.0) (float-vector -513.856 492.0 0.0) (float-vector -516.0 500.0 0.0) (float-vector -513.856 508.0 0.0) (float-vector -508.0 513.856 0.0) (float-vector -500.0 516.0 0.0) (float-vector -492.0 513.856 0.0) (float-vector -486.144 508.0 0.0)))
(instance face :init :vertices (list (float-vector -486.144 492.0 682.0) (float-vector -486.144 492.0 0.0) (float-vector -484.0 500.0 0.0) (float-vector -484.0 500.0 682.0)))
(instance face :init :vertices (list (float-vector -492.0 486.144 682.0) (float-vector -492.0 486.144 0.0) (float-vector -486.144 492.0 0.0) (float-vector -486.144 492.0 682.0)))
(instance face :init :vertices (list (float-vector -500.0 484.0 682.0) (float-vector -500.0 484.0 0.0) (float-vector -492.0 486.144 0.0) (float-vector -492.0 486.144 682.0)))
(instance face :init :vertices (list (float-vector -508.0 486.144 682.0) (float-vector -508.0 486.144 0.0) (float-vector -500.0 484.0 0.0) (float-vector -500.0 484.0 682.0)))
(instance face :init :vertices (list (float-vector -513.856 492.0 682.0) (float-vector -513.856 492.0 0.0) (float-vector -508.0 486.144 0.0) (float-vector -508.0 486.144 682.0)))
(instance face :init :vertices (list (float-vector -516.0 500.0 682.0) (float-vector -516.0 500.0 0.0) (float-vector -513.856 492.0 0.0) (float-vector -513.856 492.0 682.0)))
(instance face :init :vertices (list (float-vector -513.856 508.0 682.0) (float-vector -513.856 508.0 0.0) (float-vector -516.0 500.0 0.0) (float-vector -516.0 500.0 682.0)))
(instance face :init :vertices (list (float-vector -508.0 513.856 682.0) (float-vector -508.0 513.856 0.0) (float-vector -513.856 508.0 0.0) (float-vector -513.856 508.0 682.0)))
(instance face :init :vertices (list (float-vector -500.0 516.0 682.0) (float-vector -500.0 516.0 0.0) (float-vector -508.0 513.856 0.0) (float-vector -508.0 513.856 682.0)))
(instance face :init :vertices (list (float-vector -492.0 513.856 682.0) (float-vector -492.0 513.856 0.0) (float-vector -500.0 516.0 0.0) (float-vector -500.0 516.0 682.0)))
(instance face :init :vertices (list (float-vector -486.144 508.0 682.0) (float-vector -486.144 508.0 0.0) (float-vector -492.0 513.856 0.0) (float-vector -492.0 513.856 682.0)))
(instance face :init :vertices (list (float-vector -484.0 500.0 682.0) (float-vector -484.0 500.0 0.0) (float-vector -486.144 508.0 0.0) (float-vector -486.144 508.0 682.0)))
))
(instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector -486.144 -143.0 682.0) (float-vector -484.0 -135.0 682.0) (float-vector -486.144 -127.0 682.0) (float-vector -492.0 -121.144 682.0) (float-vector -500.0 -119.0 682.0) (float-vector -508.0 -121.144 682.0) (float-vector -513.856 -127.0 682.0) (float-vector -516.0 -135.0 682.0) (float-vector -513.856 -143.0 682.0) (float-vector -508.0 -148.856 682.0) (float-vector -500.0 -151.0 682.0) (float-vector -492.0 -148.856 682.0)))
(instance face :init :vertices (list (float-vector -484.0 -135.0 0.0) (float-vector -486.144 -143.0 0.0) (float-vector -492.0 -148.856 0.0) (float-vector -500.0 -151.0 0.0) (float-vector -508.0 -148.856 0.0) (float-vector -513.856 -143.0 0.0) (float-vector -516.0 -135.0 0.0) (float-vector -513.856 -127.0 0.0) (float-vector -508.0 -121.144 0.0) (float-vector -500.0 -119.0 0.0) (float-vector -492.0 -121.144 0.0) (float-vector -486.144 -127.0 0.0)))
(instance face :init :vertices (list (float-vector -486.144 -143.0 682.0) (float-vector -486.144 -143.0 0.0) (float-vector -484.0 -135.0 0.0) (float-vector -484.0 -135.0 682.0)))
(instance face :init :vertices (list (float-vector -492.0 -148.856 682.0) (float-vector -492.0 -148.856 0.0) (float-vector -486.144 -143.0 0.0) (float-vector -486.144 -143.0 682.0)))
(instance face :init :vertices (list (float-vector -500.0 -151.0 682.0) (float-vector -500.0 -151.0 0.0) (float-vector -492.0 -148.856 0.0) (float-vector -492.0 -148.856 682.0)))
(instance face :init :vertices (list (float-vector -508.0 -148.856 682.0) (float-vector -508.0 -148.856 0.0) (float-vector -500.0 -151.0 0.0) (float-vector -500.0 -151.0 682.0)))
(instance face :init :vertices (list (float-vector -513.856 -143.0 682.0) (float-vector -513.856 -143.0 0.0) (float-vector -508.0 -148.856 0.0) (float-vector -508.0 -148.856 682.0)))
(instance face :init :vertices (list (float-vector -516.0 -135.0 682.0) (float-vector -516.0 -135.0 0.0) (float-vector -513.856 -143.0 0.0) (float-vector -513.856 -143.0 682.0)))
(instance face :init :vertices (list (float-vector -513.856 -127.0 682.0) (float-vector -513.856 -127.0 0.0) (float-vector -516.0 -135.0 0.0) (float-vector -516.0 -135.0 682.0)))
(instance face :init :vertices (list (float-vector -508.0 -121.144 682.0) (float-vector -508.0 -121.144 0.0) (float-vector -513.856 -127.0 0.0) (float-vector -513.856 -127.0 682.0)))
(instance face :init :vertices (list (float-vector -500.0 -119.0 682.0) (float-vector -500.0 -119.0 0.0) (float-vector -508.0 -121.144 0.0) (float-vector -508.0 -121.144 682.0)))
(instance face :init :vertices (list (float-vector -492.0 -121.144 682.0) (float-vector -492.0 -121.144 0.0) (float-vector -500.0 -119.0 0.0) (float-vector -500.0 -119.0 682.0)))
(instance face :init :vertices (list (float-vector -486.144 -127.0 682.0) (float-vector -486.144 -127.0 0.0) (float-vector -492.0 -121.144 0.0) (float-vector -492.0 -121.144 682.0)))
(instance face :init :vertices (list (float-vector -484.0 -135.0 682.0) (float-vector -484.0 -135.0 0.0) (float-vector -486.144 -127.0 0.0) (float-vector -486.144 -127.0 682.0)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :white)
(send (elt bc 1) :set-color :gray70)
(send (elt bc 2) :set-color :gray70)
(send (elt bc 3) :set-color :gray70)
(send (elt bc 4) :set-color :gray70)
(send (elt bc 5) :set-color :gray70)
(setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :askul-corner-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 askul-corner-desk (&rest args) (instance* askul-corner-desk-object :init args))
;; (format *error-output* "(instance askul-corner-desk-object :init) for generating model~%")
|
