Add Dragon curve

2018-01-16 23:36:41 +00:00 · 2018-01-16 23:36:41 +00:00 · 103645595d
commit 103645595d
parent e720d90160
1 changed files with 11 additions and 0 deletions
--- a/src/Examples.hs
+++ b/src/Examples.hs
@ -7,6 +7,7 @@ module Examples
  , kochSnowflake
  , sierpinski
  , sierpinskiArrow
+  , dragon
  ) where

 import Lib
@ -69,3 +70,13 @@ sierpinskiArrow = LSystem
                  60
                  10
                  [('A',Forward), ('B',Forward), ('+',TurnRight), ('-',TurnLeft)]
+
+-- | Dragon curve
+dragon = LSystem
+         "FX+-"
+         "FX"
+         [('X', "X+YF+"),
+          ('Y', "-FX-Y")]
+         90
+         10
+         [('F',Forward), ('+',TurnRight), ('-',TurnLeft)]