diff clojure/com/aurellem/run/image.clj @ 519:fd1ae0047a1a

added pinkie pie cutie mark.
author Robert McIntyre <rlm@mit.edu>
date Sat, 23 Jun 2012 15:10:14 -0500
parents bb4434c5a8f3
children 5596cd4a3fc6
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/image.clj	Sat Jun 23 14:27:01 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/image.clj	Sat Jun 23 15:10:14 2012 -0500
     1.3 @@ -308,6 +308,11 @@
     1.4    (ImageIO/read
     1.5     (File. user-home "/proj/vba-clojure/images/colors-test.png")))
     1.6  
     1.7 +(def pinkie-pie-mark
     1.8 +  (ImageIO/read
     1.9 +   (File. user-home "/proj/vba-clojure/images/pinkie-pie-cutie-mark.png")))
    1.10 +
    1.11 +
    1.12  (defn rgb->triplet [rgb]
    1.13    (let [r (bit-shift-right (bit-and rgb 0xFF0000) 16)
    1.14          g (bit-shift-right (bit-and rgb 0xFF00)    8)