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--------------------------