CameraAngles

From MHCGraphics

; Mead example file -- camera "up" directions
;
; Jim Teresco
; Computer Science 110
; Mount Holyoke College
;
; $Id: CameraAngles.scm 532 2008-03-04 04:47:42Z terescoj $
;
(require (lib "Defs.ss" "Mead"))

; a simple scene - just a blue cone
(tell scene
      (add cone bluePlaster))

; our default camera where (0 1 0) is up
(tell camera
      (shoot))

; now, what if (1 0 0) is up
(tell camera
      (up '(1 0 0))
      (shoot))

; and how about holding at an angle?
(tell camera
      (up '(1 1 0))
      (shoot))