Graphics 800,600,16,2
SetBuffer BackBuffer()


LockBuffer BackBuffer()
For x_c# = -2 To 1 Step 0.02
For y_c# = -1 To 1 Step 0.02

	x#=x_c
	y#=y_c

	x0#=x
	y0#=y

	x2# = x*x
	y2# = y*y

	iteration = 0
	maxiteration = 1000

	run = 1

	While run=1

 y# = 2*x*y + y0
 x# = x2 - y2 + x0
 x2 = x*x
 y2 = y*y

 iteration = iteration + 1

 If (x2+y2)=>4 Then run = 0
 If iteration>=maxiteration Then run =0

	Wend


	If iteration >= maxiteration Then
 z#=0.01
 WritePixelFast x/z+400,y/z+300,$FFFFFF
	EndIf

Next
Next
UnlockBuffer BackBuffer()

Flip 0
DebugLog "draw _ ok"

WaitKey
End