     (q/filter-shader shd)
     (q/image orig 100 100)))
 
+#+clj
 (defsnippet get-pixel {}
   (q/background 255)
   (let [gr (q/create-graphics 100 100)]

          ; blend graphics to graphics
          (q/blend gr (q/current-graphics) 0 0 50 50 (* col 55) (+ 340 (* row 55)) 50 50 mode))))))

(defsnippet copy {}
  (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)

