b5df1c581eaf

--- 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))