         (aset-int px (+ i half) (aget px i))))
     (q/update-pixels)))
 
-#+clj
 (defsnippet set-image {}
   (q/background 255)
   (let [gr (q/create-graphics 100 100)]

  #+cljs
  (:use-macros [quil.snippet :only [defsnippet]]))

#+clj
(defsnippet blend {}
  (q/background 255 100 20 50)


          (apply q/image-filter clone mode)
          (q/image clone (* col 120) (* 120 (inc row))))))))

(defsnippet display-filter {}
  (q/background 255)
  (let [orig (q/create-graphics 100 100)
