diff options
Diffstat (limited to 'examples')
| -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)))) |