 (defn gaussian-blur
   "Applys a gaussian blur to ImageProcessor, with given radius."
   [processor radius]
-  (let [new-proc (.duplicate processor)]
+  (let [new-proc (clone processor)]
     (.blurGaussian (GaussianBlur.) new-proc radius radius 0.0002)
     new-proc))
 

(defn multiply
  "Multiply an image processor by a factor."
  [processor factor]
  (doto (.duplicate processor)
    (.multiply factor)))

(def add-processors


; ImageProcessor-related utilities

(defn clone
  "Duplicates and ImageProcessor."
  [processor]
  (when processor
    (.duplicate processor)))

(defn insert-image!
  "Inserts one ImageProcessor into another."
  [proc-host proc-guest x-host y-host]
