d74fa73a0e76

--- a/src/base.lisp	Tue Feb 06 18:05:18 2018 -0500
+++ b/src/base.lisp	Tue Feb 06 19:05:23 2018 -0500
@@ -1,6 +1,6 @@
 (in-package :flax.base)
 
-(setf lparallel:*kernel* (lparallel:make-kernel 6))
+(setf lparallel:*kernel* (lparallel:make-kernel 1))
 
 (defun rand (bound)
   (pcg:pcg-random t bound))

--- a/src/looms/001-triangles.lisp	Tue Feb 06 18:05:18 2018 -0500
+++ b/src/looms/001-triangles.lisp	Tue Feb 06 19:05:23 2018 -0500
@@ -4,6 +4,7 @@
 ;;;
 ;;; Based on http://www.tylerlhobbs.com/writings/triangle-subdivision
 
+
 ;;;; Utils --------------------------------------------------------------------
 (defun round-to (number divisor)
   (* divisor (round number divisor)))
@@ -100,4 +101,4 @@
     (flax.drawing:render image (convert (generate-universe-balancing depth seed)))))
 
 
-;; (time (loom nil 18 "out.png" 3000 3000))
+;; (time (loom 45 16 "out.png" 2000 2000))

--- a/src/looms/002-wobbly-lines.lisp	Tue Feb 06 18:05:18 2018 -0500
+++ b/src/looms/002-wobbly-lines.lisp	Tue Feb 06 19:05:23 2018 -0500
@@ -76,4 +76,4 @@
         mode))))
 
 
-;; (time (loom nil 2000 "out.png" 3000 500))
+;; (time (loom nil 1000 "out.png" 800 300))