Hi,
the image came about in the initial stages of my
multifractal project.
I erased the formula when I saw it was buggy, the image
was not
finalized. When I looked at it, it was too late. It contained
artefacts,
small fractals ready to zoom into within the circular "windows",
which
are created by Linda Allisonīs many-mods formula. They are not
possible
to reproduce, so they must be artefacts.
Lately, when I cleaned
up the work folder I saw that the dos-commander
had created a backup file. So
voila, here it is.
Sincerely, Al.
----------------------------------start-par--------------------------------
Artefacts
{ ; crated by a buggy
formula
;
reset=2004 type=formula formulafile=mfr.par
formulaname=mfrspecial_2
ismand=y function=exp/exp/exp passes=t
center-mag=0/0/0.6666667
params=0.4546494949186682/-0.6008903775139622/384.0001/256.512/2084.0008\
/768.256/768.1536/2560.1025/-4/2 float=y maxiter=2048 inside=maxiter
outside=tdis logmap=3 periodicity=0 rseed=-2436
colors=200444222000<25>0bo0cq0es<3>0kz<25>09C08A068<2>022000211<22>keOmg\
PoiQqjRslSunT<2>zsX<25>CB7A96875<3>000400<23>o00q00s00<3>z00<25>C00A0080\
0<3>000<23>eeegggiiijjjlllnnn<2>sss<18>NNNLLLJJJ<4>CCCAAA888666
}
---------------------------------start-frm---------------------------------
FRM:MFRSPECIAL_2
{; buggy - dont
copy
;
d=real(p2)
fac1=trunc(d)
b1=(d-fac1)*10000
;
d=imag(p2)
mi1=trunc(d)
p6r=(d-out1)*10000
if
(mi1<0)
mi1=-mi1
endif
;
d=real(p3)
ba=trunc(d)
p6i=(d-ba)*10000
if
(ba<0)
ba=-ba
endif
p6=p6r,p6i
;
d=imag(p3)
fac2=trunc(d)
b2=(d-fac2)*10000
;
d=real(p4)
mi2=trunc(d)
fac3=(d-mi2)*10000
;
d=imag(p4)
b3=trunc(d)
mi3=(d-b3)*10000
;
d1=real(p5)
vb=(d1<0)
If
(vb)
d1=-d1
endif
ir1=(d1>1000)
d1=d1-1000*ir1
wo=(d1>100)
d1=d1-100*wo
tj=(d1<10)
d1=d1-10*(tj==0)
v1=(d1==3)
v2=(d1==4)
d1=(d1==2)+(d1==4)
;
d2=imag(p5)
st=(d2<0)
if
(st)
d2=-d2
endif
ir2=(d2>1000)
d2=d2-1000*ir2
ni=2*(d2>100)
st=st*(ni==0)
d2=d2-50*ni
mj=(d2<10)
d2=d2-10*(mj==0)
v3=(d2==3)
v4=(d2==4)
d2=(d2==2)+(d2==4)
d3=(ismand==0)
t=0
u=1
bx=ba
start=2-st-ni
if
(ismand)
z=0
if (vb)
c=0.4*log(sqr(pixel^p6i))
else
c=pixel
endif
else
c=p1
z=pixel
endif
:
ba=bx
if
(vb)
if (d3)
z=(z*z-real(c))^(z*u+imag(c))
else
z2=sin(z)+c
sqz2=cos(z2)
z=c*(1-sqz2)/(1+sqz2)
ba=p6
endif
else
;
q=sqr(z)
; z=real(q)+flip(real(z*q))+c
z=z*z+c
endif
bo=|z|
If (wo)
t=t+1
if
((t<mi1)+(bo>b1))
u=2*(fn1(t/fac1))
if
(ismand)
z=z*u
c=pixel
if
(vb)
c=0.4*log(sqr(pixel^p6i))
endif
else
z=pixel
c=p1*u
endif
wo=0
if (ir1)
t=0
endif
endif
else
if (start)
t=t+1
if
(start==2)
if ((t>mi2)+(bo>b2))
u=2*(fn2(t/fac2))
if (d1)
if
(tj)
z=pixel
endif
c=p1*u
vb=v2
d3=vb
else
d3=0
z=z*u
c=z
if
(mj)
z=0
endif
vb=v1
if
(vb)
c=0.4*log(sqr(pixel^p6i))
; p6r=mi2
;
p6=mi2,p6i
endif
endif
start=1
if
(ir2)
t=0
endif
endif
else
if
((t>mi3)+(bo>b3))
u=2*(fn3(t/fac3))
if (d2)
if
(tj)
z=pixel
endif
c=p1*u
vb=v4
d3=vb
else
d3=0
z=z*u
c=z
if
(mj)
z=0
endif
vb=v3
if
(vb)
c=0.4*log(sqr(pixel^p6i))
;
p6r=mi3
;
p6=mi3,p6i
endif
endif
start=0
endif
endif
endif
endif
bo<=ba
}
-----------------------------------------end--------------------------------