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

collecting some ideas and adding my coding here are two shortest version
(knowing other povers probably not last word) - sorry - colors are changed

personally I like second but it is one character more then first

#local O="<P2U(P$F#<$2((2#<%>.=767nPdUZPZFa?g9n2n(d#Z("#macro R(
M)asc(substr(O,K,1))/10-#declare K=K+M;2#end#local K=1;#while(K<
strlen(O))disc{0z.4pigment{onion color_map{[0rgb<sin(R(1))1cos(R
(-1))>*9][.4rgb 0]}}translate<R(1)-5R(1)-4,9>}#end // GS

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

ABX

Post a reply to this message