$B%*%V%8%'%/%H$NCf?H$N0u:~$5$l$?%j%9%H$r<h$k$K$O$I$&$7$?$i$h$$$+$H$$$&(J
$BLd9g$;$,B?$$$N$G!"(Jdescribe-list$B$N2r@b$r$7$^$9!#2?$+%*%V%8%'%/%H$,(J
$B$"$k$H$7$^$9!#(J

(setf cub1 (make-cube 30 20 10))

cub1$B$NLL$NCf?H$rCN$j$?$$$H$-$O<!$N$h$&$K$7$F2<$5$$!#(J

(describe-list (body-faces cub1))

$B30It$N%U%!%$%k$K=q$-$@$7$?$$$H$-$O!"(J2$B$D$a$N0z?t$K%U%!%$%kL>$r(J
$B;XDj$9$l$P(JOK$B$G$9!#(J

(describe-list (body-faces cub1) "cubfac")

cub2$B$N(Jdescribe-list$B$r$=$N$"$H$K(Jappend$B$9$k$K$O!"(J

(describe-list (body-faces cub2) "cubfac")

$B$G$h$$$O$:$G$9!#(J"cubfac"$B$O(Jdescribe-list$B$NCf$G$O(J :if-exists :append
$B$G%*!<%W%s$5$l$F$$$k$N$G$7$?!#(J

$B$b$&(J1$B$DLLGr$$Nc$O!"(Jlpr$B$r;H$C$F%W%j%s%H$9$k$b$N$G$9!#(J
$B$^$:!"(Jlpr$B$X$N8}$r:n$j$^$9!#(J

(setf lpr (sys:piped-fork "lpr"))

$BJQ?t(Jlpr$B$K$O!"%Q%$%W7PM3$N(Jio-stream$B$,:n@.$5$l$^$9!#(Jdescribe-list
$B$NBh(J2$B0z?t$O%9%H%j!<%`$G$b$h$$$N$G!"(J

(describe-list (body-edges cub1) lpr)

$B$J$I$H$9$k$3$H$,$G$-$^$9!#:G8e$K(Jlpr$B$r%/%m!<%:$9$k$3$H$r(J
$BK:$l$J$$$h$&$K!#(Jsys:piped-fork$B$O$3$N$h$&$K$*$b$7$m$$$N$G(J
system$B%Q%C%1!<%8$+$i(Jlisp$B%Q%C%1!<%8$K0\$=$&$+$H9M$($F$$$^$9!#(J
rsh$B$HAH$_9g$o$;$k$H$5$i$KLLGr$$(J!


