Hi fractInters

This worths me a .par file in the next days ;-)

here it is.. ************************** 2-Screen { ; Background picture for my desktop ; 2 LCD-screens with 1280 x 1024 pixel each ; Fractint Version 2004 Patchlevel 2 reset=2002 type=formula formulafile=fractint.frm formulaname=simplake passes=1 center-mag=-1.74730115745431900/+0.00009136450842336/1.546519e+009/0.5/-\ 172.500000396416453/4.0578214570916038e-006 params=28/0 float=y maxiter=1920 inside=atan logmap=100 periodicity=0 viewwindows=1/0.375/yes/0/0 colors=000000<57>taJubJvbK<2>ydLzeLydL<55>642531421<2>100000001<56>Q_tQ`\ uR`v<2>SbyTczSby<61>000 } frm:simplake { ; lake-transform ; Sylvie Gallet <sylviegallet@compuserve.com> ; Jan 16, 2000 ; requires: float=on, periodicity=0 ; real part of p1: 0 = lake transform disabled ; any value between 0 and 100: water level in % of ; the screen height (0 = bottom, 100 = top) ; imag part of p1: bailout ; Lake transformation ; ------------------- p2_gm=(0.3,200) if (real(p1) > 0 && real(p1) <= 100) level = real(p1) / 100 ; water level ampl = real(p2_gm) ; amplitude of the wave freq = imag(p2_gm) ; 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 z=c=pixel: z=z*z+c |z| < 4+real(p1) } ********************* for full power, add the following line to your ´fractint.cfg´ (and run the par in AF9 videomode): ...... AF9 ,Disk/RAM 'Video' , 3, 0, 0, 0, 11,2560,2048,256,For Background Fractals ...... Cheers, Guy