diff options
Diffstat (limited to 'src/turtle-system.lisp')
| -rw-r--r-- | src/turtle-system.lisp | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/src/turtle-system.lisp b/src/turtle-system.lisp index 4c1acc9..ddc0c11 100644 --- a/src/turtle-system.lisp +++ b/src/turtle-system.lisp @@ -9,6 +9,7 @@ (defun turtle-system (list radians) (iter (with seed = sb-cga:+identity-matrix+) (with vec = (sb-cga:vec 1.0 0.0 0.0)) + (with pile) (with angle = radians) (for item in list) (case item @@ -57,15 +58,16 @@ (matrix* (rotate-around (vec 1.0 0.0 0.0) (- angle)) (translate vec))))) - #| - (([) ) - ((]) ) - |# - ))) + (([) + (push (cons seed vec) pile)) + ((]) + (let ((last-state (pop pile))) + (setf seed (first last-state) + vec (rest last-state))))))) -(defun temp (list) - (iter (for matrix in list) - (appending - (concatenate 'list - (sb-cga:transform-point (vec 0.0 0.0 0.0) - matrix))))) +(defun list-of-vectors->list (list-of-vectors) + (iterconcat #'(lambda (matrix) + (concatenate 'list + (sb-cga:transform-point (vec 0.0 0.0 0.0) + matrix))) + list-of-vectors)) |