NAME:       Mark James Lewin
EMAIL:      m_j_lewin@yahoo.com.au

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

FILE SIZE:  499 bytes

COMMENTS:

   Nothing grand, just a late afternoon doodle with code. There are no tricky
algorithms or anything, except that one number controls how a box is
positioned,
what text is on it, and on which face.

CODE:    
#macro E(F)
   
   normal
      {
      agate
      bump_size F
      }

#end

#macro C(D)
   
   text
      {
      ttf
      "timrom.ttf"
      substr("RAYPOV",D+1,1)
      1,0
      translate-<.3.2,1.1>
      rotate 90*x*div(D,3)
      pigment{red 1}
      }

#end

#macro A(B)
   
   union
      {
      superellipsoid
         {
         0.3
         }
      
      C(B)
      C(B+3)
      light_source
         {
         9*(y-z).5
         area_light
         u,v,
         5,5
         }
      
      translate y+z*3
      rotate B*y*60
      
      pigment{agate}
      E(.3)
      finish{specular 1}
      }

#end

plane
   {
   y,0
   pigment
      {
      object
         {
         text
            {
            ttf
            "povlogo.ttf"
            "P"
            2,0
            rotate<90,70>
            translate y-x scale 3
            }
         
         rgb 1
         rgb.3
         }
      }
   
   E(.02)
   finish{reflection.2}
   }

camera
   {
   location-<4,-7,1>
   look_at.5
   }
   
A(0)
A(1)
A(2)

//ML1