Hi all,
Fractals are fun...
and here is something to play with.
;
The formula combines 3 fractals, mandel or julia
types, basic or exponential, totally 16 combinations,
not all useful maybe.
Each one can be defined by maxiter or border values.
Now they work! The point was to allow
at least one iteration in order to avoid wrong
bailout. Set the border values higher then bailout if you
dont want to use them and vv.
"Soft transitions" means that "z" is not reset at the
crossover. Sometimes a completely different inside
is calculated if checked.
Of course any other basic formulas can be used
if they are ismand compatible.
As this probably is not the final version, please
report any bugs or anything that could be done better.
Thank you!
Have fun!
-----------------------------start-pars-------------------------------
Mandelmania { ; a severe case of..
; Albrecht Niekamp March,03
; Version 2002 Patchlevel 4
reset=2002 type=formula formulafile=multi231.frm
formulaname=multifrac_231 ismand=y function=exp/exp passes=t
center-mag=-0.606061/4.44089e-016/0.9363296
params=-0.5/0.375/1536/2048/513/1025/1/1/2560/2560 float=y
maxiter=2048 inside=atan outside=tdis logmap=3 periodicity=0
rseed=-2436
colors=200JJJ<14>iiijjjlll<3>sss<25>BBB999777<2>222000012<24>0bo0cq0es<3\
>0kz<25>09C08A068<2>022000211<24>oiQqjRslS<3>zsX<25>CB7A96875<3>000400<2\
3>o00q00s00<3>z00<25>C00A00800<3>000<9>III
}
Birds_over_Julia { ; Outside exp. julia
; Albrecht Niekamp, March,03
; Version 2002 Patchlevel 4
; Version 2002 Patchlevel 4
reset=2002 type=formula formulafile=multi231.frm
formulaname=multifrac_231 ismand=n function=exp/exp passes=t
center-mag=0/0/0.6666667
params=-0.00180974761192663/-0.2758911404766991/1536/2048/513/1025/-2/3/\
2560/2560 float=y maxiter=2048 inside=maxiter outside=tdis
periodicity=0 rseed=-2436
colors=200ddd<3>jjjlllnnn<2>sss<25>BBB999777<2>222000012<24>0bo0cq0es<3>\
0kz<25>09C08A068<2>022000211<24>oiQqjRslS<3>zsX<25>CB7A96875<3>000400<23\
>o00q00s00<3>z00<25>C00A00800<3>000<21>bbb
}
Mandelmania_2 { ; Julia inside inside
; Albrecht Niekamp, March,03
reset=2002 type=formula formulafile=multi231.frm
formulaname=multifrac_231 ismand=y function=exp/sin passes=t
center-mag=-0.606061/4.44089e-016/0.9363296
params=-0.5/0.375/1536/2048/513/1025/10/20/2560/2560 float=y
maxiter=2048 inside=atan outside=tdis logmap=3 periodicity=0
rseed=-2436
colors=200ggf<18>BBA998776<2>221000011<24>0bn0cp0er<3>0ky<25>09B089067<2\
>021000210<22>keNmgOoiPqjQslRunS<2>zsW<25>CB6A95874653442220000400<23>o0\
0q00s00<3>z00<25>C00A00800<3>000<2>554776998BBACCB<16>eedggfiihjjillknnm\
<2>ssr<5>iih
}
Borderline { ; Mix of 3 fractals
; Albrecht Niekamp, March,03
; Version 2002 Patchlevel 4
reset=2002 type=formula formulafile=multi231.frm
formulaname=multifrac_231 ismand=y function=exp/exp passes=t
center-mag=-0.30271605328868720/-0.63359923125606620/52.34401
params=-0.00180974761192663/-0.2758911404766991/1536/3072/513/1025/4/2/3\
300/3300 float=y maxiter=4094 inside=maxiter outside=tdis
periodicity=0 rseed=-2436
colors=200RRR<8>BBB999777<2>222000012<24>0bo0cq0es<3>0kz<25>09C08A068<2>\
022000211<22>keOmgPoiQqjRslSunT<2>zsX<25>CB7A96875<3>000400<23>o00q00s00\
<3>z00<25>C00A00800<3>000<23>eeegggiiijjjlllnnn<2>sss<15>SSS
}
--------------------------------start-frm-----------------------------------
frm:Multifrac_231 { ; Albrecht Niekamp March,03
;real(p2) factor
;imag(p2) bailout
;real(p3) maxiter1
;imag(p3) maxiter2
;real(p4) inside1: 1_mandel 2_julia 3_expmandel 4_expjulia
; other: *10_soft julia transitions <0_outside=exp
;imag(p4) inside2: 1_mandel 2_julia 3_expmandel 4_expjulia
; other: *10_soft mandel transitions <0_no inside1
;real(p5) border1
;imag(p5) border2
fac=real(p2)
ba=imag(p2)
out1=real(p3)
out2=imag(p3)
b1=real(p5)
b2=imag(p5)
d1=real(p4)
d2=imag(p4)
vb=(d1<0)
If (vb)
d1=d1*-1
endif
tj=(d1<10)
if (tj==0)
d1=d1/10
endif
v1=(d1==3)
v2=(d1==4)
d1=(d1==2)+(d1==4)
st=(d2<0)
if (st)
d2=d2*-1
endif
mj=(d2<10)
if (mj==0)
d2=d2/10
endif
v3=(d2==3)
v4=(d2==4)
d2=(d2==2)+(d2==4)
t=0
start=2-st
if (ismand)
z=0
c=pixel
else
c=p1
z=pixel
endif
:
if (vb)
z=(z+real(c))^(z+imag(c))
else
z=z^2+c
endif
bo=|z|
if (start)
t=t+1
if (start==2)
if ((t>out1)+(bo>=b1))
u=2*(fn1(t/fac))
if (d1)
if (tj)
z=pixel
endif
c=p1*u
vb=v2
else
z=z*u
c=z
if (mj)
z=0
endif
vb=v1
endif
start=1
t=0
endif
else
if (t>out2)+(bo>=b2)
u=2*(fn2(t/fac))
if (d2)
if (tj)
z=pixel
endif
c=p1*u
vb=v4
else
z=z*u
c=z
if (mj)
z=0
endif
vb=v3
endif
start=0
endif
endif
endif
bo<=ba
}
------------------------------------end------------------------