Hi, this is the second zoom into one of Lee´s images - and....judge yourself! Albrecht ------------------------------start par-------------------- galla2 { ; galla2 ; time 19.07.00 - be amazed! ; frm+zoom albrecht niekamp ; source+colours lee skinner ; Fractint Version 2004 Patchlevel 11 reset=2004 type=formula formulafile=mfr.frm formulaname=multifractal_1 ismand=y function=exp/exp/exp/exp passes=t center-mag=+1.02131581270836200/+0.00006507034526879/217\ .751/1/-90/-1.23373533611470521e-014 params=-0.1738944669942329/-0.3000579851680044/384.00004\ /2048.1133/768.00008/768.00128/1024.00256/1536.01024/189\ 22.01/0.32 float=y maxiter=2048 inside=maxiter outside=tdis logmap=yes symmetry=none periodicity=0 rseed=-2436 cyclerange=2/255 colors=000000uxxwyyzzz<3>rwzovzhsw<3>Gch8_d8Xa<3>8JP8FL8\ CI<4>XCAaB9fB7<3>zA0<13>SA1QA1NA1<3>D92<6>UXAW`BYcC<3>hr\ I<3>UnXRm_NlcJkgFfpAaz<3>PJoSFlWAi_5fc0ce7_jFRoNIzb0<2>z\ z1zzC<2>zzz<3>jqdfo_blU<3>Mb8<3>LQ8KM8KJ8<2>I88H44G00<3>\ TA5WD6ZF7aI8eLAhMBiODjQF<3>qeBriAtm9vq8xu7zz5zz4zz3<8>zY\ 4zV5zS5<3>zE6wE6tD6<10>w8Px8Rx7S<3>z5_<3>f5Ma5IW4E<2>_4H\ <3>P3DN2CK2A<3>805G0BO0G<3>g0Ul0Xq0`v0d<2>y0fz0gy0h<3>u1\ mt1ns1or2q<2>v2u<3>c5eZ6`U6X<2>F9LAAG7FO4KW0Qc<3>5Xc6Zc7\ `c7aa7c_7eY<3>FcgHciJbl<3>S_v<5>invlqvotvsww } -------------------------------start frm------------------- Frm:multifractal_1 { ; Albrecht Niekamp 270503 ; d=real(p2) fac1=trunc(d) b1=(d-fac1)*100000 ; d=imag(p2) da=d<0 if (da) d=-d endif ba=trunc(d) d=round((d-ba)*10000) p6=trunc(d/100)/10 d=d-1000*p6 if (da) p6=-p6 endif p7=d/10 ; d=real(p3) mi2=trunc(d) b2=(d-mi2)*100000 ; d=imag(p3) fac2=trunc(d) ob2=(d-fac2)*100000 ; d=real(p4) mi3=trunc(d) b3=(d-mi3)*100000 ; d=imag(p4) fac3=trunc(d) ob3=(d-fac3)*100000 ; da=real(p5) t=da<0 if (t) da=-da endif start=2-t dd=trunc(da) da=round((da-dd)*100) if (dd<5) start=0 vb=(dd==3)+(dd==4) else d=trunc(dd/10000) vb=(d==3)+(d==4) dd=dd-d*10000 d=trunc(dd/1000) dd=dd-d*1000 or1=d>5 d=d-5*or1 vv1=(d==3) vv2=(d==4) dd1=(d==2)+(d==4) d=trunc(dd/100) dd=dd-d*100 or2=d>5 d=d-5*or2 vv3=(d==3) vv4=(d==4) dd2=(d==2)+(d==4) d=trunc(dd/10) dd=dd-d*10 inr1=d>5 d=d-5*inr1 v1=(d==3) v2=(d==4) d1=(d==2)+(d==4) inr2=dd>5 dd=dd-inr2*5 v3=(dd==3) v4=(dd==4) d2=(dd==2)+(dd==4) endif ; d=trunc(da/10) da=da-10*d ab=d>=5 d=d-5*ab bb1=(d==1) bb2=(d==2) ab1=(da==1) ab2=(da==2) ; d=imag(p5) dd=trunc(d) mm=round((d-dd)*100) da=trunc(dd/10) so1=((da==1)+(da==3)==0) so2=((da==2)+(da==3)==0) dd=dd-10*da wo=dd>=5 dd=dd-5*wo ir1=(dd==1)+(dd==3) ir2=(dd==2)+(dd==3) ; if (ismand) z=0 if (vb) c=0.4*log(sqr(pixel^mm)) else c=pixel endif else c=p1 z=pixel endif t=0 d3=(ismand==0) u=d3 : if (vb) if (d3) z=(z*z-real(c))^(z*u+imag(c)) else z2=fn4(z)+c ;Linda Allison q=cos(z2) z=c*(1-q)/(1+q) endif elseif (ab) z=z*z+c+c*c-p7 ;Pusk s Istv n elseif (d3) z2=z*z z=z2*z2+(p6+u)*z2+c else z2=z*z ;Pusk s Istv n z=z2*z2+(p6+u)*z2+c-p1 endif bo=|z| If (wo) t=t+1 if (bo>b1) u=2*(fn1(t/fac1)) if (ismand) z=z*u if (vb) c=0.4*log(sqr(pixel^mm)) else c=pixel endif else z=pixel c=p1*u endif wo=0 if (ir1) t=0 endif endif elseif (start) t=t+1 if (start==2) if (bo>b2&&bo<ob2) u=2*(fn2(t/fac2)) rs=or1 ab=bb1 if (dd1) if (rs) z=pixel endif c=p1*u vb=vv2 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=vv1 if (vb) if (so1) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif start=1 endif elseif (t>mi2) u=2*(fn2(t/fac2)) rs=inr1 ab=ab1 if (d1) if (rs) z=pixel endif c=p1*u vb=v2 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=v1 if (vb) if (so1) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif endif start=1 if (ir2) t=0 endif endif elseif (bo>b3&&bo<ob3) u=2*(fn3(t/fac3)) ab=bb2 rs=or2 if (dd2) if (rs) z=pixel endif c=p1*u vb=vv4 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=vv3 if (vb) if (so2) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif start=0 endif elseif (t>mi3) u=2*(fn3(t/fac3)) ab=ab2 rs=inr2 if (d2) if (rs) z=pixel endif c=p1*u vb=v4 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=v3 if (vb) if (so2) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif endif start=0 endif endif bo<=ba }