Dragon curve: Difference between revisions

Content added Content deleted
m (→‎{{header|GW-BASIC}}: {{works with|BASICA}})
Line 2,486:
[https://easylang.online/apps/_dragon-curve.html Run it]
 
<syntaxhighlight lang="text">color 050
color 050
linewidth 0.5
x = 25
Line 2,493 ⟶ 2,494:
angle = 0
#
funcproc dragon size lev d . .
if lev = 0
x -= cos angle * size
y += sin angle * size
line x y
else
call dragon size / sqrt 2 lev - 1 1
angle -= d * 90
call dragon size / sqrt 2 lev - 1 -1
.
.
call dragon 60 12 1</syntaxhighlight>
</syntaxhighlight>
 
=={{header|Elm}}==