diff options
| author | Bruno Cichon <ebrasca.ebrasca@openmailbox.org> | 2017-02-19 22:38:38 +0100 |
|---|---|---|
| committer | Bruno Cichon <ebrasca.ebrasca@openmailbox.org> | 2017-02-19 22:38:38 +0100 |
| commit | b94d84cf431e3ca480d01ff277bf40463da09224 (patch) | |
| tree | ac1cf0baea0d16fdbf19133174370209f55350a0 /examples/l-system-example.lisp | |
| parent | e28171df2caa910eb194750f70bdfe9272f85f6d (diff) | |
Add some documentation.
Diffstat (limited to 'examples/l-system-example.lisp')
| -rw-r--r-- | examples/l-system-example.lisp | 14 |
1 files changed, 12 insertions, 2 deletions
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) |