# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1517686761 18000
# Node ID b5df1c581eaf7327f0c41dd5deb4ceac9f198d02
# Parent  839094aa1657cba17157fa9770c6a4e4177dbd17
Cleanup

diff -r 839094aa1657 -r b5df1c581eaf src/looms/001-triangles.lisp
--- 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))