Untitled

;ported from: http://nerdworld.de/programmierung/ascii-mandelbrot-mit-php-und-html-in-farbe.html
;--------Change here-----------------------------
Dim $SEED[2]=[2,15]
;--------End changing----------------------------

Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("ASCII",600,600,-1,-1,0x02000000)
GUISetBkColor(0)
GUISetOnEvent(-3,"Bye")
$width = 600
$height = 600
$maxiteration = $SEED[1]
for $py = 0 to $height step 10
for $px = 0 to $width Step 10
$x0 = (4/$width)*$px-2
$y0 = (4/$height)*$py-2
$x = $x0
$y = $y0
$iteration = 0
While (($x*$x + $y*$y) < 4  AND  $iteration < $maxiteration)
$xtemp = $x*$x - $y*$y + $x0
$y = $SEED[0]*$x*$y + $y0
$x = $xtemp
$iteration+= 1
WEnd
GUICtrlCreateLabel(Chr(Random(65,90,1)),$px,$py,15,15)
GUICtrlSetColor(-1,($iteration/$maxiteration)*0xFFFF)
GUICtrlSetFont(-1,8)
Next
Next
GUISetState()
While 1
    Sleep(100)
WEnd
Func Bye()
    Exit
EndFunc