+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: Chatting and Socializing (https://qb64phoenix.com/forum/forumdisplay.php?fid=11)
+--- Forum: General Discussion (https://qb64phoenix.com/forum/forumdisplay.php?fid=2)
+--- Thread: a Tiny Basic Forum (/showthread.php?tid=2759)
a Tiny Basic Forum - solo88 - 05-31-2024
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.
RE: a Tiny Basic Forum - bplus - 05-31-2024
looks like ron77 is back at it again, another forum
by the title I thought it might be Ed Davis
RE: a Tiny Basic Forum - bplus - 05-31-2024
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