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
|
1. $B4X?t$NCf$G(Jbody$B$K(J:translate, :rotate$B$J$I$N%a%C%;!<%8$rAw$k$,!"(J
$B$=$N8z2L$,8=$l$J$$!#0l$D0l$D$N%a%C%;!<%8$r8DJL$KAw$k$H@5>o$K(J
$BF0:n$9$k!#(J
2. body$B$"$k$$$O(Jcoordinates$B$r%o!<%k%I$N<42s$j$K2sE>$5$;$?$$$N$@$,!"(J
(send body1 :rotate angle axis :world)$B$G$O$&$^$/9T$+$J$$!#(J
3. $B<!$N$h$&$J4X?t$G!"(Jbody$B%/%i%9$,$A$c$s$H$"$k$N$K!"%/%i%9$,$J$$$H(J
$B8@$&%(%i!<%a%C%;!<%8$,=P$k!#(J
(defun ex1 (body)
(body+ body (make-cube 10 20 30)))
4. $B@\?(>uBV$K$"$k(Jbody$B$N9g@.A`:n!"1#@~=hM}$,@5$7$/$J$$!#(J
5. Common Lisp$B$H8_49@-$,$J$$(J.
6. $B:G$b<j7Z$K%&%#%s%I%&%7%9%F%`$rMxMQ$9$k$K$O$I$&$7$?$i$h$$$+!#(J
7. $B%9!<%Q%/%i%9$K%$%s%9%?%s%9JQ?t$rDI2C$7$?$$!#(J
8. $BB.$$%W%m%0%i%`$r=q$/$K$O$I$&$7$?$i$h$$$+!#(J
9. load$B$O!"$I$&$d$C$F%U%!%$%k$rC5$9$N$+!#(J
10. $B%]%9%H%9%/%j%W%H$NIA2h=PNO$rF@$k$K$O$I$&$9$k$N$+(J
11. $B$I$&$d$C$?$i%a%b%j$r?)$o$J$$$h$&$K$G$-$k$+!"(J
$B$I$&$d$C$?$i%4%_=8$a$NIQEY$r8:$i$;$k$+!#(J
12. $B:n$C$?%*%V%8%'%/%H$r%U%!%$%k$KJ]B8$9$k$K$O$I$&$9$k$+!#(J
13. $B<B?t1i;;$N@:EY$,0-$$!#(J
14. $B?'$rJQ$($FIA2h$9$k$K$O$I$&$9$k$+!#(J
15. $B%?%$%^!<$G<~4|E*$KAv$k%W%m%0%i%`$O$I$&$d$C$F=q$/$+!#(J
16. ls$B$H$$$&JQ?t$KCM$r%;%C%H$7!"%H%C%W%l%Y%k$G(J ls$B$H%?%$%W$7$F(J
$B%G%#%l%/%H%j$r8+$h$&$H$7$?$i!"(Jls$B$NCM$,=P$F$-$?!#(J
$B$I$&$7$?$i%G%#%l%/%H%j$,8+$($k$+!#(J
$B!&(JXwindow$B$K0lE@:?@~$rIA$/(J (July/23/92)
(setq gdot (instance gcontext :create
:line-style 1
:dash '(16 3 3 3)
:line-width 1))
(with-gc gdot (draw ...))
$B!&(Jkdraw (July/23/92)
$BI8=`$N(J*viewer*$B$r;H$C$FI,MW$J3($rIA$/4X?t$rDj5A$9$k!#(J
(kdraw "file.ps" (draw...))
$B0lE@:?@~$O=P$J$$!#(J
|
