RotatedCubes

From MHCGraphics

; Example Mead program to demonstrate the order of transformations
;
; Jim Teresco, 2/3/2008
; Mount Holyoke College
; Computer Science 110
;
; $Id: RotatedCubes.scm 451 2008-02-04 04:32:56Z terescoj $
;
(require (lib "Defs.ss" "Mead"))

; add a cube, rotate it, then translate it
(tell scene
      (add cube redPlaster
           (xform 
            (zRot 60)
            (translate 100 0 0)
           )
       )
)

; add a cube, translate it, then rotate it
(tell scene
      (add cube bluePlaster
           (xform 
            (translate 100 0 0)
            (zRot 60)
           )
       )
)

(tell camera
      (shoot)
)