Mandelbrot {
;
; Generic Mandelbrot set.
;
init:
z = @start
c= #pixel
x=real(c)
y=imag(c)
int k=0
while (k<@TH)
x=abs(x)-2.5
y=abs(y)-2
k = k+1
endwhile
x=abs(x)-2
y=abs(y)-1
c=x+flip(y)
loop:
z = z^@power + c
bailout:
|z| <= @bailout
default:
title = "Mandelbrot"
center = (-0.5, 0)
helpfile = "Uf*.chm"
helptopic = "Html\formulas\standard\mandelbrot.html"
$IFDEF VER50
rating = recommended
$ENDIF
param start
caption = "Starting point"
default = (0,0)
hint = "The starting point parameter can be used to distort the Mandelbrot \
set. Use (0, 0) for the standard Mandelbrot set."
endparam
param power
caption = "Power"
default = (2,0)
endparam
param TH
caption = "th"
default = 5
endparam
float param bailout
caption = "Bailout value"
default = 4.0
min = 1.0
$IFDEF VER40
exponential = true
$ENDIF
hint = "This parameter defines how soon an orbit bails out while \
iterating. Larger values give smoother outlines; values around 4 \
give more interesting shapes around the set. Values less than 4 \
will distort the fractal."
endparam
}
|
