make FORTH callable from PLASMA

src/scripts/hrturtle.4th

@@ -8,7 +8,7 @@ SRC" TURTLE.4TH"
 
 : SHOW
   0 HGRMODE HGRDRAWBUF DROP
-  280 192 INITTURTLE
+  280 192 [ LOOKUP LINESPANS ] LITERAL INITTURTLE
   3 HGRCOLOR
 ;
 
@@ -26,9 +26,4 @@ SRC" TURTLE.4TH"
     10 +LOOP
 ;
 
-: SPIN
-    SHOW
-    SPIN
-;
-
-SHOW SPIN
+SHOW SPIN KEY DROP -1 HGRMODE DROP

src/scripts/plasma.4th

@@ -22,3 +22,4 @@ LOOKUP FILEIO 0 IFACE PLASMA GETPFX
 LOOKUP FILEIO 1 IFACE PLASMA SETPFX
 : PFX. HERE GETPFX DROP HERE (.") ;
 : PFX" 34 WORD SETPFX DROP ;
+: PFA 32 WORD FIND 0= ?ABORT" Not found." DUP C@ + 8 + ;

src/scripts/turtle.4th

@@ -1,7 +1,6 @@
 ' INITTURTLE ?ENDSRC
 " INT32"  LOADMOD"  "
 " SINCOS" LOADMOD"  "
-" LINES"  LOADMOD"  "
 " TURTLE" LOADMOD"  "
 LOOKUP INITTURTLE    PLASMA INITTURTLE
 LOOKUP CLIPLINE      PLASMA CLIPLINE