diff options
| author | Bruno Cichon <ebrasca.ebrasca@gmail.com> | 2015-11-20 12:41:56 +0100 |
|---|---|---|
| committer | Bruno Cichon <ebrasca.ebrasca@gmail.com> | 2015-11-20 12:41:56 +0100 |
| commit | d1b75911a434f727a5b37381aa0dc7a80447a7f1 (patch) | |
| tree | 7848cd51eaa7888ba4b58595425bd28599d8e220 /examples/l-system-exemple.lisp | |
| parent | c262946d4169970e45e753b379ddf9032d686c71 (diff) | |
Fix examples
Diffstat (limited to 'examples/l-system-exemple.lisp')
| -rw-r--r-- | examples/l-system-exemple.lisp | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/examples/l-system-exemple.lisp b/examples/l-system-exemple.lisp index 63302e7..6480dc5 100644 --- a/examples/l-system-exemple.lisp +++ b/examples/l-system-exemple.lisp @@ -76,10 +76,12 @@ ;;convert list of vecs to array (list-of-vectors->list ;;make list of vecs - (turtle-system #'(lambda (old new x y z) - (list old new)) - ;;make structure of turtle commands - (l-system '((f 1.0)) 3)))) + (turtle-system + ;;Specific geometry for symbol f + #'(lambda (o n list) + (cube o n)) + ;;make structure of turtle commands + (l-system '((f 1.0)) 3)))) (length (length data)) (array (make-array length :element-type 'single-float @@ -88,7 +90,7 @@ (setf vao (make-instance 'vao :type 'vertex-3d - :primitive :lines + :primitive :triangles :vertex-count (/ length 3))) (vao-buffer-vector vao 0 (* 4 length) array) (vao-buffer-vector vao 1 (* 4 length) array)))) |