mirror of
https://github.com/dschmenk/PLASMA.git
synced 2026-10-22 12:02:42 +00:00
41 lines
532 B
Forth
41 lines
532 B
Forth
SRC" PLASMA.4TH"
|
|
SRC" CONIO.4TH"
|
|
SRC" GRAFIX.4TH"
|
|
SRC" FPU.4TH"
|
|
|
|
: DRAWAXIS
|
|
3 GFXSETMODE
|
|
6 GFXPENCOLOR
|
|
0 96 139 96 GFXLINE
|
|
70 0 70 191 GFXLINE
|
|
;
|
|
|
|
: PLOTDONE
|
|
KEY DROP
|
|
-1 GFXSETMODE
|
|
;
|
|
|
|
FPEXT XSCALE
|
|
FPCONSTPI 69 >FPINT FP/ XSCALE FPEXT!
|
|
|
|
FPEXT YSCALE
|
|
95 >FPINT YSCALE FPEXT!
|
|
|
|
DEFER FUNC
|
|
|
|
: PLOTFUNC
|
|
15 GFXPENCOLOR
|
|
140 0 DO
|
|
I DUP 69 - >FPINT XSCALE FPEXT@ FP*
|
|
FUNC
|
|
YSCALE FPEXT@ FP* FPINT> 95 +
|
|
GFXPLOT
|
|
LOOP
|
|
;
|
|
|
|
' FPSIN IS FUNC
|
|
DRAWAXIS PLOTFUNC PLOTDONE
|
|
|
|
' FPCOS IS FUNC
|
|
DRAWAXIS PLOTFUNC PLOTDONE
|