2 (in-package :tuple-trace
)
5 ((origin :initform
(new-vertex3d) :accessor origin-of
)
6 (direction :initform
(new-vector3d) :accessor direction-of
)))
9 ;; (defmethod ray-point ((ray ray) distance)
11 ;; (vertex3d-distance (vertex3d (origin-of ray)) (vertex3d (distance-of ray)))))