These are my best two attempts...

#local T=2;#while(T+2)#local U=-2;#while(U<2)#local Y=T;#local X=U;#local
V=0;#
local W=1;#while(V<9)#local Q=Y*Y;#local Y=2*X*Y+T;#local
X=X*X-Q+U;#if(X*X+Q>4
)#local W=0;#local V=9;#end#local V=V+1;#end#if(W=1)#local
S=2;#while(S+3)#if(S
-1)box{0,.02 pigment{rgb 9}translate<T-S,U+1,6>}#end#local
S=S-1;#end#end#local
U=U+.03;#end#local T=T-.05;#end//TM

The macro didn't help, although I thought it would...

#local T=2;#while(T+2)#local U=-2;#while(U<2)#local Y=T;#local X=U;#local
V=0;#
local W=1;#macro A(B,C)#local B=C;#end##while(V<9)#local
Q=Y*Y;A(Y,2*X*Y+T);A(X
,X*X-Q+U);#if(X*X+Q>4)A(W,0);A(V,9);#end A(V,V+1);#end#if(W=1)#local
S=2;#while
(S+3)#if(S-1)box{0,.02 pigment{rgb 9}translate<T-S,U+1,6>}#end
A(S,S-1);#end#end
A(U,U+.03);#end A(T,T-.05);#end//TM

Andrew


"Tom Melly" <tom### [at] tomandlucouk> wrote in message
news:3d36d337$1@news.povray.org...
> ideally 4*80 max?
>
> #local T=2;#while(T>-2)#local U=-2;#while(U<2)#local Y=T;#local X=U;#local
V=0;
> #local W=1;#while(V<9)#local Z=X;#local X=X*X-Y*Y;#local Y=2*Z*Y;#local
X=X+U;
> #local Y=Y+T;#if(X*X+Y*Y>4)#local W=0;#local V=9;#end#local
V=V+1;#end#if(W=1)
> #local S=-2;#while(S<3)#if(S!=-1)box{0,.02 pigment{rgb
9}translate<T+S,U+1,6>}
> #end#local S=S+1;#end#end#local U=U+.03;#end#local T=T-.05;#end//TM
>
>
>

Post a reply to this message