Dragon curve: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,486: / Line 2,486: @@
 [https://easylang.online/apps/_dragon-curve.html Run it]
-<syntaxhighlight lang="text">color 050
+<syntaxhighlight lang="text">
+color 050
 linewidth 0.5
 x = 25
@@ Line 2,493: / Line 2,494: @@
 angle = 0
 #
-func dragon size lev d . .
+proc dragon size lev d . .
-  if lev = 0
+   if lev = 0
-    x -= cos angle * size
+      x -= cos angle * size
-    y += sin angle * size
+      y += sin angle * size
-    line x y
+      line x y
-  else
+   else
-    call dragon size / sqrt 2 lev - 1 1
+      call dragon size / sqrt 2 lev - 1 1
-    angle -= d * 90
+      angle -= d * 90
-    call dragon size / sqrt 2 lev - 1 -1
+      call dragon size / sqrt 2 lev - 1 -1
-  .
+   .
 .
-call dragon 60 12 1</syntaxhighlight>
+call dragon 60 12 1
+</syntaxhighlight>
 =={{header|Elm}}==