eus$ (setq b2 (make-cube 100 100 30)) #<body #X27e4d0 (:cube 100 100 30) 0.0 0.0 0.0 / 0.0 0.0 0.0> eus$ (setq b3 (body+ b1 b2)) #<body #X27e104 :complex 0.0 0.0 0.0 / 0.0 0.0 0.0> eus$ (setq b4 (body* b1 b2)) #<body #X24f420 :complex 0.0 0.0 0.0 / 0.0 0.0 0.0>b1,b3のモデルを表示したのが図3である.
eus$ (draw b1) eus$ (hid b3)