scripts ready for demo

dschmenk · Jan 5, 2024 · 1c3505a · 1c3505a
1 parent 0d552c5
commit 1c3505a
Show file tree

Hide file tree

Showing 4 changed files with 36 additions and 33 deletions.
diff --git a/images/apple/PLFORTH.PO b/images/apple/PLFORTH.PO
diff --git a/src/scripts/fpu.4th b/src/scripts/fpu.4th
@@ -84,5 +84,7 @@ FPULIB 68 IFACE PLASMA _FPRANDNUM       : FPRANDNUM    _FPRANDNUM    FPERR ! ;
 
 : FP. HERE 10 4 FPSTR.FLEX FPSTR! HERE (.") ;
 
+: FPEXT CREATE 10 ALLOT ;
+
 FPRESET ( Load SANE code and set up libraries )
 
diff --git a/src/scripts/hrbounce.4th b/src/scripts/hrbounce.4th
@@ -1,5 +1,5 @@
-LOOKUP HRFORTH
-LOOKUP HR2FORTH
+LOOKUP HRFORTH  ( HGR page 1 reserved )
+LOOKUP HR2FORTH ( HGR page 1 and 2 reserved )
 OR NOT ABORT" Must run with HRFORTH."
 
 : ?PLASMA

diff --git a/src/scripts/rod.4th b/src/scripts/rod.4th
@@ -23,40 +23,41 @@
 0 VARIABLE FMI
 0 VARIABLE FMK
 
-: RODINNER
-  20 1 DO                                 ( for i = 1 to 19 )
-    20 0 DO                               ( for j = 0 to 19 )
-      ( Note: i -> J, j -> I )
-      I 3 * J 3 + / J W @ * 12 / +        ( color = {j * 3} / {i + 3} + i * w / 12 )
-      COLOR                               ( grcolor{color} )
-      J I + K !                           ( k = i + j )
-      40 J - FMI !                        ( fmi = 40 - i )
-      40 K @ - FMK !                      ( fmk = 40 - k )
-      J K @ PLOT                          ( grplot{i, k} )
-      K @ J PLOT                          ( grplot{k, i} )
-      FMI @ FMK @ PLOT                    ( grplot{fmi, fmk} )
-      FMK @ FMI @ PLOT                    ( grplot{fmk, fmi} )
-      K @ FMI @ PLOT                      ( grplot{k, fmi} )
-      FMI @ K @ PLOT                      ( grplot{fmi, k} )
-      J FMK @ PLOT                        ( grplot{i, fmk} )
-      FMK @ J PLOT                        ( grplot{fmk, i} )
-    LOOP                                  ( next )
-    ?TERMINAL IF                          ( if keypressed )
-      LEAVE                               ( return )
-    THEN                                  ( fin )
-  LOOP                                    ( next )
+: DOROD
+  BEGIN
+    51 3 DO ( for w = 3 to 50 )
+      I W !
+      20 1 DO ( for i = 1 to 19 )
+        20 0 DO ( for j = 0 to 19 )
+          ( Note: i -> J, j -> I )
+          I 3 * J 3 + / J W @ * 12 / +
+          COLOR
+          J I + K !
+          40 J - FMI !
+          40 K @ - FMK !
+          J K @ PLOT
+          K @ J PLOT
+          FMI @ FMK @ PLOT
+          FMK @ FMI @ PLOT
+          K @ FMI @ PLOT
+          FMI @ K @ PLOT
+          J FMK @ PLOT
+          FMK @ J PLOT
+          ?TERMINAL IF ( if keypressed )
+            KEY DROP
+            R> DROP R> DROP ( clean up DO-OKIE )
+            R> DROP R> DROP
+            R> DROP R> DROP
+            EXIT ( return )
+          THEN
+        LOOP
+      LOOP
+    LOOP
+  AGAIN
 ;
 : ROD
   GR
-  BEGIN
-    51 3 DO                               ( for w = 3 to 50 )
-      I W !
-      RODINNER
-      ?TERMINAL IF LEAVE THEN
-    LOOP                                  ( next )
-  ?TERMINAL
-  UNTIL
-  KEY DROP
+    DOROD
   TEXT
 ;
Original file line number	Diff line number	Diff line change
Expand Up		@@ -84,5 +84,7 @@ FPULIB 68 IFACE PLASMA _FPRANDNUM : FPRANDNUM _FPRANDNUM FPERR ! ;

		: FP. HERE 10 4 FPSTR.FLEX FPSTR! HERE (.") ;

		: FPEXT CREATE 10 ALLOT ;

		FPRESET ( Load SANE code and set up libraries )