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 (defmacro plane->vector3d (plane)
   9   `(with-plane ,plane
  10      (x y z d)
  11      (values x y z)))
  12
  13 (defmacro plane->displacement (plane)
  14   `(with-plane ,plane
  15      (x y z d)
  16      d))
  17
  18 (defmacro vector3d->plane (vector displacement)
  19   `(with-vector3d ,vector
  20        (x y z)
  21      (values x y z ,displacement)))