Merge branch 'fare-master'
[cl-tuples.git] / ray.lisp
blobcef3ff7d0c366d162a5df86da4c6a16835c90fc9
2 (in-package :cl-tuples)
4 (def-tuple-type ray
5 :tuple-element-type fast-float
6 :intial-element 0.0f0
7 :elements (ox oy oz dirx diry dirz))
9 (export-tuple-operations ray)
11 (def-tuple-op ray-origin*
12 ((ray ray (ox oy oz dirx diry dirz)))
13 (:return vector3d
14 (vector3d-values ox oy oz)))
16 (def-tuple-op ray-direcion*
17 ((ray ray (ox oy oz dirx diry dirz)))
18 (:return vector3d
19 (vector3d-values dirx diry dirz)))