;; example 4.1

(world
  (camera "main" "perspective" 'from '#<1 1 3> 'to '#<0 0 0> 'fov 45)

  (separator
    (uscale 3)
    (patch "bilinear" 'P '(#<-1 0 1> #<1 0 1> #<-1 0 -1> #<1 0 -1>)))

  (separator
    (translate -.5 .5 .2)
    (rotate -30 y-axis)
    (uscale .5)
    (color .54 .14 .14)
    (box))

  (separator 
    (translate .6 .35 .8)
    (uscale .35)
    (color 1 1 .25)
    (sphere))
  )