From b94d84cf431e3ca480d01ff277bf40463da09224 Mon Sep 17 00:00:00 2001
From: Bruno Cichon <ebrasca.ebrasca@openmailbox.org>
Date: Sun, 19 Feb 2017 22:38:38 +0100
Subject: Add some documentation.

---
 examples/l-system-example.lisp | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

(limited to 'examples/l-system-example.lisp')

diff --git a/examples/l-system-example.lisp b/examples/l-system-example.lisp
index 4d8a53a..37d5cc3 100644
--- a/examples/l-system-example.lisp
+++ b/examples/l-system-example.lisp
@@ -1,5 +1,15 @@
 (in-package #:l-system-examples)
 
+;;Lindenmayer's original L-system
+;;Example 1: Algae
+(-> a ()
+  (a) (b))
+
+(-> b ()
+  (a))
+
+(l-system #'parametric-grammar '((a)) 3)
+
 ;;;Parametric grammars
 (-> f ()
   (f 1)
@@ -9,10 +19,10 @@
 (-> j (x)
   (j (* 3 x)))
 
-(l-system #'parametric-grammar '((f 1.0)) 2)
+(l-system #'parametric-grammar '((f 1.0)) 3)
 
 ;;;Context sensitive grammars
 (-> (f j f) (x)
   (j (* 2 x)))
 
-(l-system #'context-sensitive-grammar '((f 1.0)) 2)
+(l-system #'context-sensitive-grammar '((f 1.0)) 3)
-- 
cgit v1.2.3-54-g00ecf