SquarePrism

From MHCGraphics

; Mead example file building a simple square prism
;
; Jim Teresco
; Computer Science 110
; Mount Holyoke College
;
; $Id: SquarePrism.scm 491 2008-02-19 01:45:27Z terescoj $
;
(require (lib "Defs.ss" "Mead"))

(define square
  (2to3d (polygon 4)))

(object squarePrism Prism
        (profile square))

(tell scene
      (add squarePrism redPlaster))

(tell camera 
      (pos '(0 200 -500))
      (shoot))