diff options
Diffstat (limited to 'src/turtle-system.lisp')
| -rw-r--r-- | src/turtle-system.lisp | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/turtle-system.lisp b/src/turtle-system.lisp index 484eb9f..5e2bd3d 100644 --- a/src/turtle-system.lisp +++ b/src/turtle-system.lisp @@ -15,36 +15,46 @@ (with angle = radians) (for item in list) (case item + ;;Move forward one unit,adding data to mesh. ((f) (let ((new-pos (vec+ pos vec))) (appending (funcall fn pos new-pos vec)) (setf pos new-pos))) + ;;Move forward one unit,without adding data to mesh. ((j) (setf pos (vec+ pos vec))) + ;;Rotate left on axis z ((+) (setf vec (vec-rotate-around vec (vec 0.0 0.0 1.0) angle))) + ;;Rotate right on axis z ((-) (setf vec (vec-rotate-around vec (vec 0.0 0.0 -1.0) angle))) + ;;Rotate left on axis y ((&) (setf vec (vec-rotate-around vec (vec 0.0 1.0 0.0) angle))) + ;;Rotate right on axis y ((^) (setf vec (vec-rotate-around vec (vec 0.0 -1.0 0.0) angle))) + ;;Rotate left on axis x ((\ ) (setf vec (vec-rotate-around vec (vec 1.0 0.0 0.0) angle))) + ;;Rotate right on axis x ((/) (setf vec (vec-rotate-around vec (vec -1.0 0.0 0.0) angle))) + ;;Push the current turtle state onto a stack (([) (push (list pos vec) pile)) + ;;Pop the turtle stack, restoring an earlier state ((]) (let* ((asd (pop pile)) (pos0 (first asd)) @@ -61,6 +71,7 @@ list-of-vectors)) (defun vec-rotate-around (vec vec-rotation angle) + "Rotate vec around vec-rotation axis by angle" (transform-point (vec 0.0 0.0 0.0) (matrix* (rotate-around vec-rotation angle) |