Hi fractinters, a better calibration of the numbers and a more flexible formula (on the end of the .frm).. ******************************* par's & .frm *********************************** li-01 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr6.frm formulaname=la-uhr6 function=ident/ident passes=1 center-mag=-0.10258530488080490/+0.94411151796279080/757.5809/1.3333/7.9\ 9999999999954703/-1.65350372283157299e-012 params=2/0/1/0.93/1/5/0.3/200/1/0 float=y maxiter=1500 inside=0 logmap=24 periodicity=0 viewwindows=1/1/yes/0/0 colors=000829<3>818818818907<3>H35J45L55<5>`C4bD3eE3<3>nJ1pK1rM0<6>v`4vb\ 5wd5wf6xi6<2>xm8xn9yn9<3>yrCysDytEyuE<17>zwczwdzwfzwh<3>zwmzvozvpzvrzvsz\ uu<104>P77P77P77<6>M33M33M22<3>K000CP<3>0BO0BO0BO<4>0AL0AL0AK<3>0AK0AK0A\ K<12>46G46G46F56F55F55F<3>64D64D74D<4>73C73C73C83B83B83A } li-02 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=fractint.frm formulaname=la-uhr6 function=ident/ident passes=1 center-mag=-0.10259568671102050/+0.94405712516041730/620.643/1.3333/8.00\ 000000000072653/-0.000370735609869096705 params=2/0/1/0.99/1/10/0.2/300/1/0 float=y maxiter=3500 inside=fmod proximity=0.05 outside=fmod logmap=yes periodicity=0 viewwindows=1/1/yes/0/0 colors=000Tcz<52>46A359348<3>124123112001000<58>taJubJvbK<2>ydLzeLydL<55\
642531421<2>100000001<61>Sby }
li-03 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr6.frm formulaname=la-uhr6 function=ident/ident passes=1 center-mag=-0.123698/-0.74462/4.972245/1.3346/174.995095591806518/0.0098\ 0405931645508821 params=2/0/1/0.65/1/28/0.3/300/1/0 float=y maxiter=6345 inside=fmod proximity=0.3 outside=fmod logmap=yes periodicity=0 viewwindows=1/1/yes/0/0 colors=000KSg<33>46A359348<3>124123112001000<58>taJubJvbK<2>ydLzeLydL<55\
642531421<2>100000001<56>Q_tQ_uR`v<2>SbyTczTby<16>LSh }
li-04 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=uhrbail3.frm formulaname=la-uhr6 function=recip/sqr passes=1 center-mag=-2.88658e-015/-2.66454e-015/0.2961742/1.3333/57.4999375792942\ 899/0.000124842966039623304 params=3/0/1/0.65/1/5/0.2/300/0.1/0.1 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<6>235234123112001000<58>taJubJvbK<2>ydLzeLydL\ <55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-05 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=uhrbail3.frm formulaname=la-uhr6 function=recip/sqr passes=1 center-mag=-2.88658e-015/-2.66454e-015/0.2961742/1.3333/57.4999375792942\ 899/0.000124842966039623304 params=3/0/1/0.65/1/5/0.2/300/0.1/-0.1 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<6>235234123112001000<58>taJubJvbK<2>ydLzeLydL\ <55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-06 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=uhrbail3.frm formulaname=la-uhr6 function=sqrt/flip passes=1 center-mag=-3.21965e-015/4.44089e-016/0.6611597/1.3333/-114.999999999999\ 972/-6.3227201252402665e-014 params=24/0/1/0.6/1/5/0.2/300/1/-1.346629230628376 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<3>358347246<3>112001000<58>taJubJvbK<2>ydLzeL\ ydL<55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-07 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr4.frm formulaname=la-uhr6 function=ident/ident passes=1 center-mag=0/8.88178e-016/0.3940882/1.3334/-10.0005015581794972/0.001003\ 09220337385652 params=12/0/1/0.25/1/10/0.3/250/1/0 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=00087V<5>75P65O65N54M54L<14>116115104<2>001000100<56>tZ9u_9v_9<2>\ yaAzbAyaA<55>640530420<3>000001002<15>52H52I52J<34>EBpEBqFCr<3>FDvFDwGDx\ GDyGDz<30>87W } li-08 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr6.frm formulaname=la-uhr6 function=acosh/sqr passes=1 center-mag=1.04946/-0.00726327/0.7297921/1.3333/90/3.88578058618804789e-\ 016 params=12/0/1/0.35/1/5/0.2/300/-0.4241767632068846/-0.4598834192938017 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<6>235234123112001000<58>taJubJvbK<2>ydLzeLydL\ <55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-09 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr6.frm formulaname=la-uhr6 function=acosh/sqr passes=1 center-mag=1.04946/-0.00726327/0.5797228/1.3333/77.5003026783887066/-0.0\ 00605363635564737379 params=12/0/1/0.15/1/20/0.2/300/0.2272072511978519/-0.154414502395703 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<6>235234123112001000<58>taJubJvbK<2>ydLzeLydL\ <55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-10 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr6.frm formulaname=la-uhr6 function=sqr/sqr passes=1 center-mag=2.22045e-016/2.33147e-015/0.6912275/1.3333/142.49930819569974\ /0.00138360412415969303 params=3/0/1/0.6/1/5/0.2/300/-1.54231391338847/0.006256294442579424 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<6>235234123112001000<58>taJubJvbK<2>ydLzeLydL\ <55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-11 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr6.frm formulaname=la-uhr6 function=flip/sqr passes=1 center-mag=0/2.22045e-015/0.7203083/1.3333/102.499697321611265/0.0006053\ 63635654568299 params=6/0/1/0.5/1/5/0.2/300/-0.6525772881252476/0.8717612231818598 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<6>235234123112001000<58>taJubJvbK<2>ydLzeLydL\ <55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-12 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr6.frm formulaname=la-uhr6 function=conj/sqr passes=1 center-mag=2.22045e-016/2.10942e-015/0.5749546/1.3333/102.49969732161125\ 1/0.000605363635680013223 params=6/0/1/0.5/1/5/0.2/300/-1.382763145847956/-0.467635120700705 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<6>235234123112001000<58>taJubJvbK<2>ydLzeLydL\ <55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-13 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr6.frm formulaname=la-uhr6 function=flip/log passes=1 center-mag=-4.44089e-016/8.88178e-016/0.6984118/1.3333 params=12/0/1/0.8/1/5/0.2/300/0/0 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<6>235234123112001000<58>taJubJvbK<2>ydLzeLydL\ <55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-14 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr6.frm formulaname=la-uhr6 function=abs/log passes=1 center-mag=-4.44089e-016/9.99201e-016/0.6984118/1.3333/90/3.885780586188\ 04789e-016 params=12/0/1/0.8/1/5/0.2/300/0/0 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<6>235234123112001000<58>taJubJvbK<2>ydLzeLydL\ <55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-15 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr6.frm formulaname=la-uhr6 function=cotan/log passes=1 center-mag=-0.785731/-0.000765074/11.18838/1.3333 params=12/0/1/1.2/1/1/0.2/300/0/0 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<6>235234123112001000<58>taJubJvbK<2>ydLzeLydL\ <55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-16 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr6.frm formulaname=la-uhr6 function=sinh/log passes=1 center-mag=0.000325083/1.57172/1.716663/1.2457 params=12/0/1/0.34/1/1/0.2/300/0/0 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<3>358347246<3>112001000<58>taJubJvbK<2>ydLzeL\ ydL<55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } li-17 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=la-uhr5.frm formulaname=la-uhr6 function=sinh/sqr passes=1 center-mag=5.55112e-016/2.55351e-015/0.8075214/1.3333/90/3.8857805861880\ 4789e-016 params=6/0/1/0.5/1/5/0.2/300/-1.333475753044221/0 float=y maxiter=4000 inside=fmod proximity=0.8 outside=imag logmap=yes decomp=256 periodicity=0 viewwindows=1/1/yes/0/0 colors=000GM_<21>58E58D47C<6>235234123112001000<58>taJubJvbK<2>ydLzeLydL\ <55>642531421<2>100000001<56>Q_tQ`uR`v<2>SbyTczSby<24>HN` } frm:la-uhr6 { ; lake-transformation = Sylvie Gallet, Jan 16, 2000 ; requires: FractInt >20.0.6, periodicity=0' and 'passes=1' ; compilation: guy.marson@mnhn.lu (12.05.2002) ; Try real(p1)=2, imag(p1)=0, real(p2)=1, imag(p2)=1, r(p3)=1, ; real(p5)=1, imag(p5)=0, fn1=ident, fn2=ident for standard Mandelbrot. ; A=real(p2), B=imag(p2), C=real(p3). If B=A*C then text is invisible, ; else=visible! Try e.g. A=1, B=0.75, C=1 for visible text.. (or B=1.15) ; imag part of p3: 0 = lake transform disabled ; any value between 0 and 100: water level in % of ; the screen height (0 = bottom, 100 = top) ; real part of p4: amplitude of the wave (try 0.2) ; imag part of p4: frequency (try 300) ; real(p5) and imag(p5) are related to fn2.. ; set the FractInt preView command (V) to: yes/1/1/yes/0/0 ; Lake transformation: ; -------------------- if (real(p3) > 0 && real(p3) <= 100) level = imag(p3) / 100 ; water level ampl = real(p4) ; amplitude of the wave freq = imag(p4) ; frequency angle = real(rotskew * pi / 180) exp_irot = exp(-flip(angle)) h = 1 / real(magxmag) w = h / 0.75 * imag(magxmag) tanskew = tan(imag(rotskew * pi / 180)) u = 2 * w * exp_irot v = 2 * h * (tanskew + flip(1)) * exp_irot z3rd = center + (-w-h*tanskew - flip(h)) * exp_irot z = pixel - z3rd b = imag(conj(u)*z) / imag(conj(u)*v) if (b <= level) dy = level - b z = z + 2*dy * (1+ampl*sin(freq*dy^0.2)) * v endif pixel = z + z3rd endif ;text generated with "FracText.exe" from Jan Maarten van der Valk.. x=real(scrnpix)/real(scrnmax), y=(imag(scrnmax)-imag(scrnpix))/real\ (scrnmax), z=x+flip(y) x1=1.5*x chr11 = y<x1+0.24833&&y>x1+0.23481&&y>-x/1.5+1.26667||(x>0.48262&&x\ <0.49012) x2=2.5*x chr22 = abs(cabs(z+(-0.507,-0.95562))-0.01062)<0.00375&&(y>0.95562|\ |y>-x/1.20691+1.37571)||(y<1.20691*x+0.33295&&y>1.20691*x+0.32119&&\ y<-x/1.20691+1.37571)||y<0.9275&&x>0.49262&&x<0.52138 test1 = chr11||chr22&&y>0.92&&y<0.97 chr13 = y<x1+0.50333&&y>x1+0.48981&&y>-x/1.5+1.06667||(x>0.27262&&x\ <0.28012) chr14 = y<x1+0.4694&&y>x1+0.45588&&y>-x/1.5+1.08175||(x>0.29525&&x<\ 0.30275) test2 = chr13||chr14&&y>0.86&&y<0.91 chr15 = y<x1-0.15667&&y>x1-0.17019&&y>-x/1.5+1.36||(x>0.71262&&x<0.\ 72012) test3 = chr15&&y>0.86&&y<0.91 chr16 = y<x1+0.58833&&y>x1+0.57481&&y>-x/1.5+0.78333||(x>0.10262&&x\ <0.11012) chr07 = abs(cabs(z+(-0.127,-0.72562))-0.01062)<0.00375&&y>0.72562||\ (abs(cabs(z+(-0.127,-0.70438))-0.01062)<0.00375&&y<0.70438)||(((x>0\ .11262&&x<0.12012)||(x>0.13387&&x<0.14137))&&y>0.70438&&y<0.72562) test4 = chr16||chr07&&y>0.69&&y<0.74 chr28 = abs(cabs(z+(-0.87438,-0.72562))-0.01062)<0.00375&&(y>0.7256\ 2||y>-x/1.20691+1.4501)||(y<1.20691*x-0.34044&&y>1.20691*x-0.3522&&\ y<-x/1.20691+1.4501)||y<0.6975&&x>0.86&&x<0.88875 test5 = chr28&&y>0.69&&y<0.74 chr99 = abs(cabs(z+(-0.05438,-0.49438))-0.01062)<0.00375&&y<0.49438\ ||abs(cabs(z+(-0.05438,-0.51562))-0.01062)<0.00375||(x>0.06125&&x<0\ .06875&&y>0.49438&&y<0.51562) test6 = chr99&&y>0.48&&y<0.53 x3=0.7*x chr310 = abs(cabs(z+(-0.94178,-0.49438))-0.01062)<0.00375||abs(cabs\ (z+(-0.94178,-0.51562))-0.01062)<0.00375&&(y>-x3+1.17487||y<x3-0.16\ 487||x>0.94178) test7 = chr310&&y>0.48&&y<0.53 chr811 = abs(cabs(z+(-0.12438,-0.27438))-0.01062)<0.00375||abs(cabs\ (z+(-0.12438,-0.29562))-0.01062)<0.00375 test8 = chr811&&y>0.26&&y<0.31 x4=1.8*x chr412 = y<x4-1.27133&&y>x4-1.28678&&y>0.27667||(x>0.8796&&x<0.8871\ )||(y>0.26917&&y<0.27667&&x>0.86&&x<0.8921) test9 = chr412&&y>0.26&&y<0.31 x7=2.75*x chr713 = y<x7-0.66368&&y>x7-0.68562||y>0.1325&&x>0.27&&x<0.2975 test10 = chr713&&y>0.09&&y<0.14 chr514 = abs(cabs(z+(-0.71625,-0.10625))-0.0125)<0.00375&&(y<0.1062\ 5||x>0.71625)||(x>0.7&&y>0.115&&x<0.7325&&(x<0.7075||y>0.1325||(y<0\ .1225&&x<0.71625))) test11 = chr514&&y>0.09&&y<0.14 chr615 = abs(cabs(z+(-0.49938,-0.07062))-0.01062)<0.00375&&y>0.0706\ 2||abs(cabs(z+(-0.49938,-0.04938))-0.01062)<0.00375||(x>0.485&&x<0.\ 4925&&y>0.04938&&y<0.07062) test12 = chr615&&y>0.035&&y<0.085 test=test1||test2||test3||test4||test5||test6||test7||test8||test9|\ |test10||test11||test12 test0=test0&&whitesq test0=((test0||test)==0) f1=conj(real(p3))*conj(real(p2))*pixel f2=imag(p2)*pixel pixel=(test==0)*f1+test*f2 ;formula... z=c=pixel: c=fn2(pixel*p5) z=fn2(fn1(z)^p1)+c |z| <=4 } ************************************ have fun! cheers, Guy Guy Marson 45B, rue de Bettembourg L-5810 Hesperange (Luxembourg) Tel: +352 (091) 368733 email: guy.marson@mnhn.lu "IN VIVO VERITAS"