a Tiny Basic Forum

[solo88]

hi thought to share here...

i found a very new forum dedicated to BASIC programming - it has a QB64 board and other basic's like freebasic and GW-Basic - not much stuff is on it right now...

in case you are interested : https://back-to-basic.freeforums.net/

in case this post violets any community rules please remove it :/ thank you.

have a nice day.

[bplus]

looks like ron77 is back at it again, another forum by the title I thought it might be Ed Davis

[bplus]

ron somethings wrong with your translation of dunny

Code: (Select All)

10 Rem ROTATE A TRIANGLE ON THE SCREEN - CREDIT ZXDUNNY 2023-10-06
20 Screen _NewImage(800, 600, 256): Cls: T = 0
30 X1 = -90: Y1 = 50: X2 = 90: Y2 = 50: X3 = 0: Y3 = -90
40 While InKey$ = ""
    45 Cls
    50 CO = Cos(T * 0.0174533): SO = Sin(T * 0.0174533)
    60 NX1 = (X1 * CO - Y1 * SO) + 400
    70 NY1 = (X1 * SO + Y1 * CO) + 300
    80 NX2 = (X2 * CO - Y2 * SO) + 400
    90 NY2 = (X2 * SO + Y2 * CO) + 300
    100 NX3 = (X3 * CO - Y3 * SO) + 400
    110 NY3 = (X3 * SO + Y3 * CO) + 300
    115 'NY1 = NY1 / 2: 'NY2 = NY2 / 2: 'NY3 = NY3 / 2
    120 Line (NX1, NY1)-(NX2, NY2)
    130 Line (NX2, NY2)-(NX3, NY3)
    140 Line (NX3, NY3)-(NX1, NY1)
    Circle (400, 300), 90
    146 T = T + 1: _Limit 60
150 Wend

'compare to this
Screen _NewImage(800, 600, 256)
cx = _Width / 2: cy = _Height / 2: radius = 250 'center screen for origin
While _KeyDown(27) = 0
    Cls
    a = a + 1
    If a = 360 Then a = 0
    Orbit cx, cy, a, radius, x, y
    Orbit cx, cy, a + 120, radius, X1, Y1
    Orbit cx, cy, a + 240, radius, X2, Y2
    Line (x, y)-(X1, Y1)
    Line (X1, Y1)-(X2, Y2)
    Line (X2, Y2)-(x, y)
    Circle (400, 300), radius
    _Limit 60
    _Display
Wend
Sub Orbit (X_Origin, Y_Origin, Degrees, Radius, xOut, yOut) ' all default single  should be ok
    xOut = X_Origin + Radius * Cos(_D2R(Degrees))
    yOut = Y_Origin + Radius * Sin(_D2R(Degrees))
End Sub