Hi, here are two more zooms into "Siamese_twins". Hope you like them. As I have not received a digest since 5 days it is possible that some mails remain unanswered. Please, Tim, if you are listening check what happened. Thank you! Fractal Greetings, Al. -----------------------start-par------------------------------------------ Work_of_art { ; Time 0.09.55 ; Albrecht Niekamp May, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifrac_239 ismand=y function=exp/exp/exp passes=t center-mag=-1.15085452099411000/+1.01529571735795100/1205.83/1/132.50000\ 0000001307/2.82471962487207406e-012 params=-0.1738944669942329/-0.3000579851680044/384.00001/256.1113/3072.0\ 0016/768.0001600000001/768.01536/32.01025/34231/5 float=y maxiter=3072 inside=maxiter outside=tdis logmap=5 periodicity=0 rseed=-2436 colors=2000Ub<13>09B089067<2>021000210<22>keNmgOoiPqjQslRunS<2>zsW<25>CB\ 6A95874653442220000400<23>o00q00s00<3>z00<25>C00A00800<3>000<2>554776998\ BBACCB<16>eedggfiihjjillknnm<2>ssr<25>BBA998776<2>221000011<24>0bn0cp0er\ <3>0ky<10>0Wd } Come_in { ; Time 0.11.01 ; 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.00071948591619709/-0.46563800841117850/64.10257 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 }
---------------------------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 bo<=ba }
Here are 3 more multifractal pars. Springs_Midget { ; Fastest of these three! ; t= 0:06:41.82 on a P4 2Gh at ; 1600x1200 Image Copyright 2003 ; by Lee H. +++++++ ver=2002 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=fractint.frm formulaname=multifractal ismand=y function=exp/sin/exp passes=1 center-mag=-1.36208181768958100/-0.74521653298078570/\ 4.341507e+008/1/-107.500000578849281/9.69885202227460\ 663e-007 params=-0.1740997192297128/-0.2996141087069308/384.00\ 004/256.1106/4096.00016/768.00009/768.01536/128.01025\ /28984.5/0 float=y maxiter=2048 inside=maxiter outside=tdis logmap=10 symmetry=none periodicity=0 rseed=-2436 cyclerange=2/255 colors=000000b0Q<3>v0d<2>y0fz0gy0h<3>u1mt1ns1or2q<2>v\ 2u<3>c5eZ6`U6X<2>F9LAAG7FO4KW0Qc<3>5Xc6Zc7`c7aa7c_7eY\ <3>FcgHciJbl<3>S_v<3>civflvinvlqvotvsww<2>zzz<3>rwzov\ zhsw<3>Gch8_d8Xa<3>8JP8FL8CI<3>SCC<2>zB7kB5<2>zA0<13>\ SA1QA1NA1<3>D92<6>UXAW`BYcC<3>hrI<3>UnXRm_NlcJkgFfpAa\ z<3>PJoSFlWAi_5fc0ce7_jFRoNIzb0zj0zoKztdzzy<10>_ZrYWr\ VUq<2>OMoLJnKM8<3>I88H44G00110<2>TA5<2>aI8eLAhMBiODjQ\ F<3>qeBriAtm9vq8xu7zz5zz4zz3<8>zY4zV5zS5<3>zE6wE6tD6<\ 10>w8Px8Rx7S<3>z5_<3>f5Ma5IW4E<2>_4H<3>P3DN2CK2A<3>80\ 5G0BO0GT0JY0N } Hourglass_Bay { ; ; t= 2:14:19.72 on a P4 2Gh at ; 1600x1200 Image Copyright 2003 ; by Lee H. +++++++ ver=2002 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=fractint.frm formulaname=multifractal ismand=y function=exp/sin/exp passes=1 center-mag=-1.37062652963361000/-0.74469676681043690/\ 988.4709/1/135.000000000006679/-1.11188350193636154e-\ 011 params=-0.1740997192297128/-0.2996141087069308/384.00\ 004/256.1106/4096.00016/768.00009/768.01536/128.01025\ /28984.5/0 float=y maxiter=2048 inside=maxiter outside=tdis logmap=10 symmetry=none periodicity=0 rseed=-2436 cyclerange=2/255 colors=000000hrI<3>UnXRm_NlcJkgFfpAaz<3>PJoSFlWAi_5fc\ 0ce7_jFRoNIzb0<2>zz1zzC<2>zzz<3>jqdfo_blU<3>Mb8<3>LQ8\ KM8KJ8<2>I88H44G00<3>TA5WD6ZF7aI8eLAhMBiODjQF<3>qeBri\ Atm9vq8xu7zz5zz4zz3<8>zY4zV5zS5<3>zE6wE6tD6<10>w8Px8R\ x7S<3>z5_<3>f5Ma5IW4E<2>_4H<3>P3DN2CK2A<3>805G0BO0G<3\
g0Ul0Xq0`v0d<2>y0fz0gy0h<3>u1mt1ns1or2q<2>v2u<3>c5eZ\ 6`U6X<2>F9LAAG7FO4KW0Qc<3>5Xc6Zc7`c7aa7c_7eY<3>FcgHci\ Jbl<3>S_v<3>civflvinvlqvotvsww<2>zzz<3>rwzovzhsw<3>Gc\ h8_d8Xa<3>8JP8FL8CI<4>XCAaB9fB7<3>zA0<13>SA1QA1NA1<3>\ D92<4>PQ8SU9UXAW`B<2>cjFzzz }
Lenses_Midget { ; ; t= 2:09:49.11 on a P4 2Gh at ; 1600x1200 Image Copyright 2003 ; by Lee H. +++++++ ver=2002 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=fractint.frm formulaname=multifractal ismand=y function=exp/sin/exp passes=1 center-mag=-1.36397563159880600/-0.74493865500129030/\ 367432.8/1/-107.499999996934676/-7.32990244889375475e\ -010 params=-0.1740997192297128/-0.2996141087069308/384.00\ 004/256.1106/4096.00016/768.00009/768.01536/128.01025\ /28984.5/0 float=y maxiter=2048 inside=maxiter outside=tdis logmap=10 symmetry=none periodicity=0 rseed=-2436 cyclerange=2/255 colors=000000apP<3>NlcJkgFfpAaz<3>PJoSFlWAi_5fc0ce7_j\ FRoNIzb0<2>zz1zzC<2>zzz<3>jqdfo_blU<3>Mb8<3>LQ8KM8KJ8\ <2>I88H44G00<3>TA5WD6ZF7aI8eLAhMBiODjQF<3>qeBriAtm9vq\ 8xu7zz5zz4zz3<8>zY4zV5zS5<3>zE6wE6tD6<10>w8Px8Rx7S<3>\ z5_<3>f5Ma5IW4E<2>_4H<3>P3DN2CK2A<3>805G0BO0G<3>g0Ul0\ Xq0`v0d<2>y0fz0gy0h<3>u1mt1ns1or2q<2>v2u<3>c5eZ6`U6X<\ 2>F9LAAG7FO4KW0Qc<3>5Xc6Zc7`c7aa7c_7eY<3>FcgHciJbl<3>\ S_v<3>civflvinvlqvotvsww<2>zzz<3>rwzovzhsw<3>Gch8_d8X\ a<3>8JP8FL8CI<4>XCAaB9fB7<3>zA0<12>VA1SA1QA1<3>GA1000\ GC3<5>UXAW`BYcC<3>hrIeqL } ---------------------------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 bo<=ba }
For some unknown reason, my last name was replaced by "+"'s in the last pars message I posted! Lee H. Skinner
And one more - fast and pretty! Woodland_Midget { ; ; t= 0:08:24.28 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/sin/exp passes=1 center-mag=-1.36208186044184900/-0.74522010857648340/\ 4.662937e+012/1.0001/102.468477332887588/0.0136804453\ 660965483 params=-0.1740997192297128/-0.2996141087069308/384.00\ 004/256.1106/4096.00016/768.00009/768.01536/128.01025\ /28984.5/0 float=y maxiter=2048 inside=maxiter outside=tdis logmap=100 symmetry=none periodicity=0 rseed=-2436 cyclerange=2/255 colors=000000S3E<3>H29E18B17805G0BO0G<3>g0Ul0Xq0`v0d<\ 2>y0fz0gy0h<3>u1mt1ns1or2q<2>v2u<3>c5eZ6`U6X<2>F9LAAG\ 7FO4KW0Qc<3>5Xc6Zc7`c7aa7c_7eY<3>FcgHciJbl<3>S_v<3>ci\ vflvinvlqvotvsww<2>zzz<3>rwzovzhsw<3>Gch8_d8Xa<3>8JP8\ FL8CI<4>XCAaB9fB7<3>zA0<13>SA1QA1NA1<3>D92<6>UXAW`BYc\ C<3>hrI<3>UnXRm_NlcJkgFfpAaz<3>PJoSFlWAi_5fc0ce7_jFRo\ NIzb0<2>zz1zzC<2>zzz<3>jqdfo_blU<3>Mb8<3>LQ8KM8KJ8<2>\ I88H44G00<3>TA5WD6ZF7aI8eLAhMBiODjQF<3>qeBriAtm9vq8xu\ 7zz5zz4zz3<8>zY4zV5zS5<3>zE6wE6tD6<10>w8Px8Rx7S<3>z5_\ <3>f5Ma5IW4E<2>_4HY4GV4F } 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 bo<=ba }
participants (3)
-
Albrecht.Niekamp@t-online.de -
Lee H. +++++++ -
Lee H. Skinner