Add Lévy C curve

2018-01-16 23:36:57 +00:00 · 2018-01-16 23:36:57 +00:00 · 1b2defc067
commit 1b2defc067
parent 103645595d
1 changed files with 10 additions and 0 deletions
--- a/src/Examples.hs
+++ b/src/Examples.hs
@ -2,6 +2,7 @@ module Examples
  ( -- * Space-filling curves
    gosper
  , hilbert
+  , levyC
    -- * Fractals
  , koch
  , kochSnowflake
@ -33,6 +34,15 @@ hilbert = LSystem
          10
          [('F',Forward), ('+',TurnRight), ('-',TurnLeft)]

+-- | Lévy C curve
+levyC = LSystem
+        "F+-"
+        "F"
+        [('F', "+F--F+")]
+        45
+        10
+        [('F',Forward), ('+',TurnRight), ('-',TurnLeft)]
+
 -- | Koch curve
 koch = LSystem
       "F+-"