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------------------------------
----- Original Message ----- From: "Albrecht Niekamp" <Albrecht.Niekamp@t-online.de> Sent: Wednesday, May 14, 2003 12:40 PM Subject: [Fractint] Multifractal <snip>
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.
I, for one, would like to try for some new images using your Multifractal formula, but I don't understand the structure of the ensemble. I think it would be ver nice if you could find the time to publish an annotated version, with independant sections marked which are removable, and the entry points and parameters for ech piece described. Some suggested parameter ranges might be nice, too. Your English is very understandable. Anyone else agree? John W.
John W. wrote:
I, for one, would like to try for some new images using your Multifractal formula, but I don't understand the structure of the ensemble. I think it would be very nice if you could find the time to publish an annotated version, with independent sections marked which are removable, and the entry points and parameters for each piece described. Some suggested parameter ranges might be nice, too. Your English is very understandable.
Anyone else agree? << I do agree! A tutorial would be very helpful. But for me, there is so much to be explored in the images provided by Al, that I have had no need to explore images with other parameters.
----- Original Message ----- From: "Lee H. Skinner" <skinner@thuntek.net> To: "Fractint and General Fractals Discussion" <fractint@mailman.xmission.com> Subject: Re: [Fractint] Multifractal
Anyone else agree? <
I do agree! A tutorial would be very helpful. But for me, there is so much to be explored in the images provided by Al, that I have had no need to explore images with other parameters.
And I agree with you too. Aren't we all so agreeable? :-) However, Al seemed to be pushing for us to extend the limits, which would be fun. I'm all for the outer limits! John W.
Here is another multifractal midget for those who like midgets! 6mdl2020 { ; Shamrock midget ; t= 2:04:51.20 on a P4 2Gh at ; 1600x1200 Image Copyright 2003 ; by Lee H. Skinner ver=2002 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=fractint.frm formulaname=multifractal ismand=y function=exp/exp/exp passes=1 center-mag=+0.00882999164066869/-1.10514660161250600/\ 5.03815e+008/1/159.999999892904015/-2.138687623526314\ 14e-008 params=-0.1738944669942329/-0.3000579851680044/384.00\ 001/256.0076/2560384.00008/1536.0256/768.01536/5120.0\ 1024/38888/2 float=y maxiter=3072 inside=maxiter outside=tdis logmap=yes symmetry=none periodicity=0 rseed=-2436 cyclerange=2/248 colors=000000v2u<3>c5eZ6`U6X<2>F9LAAG7FO4KW0Qc<3>5Xc6\ Zc7`c7aa7c_7eY<3>FcgHciJbl<3>S_v<3>civflvinvlqvotvsww\ <2>zzz<3>rwzovzhsw<3>Gch8_d8Xa8TZ8QV<8>cHDgGBkF9<3>zA\ 0<18>`P6_Q7YQ7<3>SU9UXAW`B<3>rtGxyIqwL<2>UnX<2>JkgFfp\ Aaz<3>PJoSFlWAi_5fc0ce7_<3>zb0<2>zz1zzC<2>zzz<3>jqdfo\ _blU`fRY`N<5>YRGYPEYND<3>ZF7aI8eLAhMBiODjQF<3>qeBriAt\ m9vq8xu7zz5zz4zz3<8>zY4zV5zS5<3>zE6wE6tD6<10>w8Px8Rx7\ S<3>z5_u5X<18>o2Xn1Xn1X<3>l0Xq0`v0d<2>y0fz0gy0h<3>u1m\ t1ns1or2qs2rt2t0_yVgJReEMb8MaMVg8Lb8 } -------------------------------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-----------------------------
participants (3)
-
Albrecht.Niekamp@t-online.de -
John Wilson -
Lee H. Skinner