Quote: "They look like someone's butt on a copy machine"
You must have one weird looking butt.
@ Atreides: Nice work. I did one of these once too - I think it's in the 20 line challenge under 'frosty the snowman'. Also has point and click zoom. I chose the colour balance by trial and error, and ended up with 12:4:7 as a combination I liked for the relative amounts of red, green and blue. Also, I prefer the look of the Mandelbrot when it's black in the middle - in other words, if the number of iterations of the equation exceed the set limit, then the colour value is set to zero. This is how it would look in your code:
wx = 800
wy = 600
set display mode wx,wy,32
set window size wx,wy
set window title "Dessinateur de fractals"
sync on
sync rate 0
i as float
px as float
py as float
r as float
tx as float
ty as float
x as float
xmin as float
xmas as float
y as float
ymin as float
ymax as float
zi as float
zr as float
zit as float
zrt as float
xmin = -2.5
xmax = 2.5
ymin = -2
ymax = 2
n=60
fract=1
do
inc fract
rem random color setting for this fractal
green=rnd(255)
red=rnd(255)
blue=rnd(255)
select fract
case 1
d=4
xmin = -2.2
xmax = 1
ymin = -1.5
ymax = 1.5
endcase
case 2
d=4
xmin = -1.8
xmax = 1.5
ymin = -1.2
ymax = 1.2
endcase
case 3
d=4
xmin = -1.7
xmax = 2
ymin = -1.5
ymax = 1.5
endcase
case 4
d=4
xmin = -2.1
xmax = 3
ymin = -2
ymax = 2
endcase
endselect
for px=0.0 to screen width()*1.0
x = px / (screen width()*1.0) * (xmax-xmin) + xmin
lock pixels
for py=0.0 to screen height()*1.0
y = py / (screen height()*1.0) * (ymax-ymin) + ymin
zr=0
zi=0
zit=0
zrt=0
itt = 0
repeat
select fract
case 1
zrt = x + zr^2 - zi^2
zit = y + 2*zi*zr
endcase
case 2
zrt = (zr+1)*x-zi*y
zit = zi*x+(zr+1)*y
endcase
case 3
zrt = x^2-y^2-zi^2+zr^2
zit = 2*x*y+2*zi*zr
endcase
case 4
zit = x + zr^2 - zi^2
zrt = y + 2*zi*zr
endcase
case default
fract=1
endcase
endselect
zi = zit
zr = zrt
inc itt
until itt=n or zi^2 + zr^2 > d
rem apply the color
if itt=n
r=0
g=0
b=0
else
r = itt*12
g= itt*4
b = itt*7
endif
dot px, py, rgb(r,g,b)
if escapekey()=1 then end
next py
unlock pixels
sync
next px
loop
