Spring Toy

[SierraKen]

LOL I had no idea, I just tried it b+ and it does work better, with half the code. lol Thanks.
Here it is:

Code: (Select All)

_Title "Spring Toy"
Screen _NewImage(800, 600, 32)
xx = 200
yy = 200
length = 100
c = _RGB32(0, 255, 0)
Do
    If more = 0 Then xx = xx - .5: length = length + .5
    If more = 0 Then yy = yy - .5: length = length + .5
    If more = 1 Then xx = xx + .5: length = length - .5
    If more = 1 Then yy = yy + .5: length = length - .5
    If xx < 10 Then more = 1
    If xx > 200 Then more = 0

    For t = 0 To length Step .01
        cx = (Sin(t) * xx) + xx + t
        cy = (Cos(t) * yy) + yy + t
        Circle (cx, cy), 1, c
    Next t
    _Display
    Cls
Loop Until InKey$ = Chr$(27)