clojureで.png-imageを生成して保存する

Question

Clojureで単純なBufferedImageを生成してpngファイルとして保存するにはどうすればよいですか？

Answer 1

私は簡単にこのように、このように何かをやった：

(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はGraphics2Dコンテキストgを提供しており、私たちは、保存を行うためにImageIOを使用しています。鉱山のプロジェクトから

例：

(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 [[[x y] high] minemap] 
     (.setColor g (*colors* high)) 
     (.fillRect g (* block x) (* block y) block block)) 
     (ImageIO/write bi "png" (File. file)))))