# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1517961923 18000
# Node ID d74fa73a0e7641a31cfb8d605e6cded9f545dfd2
# Parent  ba8de632202256037a90c0f6417fb92230a76f8e
My server only has one core

diff -r ba8de6322022 -r d74fa73a0e76 src/base.lisp
--- 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))
diff -r ba8de6322022 -r d74fa73a0e76 src/looms/001-triangles.lisp
--- 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))
diff -r ba8de6322022 -r d74fa73a0e76 src/looms/002-wobbly-lines.lisp
--- 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))