gered/toascii
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

initialize StringBuilder size, better way of getting the raw pixels

Browse source
This commit is contained in:
Gered 2014-04-01 06:52:36 -04:00
parent 21e5939cb2
commit 1b5187f465
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/toascii/models/image.clj
View file

@ -13,7 +13,7 @@
(def ascii-chars [\# \A \@ \% \$ \+ \= \* \: \, \. \space]) (def ascii-chars [\# \A \@ \% \$ \+ \= \* \: \, \. \space])
(def num-ascii-chars (count ascii-chars)) (def num-ascii-chars (count ascii-chars))
(defn- add-pixel [argb ^StringBuilder sb color?] (defn- add-pixel [^Integer argb ^StringBuilder sb color?]
(let [r (bit-shift-right (bit-and 0x00ff0000 argb) 16) (let [r (bit-shift-right (bit-and 0x00ff0000 argb) 16)
g (bit-shift-right (bit-and 0x0000ff00 argb) 8) g (bit-shift-right (bit-and 0x0000ff00 argb) 8)
b (bit-and 0x000000ff argb) b (bit-and 0x000000ff argb)
@ -27,7 +27,6 @@
(dec (int (* num-ascii-chars (/ peak 255))))) (dec (int (* num-ascii-chars (/ peak 255)))))
pixel-char (nth ascii-chars (if (pos? char-index) char-index 0))] pixel-char (nth ascii-chars (if (pos? char-index) char-index 0))]
(if color? (if color?
; <span style="color: rgb(255, 255, 255);">X</span>
(doto sb (doto sb
(.append "<span style=\"color: rgb(") (.append "<span style=\"color: rgb(")
(.append r) (.append r)
@ -41,10 +40,10 @@
pixel-char))) pixel-char)))
(defn- pixels->ascii [^BufferedImage image color?] (defn- pixels->ascii [^BufferedImage image color?]
(let [width (.getWidth image) (let [width (.getWidth image)
height (.getHeight image) height (.getHeight image)
sb (StringBuilder.) sb (StringBuilder. (+ (* width height 47) (* height 4)))
pixels (.getDataElements (.getRaster image) 0 0 width height nil)] ^ints pixels (.getRGB image 0 0 width height nil 0 width)]
(dotimes [y height] (dotimes [y height]
(dotimes [x width] (dotimes [x width]
(add-pixel (aget pixels (+ x (* y width))) sb color?)) (add-pixel (aget pixels (+ x (* y width))) sb color?))
@ -98,6 +97,8 @@
(str "<pre style=\"font-size:6pt; letter-spacing:1px; line-height:5pt; font-weight:bold;\">" s "</pre>")) (str "<pre style=\"font-size:6pt; letter-spacing:1px; line-height:5pt; font-weight:bold;\">" s "</pre>"))
#_(set! *warn-on-reflection* true)
#_(require '[criterium.core :as c]) #_(require '[criterium.core :as c])