Sierpinski square curve: Difference between revisions
m
→{{header|EasyLang}}
(Added Easylang) |
|||
Line 326:
=={{header|EasyLang}}==
[https://easylang.online/show/#cod=jZLBboQgEIbvPMUfYnohEt22hx64+gybbDxQxS4pCwbsrr59QxV3tT30QuCfj/lnJtN718CEKaixh1FXZcAhR+0uGfyXUSE71eAEQOc8DAY3U1EBIG0GAUqXZ2SaDNoiDL45Sx+WXEt8QTQESoRB9TjMGe1qdicB6C7puoZAk22iQDQTKwKGst4T717JT5QbmZO/rrGXpweTFAo32aeRSPsT5YSTPk2u9fKW4iMmSPsBPv822qqbboczCv4chYu7qgiRfwxLd3N7tKL3IkcwgcYFtNrf1SmqQdutGt2TGQBl1oz5Q8ZWe+QiVv2bYzuOPXI8TWLpPVbKjhWLByXr8gicQI8U9FjlFavyhZjvFDVJ2/ey3zuyn+5rgUOBt4KQbw== Run it]
<syntaxhighlight>
proc
for l to level
an$ = ""
Line 335:
for i = 1 step 2 to len rules$[]
if rules$[i] = c$
an$ &= c$▼
.
.
.
swap axiom$ an$
.
.
proc
linewidth 0.3
move x y
for c$ in strchars axiom$
Line 354 ⟶ 353:
line x y
elif c$ = "-"
dir -=
elif c$ = "+"
dir +=
.
.
Line 362 ⟶ 361:
axiom$ = "F+XF+F+XF"
rules$[] = [ "X" "XF-F+F-XF+F+XF-F+F-X" ]
</syntaxhighlight>
| |||