Geek Answers Handbook

Create and save .png image in clojure

How to create a simple BufferedImage and save it as a png file in Clojure?

+4
source share
1 answer

I did something this way, briefly like this:

(def bi (BufferedImage. 16 16 BufferedImage/TYPE_INT_ARGB)) (def g (.createGraphics bi)) ;; use g (.drawLine g 0 0 10 10) (.drawLine g 0 15 15 0) ;; save: (ImageIO/write bi "png" (File. "test.png"))

BufferedImage is for the Graphics2D g context, and we use ImageIO to save.

An example from my project:

 (ns minemap.graphics (require minemap.core) (import java.io.File) (import java.awt.Color) (import java.awt.image.BufferedImage) (import javax.imageio.ImageIO)) (defn draw-png "Take width, height, and the map of mines. Save to a file. Supposed to take a generate-random-map{,-perc} mapping." [width height minemap file] (let [block 5 ;block size bi (BufferedImage. (* block width) (* block height) BufferedImage/TYPE_INT_ARGB) g (.createGraphics bi)] (do (.setColor g (*colors* :background)) (.fillRect g 0 0 (* block width) (* block height)) (doseq [[[xy] high] minemap] (.setColor g (*colors* high)) (.fillRect g (* block x) (* block y) block block)) (ImageIO/write bi "png" (File. file)))))
+9
source

More articles:


All Articles