+' Graphics animation.\r
+' By Svjatoslav Agejenko.\r
+' Email: svjatoslav@svjatoslav.eu\r
+' Homepage: http://www.svjatoslav.eu\r
+'\r
+' Changelog:\r
+' 200?, Initial version\r
+' 2024.09, Improved program readability using AI\r
+\r
DECLARE SUB playsound (a$)\r
DECLARE SUB turnon ()\r
DECLARE SUB ellips (x!, y!, s!, v!, t!)\r
\r
timerinit\r
s = 50\r
-2\r
-s1 = SIN(timerCvalue(1) * 1.3) * .5 + 1.1\r
-s2 = COS(timerCvalue(1) * 1.3) * .5 + 1.1\r
\r
+2 :\r
+ s1 = SIN(timerCvalue(1) * 1.3) * .5 + 1.1\r
+ s2 = COS(timerCvalue(1) * 1.3) * .5 + 1.1\r
\r
frm = frm + 1\r
sv1 = 5 * s1\r
sh2 = 1.4\r
hp = SIN(timerCvalue(1)) * .7\r
\r
-\r
mo timerCvalue(2), timerCvalue(3), timerCvalue(4), timerCvalue(0), 0\r
\r
ellips 100, timerCvalue(6), timerCvalue(7) + 4, 14, .5\r
prn timerCvalue(8), 150, " loogia", 2, 0\r
\r
timerprocess\r
+\r
LOCATE 1, 1\r
'PRINT timerCtime(0)\r
IF timerCtime(0) > 26 THEN CHAIN "ray.bas"\r
SYSTEM\r
\r
SUB ellips (x, y, s, v, t)\r
-\r
-IF x > 0 THEN\r
-IF y > 0 THEN\r
-\r
-CIRCLE (x, y), s, v, , , t\r
-PAINT (x, y), v\r
-\r
-END IF\r
-END IF\r
-\r
+ ' Draws an ellipse if the coordinates are positive\r
+ IF x > 0 THEN\r
+ IF y > 0 THEN\r
+ CIRCLE (x, y), s, v, , , t\r
+ PAINT (x, y), v\r
+ END IF\r
+ END IF\r
END SUB\r
\r
SUB mo (x, y, an, s, w)\r
-depth = depth + 1\r
-IF s < .2 THEN GOTO 1\r
-\r
-IF depth / 2 = depth \ 2 THEN c = 1 ELSE c = 3\r
-\r
-CIRCLE (x, y), s, c\r
-PAINT (x, y), c\r
-\r
-IF w <> 1 THEN\r
-x1 = SIN(an) * s * 2.5 + x\r
-y1 = COS(an) * s * 2.5 + y\r
-IF w = 3 THEN ns = s / sv2 ELSE ns = s / sv1\r
-mo x1, y1, an + vp, ns, 3\r
-END IF\r
-\r
-IF w <> 2 THEN\r
-x1 = SIN(an - pi / 2) * s * 2.5 + x\r
-y1 = COS(an - pi / 2) * s * 2.5 + y\r
-IF w = 4 THEN ns = s / sh2 ELSE ns = s / sh1\r
-mo x1, y1, an + hp, ns, 4\r
-END IF\r
-\r
-IF w <> 3 THEN\r
-x1 = SIN(an - pi) * s * 2.5 + x\r
-y1 = COS(an - pi) * s * 2.5 + y\r
-IF w = 1 THEN ns = s / sv2 ELSE ns = s / sv1\r
-mo x1, y1, an + vp, ns, 1\r
-END IF\r
-\r
-IF w <> 4 THEN\r
-x1 = SIN(an - pi * 1.5) * s * 2.5 + x\r
-y1 = COS(an - pi * 1.5) * s * 2.5 + y\r
-IF w = 2 THEN ns = s / sh2 ELSE ns = s / sh1\r
-mo x1, y1, an + hp, ns, 2\r
-END IF\r
-\r
-1\r
-depth = depth - 1\r
-END SUB\r
+ ' Recursive function to draw a shape with rotating and scaling properties\r
+ depth = depth + 1\r
+ IF s < .2 THEN GOTO 1\r
\r
-SUB playsound (a$)\r
-REM SHELL "c:\progra~1\winamp\winamp.exe " + a$\r
-SCREEN 0\r
-SCREEN 7, , , 1\r
+ IF depth / 2 = depth \ 2 THEN c = 1 ELSE c = 3\r
\r
-END SUB\r
+ CIRCLE (x, y), s, c\r
+ PAINT (x, y), c\r
\r
-SUB prn (x, y, msg$, siz, col1)\r
-IF x < 0 THEN GOTO prn1\r
-IF x > 319 THEN GOTO prn1\r
+ IF w <> 1 THEN\r
+ x1 = SIN(an) * s * 2.5 + x\r
+ y1 = COS(an) * s * 2.5 + y\r
+ IF w = 3 THEN ns = s / sv2 ELSE ns = s / sv1\r
+ mo x1, y1, an + vp, ns, 3\r
+ END IF\r
\r
-DIM bck(10000)\r
+ IF w <> 2 THEN\r
+ x1 = SIN(an - pi / 2) * s * 2.5 + x\r
+ y1 = COS(an - pi / 2) * s * 2.5 + y\r
+ IF w = 4 THEN ns = s / sh2 ELSE ns = s / sh1\r
+ mo x1, y1, an + hp, ns, 4\r
+ END IF\r
\r
-GET (0, 0)-(100, 7), bck\r
-LOCATE 1, 1\r
-PRINT msg$\r
-\r
-col = col1\r
-\r
-FOR x1 = 0 TO LEN(msg$) * 8 - 1\r
-FOR y1 = 0 TO 7\r
- IF POINT(x1, y1) > 0 THEN\r
- rx = x1 * siz + x\r
- ry = y1 * siz + y\r
- IF col1 > 100 THEN col = RND * 4 + 10\r
- IF col1 > 200 THEN\r
- LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, B\r
- ELSE\r
- LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, BF\r
+ IF w <> 3 THEN\r
+ x1 = SIN(an - pi) * s * 2.5 + x\r
+ y1 = COS(an - pi) * s * 2.5 + y\r
+ IF w = 1 THEN ns = s / sv2 ELSE ns = s / sv1\r
+ mo x1, y1, an + vp, ns, 1\r
END IF\r
-' LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, BF\r
- END IF\r
-NEXT y1\r
-NEXT x1\r
\r
+ IF w <> 4 THEN\r
+ x1 = SIN(an - pi * 1.5) * s * 2.5 + x\r
+ y1 = COS(an - pi * 1.5) * s * 2.5 + y\r
+ IF w = 2 THEN ns = s / sh2 ELSE ns = s / sh1\r
+ mo x1, y1, an + hp, ns, 2\r
+ END IF\r
+\r
+1 :\r
+ depth = depth - 1\r
+END SUB\r
\r
-PUT (0, 0), bck, PSET\r
+SUB prn (x, y, msg$, siz, col1)\r
+ ' Prints text with specified size and color at given coordinates\r
+ IF x < 0 THEN GOTO prn1\r
+ IF x > 319 THEN GOTO prn1\r
+\r
+ DIM bck(10000)\r
+\r
+ GET (0, 0)-(100, 7), bck\r
+ LOCATE 1, 1\r
+ PRINT msg$\r
+\r
+ col = col1\r
+\r
+ FOR x1 = 0 TO LEN(msg$) * 8 - 1\r
+ FOR y1 = 0 TO 7\r
+ IF POINT(x1, y1) > 0 THEN\r
+ rx = x1 * siz + x\r
+ ry = y1 * siz + y\r
+ IF col1 > 100 THEN col = RND * 4 + 10\r
+ IF col1 > 200 THEN\r
+ LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, B\r
+ ELSE\r
+ LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, BF\r
+ END IF\r
+ END IF\r
+ NEXT y1\r
+ NEXT x1\r
+\r
+ PUT (0, 0), bck, PSET\r
prn1:\r
END SUB\r
\r
SUB timerAdd (element, time, value)\r
-\r
-FOR a = 0 TO 100\r
- IF (timerTime(element, a) = 0) AND (timerValue(element, a) = 0) THEN GOTO timer3\r
-NEXT a\r
+ ' Adds a new timer event for a specific element at a given time with the specified value\r
+ FOR a = 0 TO 100\r
+ IF (timerTime(element, a) = 0) AND (timerValue(element, a) = 0) THEN GOTO timer3\r
+ NEXT a\r
timer3:\r
\r
-timerTime(element, a) = time\r
-timerValue(element, a) = value\r
-\r
-END SUB\r
-\r
-SUB timerdisp\r
-LOCATE 1, 1\r
-\r
-FOR a = 0 TO 10\r
- PRINT timerCplace(a), timerCtime(a), timerCvalue(a)\r
-NEXT a\r
-\r
+ timerTime(element, a) = time\r
+ timerValue(element, a) = value\r
END SUB\r
\r
SUB timerinit\r
-timerLast = TIMER\r
-\r
-paus = 24\r
-\r
-' stuff size\r
-timerAdd 0, 0, 50\r
-timerAdd 0, 7, 10\r
-timerAdd 0, 20, 10\r
-timerAdd 0, 24, 0\r
-timerAdd 0, 1000, 0\r
+ ' Initializes timers with predefined events and values\r
+ timerLast = TIMER\r
\r
+ paus = 24\r
\r
-' stuff speed\r
-timerAdd 1, 0, .1\r
-timerAdd 1, 1000, 1000\r
+ ' stuff size\r
+ timerAdd 0, 0, 50\r
+ timerAdd 0, 7, 10\r
+ timerAdd 0, 20, 10\r
+ timerAdd 0, 24, 0\r
+ timerAdd 0, 1000, 0\r
\r
-' stuff X & Y\r
-timerAdd 2, 0, 160\r
-timerAdd 3, 0, 100\r
+ ' stuff speed\r
+ timerAdd 1, 0, .1\r
+ timerAdd 1, 1000, 1000\r
\r
-timerAdd 2, 5, 160\r
-timerAdd 3, 5, 100\r
+ ' stuff X & Y\r
+ timerAdd 2, 0, 160\r
+ timerAdd 3, 0, 100\r
\r
-timerAdd 2, 9, 280\r
-timerAdd 3, 9, 160\r
+ timerAdd 2, 5, 160\r
+ timerAdd 3, 5, 100\r
\r
-timerAdd 2, 10, 280\r
-timerAdd 3, 10, 160\r
+ timerAdd 2, 9, 280\r
+ timerAdd 3, 9, 160\r
\r
-timerAdd 2, 20, 40\r
-timerAdd 3, 20, 160\r
+ timerAdd 2, 10, 280\r
+ timerAdd 3, 10, 160\r
\r
-timerAdd 2, 1000, 40\r
-timerAdd 3, 1000, 160\r
+ timerAdd 2, 20, 40\r
+ timerAdd 3, 20, 160\r
\r
-' stuff rotations\r
-timerAdd 4, 0, .1\r
-timerAdd 4, 10, .1\r
-timerAdd 4, 22, 18\r
-timerAdd 4, 2000, 10000\r
+ timerAdd 2, 1000, 40\r
+ timerAdd 3, 1000, 160\r
\r
-' KHK message X\r
+ ' stuff rotations\r
+ timerAdd 4, 0, .1\r
+ timerAdd 4, 10, .1\r
+ timerAdd 4, 22, 18\r
+ timerAdd 4, 2000, 10000\r
\r
-timerAdd 5, 0, -1\r
-timerAdd 5, 5, -1\r
-timerAdd 5, 9, 50\r
-timerAdd 5, 10, 30\r
-timerAdd 5, paus, 30\r
-timerAdd 5, paus + 2, 321\r
+ ' KHK message X\r
\r
-' Ellips Y & radius\r
-timerAdd 6, 0, -1\r
-timerAdd 6, 4, -1\r
-timerAdd 6, 10, 30\r
-timerAdd 6, 1000, 50\r
+ timerAdd 5, 0, -1\r
+ timerAdd 5, 5, -1\r
+ timerAdd 5, 9, 50\r
+ timerAdd 5, 10, 30\r
+ timerAdd 5, paus, 30\r
+ timerAdd 5, paus + 2, 321\r
\r
-timerAdd 7, 0, 1\r
-timerAdd 7, 6, 1\r
-timerAdd 7, 12, 130\r
+ ' Ellips Y & radius\r
+ timerAdd 6, 0, -1\r
+ timerAdd 6, 4, -1\r
+ timerAdd 6, 10, 30\r
+ timerAdd 6, 1000, 50\r
\r
-timerAdd 7, paus, 130\r
-timerAdd 7, paus + 2, 1\r
+ timerAdd 7, 0, 1\r
+ timerAdd 7, 6, 1\r
+ timerAdd 7, 12, 130\r
\r
-' "Infotehnoloogia" message\r
-\r
-timerAdd 8, 0, 320\r
-timerAdd 8, 11, 320\r
-timerAdd 8, 20, 100\r
-timerAdd 8, paus, 100\r
-timerAdd 8, paus + 1, -1\r
+ timerAdd 7, paus, 130\r
+ timerAdd 7, paus + 2, 1\r
\r
+ ' "Infotehnoloogia" message\r
\r
+ timerAdd 8, 0, 320\r
+ timerAdd 8, 11, 320\r
+ timerAdd 8, 20, 100\r
+ timerAdd 8, paus, 100\r
+ timerAdd 8, paus + 1, -1\r
END SUB\r
\r
SUB timerprocess\r
-\r
-timerCurrent = TIMER\r
-timerDiff = timerCurrent - timerLast\r
-timerLast = timerCurrent\r
-\r
-FOR a = 0 TO 50\r
- ctim = timerCtime(a) + timerDiff\r
- Cplace = timerCplace(a)\r
+ ' Processes timers to update their current values based on elapsed time\r
+ timerCurrent = TIMER\r
+ timerDiff = timerCurrent - timerLast\r
+ timerLast = timerCurrent\r
+\r
+ FOR a = 0 TO 50\r
+ ctim = timerCtime(a) + timerDiff\r
+ Cplace = timerCplace(a)\r
timer2:\r
- IF timerTime(a, Cplace + 1) = -1 THEN\r
- ctim = 0\r
- Cplace = 0\r
- END IF\r
- IF timerTime(a, Cplace + 1) < ctim THEN\r
- IF timerTime(a, Cplace + 1) = 0 THEN\r
- timerCvalue(a) = timerValue(a, Cplace)\r
- GOTO timer1:\r
- END IF\r
- Cplace = Cplace + 1\r
- GOTO timer2\r
- END IF\r
-\r
- v1 = timerValue(a, Cplace)\r
- t1 = timerTime(a, Cplace)\r
- v2 = timerValue(a, Cplace + 1)\r
- t2 = timerTime(a, Cplace + 1)\r
-\r
- IF v1 = v2 THEN\r
- timerCvalue(a) = v1\r
- ELSE\r
- Tdiff1 = t2 - t1\r
- Tdiff2 = ctim - t1\r
- Vdiff = v2 - v1\r
- timerCvalue(a) = Tdiff2 / Tdiff1 * Vdiff + v1\r
- END IF\r
+ IF timerTime(a, Cplace + 1) = -1 THEN\r
+ ctim = 0\r
+ Cplace = 0\r
+ END IF\r
+ IF timerTime(a, Cplace + 1) < ctim THEN\r
+ IF timerTime(a, Cplace + 1) = 0 THEN\r
+ timerCvalue(a) = timerValue(a, Cplace)\r
+ GOTO timer1:\r
+ END IF\r
+ Cplace = Cplace + 1\r
+ GOTO timer2\r
+ END IF\r
+\r
+ v1 = timerValue(a, Cplace)\r
+ t1 = timerTime(a, Cplace)\r
+ v2 = timerValue(a, Cplace + 1)\r
+ t2 = timerTime(a, Cplace + 1)\r
+\r
+ IF v1 = v2 THEN\r
+ timerCvalue(a) = v1\r
+ ELSE\r
+ Tdiff1 = t2 - t1\r
+ Tdiff2 = ctim - t1\r
+ Vdiff = v2 - v1\r
+ timerCvalue(a) = Tdiff2 / Tdiff1 * Vdiff + v1\r
+ END IF\r
timer1:\r
- timerCplace(a) = Cplace\r
- timerCtime(a) = ctim\r
-NEXT a\r
-\r
+ timerCplace(a) = Cplace\r
+ timerCtime(a) = ctim\r
+ NEXT a\r
END SUB\r
\r
SUB turnon\r
-'a$ = INPUT$(1)\r
-playsound "marine.mp3"\r
-\r
-SCREEN 7, , , 1\r
-\r
-FOR x = 0 TO 160 STEP 15\r
- \r
- LINE (160 - x - 5, 90 - 5)-(160 + x + 5, 110 + 5), 1, BF\r
- LINE (160 - x - 3, 90 - 3)-(160 + x + 3, 110 + 3), 3, BF\r
- LINE (160 - x, 90)-(160 + x, 110), 15, BF\r
-\r
- PCOPY 0, 1\r
- CLS\r
- SOUND 0, .5\r
-NEXT x\r
-\r
-FOR y = 10 TO 100 STEP 15\r
- CLS\r
-\r
- LINE (160 - x - 5, 90 - y - 5)-(160 + x + 5, 110 + y + 5), 1, BF\r
- LINE (160 - x - 3, 90 - y - 3)-(160 + x + 3, 110 + y + 3), 3, BF\r
- LINE (160 - x, 90 - y)-(160 + x, 110 + y), 15, BF\r
-\r
- PCOPY 0, 1\r
- SOUND 0, .5\r
-NEXT y\r
-\r
-FOR a = 1 TO 25\r
- prn RND * 250, RND * 180, STR$(INT(RND * 2)), 3, 0\r
- PCOPY 0, 1\r
- SOUND 0, 1\r
-NEXT a\r
-\r
-DIM buf(1 TO 1000)\r
-FOR b = 1 TO 30\r
-FOR a = 0 TO 195\r
- t = ABS(100 - a)\r
-\r
- IF RND * 50 < t THEN\r
- GET (1, a)-(318, a + 1), buf\r
- IF a > 100 THEN\r
- PUT (0, a), buf, PSET\r
- ELSE\r
- PUT (2, a), buf, PSET\r
- END IF\r
- END IF\r
-NEXT a\r
-PCOPY 0, 1\r
-'SOUND 0, 1\r
-NEXT b\r
-\r
-\r
+ ' Initializes the program by playing a sound and displaying an animation\r
+ SCREEN 0\r
+ SCREEN 7, , , 1\r
+\r
+\r
+ SCREEN 7, , , 1\r
+\r
+ FOR x = 0 TO 160 STEP 15\r
+ LINE (160 - x - 5, 90 - 5)-(160 + x + 5, 110 + 5), 1, BF\r
+ LINE (160 - x - 3, 90 - 3)-(160 + x + 3, 110 + 3), 3, BF\r
+ LINE (160 - x, 90)-(160 + x, 110), 15, BF\r
+\r
+ PCOPY 0, 1\r
+ CLS\r
+ SOUND 0, .5\r
+ NEXT x\r
+\r
+ FOR y = 10 TO 100 STEP 15\r
+ CLS\r
+\r
+ LINE (160 - x - 5, 90 - y - 5)-(160 + x + 5, 110 + y + 5), 1, BF\r
+ LINE (160 - x - 3, 90 - y - 3)-(160 + x + 3, 110 + y + 3), 3, BF\r
+ LINE (160 - x, 90 - y)-(160 + x, 110 + y), 15, BF\r
+\r
+ PCOPY 0, 1\r
+ SOUND 0, .5\r
+ NEXT y\r
+\r
+ FOR a = 1 TO 25\r
+ prn RND * 250, RND * 180, STR$(INT(RND * 2)), 3, 0\r
+ PCOPY 0, 1\r
+ SOUND 0, 1\r
+ NEXT a\r
+\r
+ DIM buf(1 TO 1000)\r
+ FOR b = 1 TO 30\r
+ FOR a = 0 TO 195\r
+ t = ABS(100 - a)\r
+\r
+ IF RND * 50 < t THEN\r
+ GET (1, a)-(318, a + 1), buf\r
+ IF a > 100 THEN\r
+ PUT (0, a), buf, PSET\r
+ ELSE\r
+ PUT (2, a), buf, PSET\r
+ END IF\r
+ END IF\r
+ NEXT a\r
+ PCOPY 0, 1\r
+ 'SOUND 0, 1\r
+ NEXT b\r
END SUB\r
\r