mirror of
https://github.com/dschmenk/PLASMA.git
synced 2026-04-27 03:18:02 +00:00
run turtle graphics demo in PLFORTH disk image
This commit is contained in:
1 parent
e3550d4a83
commit
c143596032
4 files changed
+39
-39
No files matched your search
@@ -64,7 +64,7 @@ SRC" TURTLE.4TH"
|
||||
|
||||
: TRIEDGE
|
||||
DEPTH @ MAXDEPTH @ = IF
|
||||
8960 DEPTH @ POW3 / 1 + 1 RSHIFT MOVEP4
|
||||
8960 DEPTH @ POW3 / 1+ 1 RSHIFT MOVEP4
|
||||
ELSE
|
||||
1 DEPTH +!
|
||||
RECURSE -60 TURN
|
||||
|
||||
Reference in new issue
Block a user