TeapotAndBunny

From MHCGraphics

; Mead example file demonstrating the Teapot and the Bunny
;
; Jim Teresco
; Computer Science 110
; Mount Holyoke College
;
; $Id: TeapotAndBunny.scm 480 2008-02-13 17:46:56Z terescoj $
;
(require (lib "Defs.ss" "Mead"))

; Mead provides the definition of a Mesh object that describes the
; Newell Teapot, but you need to include an extra library file
; if and when you want to use it
(require (lib "Teapot.ss" "Mead"))

; Same idea for the Stanford Bunny
(require (lib "Bunny.ss" "Mead"))

(tell scene
      (add (new Teapot) whitePlaster
           (translate 100 0 0))
      (add (new Bunny) whitePlaster
           (translate -100 0 0)))

(tell camera
      (shoot))