Drawing an ellipse

[bplus]

Oh I messed up this is easier than I thought to fit width and height: (leave the start and stop radians blank)

Code: (Select All)

Screen _NewImage(800, 600, 32)

For aspect = .5 To 1.51 Step .1
    Cls
    Line (200, 100)-(600, 500), &HFFFF00FF, B
    Circle (400, 300), 200, &HFFFFFF00, , , aspect
    _PrintString (400 - 8, 300 - 8), _Trim$(Str$(aspect))
    _Delay 2
Next

So to draw an ellipse with width and height:

Code: (Select All)

Screen _NewImage(800, 600, 32)
Do
    Cls
    Input "Please enter height, width integers don't forget comma "; h, w
    Line (400 - w / 2, 300 - h / 2)-(400 + w / 2, 300 + h / 2), &HFFFF0000, B
    drawEllipse 400, 300, w, h, &HFFFFFF00
    Sleep
    Paint (400, 300), &HFF008800, &HFFFFFF00
    Sleep
Loop

Sub drawEllipse (OriginX, OriginY, Wide, High, clr~&)
    If Wide > High Then r = Wide / 2 Else r = High / 2
    Circle (OriginX, OriginY), r, clr~&, , , High / Wide
End Sub