Improve code readability

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