Juha Nieminen
  warp@cs.tut.fi
  http://iki.fi/warp/

--- Code ---
global_settings { radiosity {} }
#default { normal { crackle } }

#macro X(A)
  #if(A)
    cylinder
    { <15,-4> <15,-61> 2
      rotate y*A
    }
    X(A-20)
  #end
#end

#macro S(A, B, C, D)
  sphere { <A, B, C-9> D }
  sphere { <-A, B, C-9> D }
#end

#macro Y(T)
  union
  { S(0, 5, 0, 3)
    S(2, 4, 1, 2)
    S(0, 7, 1, 2)
    S(4, 5, 8, 7)
    S(0, 11, 6, 6)
    S(4, 12, 9, 8)
    S(5, 8, 3, 2)
    S(0, 0, 7, 5)
    S(0, 9, 12, 11)
    S(0, 2, 5, 4)
    difference
    { cylinder {y*-5 y*-60, 15 }
      X(360)
    }
    pigment { rgb <1, .7> }
    translate T
  }
#end

#macro Z(I)
  #if(I)
    Y(<-80, 0 I>)
    Y(<80, 0 I>)
    Z(I-80)
  #end
#end

Z(2e3)

plane
{ y, -6
  pigment { rgb <.8, .4> }
  scale 10
}

light_source { 99, 2 }
//WP3
------------

I SUBMIT TO THE STANDARD 10BEST.RAYTRACE.COM COPYRIGHT STATEMENT.