Skip to content

Instantly share code, notes, and snippets.

Ilya Kasnacheev alamar

Block or report user

Report or block alamar

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@alamar
alamar / image.clj
Created Dec 12, 2011
a slow cycle
View image.clj
(defn color [r g b]
(Color. r g b 0xFF))
(def white (.getRGB (color 0xFF 0xFF 0xFF)))
(defn create-image [w h]
(let [image (BufferedImage. w h BufferedImage/TYPE_INT_RGB)]
(doseq [x (range w) y (range h)]
(.setRGB image x y white))
image))
You can’t perform that action at this time.