Hi,
I stuck my neck out too far and that bug is
nastier then expected. As far as I know, it is apparent
at 1600/1200 only and at very few images and deepzooms only.
On my own pre-testings I never saw it. If it happens,
only unicolored pixels are drawn, starting anywhere
within the image. If it happens, type "D" (dosshell) and "exit".
So far in every case the calculation was resumed.
To avoid a possible stack overflow I have removed
as many variables as possible, but I dont think thatïs
the reason. Anyway this can also be useful if you run
fractint with a "tight" dos configuration. A new feature is that
border2 now has a fractional input, like border1.
In order to avoid confusion, updates from now on will be
marked with a date. Of course the update is compatible,
I have tested about 20 images and could not detect a difference.
Many good images have been posted, Lee`s are far better then
mine, but I noticed that no one has tried to compose a new
image from the scratch. Of course this takes some hours,
but if the result is a new "spectacular" like the flying
mandel it`s worth the effort, isnït it?
If wanted Iïll try to write a more in depth instruction
file or a better description of all inputs, although my
English is not very good.
Here is a new Basic Image, "Air Mandel" (It very much
reminds me of a DC3), which uses my hybrid Julia as
outside option. It can easily be modified and has many
zooming spots. Micro_macro has many decorative micro
structures, each one an image itself.
About the last image I was not sure if I should post it.
It is an overnight fractal, 2 hours 48min, and not even beautiful,
but its what the name says. Tell me what you think of it.
Please post your images.
Fractal Greetings,
Al.
Air_mandel { ; Albrecht Niekamp 14.5.03
; Time 0.14.21.23
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/exp/exp passes=t
center-mag=-1.84684/-2.22045e-016/1.788803/1/90/-1.23373533611470521e-01\
4
params=-0.2724234748374889/0.09260841700491348/384.00004/256.1121/2048.0\
0016/768.000017/768.01536/512.01025/14289.27/0 float=y maxiter=2048
inside=maxiter outside=tdis logmap=3 periodicity=0 rseed=-2436
colors=200000<2>554776998BBACCB<18>iihjjillk<3>ssr<25>BBA998776<2>221000\
011<24>0bn0cp0er<3>0ky<25>09B089067<2>021000210<24>oiPqjQslR<3>zsW<25>CB\
6A95874653442220000400<23>o00q00s00<3>z00<30>200
}
Micro_macro { ; Albrecht Niekamp 14.5.03
; Time 1.15.30.97
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/exp/sin passes=t
center-mag=-2.07100969925984700/-0.17947005902838390/35.77606/1/90/-1.23\
373533611470521e-014
params=-0.2724234748374889/0.09260841700491348/384.00004/256.1121/2048.0\
0016/768.000017/768.01536/512.01025/14289.27/0 float=y maxiter=2048
inside=maxiter outside=tdis logmap=3 periodicity=0 rseed=-2436
colors=200A84<20>oiPqjQslR<3>zsW<25>CB6A95874653442220000400<23>o00q00s0\
0<3>z00<25>C00A00800<3>000<2>554776998BBACCB<18>iihjjillk<3>ssr<25>BBA99\
8776<2>221000011<24>0bn0cp0er<3>0ky<25>09B089067<2>021000210<2>863
}
War { ; Albrecht Niekamp 14.5.03
; Time 2.48.36.29
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/exp/sin passes=t
center-mag=-2.06392270811221700/-0.14949647118179270/559.0009/1/90/3.885\
78058618804789e-016
params=-0.2724234748374889/0.09260841700491348/384.00004/256.1121/2048.0\
0016/768.000017/768.01536/512.01025/14289.27/0 float=y maxiter=20048
inside=maxiter outside=tdis logmap=3 periodicity=0 rseed=-2436
colors=200A84<20>oiPqjQslR<3>zsW<25>CB6A95874653442220000400<23>o00q00s0\
0<3>z00<25>C00A00800<3>000<2>554776998BBACCB<18>iihjjillk<3>ssr<25>BBA99\
8776<2>221000011<24>0bn0cp0er<3>0ky<25>09B089067<2>021000210<2>863
}
-----------------------------------start-frm------------------------------
FRM:Multifractal { ; Albrecht Niekamp 13.3.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=(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)
da=da-10*d
ab=d>=5
d=d-5*ab
bb1=(d==1)
bb2=(d==2)
dd=da>=5
da=da-5*dd
ab=ab+dd
ab1=(da==1)
ab2=(da==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))
bo=1/real(magxmag)
q=bo/0.75*imag(magxmag)
dd=tan(imag(rotskew*pi/180))
d3=2*q*t
rs=2*bo*(dd+flip(1))*t
z2=center+(-q-bo*dd-flip(bo))*t
z=pixel-z2
d=imag(conj(d3)*z)/imag(conj(d3)*rs)
if (d<=level)
da=level-d
z=z+2*da*(1+ampl*sin(freq*da^0.2))*rs
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
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 ((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
bo<=ba
}
-------------------------------------end------------------------------