Head Parts Example Code

(define (skull)
  (separator
   (color (vec3 .4 .5 .6))
   (scale (vec3 .75 1 1))
   (sphere)
   ))

(define (nose)
  (separator
   (color (vec3 .4 .5 .6))
   (rotate -85 (vec3 1 0 0))
   (scale (vec3 .15 .15 .5))
   (cone)
   ))

(define (eye-ball)
  (separator
   (color (vec3 1 1 1))
   (uscale .15)
   (sphere)
   ))
  
(define (pupil)
  (separator
   (color (vec3 0 0 0))
   (uscale .06)
   (disk)
   ))

(define (lid)
  (separator
   (color (vec3 .3 .4 .5))
   (rotate 90 (vec3 0 1 0))
   (uscale .17)
   (sphere 'thetamax 170)
   ))

(define (neck)
  (separator
   (color (vec3 .3 .4 .5))
   (separator
     (scale (vec3 .3 .75 .3))
     (sphere))
   (separator
    (translate (vec3 0 -.3 .25))
    (scale (vec3 .1 .15 .1))
    (sphere))
   ))

(define (mouth)
 (separator
  (color (vec3 0 0 0))
  (scale (vec3 .3 .015 .015))
  (box)
 ))