Wlodzimierz ABX Skiba
abx@abx.art.pl
http://www.abx.art.pl/pov/

#macro A(R,T,S)
  rotate R*30
  translate T
  scale S
#end

#macro S(T,k)
  sphere{0,1A(0T,k)}
#end

#macro _()
  < rand(G) rand(G) rand(G) >
#end

#macro B(P,m,G,R,C)
  #while(C)
    #local V=2*R*_()-m;
    object{
      P
      A(0 m-R .05)
      A(C*V (inside(P,V)?V:100) 1)
      pigment{rgb _()}
    }
    #local C=C-1;
  #end
#end

B(
  union{
    S(2*y,1)
    cone{-4*y 0 y*.7 .8}
    difference{
      S(0 <2.6,2.2,1>)
      S(-x*.15 <2.3,1.8,2>)
      A(z 2*y 1)
    }
    A(-z <-.5,-.35,8> .25)
  }
  1.3-z*3
  seed(0)
  1.3-z
  2e4
)

sphere{
  0 99
  pigment{
    wrinkles
    pigment_map{
      [0 granite color_map{[0 rgb x] [1 rgb z]}]
      [1 agate]
    }
  }
}

light_source{-9 2}
//KS0

Scene presents POV-3.5 logo made with smaller copies of it. It generates large number of random points within bounding box of large logo, check if they are in this logo and decides where to put smaller copy. Background is simple mix of three default random patterns. I wasn't easy to fit it all in 500 bytes. Preview of this render should be available at http://www.abx.art.pl/pov/shortest/KS0.jpg.

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