Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2024-12-27 09:59:29 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

thurtle: Tweak plant

Browse source
This commit is contained in:
Remko Tronçon 2022-05-19 23:24:18 +02:00
parent 322dff1997
commit 108de077c9
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/web/thurtle/programs.ts
View file

@ -170,24 +170,23 @@ SNOWFLAKE
name: "Plant",
isExample: true,
program: `
300 CONSTANT SIZE
0 CONSTANT ANGLE
5 CONSTANT BRANCHES
450 CONSTANT SIZE
6 CONSTANT BRANCHES
VARIABLE RND
HERE RND !
: RANDOM ( -- n )
RND @ 31421 * 6927 + 65536 MOD
RND @ 75 * 74 + 65537 MOD
DUP RND !
;
: CHOOSE ( n1 -- n2 )
RANDOM 65536 */MOD SWAP DROP
RANDOM 65537 */MOD SWAP DROP
;
: PLANT ( size angle -- )
OVER 10 < IF 2DROP EXIT THEN
OVER 20 < IF 2DROP EXIT THEN
DUP RIGHT
OVER FORWARD
BRANCHES 0 DO
@ -200,7 +199,7 @@ HERE RND !
;
PENUP 0 SIZE NEGATE SETXY PENDOWN
SIZE ANGLE PLANT
SIZE 0 PLANT
`,
},
].map((e) => ({ ...e, program: e.program.trimStart() }));