From 28b9285d181f9aded1df387b7c549ba1d8e37b79 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Mon, 24 Feb 2025 18:01:03 +0200
Subject: [PATCH] Improve code readability

---
 Graphics/Presentations/AI/AI demo.bas | 95 ++++++++-------------------
 1 file changed, 26 insertions(+), 69 deletions(-)

diff --git a/Graphics/Presentations/AI/AI demo.bas b/Graphics/Presentations/AI/AI demo.bas
index a467ed5..ace5ef5 100644
--- a/Graphics/Presentations/AI/AI demo.bas	
+++ b/Graphics/Presentations/AI/AI demo.bas	
@@ -1,3 +1,11 @@
+DECLARE SUB Scene1 ()
+DECLARE SUB Scene9 ()
+DECLARE SUB Scene2 ()
+DECLARE SUB Scene8 ()
+DECLARE SUB Scene3 ()
+DECLARE SUB Scene4 ()
+DECLARE SUB Scene5 ()
+DECLARE SUB Scene7 ()
 DECLARE SUB start ()
 DECLARE SUB sc1 ()
 DECLARE SUB sc2 ()
@@ -31,18 +39,15 @@ DIM SHARED angl1, angl2
 DIM SHARED font(0 TO 7, 0 TO 7, 32 TO 150)
 
 start
-'GOTO 6
-sc1
-sc2
-sc3
-sc4
-sc5
-sc6
-sc7
-6
-sc8
-sc10
-sc9
+
+Scene1
+Scene2
+Scene3
+Scene4
+Scene5
+Scene7
+Scene8
+Scene9
 
 SUB box (x1, y1, x2, y2)
 
@@ -299,7 +304,7 @@ SUB RotatePoint (zx, zy, x1, y1, N)
     y1 = x2 * c1 + y2 * s1 + zy
 END SUB
 
-SUB sc1
+SUB Scene1
 SetPalette 0, 63, 20, 255
 DIM px(0 TO 1000)
 DIM py(0 TO 1000)
@@ -447,36 +452,7 @@ angl1 = an1
 angl2 = an2
 END SUB
 
-SUB sc10
-
-RANDOMIZE 122
-mkback
-
-box 30, 50, 250, 180
-
-SetPalette 32, 64, 32, 250
-y = -8
-PrintText 30, 70 + y, 1, 250, "    Kasutatud kirjandus:"
-y = y + 20
-PrintText 30, 70 + y, 1, 250, "An augmented computer vision"
-y = y + 13
-PrintText 30, 70 + y, 1, 250, "approach for anhanced"
-y = y + 13
-PrintText 30, 70 + y, 1, 250, "understanding. M.Adjouadi,"
-y = y + 13
-PrintText 30, 70 + y, 1, 250, "J.Riley; "
-y = y + 13
-PrintText 30, 70 + y, 1, 250, "Journal of Rehabilitation"
-y = y + 13
-PrintText 30, 70 + y, 1, 250, "Research & Development,"
-y = y + 13
-PrintText 30, 70 + y, 1, 250, "Oct 95, Vol. 32 issue 3"
-
-inpur
-
-END SUB
-
-SUB sc2
+SUB Scene2
 SetPalette 0, 63, 20, 255
 CLS
 angl1 = 0
@@ -579,7 +555,7 @@ NEXT a
 
 END SUB
 
-SUB sc3
+SUB Scene3
 DIM buf(1 TO 10000)
 DIM buf1(0 TO 35)
 
@@ -646,7 +622,7 @@ NEXT a
 inpur
 END SUB
 
-SUB sc4
+SUB Scene4
 RANDOMIZE 1
 mkback
 
@@ -665,7 +641,7 @@ PrintText 30, 70 + y, 1, 250, "            + automaatjuhtimine"
 inpur
 END SUB
 
-SUB sc5
+SUB Scene5
 RANDOMIZE 4
 mkback
 
@@ -688,26 +664,7 @@ PrintText 30, 70 + y, 1, 250, "   rakkude p�him�tted."
 inpur
 END SUB
 
-SUB sc6
-RANDOMIZE 40
-mkback
-
-box 30, 50, 290, 150
-
-SetPalette 32, 64, 32, 250
-y = -8
-PrintText 30, 70 + y, 1, 250, "* Depth extraction"
-y = y + 20
-PrintText 30, 70 + y, 1, 250, "* Usage of spatial vision"
-y = y + 20
-PrintText 30, 70 + y, 1, 250, "* Similarity"
-y = y + 20
-PrintText 30, 70 + y, 1, 250, "* Matching strategy"
-inpur
-
-END SUB
-
-SUB sc7
+SUB Scene7
 SetPalette 0, 0, 0, 0
 FOR a = 0 TO 19
     FOR y = a TO 199 STEP 20
@@ -718,7 +675,7 @@ NEXT a
 
 END SUB
 
-SUB sc8
+SUB Scene8
 FOR a = 1 TO 50
     SetPalette 0, 0, 0, a
 NEXT a
@@ -1057,7 +1014,7 @@ IF tim < 28000 THEN GOTO 10
 13
 END SUB
 
-SUB sc9
+SUB Scene9
 
 RANDOMIZE 45
 mkback
@@ -1066,7 +1023,7 @@ box 30, 50, 290, 80
 
 SetPalette 32, 64, 32, 250
 y = -8
-PrintText 30, 70 + y, 1, 250, "      T�nan t�helepanu eest"
+PrintText 30, 70 + y, 1, 250, "     Thank you for attention!"
 inpur
 
 END SUB
-- 
2.20.1