plane.lisp

   1
   2 (in-package :cl-tuples)
   3
   4 (def-tuple-type plane
   5     :tuple-element-type single-float
   6     :elements (x y z d))
   7
   8 (def-tuple-op plane-normal
   9         ((p plane (px py px pd)))
  10   (:return vector3d
  11                    (vector3d-values* px py pz)))
  12
  13 (def-tuple-op plane-displacement
  14         ((p plane (px py px pd)))
  15   (:return fast-float
  16                    pd))
  17
  18 (def-tuple-op normal-displacement-plane
  19         ((vec vector3d (x y z))
  20          (d fast-float))
  21   (:return plane
  22                    (plane-values x y z d)))
  23