Flower Example Code

(define (flower)
 (separator

  ; stem
  (color (vec3 0 .6 0))
  (define i 0)
  (while (< i 10)
   (separator
    (rotate 90 (vec3 1 0 0))
    (cylinder 'radius .1)
    )
   (translate (vec3 0 1 0))
   (rotate 2 (vec3 0 0 1))
   (scale (vec3 .9 1 .9))
   (set! i (+ 1 i))
   )

  ; center
  (translate (vec3 0 -1 0))
  (scale (vec3 1.75 1 1.75))
  (color (vec3 1 1 0))
  (sphere 'thetamax 180)
  (translate (vec3 0 -.25 0))

  (color (vec3 1 0 0))
  (define i 0)
  (while (< i 12)
   (rotate 30 (vec3 0 1 0))

   ; petal
   (separator
    (translate (vec3 0 0 .75))
    (scale (vec3 1 1 2))
    (translate (vec3 0 0 1))
    (rotate 30 (vec3 0 0 1))
    (sphere 'thetamax 120)
    )
   (set! i (+ i 1))
   )

  )
 )