RotateImages.clj

(defn find-edge [image cx cy]
  (let [width (.getWidth image)
	height (.getHeight image)
	ip (-> image .getProcessor .duplicate)]
    (.findEdges ip)
    (doall
     (for [x (range width)
	   y (range height)
	   :let [value (.get ip x y)]
	   :when (not (zero? value))]
       [x y]))))