Add samples and command line options to PLFORTH

src/scripts/bounce.4th

@@ -5,8 +5,6 @@ SRC" GRLIB.4TH"
  5 VARIABLE BALLCLR
 10 VARIABLE BALLX
 20 VARIABLE BALLY
-10 VARIABLE OLDX
-20 VARIABLE OLDY
  1 VARIABLE INCX
  1 VARIABLE INCY
 
@@ -21,12 +19,11 @@ SRC" GRLIB.4TH"
   BALLY @ 47 = IF INCY @ NEGATE INCY ! BOOP THEN
   INCX @ BALLX +!
   INCY @ BALLY +!
-  BALLCLR @ GRCOLOR
-  BALLX @ BALLY @ GRPLOT
-  0 GRCOLOR
-  OLDX @ OLDY @ GRPLOT
-  BALLX @ OLDX !
-  BALLY @ OLDY !
+  1 BALLCLR DUP @ GRCOLOR +!
+  0   0 BALLX @ BALLY @ GRLINE
+  39 47 BALLX @ BALLY @ GRLINE
+  0  47 BALLX @ BALLY @ GRLINE
+  39  0 BALLX @ BALLY @ GRLINE
 ;
 
 : BOUNCE

src/scripts/dbounce.4th

@@ -0,0 +1,43 @@
+LOOKUP TX2FORTH NOT ?ABORT" Must run with TX2FORTH."
+
+SRC" PLASMA.4TH"
+SRC" CONIO.4TH"
+SRC" DGRLIB.4TH"
+
+ 5 VARIABLE BALLCLR
+10 VARIABLE BALLX
+20 VARIABLE BALLY
+ 1 VARIABLE INCX
+ 1 VARIABLE INCY
+
+: BEEP 30 10 TONE ;
+
+: BOOP 10 30 TONE ;
+
+: MOVEBALL
+  BALLX @ 0=   IF INCX @ NEGATE INCX ! BEEP THEN
+  BALLX @ 79 = IF INCX @ NEGATE INCX ! BEEP THEN
+  BALLY @ 0=   IF INCY @ NEGATE INCY ! BOOP THEN
+  BALLY @ 47 = IF INCY @ NEGATE INCY ! BOOP THEN
+  INCX @ BALLX +!
+  INCY @ BALLY +!
+  1 BALLCLR DUP @ DGRCOLOR +!
+  0   0 BALLX @ BALLY @ DGRLINE
+  79 47 BALLX @ BALLY @ DGRLINE
+  0  47 BALLX @ BALLY @ DGRLINE
+  79  0 BALLX @ BALLY @ DGRLINE
+;
+
+: BOUNCE
+  0 DGRMODE DROP
+  0 DGRDRAWBUF
+  0 DGRCLEAR
+  BEGIN
+    MOVEBALL
+    KEY?
+  UNTIL
+  KEY DROP
+  -1 DGRMODE DROP
+;
+
+BOUNCE

src/scripts/dgrlib.4th

@@ -0,0 +1,20 @@
+' DGRMODE ?ENDSRC ( Avoid multiple loads )
+" DGRLIB" LOADMOD"  "
+" LINES" LOADMOD"  "
+LOOKUP DGRPLOT    PLASMA DGRPLOT
+LOOKUP DGRHLIN    PLASMA DGRHLIN
+LOOKUP DGRVLIN    PLASMA DGRVLIN
+LOOKUP DGRBLT     PLASMA DGRBLT
+LOOKUP DGRTILE    PLASMA DGRTILE
+LOOKUP DGRTILESTR PLASMA DGRTILESTR
+LOOKUP DGRFILL    PLASMA DGRFILL
+LOOKUP DGRVLB    PLASMA DGRVLB
+LOOKUP DGRCLEAR   PLASMA DGRCLEAR
+LOOKUP DGRMODE    PLASMA DGRMODE
+LOOKUP DGRSHOW    PLASMA DGRSHOW
+LOOKUP DGRSWAP    PLASMA DGRSWAP
+LOOKUP DGRDRAWBUF PLASMA DGRDRAWBUF
+LOOKUP DGRCOLOR   PLASMA DGRCOLOR
+LOOKUP SETLINESPANS PLASMA SETLINESPANS
+LOOKUP LINESPANS  PLASMA DGRLINE
+LOOKUP DGRHLIN LOOKUP DGRVLIN SETLINESPANS

src/scripts/grlib.4th

@@ -1,5 +1,6 @@
 ' GRMODE ?ENDSRC ( Avoid multiple loads )
 " GRLIB" LOADMOD"  "
+" LINES" LOADMOD"  "
 LOOKUP GRPLOT    PLASMA GRPLOT
 LOOKUP GRHLIN    PLASMA GRHLIN
 LOOKUP GRVLIN    PLASMA GRVLIN
@@ -13,4 +14,7 @@ LOOKUP GRMODE    PLASMA GRMODE
 LOOKUP GRSHOW    PLASMA GRSHOW
 LOOKUP GRSWAP    PLASMA GRSWAP
 LOOKUP GRDRAWBUF PLASMA GRDRAWBUF
-LOOKUP GRCOLOR   PLASMA GRCOLOR
+LOOKUP GRCOLOR   PLASMA GRCOLOR
+LOOKUP SETLINESPANS PLASMA SETLINESPANS
+LOOKUP LINESPANS    PLASMA GRLINE
+LOOKUP GRHLIN LOOKUP GRVLIN SETLINESPANS

src/scripts/hgrlib.4th

@@ -1,5 +1,8 @@
 ' HGRMODE ?ENDSRC
-" HGRLIB" LOADMOD"  "
+" HGRLIB"  LOADMOD"  "
+" LINES"   LOADMOD"  "
+" HGRTILE" LOADMOD"  " 
+" HGRFONT" LOADMOD"  "
 LOOKUP HGRPLOT    PLASMA HGRPLOT
 LOOKUP HGRORPLOT  PLASMA HGRORPLOT
 LOOKUP HGRXORPLOT PLASMA HGRXORPLOT
@@ -20,4 +23,15 @@ LOOKUP HGRMODE    PLASMA HGRMODE
 LOOKUP HGRSHOW    PLASMA HGRSHOW
 LOOKUP HGRSWAP    PLASMA HGRSWAP
 LOOKUP HGRDRAWBUF PLASMA HGRDRAWBUF
-LOOKUP HGRCOLOR   PLASMA HGRCOLOR
+LOOKUP HGRCOLOR   PLASMA HGRCOLOR
+LOOKUP HGRPUTSTR  PLASMA HGRPUTSTR
+LOOKUP SETLINESPANS PLASMA SETLINESPANS
+LOOKUP LINESPANS    PLASMA HGRLINE
+LOOKUP HGRHLIN LOOKUP HGRVLIN SETLINESPANS
+LOOKUP TILEDRAW     PLASMA TILEDRAW
+LOOKUP TILEXORDRAW  PLASMA TILEXORDRAW
+LOOKUP TILEORDRAW   PLASMA TILEORDRAW
+LOOKUP TILEANDDRAW  PLASMA TILEANDDRAW
+LOOKUP TILEDRAWSTR  PLASMA TILEDRAWSTR
+LOOKUP TILEFROMTEXT PLASMA TILEFROMTEXT
+LOOKUP TILEDRAWBUF  PLASMA TILEDRAWBUF

src/scripts/hrbounce.4th

@@ -25,18 +25,36 @@ SRC" HGRLIB.4TH"
   BALLY @ 191 = IF INCY @ NEGATE INCY ! BOOP THEN
   INCX @ BALLX +!
   INCY @ BALLY +!
-  BALLCLR @ HGRCOLOR
-  BALLX @ BALLY @ HGRPLOT
-  0 HGRCOLOR
-  OLDX @ OLDY @ HGRPLOT
+  BALLX @ BALLY @ HGRXORPLOT
+  OLDX @ OLDY @ HGRXORPLOT
   BALLX @ OLDX !
   BALLY @ OLDY !
 ;
 
+0 VARIABLE TOP
+0 VARIABLE BOTTOM
+0 VARIABLE LEFT
+0 VARIABLE RIGHT
+: RECT ( left top right bottom -- )
+  BOTTOM !
+  RIGHT !
+  TOP !
+  LEFT !
+  LEFT  @ TOP    @ RIGHT @ TOP    @ HGRLINE
+  LEFT  @ BOTTOM @ RIGHT @ BOTTOM @ HGRLINE
+  LEFT  @ TOP    @ LEFT  @ BOTTOM @ HGRLINE
+  RIGHT @ TOP    @ RIGHT @ BOTTOM @ HGRLINE
+;  
+
 : BOUNCE
   0 HGRMODE    DROP
   0 HGRDRAWBUF DROP
+  0 TILEDRAWBUF DROP
   0 HGRSHOW    DROP
+  10 12 " Hello from PLFORTH!" HGRPUTSTR
+  1 HGRCOLOR
+  61 90 209 107 RECT
+  BALLCLR @ HGRCOLOR
   BEGIN
     MOVEBALL
     KEY?