From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 11 Sep 2024 14:47:20 +0000 (+0300)
Subject: Using AI to improve code readability
X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=621a81b68adf831e0b9849cc30086d9fda985f89;p=qbasicapps.git

Using AI to improve code readability
---

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