diff options
Diffstat (limited to 'examples/l-system-exemple.lisp')
| -rw-r--r-- | examples/l-system-exemple.lisp | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/examples/l-system-exemple.lisp b/examples/l-system-exemple.lisp index 5f999c1..4d8a53a 100644 --- a/examples/l-system-exemple.lisp +++ b/examples/l-system-exemple.lisp @@ -1,5 +1,6 @@ (in-package #:l-system-examples) +;;;Parametric grammars (-> f () (f 1) (j 1) @@ -8,4 +9,10 @@ (-> j (x) (j (* 3 x))) -(l-system '((f 1.0)) 2) +(l-system #'parametric-grammar '((f 1.0)) 2) + +;;;Context sensitive grammars +(-> (f j f) (x) + (j (* 2 x))) + +(l-system #'context-sensitive-grammar '((f 1.0)) 2) |