On Wed, 9 Jan 2002 16:21:00 +0200, "Gail Shaw" <gsh### [at] monotixcoza> wrote:
> Anyone going to shorten it?

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

ABX

Post a reply to this message