Sub Main()
Rhino.EnableRedraw False
For x0 = -2.5 To 1 Step 0.01
rhino.Print x0
For y0 = -1 To 1 Step 0.01
x = 0
y = 0
iteration = 0
maxIt = 1000
Do While (x*x + y*y < 2*2) And iteration < maxIt
xtemp = x*x - y*y + x0
y = 2*x*y + y0
x = xtemp
iteration =iteration + 1
Loop
c = int(iteration / 1000 * 16777216)
If iteration < maxIt Then
pt = rhino.addpoint(array(x0,y0,0))
Rhino.ObjectColor pt, c
End If
Next
Next
Rhino.EnableRedraw True
End Sub
