Function Oval( X, Y, B#, A#, Filled = True)
   LockBuffer BackBuffer()
   
   Local ARGB=-16777216+65536*ColorRed()+256*ColorGreen()+ColorBlue()

Graphics 800,600,0,2
SetBuffer FrontBuffer()

radius#=200
xp=250
yp=250

For x#=0 To radius Step 1
   wt%=Sin(ACos(x/radius))*radius
   Rect xp+x,yp-wt,1,wt*2,1
   Rect xp-x,yp-wt,1,wt*2,1
Next

WaitKey

;aus WIKIPEDIA: Bresenham-Algorithmus
; REM Bresenham-Algorithmus für einen Achtelkreis in Pseudo-Basic
; REM gegeben seien r, xmittel, ymittel
; REM Initialisierungen für den ersten Oktanten
; x = r
; y = 0
; fehler = r
; REM "schnelle" Richtung ist hier y!
; SETPIXEL xmittel + x, ymittel + y
;
; REM Pixelschleife: immer ein Schritt in schnelle Richtung, hin und wieder auch einer in langsame
; While y < x
;    REM Schritt in schnelle Richtung
;    dy = y*2+1 : REM bei Assembler-Implementierung *2 per Shift
;    y = y+1
;    fehler = fehler-dy
;    If fehler<0 Then
;       REM Schritt in langsame Richtung (hier negative x-Richtung)
;       dx = 1-x*2 : REM bei Assembler-Implementierung *2 per Shift
;       x = x-1
;       fehler = fehler-dx
;    End If
;    SETPIXEL  xmittel+x, ymittel+y
;    REM Wenn es um einen Bildschirm und nicht mechanisches Plotten geht,
;    REM kann man die anderen Oktanten hier gleich mit abdecken:
;    REM SETPIXEL xmittel-x, ymittel+y
;    REM SETPIXEL xmittel-x, ymittel-y
;    REM SETPIXEL xmittel+x, ymittel-y
;    REM SETPIXEL xmittel+y, ymittel+x
;    REM SETPIXEL xmittel-y, ymittel+x
;    REM SETPIXEL xmittel-y, ymittel-x
;    REM SETPIXEL xmittel+y, ymittel-x
; Wend

Graphics 800, 600, 0, 2
SetBuffer BackBuffer()

   r = 100

   Repeat
   
      If sz + 1000 > MilliSecs() Then
         fps = fps + 1
      Else
         sz = MilliSecs()
         showfps = fps
         fps = 0
      End If
   
      Cls
      mx = MouseX()
      my = MouseY()
      r = r + MouseZSpeed()
      x = r
      y = 0
      f = r
      Plot mx - x, my
      Plot mx + x, my
      Plot mx, my - x
      Plot mx, my + x
      While y < x
         dy = y * 2 + 1
         y = y + 1
         f = f - dy
         If f < 0 Then
            dx = 1 - x * 2
            x = x - 1
            f = f - dx
         End If
         Plot mx - x, my + y
         Plot mx - x, my - y
         Plot mx + x, my - y
         Plot mx + x, my + y
         Plot mx + y, my + x
         Plot mx - y, my + x
         Plot mx + y, my - x
         Plot mx - y, my - x
      Wend
      
      Text 0, 0, showfps
      Flip(0)
   
   Until KeyDown(1)
   End