For col = 1 To colours
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
offset = 2*Math.Pi*(col)/colours
Draw()
EndFor
Sub Draw
For i = 1 To 360*loops
angle = 1.98*Math.Pi*(i-width)/360
radius = (i-width)/360*width*colours
x0 = gw/2+radius*Math.Cos(angle+offset)
y0 = gh/2+radius*Math.Sin(angle+offset)