Miscellaneous changes

2 files changed, 11 insertions, 27 deletions

diff --git a/src/test.lisp b/src/test.lisp
index f742809..b3ddffd 100644
--- a/src/test.lisp
+++ b/src/test.lisp
@@ -6,7 +6,6 @@
   (and
    (test-l-system)
    (test-iter-l-system)))
-   ;;(turle-system)))
 
 (defun test-l-system ()
   (tree-equal
@@ -29,29 +28,3 @@
      A D A D B D A I A D A D A D B D A I A D A D A D B D B D B I B D A D B D B D B
      I B D A D B D B D B I B I B I A I B D B I B D A D B D A I A D A D A D B D B D
      B I B D A D B D)))
-
-#|
-(defun turle-system ()
-  (tree-equal
-   (turtle-system (l-system (a (0 1 0))
-			    (b (0 -1 0))
-			    (i (-1 0 0))
-			    (d (1 0 0)))
-		  (iter-l-system (l-system (a a i a d a)
-					   (b b d b i b)
-					   (i i b i a i)
-					   (d d a d b d))
-				 '(d)
-				 3))
-   '(1 0 0 1 1 0 2 1 0 2 0 0 3 0 0 3 1 0 2 1 0 2 2 0 3 2 0 3 3 0 4 3 0 4 4 0 5 4 0
-     5 3 0 6 3 0 6 2 0 7 2 0 7 1 0 6 1 0 6 0 0 7 0 0 7 1 0 8 1 0 8 0 0 9 0 0 9 1 0
-     8 1 0 8 2 0 9 2 0 9 3 0 8 3 0 8 2 0 7 2 0 7 3 0 6 3 0 6 4 0 5 4 0 5 5 0 6 5 0
-     6 6 0 7 6 0 7 7 0 8 7 0 8 6 0 9 6 0 9 7 0 8 7 0 8 8 0 9 8 0 9 9 0 10 9 0 10 10
-     0 11 10 0 11 9 0 12 9 0 12 10 0 11 10 0 11 11 0 12 11 0 12 12 0 13 12 0 13 13
-     0 14 13 0 14 12 0 15 12 0 15 11 0 16 11 0 16 10 0 15 10 0 15 9 0 16 9 0 16 10
-     0 17 10 0 17 9 0 18 9 0 18 8 0 19 8 0 19 7 0 18 7 0 18 6 0 19 6 0 19 7 0 20 7
-     0 20 6 0 21 6 0 21 5 0 22 5 0 22 4 0 21 4 0 21 3 0 20 3 0 20 2 0 19 2 0 19 3 0
-     18 3 0 18 2 0 19 2 0 19 1 0 18 1 0 18 0 0 19 0 0 19 1 0 20 1 0 20 0 0 21 0 0
-     21 1 0 20 1 0 20 2 0 21 2 0 21 3 0 22 3 0 22 4 0 23 4 0 23 3 0 24 3 0 24 2 0
-     25 2 0 25 1 0 24 1 0 24 0 0 25 0 0 25 1 0 26 1 0 26 0 0 27 0 0)))
-|#
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)