Washer

From MHCGraphics

; Mead example file, simple Lathe object
;
; Jim Teresco
; Computer Science 110
; Mount Holyoke College
; February 18, 2008
;
; $Id: Washer.scm 491 2008-02-19 01:45:27Z terescoj $
;
(require (lib "Defs.ss" "Mead"))

; define a square in the xy-plane
(define square 
  (2to3d (polygon 4)))

; make a little rectangle up the x-axis
(define littleRectangle
  (polyXform square
             (xform
              (zRot 45)
              (scale 2 .1 1)
              (translate 200 0 0))))

; Lathe it into a washer-like object
; the closeList completes the polygon by repeating its
; first coordinate as its last so the washer is solid
; all the way around
(object washer Lathe
        (profile (closeList littleRectangle)))

(tell scene (add washer bluePlaster))

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