Mandelbrot set: Difference between revisions
→{{header|EasyLang}}
Line 5,174:
<syntaxhighlight lang="easylang">
#
scale = 150▼
# better but slower:
# res = 8
# maxiter = 300
#
#
mid = res * 50
center_x = 3 * mid / 2
center_y = mid
#
background 000
textsize 2
#
fastproc iter cx cy . it .
while xx + yy < 4 and it > 0
yy = y * y
it -= 1
.
.
proc draw . .
clear
for scr_y = 0 to
cy = (scr_y - center_y) / scale
for scr_x = 0 to
cx = (scr_x - center_x) / scale
if it >
▲ x = h
▲ iter += 1
▲ .
.
.
Line 5,211 ⟶ 5,223:
.
on mouse_up
center_x +=
center_y +=
if systime - time0 < 0.3
center_x -=
center_y -=
scale *= 2
else
center_x += (
center_y += (
scale /=
.
call draw
| |||