Save sequence of pixel values as grayscale image

save_pixels_as_png.clj

(ns gist.core
  (:require [clojure.string :as str])
  (:import (java.io File)
           (java.awt.image BufferedImage
                           WritableRaster)
           (javax.imageio ImageIO))
  (:gen-class))


(defn save-pixels-as-png
  "Saves sequence of pixel values as grayscale image"
  [pixels filename width height]
  (let [bufferedImage (BufferedImage. width height BufferedImage/TYPE_BYTE_GRAY)
        pixels        (int-array pixels)
        raster        (.getRaster bufferedImage)
        extension     (last (str/split filename #"\."))]
    (.setPixels raster 0 0 width height pixels)
    (ImageIO/write bufferedImage extension (File. filename))))