 (defn multiply
   "Multiply an image processor by a factor."
   [processor factor]
-  (doto (.duplicate processor)
+  (doto (clone processor)
     (.multiply factor)))
 
 (def add-processors


(defn insert-half-tile
  [tile [left? upper?] mosaic]
  (let [dest (black-processor-like mosaic)]
    (insert-half-tile! dest tile [left? upper?])))

;; stats


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