Hi,
good news. I found what caused that mysterious fractint-bug. It must be
one as I have used the same bailout expression on some other formulas
without problem. Lee, here is your bug-image running perfectly.
I tested some pictures and I could not detect any difference to this
version, so I have not renamed it. Suggest you just exchange it.
I have a new zooming playing ground (siamese twins) and two zooms.
Check it out.
Fractal greetings,
Al.
---------------------------start-par--------------------------------------
Alien_landscape { ; Time 0.35.37
; Albrecht Niekamp May, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/sin/exp passes=t
center-mag=-1.35882/-0.813178/13.33333/1/60.0000000000000711/-3.77822773\
067748585e-014
params=-0.1740997192297128/-0.2996141087069308/384.00004/256.1106/4096.0\
0016/768.00009/768.01536/128.01025/28984.5/0 float=y maxiter=2048
inside=maxiter outside=tdis logmap=10 periodicity=0 rseed=-2436
colors=00006D<3>0BL0DN0DP<2>0IV0JX0KZ0L`0Mb<3>0Rj0Sl0Tn0Up4Yr8atCgvGkxKq\
z<3>4_s0Vq0Uo<6>0Ma0L_0KY<3>0FQ0DO0DM<3>08E06C06A048046024012000100<12>R\
0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns6iq0g<2>k0bi0`g0_e0Z<3>Y\
0SW0RU0O<8>C0AA09807506304102010<11>0P30R30T40V40X3<3>0d40f50h5<3>0p6<3>\
WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4<5>0I20G20E20C20A1081<3>000010\
1221532653863A84DA5EB5HB<2>7NG8PI8RJ9TKAVNAXM<3>DdTDfVEhWFjYFlYGn_Gp`Prd\
<3>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL9SK<4>6IC5GB5DA<3>254243121000\
00102302504704905B
}
Siamese_twins { ; Time 0.49.07
; Albrecht Niekamp May, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/sin/exp passes=t
center-mag=-0.500782/0/0.6666667
params=-0.1740997192297128/-0.2996141087069308/384.00004/256.1106/4096.0\
0016/768.00009/768.01536/128.01025/28984.5/0 float=y maxiter=2048
inside=maxiter outside=tdis logmap=10 periodicity=0 rseed=-2436
colors=0003A84DA5EB5HB<2>7NG8PI8RJ9TKAVNAXM<3>DdTDfVEhWFjYFlYGn_Gp`Prd<3\
>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL9SK<4>6IC5GB5DA<3>25424312100000\
1023025047049<5>0BL0DN0DP<2>0IV0JX0KZ0L`0Mb<3>0Rj0Sl0Tn0Up4Yr8atCgvGkxKq\
z<3>4_s0Vq0Uo<6>0Ma0L_0KY<3>0FQ0DO0DM<3>08E06C06A048046024012000100<12>R\
0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns6iq0g<2>k0bi0`g0_e0Z<3>Y\
0SW0RU0O<8>C0AA09807506304102010<11>0P30R30T40V40X3<3>0d40f50h5<3>0p6<3>\
WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4<5>0I20G20E20C20A1081<3>000010\
122153265386
}
Bug_Test { ; Time 0.08.03
; Image Lee Skinner
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=n function=exp/exp/exp passes=t
center-mag=-6.52603785028786300/-0.01400828975779934/419.4063/1/77.50000\
00000024869/-5.11394399049791559e-012
params=-0.1740997192297128/-0.2996141087069308/384.00004/256.1106/2048.0\
0016/768.00009/768.01536/256.01025/28974.5/12 float=y maxiter=2048
inside=maxiter outside=tdis logmap=yes symmetry=none periodicity=0
rseed=-2436 cyclerange=2/255
colors=000000zz1zzC<2>zzz<3>jqdfo_blU<3>Mb8<3>LQ8KM8KJ8<2>I88H44G00<3>TA\
5WD6ZF7aI8eLAhMBiODjQF<3>qeBriAtm9vq8xu7zz5zz4zz3<4>zj4zg4zc4<3>zS5zP5zL\
6zI6zE6wE6tD6<6>vAIv9Kv9M<3>x7Sy7Uy6Wz6Yz5_<3>f5Ma5IW4E<2>_4H<3>P3DN2CK2\
A<3>805G0BO0G<3>g0Ul0Xq0`v0d<2>y0fz0gy0h<3>u1mt1ns1or2q<2>v2u<3>c5eZ6`U6\
X<2>F9LAAG7FO4KW0Qc<3>5Xc6Zc7`c7aa7c_7eY<3>FcgHciJbl<3>S_v<3>civflvinvlq\
votvsww<2>zzz<3>rwzovzhsw<3>Gch8_d8Xa<3>8JP8FL8CI<4>XCAaB9fB7<3>zA0<13>S\
A1QA1NA1<3>D92<6>UXAW`BYcC<3>hrI<3>UnXRm_NlcJkgFfpAaz<3>PJoSFlWAi_5fc0ce\
7_jFRoNIzb0zj0zr0
}
Rainforrest { ; Time 0.14.27
; Albrecht Niekamp May,03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/sin/exp passes=t
center-mag=-1.40318296737838300/-0.78552661781075610/5333.334/1/60.00000\
00000113332/-5.22844267880628877e-012
params=-0.1740997192297128/-0.2996141087069308/384.00004/256.1106/4096.0\
0016/768.00009/768.01536/128.01025/28984.5/0 float=y maxiter=2048
inside=maxiter outside=tdis logmap=10 periodicity=0 rseed=-2436
colors=00006D<3>0BL0DN0DP<2>0IV0JX0KZ0L`0Mb<3>0Rj0Sl0Tn0Up4Yr8atCgvGkxKq\
z<3>4_s0Vq0Uo<6>0Ma0L_0KY<3>0FQ0DO0DM<3>08E06C06A048046024012000100<12>R\
0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns6iq0g<2>k0bi0`g0_e0Z<3>Y\
0SW0RU0O<8>C0AA09807506304102010<11>0P30R30T40V40X3<3>0d40f50h5<3>0p6<3>\
WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4<5>0I20G20E20C20A1081<3>000010\
1221532653863A84DA5EB5HB<2>7NG8PI8RJ9TKAVNAXM<3>DdTDfVEhWFjYFlYGn_Gp`Prd\
<3>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL9SK<4>6IC5GB5DA<3>254243121000\
00102302504704905B
}
--------------------------start-frm----------------------------------------
FRM:Multifractal { Albrecht Niekamp May, 03
;only integers as first input, second input 5 digits to the right
;real(p2) factor1,border1
;imag(p2) (-)maxiter1,input bas.frm1_2digits input bas.frm2_2digits
;real(p3) bailout,hyb.mandel: number of sides (Many_mods L.Allison)
;imag(p3) factor2,border2
;real(p4) maxiter2,factor3
;imag(p4) border3,maxiter3
;real(p5) 1digit_shape only 5digits: shape,out1,out2,in1,in2
; 1_mand 2_jul 3_hyb.mand 4_hyb.jul +5_reset (not shape) <0_no in/out1
; optional basic frm2: out-nbr 1digit in-nbr 1digit 3_both +5_shape
;imag(p5) 1digit : 1_iter1reset 2_iter2reset 3_both +5_shape effect
; 2digits : many_mods multipl.shutoff +10_in/out1 +20_in/out2 +30_both
; optional input2: frequency_2digits level_2digits amplitude_2digits
;
d=real(p2)
fac1=trunc(d)
b1=(d-fac1)*100000
;
d=imag(p2)
da=d<0
if (da)
d=-d
endif
mi1=trunc(d)
d=round((d-mi1)*10000)
p6=trunc(d/100)/10
d=d-1000*p6
if (da)
p6=-p6
endif
p7=d/10
;
d=real(p3)
ba=trunc(d)
mm=round((d-ba)*100000)
;
d=imag(p3)
fac2=trunc(d)
b2=round((d-fac2)*100000)
;
d=real(p4)
mi2=trunc(d)
fac3=round((d-mi2)*100000)
;
d=imag(p4)
b3=trunc(d)
mi3=round((d-b3)*100000)
;
da=real(p5)
t=da<0
if (t)
da=-da
endif
start=2-t
dd=trunc(da)
if (dd<5)
start=0
endif
vb=(dd==3)+(dd==4)
da=round((da-dd)*100)
d=trunc(dd/10000)
vb=(d==3)+(d==4)+vb
dd=dd-d*10000
d=trunc(dd/1000)
or1=d>5
d=d-5*or1
vv1=(d==3)
vv2=(d==4)
dd1=(d==2)+(d==4)
dd=dd-d*1000
d=trunc(dd/100)
or2=d>5
d=d-5*or2
vv3=(d==3)
vv4=(d==4)
dd2=(d==2)+(d==4)
dd=dd-d*100
d=trunc(dd/10)
inr1=d>5
d=d-5*inr1
v1=(d==3)
v2=(d==4)
d1=(d==2)+(d==4)
dd=dd-10*d
d=trunc(dd)
inr2=d>5
d=d-5*inr2
v3=(d==3)
v4=(d==4)
d2=(d==2)+(d==4)
d=trunc(da/10)
ab=d>=5
d=d-5*ab
da=da-10*d
bb1=(d==1)
bb2=(d==2)
d=da
ab=d>=5
d=d-5*ab
ab1=(d==1)
ab2=(d==2)
;
d=imag(p5)
dd=trunc(d)
d=round((d-dd)*1000000)
le=d>10000
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 (le)
freq=round((trunc(d/10000))*10) ;frequency_lake effect by S.Gallet
d=d-freq*1000
level=(trunc(d/100))/100 ;water level
d=d-level*10000
ampl=d/100 ;amplitude of the wave
u=real(rotskew*pi/180)
t=exp(-flip(u))
h=1/real(magxmag)
q=h/0.75*imag(magxmag)
dd=tan(imag(rotskew*pi/180))
w=2*q*t
v=2*h*(dd+flip(1))*t
z2=center+(-q-h*dd-flip(h))*t
z=pixel-z2
d=imag(conj(w)*z)/imag(conj(w)*v)
if (d<=level)
da=level-d
z=z+2*da*(1+ampl*sin(freq*da^0.2))*v
endif
z=z+z2
endif
if (ismand)
if (vb)
c=0.4*log(sqr(pixel^mm))
z=z*le
else
c=z*le+pixel*(le==0)
z=0
endif
else
c=p1
z=z*le+pixel*(le==0)
endif
t=0
d3=(ismand==0)
u=d3
:
if (vb)
if (d3)
z=(z*z-real(c))^(z*u+imag(c))
else
z2=fn1(z)+c ;Linda Allison
sqz2=cos(z2)
z=c*(1-sqz2)/(1+sqz2)
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 ((t<mi1)+(bo>b1))
u=2*(fn1(t/fac1))
if (ismand)
z=z*u
if (vb)
c=0.4*log(sqr(pixel^mm))
else
c=z*le+pixel*(le==0)
endif
else
z=z*le+pixel*(le==0)
c=p1*u
endif
wo=0
if (ir1)
t=0
endif
endif
elseif (start)
t=t+1
if (start==2)
if (bo>b2)
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)
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
|z|<=ba
}
-------------------------------------end----------------------