Sierpinski arrowhead curve: Difference between revisions
→{{header|EasyLang}}
No edit summary |
|||
Line 621:
</pre>
=={{header|EasyLang}}==
[https://easylang.dev/apps/_sierpinski.html Run it]
<syntaxhighlight lang="easylang">
x = 5
y = 10
ang = 60
linewidth 0.5
#
proc curv o l a . .
if o = 0
x += cos ang * l
y += sin ang * l
line x y
else
o -= 1
l /= 2
call curv o l (-a)
ang += a
call curv o l a
ang += a
call curv o l (-a)
.
.
move x y
call curv 7 90 -60
</syntaxhighlight>
=={{header|Factor}}==
Line 667 ⟶ 696:
| x || iterate L-system
|}
=={{header|Forth}}==
| |||