rect.lisp

   1 (in-package :cl-tuples)
   2
   3 (def-tuple-type rect
   4     :tuple-element-type single-float
   5     :elements (left right top bottom))
   6
   7 (export-tuple-operations rect)
   8
   9 (def-tuple-op rect-width*
  10     ((r rect (left right top bottom)))
  11   (:return single-float
  12            (- right left)))
  13
  14 (def-tuple-op rect-height*
  15     ((r rect (left right top bottom)))
  16   (:return single-float
  17            (- bottom top)))