mirror of
https://github.com/dschmenk/PLASMA.git
synced 2026-04-27 03:18:02 +00:00
30 lines
383 B
Forth
30 lines
383 B
Forth
SRC" PLASMA.4TH"
|
|
SRC" CONIO.4TH"
|
|
SRC" TURTLE.4TH"
|
|
" LINES" LOADMOD" "
|
|
LOOKUP SETLINEPLOT PLASMA SETLINEPLOT
|
|
PFA PLOT SETLINEPLOT
|
|
|
|
: SHOW
|
|
|
|
GR
|
|
40 40 [ LOOKUP LINE ] LITERAL INITTURTLE
|
|
;
|
|
|
|
: SQUARE
|
|
DUP MOVE 90 TURN
|
|
DUP MOVE 90 TURN
|
|
DUP MOVE 90 TURN
|
|
MOVE 90 TURN
|
|
;
|
|
|
|
: SPIN
|
|
361 0 DO
|
|
I COLOR
|
|
15 SQUARE
|
|
I TURNTO
|
|
10 +LOOP
|
|
;
|
|
|
|
SHOW SPIN
|