Writing a bitmap image in Clojure

simple-bitmap-image.clj

; This example shows how to write a bitmap image using Clojure

; Import the necessary classes.
(import 'java.awt.image.BufferedImage 'javax.imageio.ImageIO 'java.awt.Color 'java.io.File)

; Create a new image with a 100x100 size. The image is going to have four color channels.
(def img (BufferedImage. 100 100 BufferedImage/TYPE_INT_ARGB))

; Draw on the image by getting the graphics object and invoking methods on it.
(doto (.getGraphics img)
  (.setColor Color/BLUE)
  (.fillRect 0 0 100 100))

; Use ImageIO to write out the image to a PNG file.
(ImageIO/write img "png" (File. "test.png"))