diff options
Diffstat (limited to 'examples/l-system-example.lisp')
-rw-r--r-- | examples/l-system-example.lisp | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/examples/l-system-example.lisp b/examples/l-system-example.lisp new file mode 100644 index 0000000..4d8a53a --- /dev/null +++ b/examples/l-system-example.lisp @@ -0,0 +1,18 @@ +(in-package #:l-system-examples) + +;;;Parametric grammars +(-> f () + (f 1) + (j 1) + (f 1)) + +(-> j (x) + (j (* 3 x))) + +(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) |