Your B() macro is called only once so you may as well inline it. Here's what
I got after doing that and getting rid of a few redundant spaces:

#macro I(G,S)sphere{0 1pigment{rgbf 1}interior{media{emission 4density
{spherical color_map{[0rgb 0][1rgb<rand(A)0rand(A)>]}}}}hollow scale.4
translate<G-5,S-4,9>}#end#local A=seed(4);I(4,6)I(3,6.5)I(2,6)I(1.6,5)
I(1.5,4)I(1.6,3)I(2,2)I(3,1.5)I(4,1.7)I(4.2,2.6)I(4.1,3.5)I(3.4,3.5)I(
9,6)I(8,6.5)I(7,6)I(7,5)I(7.7,4.3)I(8.3,3.7)I(9,3)I(9,2)I(8,1.5)I(7,2)

I might look at it some more later.

Speaking of signatures, I reduced mine by five characters.

Anders

--
light_source{6#local D#macro B(E)#macro A(D)#declare#declare C=mod(E
D);E=(E-C)/D;C#end#while(E)#if(A(8)=7)#declare D=D+2.8;#else#if(C<3)
}cylinder{0(C=<1 2>).2translate<D+C*A(2)A(4)#else}intersection{torus
{1 .2}box{-2y}rotate<1 0C>*90translate<D+1A(2)*2+1#end-2 13>pigment{
rgb x}finish{specular 1}#end#end#end=-8;1B(445000298)B(519053970)B(
483402386)B(1445571258)B(77778740)B(541684549)B(42677491)B(70)}

Post a reply to this message