Hi, I will be on a trip for several weeks and Hal is taking over. Therefore I present an image I love. It?s an older one and again it is more a painting then a fractal. This is not on Hal?s server as it is a special one, you will have to wait until it?s finished, but maybe it?s worth it. Albrecht ---------------------start-par--------------------------------------------- multilake_12d { ; mother and child ; Version 2002 Patchlevel 4 reset=2002 type=formula formulafile=multlke.frm formulaname=Multi_lake12 ismand=n passes=t center-mag=0/0/0.6666667 params=-1/-0.75/512/40/0.3/300 float=y maxiter=1094 inside=maxiter outside=tdis periodicity=0 colors=000WPE<3>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0Ci0Dl0F<3>z0K<6>Z0\ EV0DR0C<3>A08004000<26>000<4>000<9>X0a_0dc0h<3>p0w<4>_0dX0aU0Y<2>K0NH0JG\ 0NE1R<3>7UX6`Z4h_2oa0wc<11>2TG2RE3OC<3>4D3<17>kkammcpoe<3>zwm<6>cYO`UKYQ\ G<3>KA0000<43>000<4>000330<11>110110110<3>000KA4<2>TLB } frm:Multi_lake12 { ; ; p1: Julia seed ; real part of p2: bailout value ; imag part of p2: water level in % of the screen height ; real part of p3: amplitude of the wave (try 0.2) ; imag part of p3: frequency (try 300) bailout = real(p2) if (imag(p2) > 0 && imag(p2) <= 100) level = imag(p2) / 100 ; water level ampl = real(p3) ; amplitude of the wave freq = imag(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)) * v endif z = z + z3rd else z = pixel endif if (ismand) c = z else c = p1 endif x=0 y=0 : ; multifrac7 variation y2 = y*y x2 = x*x x = x2-y2-real(c) y = 2*x*y-imag(c) z =(z*x)^(z*y) |z| <=bailout } ------------------------------------------end--------------------------
participants (1)
-
Albrecht