Using AI to improve code readability

diff --git a/Graphics/Presentations/KHK Intellektika 2004 demo/RAY.BAS b/Graphics/Presentations/KHK Intellektika 2004 demo/RAY.BAS
index 89451bc..a790285 100755 (executable)
--- a/Graphics/Presentations/KHK Intellektika 2004 demo/RAY.BAS
+++ b/Graphics/Presentations/KHK Intellektika 2004 demo/RAY.BAS
@@ -40,7 +40,6 @@ INPUT #1, pictyw
 INPUT #1, pictx\r
 INPUT #1, picty\r
 \r
-\r
 1\r
 x1 = RND * 160\r
 y1 = RND * 160\r
@@ -49,15 +48,15 @@ y2 = y1 + RND * 10 + 1
 \r
 IF (frm > 50) AND (frm < 150) THEN square x1, y1, x2, y2, RND * 200, RND * 10\r
 IF (frm > 150) AND (picty < 177) THEN\r
- \r
-  FOR ff = 1 TO 180 * 2\r
-    INPUT #1, c\r
-    landc(pictx, picty) = c\r
-    landh(pictx, picty) = 0\r
-    pictx = pictx + 1\r
-    IF pictx >= pictxw THEN pictx = 0: picty = picty + 1\r
-    IF picty >= pictyw THEN picty = 0\r
-  NEXT ff\r
+\r
+    FOR ff = 1 TO 180 * 2\r
+        INPUT #1, c\r
+        landc(pictx, picty) = c\r
+        landh(pictx, picty) = 0\r
+        pictx = pictx + 1\r
+        IF pictx >= pictxw THEN pictx = 0: picty = picty + 1\r
+        IF picty >= pictyw THEN picty = 0\r
+    NEXT ff\r
 END IF\r
 \r
 IF frm = 430 THEN dispimg\r
@@ -74,8 +73,8 @@ SUB dispframe
 l = 0\r
 zst = -.0031 * ste\r
 FOR z = .5 TO -.5 STEP zst\r
-traceline SIN(zmyan + z) * dist + myx, COS(zmyan + z) * dist + myy, l\r
-l = l + ste\r
+    traceline SIN(zmyan + z) * dist + myx, COS(zmyan + z) * dist + myy, l\r
+    l = l + ste\r
 NEXT z\r
 \r
 END SUB\r
@@ -84,23 +83,21 @@ SUB dispimg
 \r
 CLOSE #1\r
 \r
-\r
 OPEN "cat.i01" FOR INPUT AS #1\r
 INPUT #1, pictxw\r
 INPUT #1, pictyw\r
 \r
 FOR y = 0 TO pictyw - 1\r
-FOR x = 0 TO pictxw - 1\r
-INPUT #1, c\r
-PSET (x + 50, 150 - y), c\r
-NEXT x\r
+    FOR x = 0 TO pictxw - 1\r
+        INPUT #1, c\r
+        PSET (x + 50, 150 - y), c\r
+    NEXT x\r
 NEXT y\r
 \r
 CLOSE #1\r
 \r
-\r
 FOR a = 1 TO 50\r
-  SOUND 0, 1\r
+    SOUND 0, 1\r
 NEXT a\r
 CHAIN "KHKDEMO2.BAS"\r
 \r
@@ -108,20 +105,19 @@ END SUB
 \r
 SUB displand\r
 \r
-\r
 FOR z = 0 TO 180\r
-zs = 1\r
-IF z > 120 THEN zs = .7\r
-IF z > 160 THEN zs = .6\r
-FOR zx = 0 TO 180 STEP zs\r
-y1 = landh(zx, z) - 80\r
-zx1 = zx - 90\r
-z1 = 300 - z\r
-zx2 = zx1 / z1 * 190\r
-zy2 = y1 / z1 * 190\r
-\r
-LINE (zx2 + 160, 40 - zy2)-(zx2 + 160, 200), landc(zx, z)\r
-NEXT zx\r
+    zs = 1\r
+    IF z > 120 THEN zs = .7\r
+    IF z > 160 THEN zs = .6\r
+    FOR zx = 0 TO 180 STEP zs\r
+        y1 = landh(zx, z) - 80\r
+        zx1 = zx - 90\r
+        z1 = 300 - z\r
+        zx2 = zx1 / z1 * 190\r
+        zy2 = y1 / z1 * 190\r
+\r
+        LINE (zx2 + 160, 40 - zy2)-(zx2 + 160, 200), landc(zx, z)\r
+    NEXT zx\r
 NEXT z\r
 \r
 LOCATE 1, 1\r
@@ -146,38 +142,37 @@ SUB makeland
 square 0, 0, 180, 180, 15, 0\r
 \r
 FOR y = 0 TO 180\r
-FOR x = 0 TO 180\r
-x1 = (x \ 10) MOD 2\r
-y1 = (y \ 10) MOD 2\r
-c = (x1 + y1) MOD 2\r
-IF c = 0 THEN\r
-  landc(x, y) = getcol(250, 250, 250)\r
-ELSE\r
-  landc(x, y) = getcol(250, 50, 50)\r
-END IF\r
-NEXT x\r
+    FOR x = 0 TO 180\r
+        x1 = (x \ 10) MOD 2\r
+        y1 = (y \ 10) MOD 2\r
+        c = (x1 + y1) MOD 2\r
+        IF c = 0 THEN\r
+            landc(x, y) = getcol(250, 250, 250)\r
+        ELSE\r
+            landc(x, y) = getcol(250, 50, 50)\r
+        END IF\r
+    NEXT x\r
 NEXT y\r
 \r
 FOR y = 10 TO 90\r
-FOR x = 90 TO 170\r
-v = SQR((ABS(50 - y)) ^ 2 + (ABS(130 - x)) ^ 2)\r
-h = SQR((60 - v) * (60 + v)) - 35\r
-IF h > 0 THEN landh(x, y) = h\r
-NEXT x\r
+    FOR x = 90 TO 170\r
+        v = SQR((ABS(50 - y)) ^ 2 + (ABS(130 - x)) ^ 2)\r
+        h = SQR((60 - v) * (60 + v)) - 35\r
+        IF h > 0 THEN landh(x, y) = h\r
+    NEXT x\r
 NEXT y\r
 \r
 tower 20, 20\r
 tower 60, 20\r
 tower 40, 150\r
 \r
-\r
 FOR za = 0 TO 20 STEP .1\r
-x = SIN(za) * (1 + (za * 2)) + 100\r
-y = COS(za) * (1 + (za * 2)) + 100\r
-landc(x, y) = getcol(20, RND * 200, 20)\r
-landc(x + 1, y) = getcol(20, RND * 200, 20)\r
-landc(x, y + 1) = getcol(20, RND * 200, 20)\r
-landc(x + 1, y + 1) = getcol(20, RND * 200, 20)\r
+    x = SIN(za) * (1 + (za * 2)) + 100\r
+    y = COS(za) * (1 + (za * 2)) + 100\r
+    landc(x, y) = getcol(20, RND * 200, 20)\r
+    landc(x + 1, y) = getcol(20, RND * 200, 20)\r
+    landc(x, y + 1) = getcol(20, RND * 200, 20)\r
+    landc(x + 1, y + 1) = getcol(20, RND * 200, 20)\r
 NEXT za\r
 \r
 END SUB\r
@@ -185,25 +180,25 @@ END SUB
 SUB setupal\r
 c = 0\r
 FOR r = 0 TO 5\r
-FOR g = 0 TO 5\r
-FOR b = 0 TO 5\r
-OUT &H3C8, c\r
-c = c + 1\r
-OUT &H3C9, r * 12\r
-OUT &H3C9, g * 12\r
-OUT &H3C9, b * 12\r
-NEXT b\r
-NEXT g\r
+    FOR g = 0 TO 5\r
+        FOR b = 0 TO 5\r
+            OUT &H3C8, c\r
+            c = c + 1\r
+            OUT &H3C9, r * 12\r
+            OUT &H3C9, g * 12\r
+            OUT &H3C9, b * 12\r
+        NEXT b\r
+    NEXT g\r
 NEXT r\r
 END SUB\r
 \r
 SUB square (x1, y1, x2, y2, c, h)\r
 \r
 FOR y = y1 TO y2\r
-FOR x = x1 TO x2\r
-landh(x, y) = h\r
-landc(x, y) = c\r
-NEXT x\r
+    FOR x = x1 TO x2\r
+        landh(x, y) = h\r
+        landc(x, y) = c\r
+    NEXT x\r
 NEXT y\r
 \r
 END SUB\r
@@ -229,7 +224,7 @@ END SUB
 SUB tower (x, y)\r
 \r
 FOR a = 10 TO 0 STEP -1\r
-square x - a, y - a, x + a, y + a, getcol(100, 0, a * 20), 20 - a\r
+    square x - a, y - a, x + a, y + a, getcol(100, 0, a * 20), 20 - a\r
 NEXT a\r
 \r
 square x - 11, y - 11, x - 9, y - 9, getcol(255, 0, 0), 20\r
@@ -237,33 +232,32 @@ square x + 9, y - 11, x + 11, y - 9, getcol(0, 255, 0), 20
 square x - 11, y + 9, x - 9, y + 11, getcol(0, 0, 255), 20\r
 square x + 9, y + 9, x + 11, y + 11, getcol(255, 255, 0), 20\r
 \r
-\r
 END SUB\r
 \r
 SUB traceline (x, y, xl)\r
 \r
 IF x < 0 THEN\r
-zpr = myx / (myx - x)\r
-x = 0\r
-y = myy - ((myy - y) * zpr)\r
+    zpr = myx / (myx - x)\r
+    x = 0\r
+    y = myy - ((myy - y) * zpr)\r
 END IF\r
 \r
 IF y < 0 THEN\r
-zpr = myy / (myy - y)\r
-y = 0\r
-x = myx - ((myx - x) * zpr)\r
+    zpr = myy / (myy - y)\r
+    y = 0\r
+    x = myx - ((myx - x) * zpr)\r
 END IF\r
 \r
 IF x > 180 THEN\r
-zpr = (180 - myx) / (x - myx)\r
-x = 180\r
-y = myy - ((myy - y) * zpr)\r
+    zpr = (180 - myx) / (x - myx)\r
+    x = 180\r
+    y = myy - ((myy - y) * zpr)\r
 END IF\r
 \r
 IF y > 180 THEN\r
-zpr = (180 - myy) / (y - myy)\r
-y = 180\r
-x = myx - ((myx - x) * zpr)\r
+    zpr = (180 - myy) / (y - myy)\r
+    y = 180\r
+    x = myx - ((myx - x) * zpr)\r
 END IF\r
 \r
 lp = SQR(ABS(myx - x) ^ 2 + ABS(myy - y) ^ 2)\r
@@ -274,10 +268,10 @@ yp = y - myy
 yo = 200\r
 \r
 FOR a = 1 TO lp\r
-  cx = xp * a / lp + myx\r
-  cy = yp * a / lp + myy\r
-  yn = myan2 - ((landh(cx, cy) - myz) * 300) / a\r
-  IF yn < yo THEN LINE (xl, yn)-(xl + stem, yo - 1), landc(cx, cy), BF: yo = yn\r
+    cx = xp * a / lp + myx\r
+    cy = yp * a / lp + myy\r
+    yn = myan2 - ((landh(cx, cy) - myz) * 300) / a\r
+    IF yn < yo THEN LINE (xl, yn)-(xl + stem, yo - 1), landc(cx, cy), BF: yo = yn\r
 NEXT a\r
 LINE (xl, yo - 1)-(xl + stem, 0), sky, BF\r
 \r
@@ -289,7 +283,6 @@ frm = frm + 1
 ste = 4\r
 stem = ste - 1\r
 \r
-\r
 zmyan = frm / 15 + pi\r
 'myan2 = myan2 + 5\r
 'zmyx = SIN(zmyan) * 3 + zmyx\r
@@ -314,5 +307,4 @@ myz = zmyz
 myy = zmyy\r
 myx = zmyx\r
 \r
-END SUB\r
-\r
+END SUB
\ No newline at end of file