--- a/src/looms/001-triangles.lisp Sat Feb 03 14:35:52 2018 -0500
+++ b/src/looms/001-triangles.lisp Sat Feb 03 14:39:21 2018 -0500
@@ -22,10 +22,13 @@
;;;; Element Conversion -------------------------------------------------------
-(defun convert-to-drawing (triangle)
+(defun convert-triangles (triangle)
(with-triangle (triangle)
(flax.drawing:triangle a b c)))
+(defun convert (universe)
+ (mapcar #'convert-triangle universe))
+
;;;; Generation ---------------------------------------------------------------
(defun initial-triangles ()
@@ -92,9 +95,6 @@
;;;; Main ---------------------------------------------------------------------
-(defun convert (universe)
- (mapcar #'convert-to-drawing universe))
-
(defun loom (seed depth filename width height)
(flax.drawing:render (convert (generate-universe-balancing depth seed))
filename width height))