# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1517962017 18000
# Node ID eefee58dd4934f656114cdefe4c6cc66c083bc5c
# Parent  d74fa73a0e7641a31cfb8d605e6cded9f545dfd2
Remove lparallel

diff -r d74fa73a0e76 -r eefee58dd493 flax.asd
--- a/flax.asd	Tue Feb 06 19:05:23 2018 -0500
+++ b/flax.asd	Tue Feb 06 19:06:57 2018 -0500
@@ -8,7 +8,6 @@
                :cl-vectors
                :iterate
                :losh
-               :lparallel
                :zpng)
 
   :serial t
diff -r d74fa73a0e76 -r eefee58dd493 src/base.lisp
--- a/src/base.lisp	Tue Feb 06 19:05:23 2018 -0500
+++ b/src/base.lisp	Tue Feb 06 19:06:57 2018 -0500
@@ -1,7 +1,5 @@
 (in-package :flax.base)
 
-(setf lparallel:*kernel* (lparallel:make-kernel 1))
-
 (defun rand (bound)
   (pcg:pcg-random t bound))
 
diff -r d74fa73a0e76 -r eefee58dd493 src/drawing.lisp
--- a/src/drawing.lisp	Tue Feb 06 19:05:23 2018 -0500
+++ b/src/drawing.lisp	Tue Feb 06 19:06:57 2018 -0500
@@ -134,7 +134,7 @@
                  :element-type 'double-float
                  :initial-element 1.0d0)))
     (with-color (color r g b)
-      (lparallel:pdotimes (row height)
+      (dotimes (row height)
         (dotimes (col width)
           (setf (aref image row col 0) r
                 (aref image row col 1) g
@@ -192,7 +192,7 @@
            (type color color)
            (type (double-float 0.0d0 1.0d0) alpha))
   (nest (with-color (color r g b))
-        (lparallel:pdotimes (row (array-dimension image 0)))
+        (dotimes (row (array-dimension image 0)))
         (dotimes (col (array-dimension image 1)))
         (zapf (aref image row col 0) (lerp % r alpha)
               (aref image row col 1) (lerp % g alpha)