Add bitmap-font! macro

2014-04-08 21:53:45 -04:00
parent 7da1cdaa52
commit 6a0ed22b1e
2 changed files with 7 additions and 1 deletions
--- a/src/play_clj/g2d.clj
+++ b/src/play_clj/g2d.clj
@@ -14,6 +14,11 @@
  [& options]
  `(BitmapFont. ~@options))

+(defmacro bitmap-font!
+  "Calls a single method on a `bitmap-font`."
+  [object k & options]
+  `(u/call! ^BitmapFont ~object ~k ~@options))
+
 ; texture

 (defn texture*