camera.lisp

   1 (in-package :tuple-trace)
   2
   3 (def-tuple-class camera
   4     (:tuples
   5      ((position :type vector3d)
   6       (window :type rect))))
   7
   8 (defmethod window-left-of ((self camera))
   9   (aref (camera-window% self) 0))
  10
  11 (defmethod window-right-of ((self camera))
  12   (aref (camera-window% self) 1))
  13
  14 (defmethod window-top-of ((self camera))
  15   (aref (camera-window% self) 2))
  16
  17 (defmethod window-bottom-of ((self camera))
  18   (aref (camera-window% self) 3))
  19
  20 (defmethod window-width-of ((self camera))
  21   (width  (window-of self)))
  22
  23 (defmethod window-height-of ((self camera))
  24   (height (window-of self)))
  25
  26
  27 (defun make-camera (x y z)
  28   (let ((result (make-instance 'camera :position (make-vector3d* x y z))))
  29           result))