Sierpinski square curve: Difference between revisions
Content added Content deleted
Line 326: | Line 326: | ||
=={{header|EasyLang}}== |
=={{header|EasyLang}}== |
||
[https://easylang.online/show/#cod=jZK9bsMgFIV3nuIIWR2KjOw2HTKw+hkiRR6oQxJUgi1wE+ftq1sbJ3EzdEFwz8f9ObpdaBu4eI1m6ODM2ThI6MG2pwzh25mYbWtIBmDfBjj07UhRBID2GRQ4n57ENBmsR+xDc9QhTrkmfUIsFErE3nR4GzP6udiNBGD3KW5rKDTZgwpQMTUjECjrJfEZjP5C+RCW7NmVZnm5K5KkeNFdskT7X1Uyybrk3C7oS9IHXKH9Ac4fIMcMznpzsbv+iEK+U+DUng2B7B+G2f04Iq/4rdEBQqFpI3Y24JVq3bQradH6Zxp1kgoDMG7Ont9lp4+5oin+cmLBiXtOJmcmL6hrsakEHZzNy6SwBd9w8E2VV6LKJ2K8c9QsbeNquYds6fZHgbLAukApV4z9AA== Run it] |
|||
[https://easylang.online/show/#cod=jZLBboQgEIbvPMUfYnohEt22hx64+gybbDxQxS4pCwbsrr59QxV3tT30QuCfj/lnJtN718CEKaixh1FXZcAhR+0uGfyXUSE71eAEQOc8DAY3U1EBIG0GAUqXZ2SaDNoiDL45Sx+WXEt8QTQESoRB9TjMGe1qdicB6C7puoZAk22iQDQTKwKGst4T717JT5QbmZO/rrGXpweTFAo32aeRSPsT5YSTPk2u9fKW4iMmSPsBPv822qqbboczCv4chYu7qgiRfwxLd3N7tKL3IkcwgcYFtNrf1SmqQdutGt2TGQBl1oz5Q8ZWe+QiVv2bYzuOPXI8TWLpPVbKjhWLByXr8gicQI8U9FjlFavyhZjvFDVJ2/ey3zuyn+5rgUOBt4KQbw== Run it] |
|||
<syntaxhighlight> |
<syntaxhighlight> |
||
Line 344: | Line 344: | ||
. |
. |
||
. |
. |
||
proc lsysdraw axiom$ x y ang . . |
proc lsysdraw axiom$ x y ang lng . . |
||
linewidth 0.3 |
linewidth 0.3 |
||
move x y |
move x y |
||
for c$ in strchars axiom$ |
for c$ in strchars axiom$ |
||
if c$ = "F" |
if c$ = "F" |
||
x += cos dir |
x += cos dir * lng |
||
y += sin dir |
y += sin dir * lng |
||
line x y |
line x y |
||
elif c$ = "-" |
elif c$ = "-" |
||
Line 362: | Line 362: | ||
rules$[] = [ "X" "XF-F+F-XF+F+XF-F+F-X" ] |
rules$[] = [ "X" "XF-F+F-XF+F+XF-F+F-X" ] |
||
lsysexp 4 axiom$ rules$[] |
lsysexp 4 axiom$ rules$[] |
||
lsysdraw axiom$ 50 |
lsysdraw axiom$ 50 10 90 1.4 |
||
</syntaxhighlight> |
</syntaxhighlight> |
||