DrawOval, with less filling

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

BlackSp1der

Maybe you can use it.

Graphics 400,400,0

Const PixSize=1
Const RadiusX=100
Const RadiusY=70
Const PosX=200 'center
Const PosY=200 'center
Local Rad:Float

'draw the circle----------------------------
For Rad = 0 To 360 Step .1 'step is the definition of the circle
DrawRect PosX + (Sin(Rad) * RadiusX)-PixSize/2, PosY + (Cos(Rad) * RadiusY)-PixSize/2,PixSize,PixSize; Next
'-------------------------------------------

SetColor 0,255,0
DrawLine PosX-10,PosY,PosX+10,PosY
DrawLine PosX,PosY-10,PosX,PosY+10
Flip
WaitKey()