       f (comp v1 v2)]
 
   (binding [p/*pixels-edge* :wrap]
-    (p/set-canvas-pixels canvas (p/filter-channels (g/make-slitscan2-filter f 2.0)
-                                                   (g/make-slitscan2-filter f 1.9)
-                                                   (g/make-slitscan2-filter f 2.1) nil p1))))
+    (p/set-canvas-pixels canvas (p/filter-channels (g/make-slitscan2-filter f 1.0)
+                                                   (g/make-slitscan2-filter f 0.95)
+                                                   (g/make-slitscan2-filter f 1.05) nil p4))))
 
 ;; full process without use of filter-channels
 (time (let [effect (make-effect :dj-eq {:lo (m/drand -20 20) :mid (m/drand -20 20) :hi (m/drand -20 20) :peak_bw 1.3 :shelf_slope 1.5 :rate (m/irand 4000 100000)})
-            in (signal-from-pixels p1 {:layout :planar
-                                      :coding :ulaw
+            in (signal-from-pixels p4 {:layout :planar
+                                      :coding :alaw
                                       :signed true
                                       :channels [2 0 1]
                                       :bits 8})

                   (o/render-noise noise-overlay)
                   (o/render-spots spots-overlay))))

(core/save-canvas canvas (core/next-filename "generateme/sold/res" ".jpg"))

(p/set-canvas-pixels canvas p4)

(def p4 (p/get-canvas-pixels canvas))

(do
  (def palette (g/color-reducer-machine))
  (println palette)
  (p/set-canvas-pixels canvas (g/color-reducer-machine p4 palette)))


;; slitscan

  (println b2)
  (p/set-canvas-pixels canvas (p/filter-channels p/equalize-filter false 
                                                 (p/filter-channels p/normalize-filter false
                                                                    (g/blend-machine p2 (g/blend-machine p4 p1 b) b2)))))

(quick-bench (p/filter-channels p/dilate-filter false p1))

