Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2025-01-13 08:01:32 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notebook: Add toy language example

Browse source
This commit is contained in:
Remko Tronçon 2022-11-26 11:41:19 +01:00
parent 9bf46915c0
commit e525044c39
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/web/notebook/examples/drawing-with-forth.wafnb
View file

@ -99,6 +99,26 @@
"kind": 2,
"language": "waforth",
"value": "450 CONSTANT SIZE\n7 CONSTANT BRANCHES\n160 CONSTANT SPREAD\n\nVARIABLE RND\nHERE RND !\n\n: RANDOM ( -- n )\n RND @ 75 * 74 + 65537 MOD\n DUP RND !\n;\n\n: CHOOSE ( n1 -- n2 )\n RANDOM 65537 */MOD SWAP DROP \n; \n\n: PLANT ( size angle -- )\n OVER 10 < IF 2DROP EXIT THEN\n DUP RIGHT\n OVER FORWARD\n BRANCHES 0 DO\n OVER 2/\n SPREAD CHOOSE SPREAD 2/ -\n RECURSE\n LOOP\n PENUP SWAP BACKWARD PENDOWN\n LEFT\n;\n \n1 SETPENSIZE\nSIZE 0 PLANT"
},
{
"kind": 1,
"language": "markdown",
"value": "## Creating your own language\n\nForth also provides all the tools necessary to create your own language. \n\nFor example, if we want the Thurtle language to be more like Logo, we can define the `TO` and `END` keywords to replace the standard Forth words for starting and ending compilation:"
},
{
"kind": 2,
"language": "waforth",
"value": ": TO : ;\n: END POSTPONE ; ; IMMEDIATE\n\nTO SQUARE\n 4 0 DO\n 200 FORWARD\n 90 RIGHT\n LOOP\nEND\n\nSQUARE"
},
{
"kind": 1,
"language": "markdown",
"value": "You can even create a graphical language based on emoji:"
},
{
"kind": 2,
"language": "waforth",
"value": "\\ Define our graphical language\n: 🚜 : ; : 🚧 POSTPONE ; ; IMMEDIATE : ⤵️ RIGHT ; : ⬆️ FORWARD ; : ▶️ POSTPONE DO ; IMMEDIATE : 🔁 POSTPONE LOOP ; IMMEDIATE\n\n\\ Build the definition of a pentagram\n🚜 ⛤\n 18 ⤵️ \n 5 0 ▶️\n 450 ⬆️\n 144 ⤵️\n 🔁\n🚧\n\n\\ Draw a pentagram\n⛤"
}
]
}