DiffuseAndAmbient

From MHCGraphics

; Mead example file -- diffuse and ambient examples
;
; Jim Teresco
; Computer Science 110
; Mount Holyoke College
;
; $Id: DiffuseAndAmbient.scm 522 2008-03-03 03:40:53Z terescoj $
;
(require (lib "Defs.ss" "Mead"))

;(object scene Group)

(object noGlowRedPlaster Material
        (type 'plaster)
        (color red)
        (ambient 0)
        )
(object brightGlowRedPlaster Material
        (type 'plaster)
        (color red)
        (ambient 1)
        )

(object noDiffuseRedPlaster Material
        (type 'plaster)
        (color red)
        (diffuse 0)
        )
(object veryDiffuseRedPlaster Material
        (type 'plaster)
        (color red)
        (diffuse 1)
        )

(tell scene 
      (add cube veryDiffuseRedPlaster)
      )

(tell image
      (background black)
      )

(tell camera
      (pos '(100 100 -500))
      (shoot))