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

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

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