Graphics 800,600,32,60
Setcolor 100,100,100
DrawOval 100,100,50,50
Flip
While Not KeyHit(KEY_ESCAPE)
Wend
End

'
' program : circle drawing lib using Bresenham algrorith
' using the circle drawint algorithm at:
'    <a href="http://www.gamedev.net/reference/articles/article767.asp" target="_blank">www.gamedev.net/reference/articles/article767.asp</a>
' created by  Jesse Perez    8/20/2006
'
' draws a circle with:
'
' offsetx = center x
' offsety = center y
' Radius = circle radius in pixels
'
' note: no clipping is done so may become extremely slow if excessibly large circles are drawn.
' also: also if the screen resolution is not proportionally correct it will not look round.


Type Tcircle

   Method draw(OffsetX#,OffsetY#,Radius#)
      If Radius <= 0 Return
      If (offsetx-radius) > GraphicsWidth()  Return 
      If (offsety-radius) > GraphicsHeight()  Return
      If (offsetx+radius) < 0 Then Return
      If (offsety+radius) < 0 Then Return
      Local x = 0
      Local d = 3-(2*Radius)                  
      Local y=Radius
      While x<y
         If d < 0 Then
            d = d + (4 * x) + 6
         Else
            d = d + 4 * (x - y) + 10
            y = y - 1
         End If
         Plot(offsetX + X, OffsetY + Y)
         Plot(OffsetX + X, OffsetY - Y)
         Plot(OffsetX - X, OffsetY + Y)
         Plot(OffsetX - X, OffsetY - Y)
         Plot(OffsetX + Y, OffsetY + X)
         Plot(OffsetX + Y, OffsetY - X)
         Plot(OffsetX - Y, OffsetY + X)
         Plot(OffsetX - Y, OffsetY - X)
         x=x+1
      Wend
   End Method
End Type

Graphics 800,600
Local circle:Tcircle= New Tcircle
For Local a = 1 To 10
circle.draw 100+Rand(0,600),100+Rand(0,400),Rand(10,100)
Next
Flip()
WaitKey()

SetGraphicsDriver GLMax2DDriver()
Graphics 800,600,0

glPolygonMode(GL_FRONT, GL_LINE) 'Kreis Umriss
'glPolygonMode(GL_FRONT, GL_FILL) 'Kreis Ausfüllen

For t=1 To 30
rad=Rnd(100,200)
SetColor Rnd(255),Rnd(255),Rnd(255)
DrawOval Rnd(800),Rnd(600),rad,rad
Next

Flip
WaitKey()
End