From 99d8ac3e346070b55a8b161027f7f75949f58181 Mon Sep 17 00:00:00 2001 From: Bruno Cichon Date: Wed, 18 Nov 2015 16:23:35 +0100 Subject: Finish refactoring of turtle --- src/turtle-system.lisp | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) (limited to 'src/turtle-system.lisp') diff --git a/src/turtle-system.lisp b/src/turtle-system.lisp index 86a56a1..f349eb0 100644 --- a/src/turtle-system.lisp +++ b/src/turtle-system.lisp @@ -14,15 +14,10 @@ (case (car item) ;;Move forward one unit,adding data to mesh. ((f) - (let ((pos (get-vec coor-sys)) - (vec-x (get-axis coor-sys 0)) - (vec-y (get-axis coor-sys 1)) - (vec-z (get-axis coor-sys 2))) - (setf coor-sys (mtranslate coor-sys - (vec* (vec 0.0 1.0 0.0) - (cadr item)))) - (appending (funcall fn pos (get-vec coor-sys) - vec-x vec-y vec-z)))) + (setf coor-sys (mtranslate coor-sys + (vec* (vec 0.0 1.0 0.0) + (cadr item)))) + (appending (funcall fn coor-sys))) ;;Move forward one unit,without adding data to mesh. ((j) (setf coor-sys (mtranslate coor-sys -- cgit v1.2.3-54-g00ecf