CameraLensAngles

From MHCGraphics

; Mead example file -- camera view angles
;
; Jim Teresco
; Computer Science 110
; Mount Holyoke College
; March 4, 2008
;
; $Id: CameraLensAngles.scm 533 2008-03-04 04:58:47Z terescoj $
;
(require (lib "Defs.ss" "Mead"))

; put together a simple scene with a bunch of cones
(tell scene
      (add cone bluePlaster
           (translate -500 0 0))
      (add cone whitePlaster
           (translate -400 0 0))
      (add cone blackPlastic
           (translate -300 0 0))
      (add cone yellowPlaster
           (translate -200 0 0))
      (add cone magentaPlastic
           (translate -100 0 0))
      (add cone dkGrayPlaster
           (translate 0 0 0))
      (add cone greenGlass
           (translate 100 0 0))
      (add cone ltGrayPlastic
           (translate 200 0 0))
      (add cone redPlastic
           (translate 300 0 0))
      (add cone greenPlaster
           (translate 400 0 0))
      (add cone bluePlastic
           (translate 500 0 0))
)      

; first, a picture with our standard camera
(tell camera
      (shoot))

; now, a telephoto lens
(tell camera
      (angle 20)
      (shoot))

; a wide angle
(tell camera
      (angle 90)
      (shoot))

; a ridiculously wide angle
(tell camera
      (angle 175)
      (shoot))