CLで幾何モデルライブラリを作ろう(3)
テクスチャに対応.こんな感じ.
textured cube
(require :komainu) (use-package :komainu) (use-package :nurarihyon) (use-package :nurikabe) (defvar *viewer* (make-komainu-viewer :loggingp t)) (defvar *a* (make-cube 100.0 100.0 100.0 :color :red)) (defvar *im* (make-image :width 300 :height 300 :background :green)) (draw-string *im* "Hoge" 150 150 :font-size 0.03 :color :black) (paste-texture (car (faces-of *a*)) *im* (list (float-vector 0 1) (float-vector 0 0) (float-vector 1 0) (float-vector 1 1))) (objects *viewer* (list *a*))
このために, clxのGLX, OpenGLのバインディングを捨てて, すべてcffiでバインディングを1から作り直すことにした.
ちなみに, 2Dの描画はcl-vectorsをつかってベクター描画.