Lazyoval

[SierraKen]

That's pretty neat James, a lot more math than I know how to do. Usually when I want an oval, I use the CIRCLE command's number on the very end. It changes it from a circle, which is 1, to different shapes of the oval lesser or more than 1. Here is an example I just threw together for you: 

Code: (Select All)

Screen _NewImage(800, 600, 32)
oval = 1.9
dir = 1
_Title "Changing Coin - Press Esc to End"
Do
    _Limit 20
    For sz = .25 To 100 Step .25
        c = c + .25
        Circle (400, 300), sz, _RGB32(100 + c, 100 + c, 100 + c), , , oval
    Next sz
    c = 0
    If oval < .05 Then dir = 1
    If oval > 4.95 Then dir = 2
    If dir = 2 Then oval = oval - .05
    If dir = 1 Then oval = oval + .05
    _Display
    Cls
Loop Until InKey$ = Chr$(27)