                             
uses gdip         

Screen 640,480,1
SetCaption "MULTICIRCLE ENGINEER WORK"
SetSmoothMode 4

Sub MultiCircle(sys xc,yc,r, single m, sys a1,r1,g1,b1)
sys iterations = 2*pi*r
single theta
sys i, x, y
   For  i=0 To i<=iterations
      theta = m*pi*i / iterations
      x = xc + r * cos(theta)
      y = yc + r * sin(theta)
      Line xc, yc, x, y ,2, ARGB(a1,r1,g1,b1)
   Next
End Sub

sys x,y

while Key(27)=0
clscolor 55,0,0,0
MultiCircle 300,240,140, 1.5, 255,255,230,155
MultiCircle 300,240,100, 1.2, 255,55,30,155
MultiCircle 300,240,40, 0.5,  255,55,130,55
MultiCircle 300,240,10, 2,    255,255,130,55
MultiCircle 300,240,200,32.5, 25,255,130,55

MultiCircle 600,50,25, 2,   155,255,0,0  
MultiCircle 600,420,25,62.5,155,0,255,0  

MultiCircle 60,50, 25,9.5, 155,255,0,0  
MultiCircle 60,420,25,1.0, 155,0,255,0
Flip
Wend
Ends