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