mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-04 11:10:15 +00:00
6e01fc8dce
Added new _STRCMP and _STRICMP commands for quick string comparisons. Cleaned up QB64 to finish removing the QUI (quick user insert) code and folders. Altered UCASE and LCASE routines to be faster in some situations for us.
62 lines
1.4 KiB
QBasic
62 lines
1.4 KiB
QBasic
CLS
|
|
SCREEN 12
|
|
LET pi = 3.14159
|
|
|
|
DO
|
|
'ANGLE increase
|
|
FOR v = 0 TO 2 * pi STEP .008
|
|
LET v3 = v3 + .003
|
|
LET v4 = v4 + .01
|
|
|
|
IF v3 >= 2 * pi THEN
|
|
LET v3 = .003
|
|
END IF
|
|
|
|
IF v4 >= 2 * pi THEN
|
|
LET v4 = .01
|
|
END IF
|
|
|
|
'CALCULATE
|
|
'COS is for X
|
|
'SIN is for Y
|
|
'Multiplier is for SIZE and
|
|
'addition is for OFFSET.
|
|
'Combine two equations with offset to
|
|
'get double rotation!
|
|
|
|
LET x = COS(v3) * 180 + (COS(v) * -20 + 320)
|
|
LET y = SIN(v3) * 180 + (SIN(v) * -20 + 240)
|
|
LET x2 = COS(v3) * 180 + (COS(v) * 20 + 320)
|
|
LET y2 = SIN(v3) * 180 + (SIN(v) * 20 + 240)
|
|
|
|
LET x3 = COS(v3) * 180 + (COS(v) * 0 + 320)
|
|
LET y3 = SIN(v3) * 180 + (SIN(v) * 0 + 240)
|
|
|
|
LET x4 = COS(v) * 20 + 320
|
|
LET y4 = SIN(v) * 20 + 240
|
|
LET x5 = COS(v4) * 80 + 320
|
|
LET y5 = SIN(v4) * 80 + 240
|
|
|
|
'DRAW
|
|
LINE (x, y)-(x2, y2), 15
|
|
CIRCLE (x3, y3), 20, 15
|
|
CIRCLE (x4, y4), 40, 15
|
|
CIRCLE (x5, y5), 10, 15
|
|
|
|
'WAIT and key press=exit
|
|
LET key$ = INKEY$
|
|
FOR v2 = 1 TO 10000
|
|
IF key$ <> "" THEN
|
|
END
|
|
END IF
|
|
NEXT v2
|
|
|
|
'ERASE
|
|
LINE (x, y)-(x2, y2), 0
|
|
CIRCLE (x3, y3), 20, 0
|
|
CIRCLE (x4, y4), 40, 0
|
|
CIRCLE (x5, y5), 10, 0
|
|
|
|
NEXT v
|
|
LOOP
|
|
|