From 1b2defc0679823adf4f6fb0a8ed33ed7a6e119fa Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri.lozeve@gmail.com>
Date: Tue, 16 Jan 2018 23:36:57 +0000
Subject: [PATCH] =?UTF-8?q?Add=20L=C3=A9vy=20C=20curve?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/Examples.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/Examples.hs b/src/Examples.hs
index 54f3e1c..fad92e6 100644
--- 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+-"