ColoredSpheres

From MHCGraphics

; Example Mead program to draw 4 spheres in different colors about
; the origin
;
; Jim Teresco, 2/3/2008
; Mount Holyoke College
; Computer Science 110
;
; $Id: ColoredSpheres.scm 448 2008-02-03 20:25:39Z terescoj $
;
(require (lib "Defs.ss" "Mead"))

; a standard sphere, in blue, to the left of center
(tell scene 
      (add sphere bluePlaster 
           (translate -100 0 0)
      )
)

; a standard sphere, in red, to the right of center
(tell scene
      (add sphere redPlaster 
           (translate 100 0 0)
      )
)

; a standard sphere, in green, above center
(tell scene 
      (add sphere greenPlaster 
           (translate 0 100 0)
      )
)

; a standard sphere, in yellow, below center
(tell scene 
      (add sphere yellowPlaster 
           (translate 0 -100 0)
      )
)

(tell camera 
      (shoot)
)