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

MoveMouse GraphicsWidth()/2,GraphicsHeight()/2

detail = 10
winkel = 0
kreis = 90

While Not KeyHit(1)
 Cls

 Oval2 MouseX()/2,MouseY()/2,MouseX()/2,MouseY()/2,detail,winkel,kreis

 Text 0,0,\"Detail: \"+detail+\" [< + >]\"
 Text 0,20,\"Winkel: \"+winkel+\"° [\/ + /\]\"
 Text 0,40,\"Kreis: \"+kreis+\"° [A + D]\"

 If KeyDown(203) Then detail = detail - 1
 If KeyDown(205) Then detail = detail + 1
 If KeyDown(200) Then winkel = winkel - 1
 If KeyDown(208) Then winkel = winkel + 1
 If KeyDown(30) Then kreis = kreis - 1
 If KeyDown(32) Then kreis = kreis + 1
 If detail < 1 Then detail = 1
 If winkel < 0 Then winkel = 359
 If winkel > 360 Then winkel = 1
 If kreis > 360 Then kreis = 360
 If kreis < 0 Then kreis = 0

 Flip
Wend
End

Function Oval2(x,y,width,height,e#=10,w#=0,kreis#=90.0)

    schritt# = kreis#/e#
	For I# = 0 To e
	 posX = x+Cos(I*schritt#+w)*width
	 posY = y+Sin(I*schritt#+w)*height
	 If I > 0 Then
	  Line posX,posY,posXtmp,posYtmp
	 EndIf
     posXtmp = posX
	 posYtmp = posY
	Next

End Function