CLで幾何ライブラリを作ろう(2)
色とcylinderを追加してみた
こんなかんじ
komainu-viewer2
(require :komainu) (use-package :komainu) (use-package :nurarihyon) (defvar *viewer* (make-komainu-viewer)) (defvar *a* (make-cube 100.0 100.0 100.0 :color :red)) (defvar *b* (make-cube 100.0 100.0 100.0 :color :green)) (translate (coords-of *a*) (float-vector 0 100 0)) (translate (coords-of *b*) (float-vector 0 -100 0)) (objects *viewer* (list *a* *b* *world-coords* (make-cylinder 100 100)))