Apple /// grafix scripts

2024-06-11 23:29:29 +00:00 · 2024-02-09 16:21:30 -08:00 · 2024-02-09 16:21:30 -08:00 · a08bc126a2
commit a08bc126a2
parent ab3b91ad78
2 changed files with 54 additions and 0 deletions
--- a/src/scripts/gfxplot.4th
+++ b/src/scripts/gfxplot.4th
@ -0,0 +1,40 @@
+SRC" PLASMA.4TH"
+SRC" CONIO.4TH"
+SRC" GRAFIX.4TH"
+SRC" FPU.4TH"
+
+: DRAWAXIS
+  3 SETMODE
+  1 PENCOLOR
+  0  96 139 96  LINE
+  70 0  70  191 LINE
+;
+
+: PLOTDONE
+  KEY DROP
+  -1 SETMODE
+;
+
+FPEXT XSCALE
+FPCONSTPI 69 >FPINT FP/ XSCALE FPEXT!
+
+FPEXT YSCALE
+-95 >FPINT YSCALE FPEXT!
+
+DEFER FUNC
+
+: PLOTFUNC
+  3 PENCOLOR
+  140 0 DO
+    I DUP 69 - >FPINT XSCALE FPEXT@ FP*
+    FUNC
+    YSCALE FPEXT@ FP* FPINT> 95 +
+    OVER 1+ OVER HGRPLOT HGRPLOT
+  LOOP
+;
+
+' FPSIN IS FUNC
+DRAWAXIS PLOTFUNC PLOTDONE
+
+' FPCOS IS FUNC
+DRAWAXIS PLOTFUNC PLOTDONE
--- a/src/scripts/grafix.4th
+++ b/src/scripts/grafix.4th
@ -0,0 +1,14 @@
+' GRAFIX ?ENDSRC
+" GRAFIX"  LOADMOD"  "
+LOOKUP PENCOLOR   PLASMA PENCOLOR
+LOOKUP FILLCOLOR  PLASMA FILLCOLOR
+LOOKUP FILLSCREEN PLASMA FILLSCREEN
+LOOKUP PENMOVE    PLASMA PENMOVE
+LOOKUP PLOT       PLASMA PLOT
+LOOKUP LINE       PLASMA LINE
+LOOKUP LINETO     PLASMA LINETO
+LOOKUP RECT       PLASMA RECT
+LOOKUP FILLRECT   PLASMA FILLRECT
+LOOKUP BITBLT     PLASMA BITBLT
+LOOKUP DRAWMODE   PLASMA DRAWMODE
+LOOKUP SETMODE    PLASMA SETMODE