lots of improvements.

2014-10-01 13:26:56 -07:00
parent 4bd400dff3
commit d235017423
4 changed files with 77 additions and 26 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -24,3 +24,11 @@
    (pixmap! resized :draw-pixmap base-cursor (* index 16) 0 16 16
             0 0 target-width target-height)
    resized ))
+
+
+(defn get-font [filename]
+  (let [font (bitmap-font filename) 
+        tr (bitmap-font! font :get-region)
+        tx (.getTexture tr)]
+    (texture! tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear)
+    font))