WhiteCubeInBlueLight

From MHCGraphics

; Example Mead program to draw a white cube bathed in blue light
;
; Jim Teresco, 2/8/2008
; Mount Holyoke College
; Computer Science 110
;
; $Id: WhiteCubeInBlueLight.scm 464 2008-02-08 19:59:25Z terescoj $
;
(require (lib "Defs.ss" "Mead"))

(tell scene
      (add cube whitePlaster
           (yRot -10)
           )
      )

; create a bulb that emits blue light
(object blueBulb Light
        (color blue)
        (intensity .75)
        (pos '(100 300 -250))
        )

; this blue bulb will make our white cube look blue
(tell scene (add blueBulb))

(tell camera (shoot))