diff options
| author | Bruno Cichon <ebrasca.ebrasca@openmailbox.org> | 2017-02-24 01:52:56 +0100 |
|---|---|---|
| committer | Bruno Cichon <ebrasca.ebrasca@openmailbox.org> | 2017-02-24 01:52:56 +0100 |
| commit | 8fd25145566cf4f1f6df21ce960f87342a3f037a (patch) | |
| tree | 4ccb06f36fbe455562639a29590e698716a2cbfa /examples/l-system-example.lisp | |
| parent | b94d84cf431e3ca480d01ff277bf40463da09224 (diff) | |
Fix rules. Add conditions in rules.
Diffstat (limited to 'examples/l-system-example.lisp')
| -rw-r--r-- | examples/l-system-example.lisp | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/examples/l-system-example.lisp b/examples/l-system-example.lisp index 37d5cc3..deac189 100644 --- a/examples/l-system-example.lisp +++ b/examples/l-system-example.lisp @@ -3,26 +3,28 @@ ;;Lindenmayer's original L-system ;;Example 1: Algae (-> a () - (a) (b)) + '((a) (b))) (-> b () - (a)) + '((a))) (l-system #'parametric-grammar '((a)) 3) ;;;Parametric grammars (-> f () - (f 1) - (j 1) - (f 1)) + '((f 1) + (j 1) + (f 1))) (-> j (x) - (j (* 3 x))) + (if (oddp x) + `((j ,(1+ (* 3 x)))) + `((j ,(/ x 2))))) (l-system #'parametric-grammar '((f 1.0)) 3) ;;;Context sensitive grammars (-> (f j f) (x) - (j (* 2 x))) + `((j ,(* 2 x)))) (l-system #'context-sensitive-grammar '((f 1.0)) 3) |