Graphics 640, 480, 0, 2
SetBuffer BackBuffer()


   radius = 100
   ecken = 5

   Repeat
      mx = MouseX()
      my = MouseY()
      winkel = (MilliSecs() / 10) Mod 360
      
      Cls
      drawRegularPolygon mx, my, radius, ecken, winkel
      Flip()
   
   Until KeyDown(1)
   End
   
Function drawRegularPolygon(x, y, radius, vertices, angle)

   angle_step# = 360.0 / vertices
   For i = 0 To vertices - 1
      x1 = x - Sin(angle + i * angle_step) * radius
      y1 = y - Cos(angle + i * angle_step) * radius
      x2 = x - Sin(angle + (i + 1) * angle_step) * radius
      y2 = y - Cos(angle + (i + 1) * angle_step) * radius
      Line x1, y1, x2, y2
   Next

End Function