Создать и сохранить .png-изображение в ближайшем будущем - PullRequest
Новая
       10

Создать и сохранить .png-изображение в ближайшем будущем

4 голосов
/ 07 августа 2011

Как мне сгенерировать простой BufferedImage и сохранить его в виде png-файла в Clojure?

1 Ответ

9 голосов
/ 07 августа 2011

Я что-то сделал таким образом, кратко так: 

(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)))))
...