like i don't have anything more important to do than drawing mandelbrot set in rhino

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