Re: Fractint digest, Vol 1 #366 - 3 msgs
Most Intriguing. The Russ-Dude strikes again! The rising Mandelbrot is way cool. Now I must figure out a way to animate it and make a viddie - like a Mandelbrot "sunrise" from an ocean horizon.......
At 12:25 19/01/03 -0500, you wrote:
Most Intriguing. The Russ-Dude strikes again! The rising Mandelbrot is way cool. Now I must figure out a way to animate it and make a viddie - like a Mandelbrot "sunrise" from an ocean horizon.......
.. tman.frm with Sylvies GALLETs masterpiece, the lake-transformation.. set the real(p2) to 30, 20, 10 etc.. and it's rising again.. riselake { ; Version 2002 Patchlevel 3 ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=fractint.frm formulaname=tmanlake center-mag=-0.33019260452431920/+0.53369254258170410/2256.431/3.3373/149\ .750000000008981/-15.9332167459658773 params=-0.4/0/50/0.2/300/0 float=y maxiter=18000 inside=0 logmap=94 periodicity=0 colors=000UKA<4>PKAOKA<2>LJCKJDJKF<3>FLKELLDLNCMO<11>NPdOPeOPf<3>SQlTQnU\ Ro<2>XRsXRtWSs<31>S`rS`rS`r<3>SarVbv<19>AUK9UI8TG<3>4S83S72R51R3<15>UJSV\ JUXIV<3>dGaeGcgFdiFflDh<19>P_QN`PMaO<2>JdLHdKIeL<10>NgONgOOgP<3>PhPPhQQh\ QQhQUfP<3>GkSCmT9nT2oU4qS<3>CpVEpWGpX<3>OpcQpeSpg<3>_plapmcpn<3>iprjpskp\ t<3>mpxmpympz<30>mlz } ; This file requires fractint 20.0.6 or later frm:tmanlake { ; lake-transform by Sylvie Gallet, Jan 16, 2000 ; requires: float=on, periodicity=0 ; real part of p2: 0 = lake transform disabled ; any value between 0 and 100: water level in % of ; the screen height (0 = bottom, 100 = top) ; imag part of p2: amplitude of the wave (try 0.2) ; real part of p3: frequency (try 300) ; imag part of p3: phase ; Lake transformation ; ------------------- if (real(p2) > 0 && real(p2) <= 100) level = real(p2) / 100 ; water level ampl = imag(p2) ; amplitude of the wave freq = real(p3) ; 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+imag(p3))) * v endif pixel = z + z3rd endif ; import of formula: TMan1.frm c1=flip(real(pixel)),c2=imag(pixel),c3=p1 z1=z2=z3=0: t1=z1*z1+2*z2*z3 t2=z3*z3+2*z1*z2 t3=z2*z2+2*z3*z1 z1=t1+c1,z2=t2-c2*c2,z3=t3+c3 z=z1+z2+z3 |z| < 8 } cheers, Guy
participants (2)
-
Guy Marson -
JackOTradez