Bug in drawing images. Bumped to version 0.2.5.

joshuaeckroth · Mar 28, 2013 · bb5b1c9 · bb5b1c9
1 parent a39d017
commit bb5b1c9
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 70 deletions.
diff --git a/pom.xml b/pom.xml
diff --git a/project.clj b/project.clj
@@ -1,3 +1,3 @@
-(defproject cc.artifice/vijual "0.2.4"
+(defproject cc.artifice/vijual "0.2.5"
   :description "A Graph Layout Library For Clojure"
   :dependencies [[org.clojure/clojure "1.4.0"]])
diff --git a/src/vijual.clj b/src/vijual.clj
@@ -1178,7 +1178,7 @@
         (.fillRect graphics (+ x line-wid) (+ y line-wid) (- width (* line-wid 2)) (- height (* line-wid 2)))
         (.setColor graphics (Color. 0 0 0))
         (doseq [[s n] (map vector (seq text) (iterate inc 0))]
-          (.drawString graphics s (Math/floor (+ 2 x)) (Math/floor (+ y 8 (* n 10)))))))
+          (.drawString graphics s (int (Math/floor (+ 2 x))) (int (Math/floor (+ y 8 (* n 10))))))))
     (doseq [{:keys [type x y width height dir]} shapes]
       (when (= type :arrow)
         (.setColor graphics (Color. 255 255 255))