sin cos using SUB SumLocate (x,y,l)

[bplus]

Code: (Select All)

_Title "orbit demo" ' bplus  2024-05-08
Screen _NewImage(800, 600, 32)

time = 3 ' due East degrees = 0
radius = 200
xo = _Width / 2
yo = _Height / 2
For angle = 0 To 359 Step 30
    orbit xo, yo, radius, angle, x, y
    _PrintString (x, y), Str$(time)
    time = time + 1
    If time = 13 Then time = 1
Next

Sub orbit (x0rigin, yOrigin, radius, degrees, xOut, yOut) ' all default single  should be ok
    xOut = x0rigin + radius * Cos(_D2R(degrees))
    yOut = yOrigin + radius * Sin(_D2R(degrees))
End Sub

hi @pmackay ask away ;-))