ray.lisp

   1
   2 (in-package :cl-tuples)
   3
   4 (def-tuple-type ray
   5         :tuple-element-type fast-float
   6         :intial-element 0.0f0
   7         :elements (ox oy oz dirx diry dirz))
   8
   9 (export-tuple-operations ray)
  10
  11 (def-tuple-op ray-origin*
  12         ((ray ray (ox oy oz dirx diry dirz)))
  13   (:return vector3d
  14                    (vector3d-values ox oy oz)))
  15
  16 (def-tuple-op ray-direcion*
  17         ((ray ray (ox oy oz dirx diry dirz)))
  18   (:return vector3d
  19                    (vector3d-values dirx diry dirz)))