I got it down to five lines:

#macro T(O)O
translate-(min_extent(O)*(1+y)+max_extent(O)*(x+z))/2#end#default
#macro N(Y)object{T(text{ttf"arial"Y 1 0})#end{pigment{rgb
1}finish{diffuse.5}
}plane{y 0finish{brilliance 0}}light_source{-2+4*y
1}global_settings{radiosity
{error_bound.05count 100low_error_factor.05}ambient_light
0}intersection{N("A"
)}N("B")rotate 90*y}}camera{look_at 3*z-1translate 1-<2 7
86>/35}background{1}

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