: finally three lines :-)

: #macro _(G,S)#while(S<strlen(G))sphere{0 .2pigment{rgb 1-<sin(g(1))1cos(g(-1))>
: }translate<g(1)-1g(1)9>}#end#end#macro g(s)asc(substr(G,S,1))*.1-#declare S=S+s
: ;6#end _("<P2U(P$F#<$2((2#<%>.=767nPdUZPZFa?g9n2n(d#Z(",1)light_source{0 1}//GS

  What a waste of space.

#macro _(G,S)#if(S<44)sphere{0,.2pigment{rgb 1-<sin(g(1))1cos(g(2))>}translate
<g(1)-1g(2)9>}_(G,S+2)#end#end#macro g(s)asc(substr(G,S+s,1))*.1-6#end
_("<P2U(P$F#<$2((2#<%>.=767nPdUZPZFa?g9n2n(d#Z("0)light_source{0 1}//GS


-- 
#macro M(A,N,D,L)plane{-z,-9pigment{mandel L*9translate N color_map{[0rgb x]
[1rgb 9]}scale<D,D*3D>*1e3}rotate y*A*8}#end M(-3<1.206434.28623>70,7)M(
-1<.7438.1795>1,20)M(1<.77595.13699>30,20)M(3<.75923.07145>80,99)// - Warp -

Post a reply to this message