   #+cljs
   (:use-macros [quil.snippet :only [defsnippet]]))
 
+#+clj
 (defsnippet blend {}
   (q/background 255 100 20 50)
 

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

    (q/filter-shader shd)
    (q/image orig 100 100)))

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