HOME | DD

linuxbox In reply to mindsecho [2006-08-14 20:31:41 +0000 UTC]

PhoenixJulia {
;
; Phoenix fractal type discovered by Shigehiro Ushiki. The
; general equation is of the form
;
; z(n+1) = z(n)^a + c*z(n)^b + p*z(n-1)
;
; If a=2 and b=0 (classic Phoenix) then this type will
; work with the Smooth and Triangle Inequality coloring
; algorithms.
;
; Written by Damien M. Jones.
;
init:
complex y = (0,0)
complex newz = (0,0)

z = #pixel

loop:
newz = z^@power1 + z^@power2 * @seed + @induct * y
y = z
z = newz

bailout:
|z| < @bailout


param seed
caption = "Julia Seed"
default = (0.6674)
hint = "This is the Julia seed, a constant parameter which \
defines the shape of the fractal. Use the Switch feature in \
combination with the Phoenix (Mandelbrot) formula to find \
interesting values for this parameter."
endparam
param power1
caption = "Exponent 1"
default = (2,0)
hint = "Defines the primary exponent for the fractal. The classic \
Phoenix curve uses exponent (2, 0)."
endparam
param power2
caption = "Exponent 2"
default = (0,0)
hint = "Defines the secondary exponent for the fractal. The classic \
Phoenix curve uses exponent (0, 0)."
endparam
param induct
caption = "Distortion"
default = (-0.5,0)
hint = "Sets how 'strong' the previous iteration's effect should be \
on the fractal."
endparam
param bailout
caption = "Bailout"
default = 33.20
$IFDEF VER40
exponential = true
$ENDIF
hint = "This parameter defines how soon an orbit bails out while \
iterating. Larger values will give smoother outlines."
endparam

switch:
type = "PhoenixMandel"
bailout = @bailout
power1 = @power1
power2 = @power2
induct = @induct
}

👍: 0 ⏩: 0