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

--- Code ---
global_settings { radiosity { brightness 2 } }

light_source { z*20, 1 }

#macro P(D, T)
  torus { D/3, .2 translate T }
#end

#macro C(Y)
  union
  { P(1, -z)
    P(2, x+z)
    P(2, z-x)
    cylinder { -x-z/3, x-z/3, .2 }
    clipped_by { box { -1, 1 } }

    rotate y*90*int(rand(S)*4)-z*90
    translate <Y, X, Z>
    pigment { rgb .5*y+z }
    finish { specular .7 }
  }
#end

#macro L(X, Z, S)
  #if(Z)
    #while(X+40)
      C(-4)
      C(-5)
      C(-6)
      C(4)
      C(5)
      C(6)
      #local X=X-2;
    #end
    L(40, Z-2, S)
  #end
#end

L(40, 98, seed(3))

disc
{ z*2, -z, .5
  pigment
  { wood color_map
    { [0 rgb 2][.5 rgb x][1 rgb 0] }
  }
  scale 50+y*50
}
//WP2
------------

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