Image scalling with java-image-scaling

imgscale.clj

(ns gen-class-test.imgscale
  (:use [clojure.java.io])
  (:import [javax.imageio ImageIO])
  (:import [com.mortennobel.imagescaling ResampleOp ResampleFilters]))

(defn read-img [path]
  (ImageIO/read (file path)))

(defn write-img [img path]
  (ImageIO/write img "jpg" (file path)))

(defn scale-image [source resample-op]
  (.filter resample-op source nil))

(defn -main [& args]
  (println  "resampling...")
  (write-img (scale-image
              (read-img "/home/nsun2/downloads/c44.jpg")
              (doto
                (ResampleOp. 150 100)
                (.setFilter (ResampleFilters/getBiCubicFilter))))
             "/home/nsun2/tmp/c44-sampled.jpg"))