From c0df5592c865697206d8ed43ab9440401cb347e3 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Tue, 10 Sep 2024 20:31:56 +0300
Subject: [PATCH] Using AI to improve code readability

---
 .../KHK Intellektika 2004 demo/khkdemo4.BAS   | 35 +++++++++----------
 .../KHK Intellektika 2004 demo/khkdemo5.BAS   |  7 ++--
 Math/{tuletis.bas => deriviative.bas}         |  0
 3 files changed, 21 insertions(+), 21 deletions(-)
 rename Math/{tuletis.bas => deriviative.bas} (100%)

diff --git a/Graphics/3D/KHK Intellektika 2004 demo/khkdemo4.BAS b/Graphics/3D/KHK Intellektika 2004 demo/khkdemo4.BAS
index ec82d00..4842b71 100755
--- a/Graphics/3D/KHK Intellektika 2004 demo/khkdemo4.BAS	
+++ b/Graphics/3D/KHK Intellektika 2004 demo/khkdemo4.BAS	
@@ -1,20 +1,20 @@
-DECLARE SUB ga (x!, y!, s!)
-DIM SHARED colr         ' this variable holds fractal color
-                        ' and because it is 'SHARED' it is accessible
-                        ' from within sub module.
+DECLARE SUB drawFractal (x!, y!, s!)
+DIM SHARED fractalColor         ' this variable holds fractal color
+                                ' and because it is 'SHARED' it is accessible
+                                ' from within sub module.
 SCREEN 12
 
-colr = 10                               ' display single fractel
-ga 320, 240, 127
+fractalColor = 10                       ' display single fractal
+drawFractal 320, 240, 127
 
 FOR a = 1 TO 50
   SOUND 0, 1
 NEXT a
 CLS
 
-FOR a = 1 TO 128 STEP 5                 ' display fractal serie
-  colr = RND * 7 + 7
-  ga 320, 240, a
+FOR a = 1 TO 128 STEP 5                 ' display fractal series
+  fractalColor = RND * 7 + 7
+  drawFractal 320, 240, a
 NEXT a
 
 FOR a = 1 TO 50
@@ -23,13 +23,12 @@ NEXT a
 
 CHAIN "khkdemo5.bas"
 
-SUB ga (x, y, s)
-IF s >= 1 THEN
-  LINE (x - s, y - s)-(x + s, y + s), colr, B
-  ga x - s, y - s, s / 2.3  ' each fractel sub element is 2.3 times smaller
-  ga x + s, y - s, s / 2.3  ' than previous.
-  ga x + s, y + s, s / 2.3
-  ga x - s, y + s, s / 2.3
-END IF
+SUB drawFractal (x, y, s)
+    IF s >= 1 THEN
+        LINE (x - s, y - s)-(x + s, y + s), fractalColor, B
+        drawFractal x - s, y - s, s / 2.3  ' each fractal sub element is 2.3 times smaller
+        drawFractal x + s, y - s, s / 2.3  ' than previous.
+        drawFractal x + s, y + s, s / 2.3
+        drawFractal x - s, y + s, s / 2.3
+    END IF
 END SUB
-
diff --git a/Graphics/Presentations/KHK Intellektika 2004 demo/khkdemo5.BAS b/Graphics/Presentations/KHK Intellektika 2004 demo/khkdemo5.BAS
index f9aba8f..dd8de8c 100755
--- a/Graphics/Presentations/KHK Intellektika 2004 demo/khkdemo5.BAS	
+++ b/Graphics/Presentations/KHK Intellektika 2004 demo/khkdemo5.BAS	
@@ -1,3 +1,5 @@
+DECLARE FUNCTION getWord& (addr!)
+DECLARE FUNCTION getByte! (addr!)
 ' Render animated 3D maze.
 ' By Svjatoslav Agejenko.
 ' Email: svjatoslav@svjatoslav.eu
@@ -12,8 +14,6 @@ DECLARE SUB startText ()
 DECLARE SUB control ()
 DECLARE SUB putByte (addr!, dat!)
 DECLARE SUB putWord (addr!, dat!)
-DECLARE FUNCTION getWord& (addr!)
-DECLARE FUNCTION getByte& (addr!)
 DECLARE SUB start ()
 DECLARE SUB animate ()
 
@@ -168,7 +168,7 @@ IF getByte(8) <> 0 THEN
             GOTO 3
         END IF
         myys = myys + yp / 4
-        3
+3
         yp = 0
     END IF
 
@@ -305,3 +305,4 @@ IF getWord(0) <> 1983 THEN
 END IF
 
 END SUB
+
diff --git a/Math/tuletis.bas b/Math/deriviative.bas
similarity index 100%
rename from Math/tuletis.bas
rename to Math/deriviative.bas
-- 
2.20.1