From 6a0ed22b1e5615e175b41415eece1909f5d61dc7 Mon Sep 17 00:00:00 2001 From: oakes Date: Tue, 8 Apr 2014 21:53:45 -0400 Subject: [PATCH] Add bitmap-font! macro --- doclet/resources/classes.edn | 3 ++- src/play_clj/g2d.clj | 5 +++++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/doclet/resources/classes.edn b/doclet/resources/classes.edn index a809ddf..8f1eb34 100644 --- a/doclet/resources/classes.edn +++ b/doclet/resources/classes.edn @@ -16,7 +16,8 @@ "Audio" {"audio!" :methods} "Bezier" {"bezier" :methods "bezier!" :methods} - "BitmapFont" {"bitmap-font" :constructors} + "BitmapFont" {"bitmap-font" :constructors + "bitmap-font!" :methods} "BitmapFontLoader" {"loader :bitmap-font" :methods "loader! :bitmap-font" :methods} "BlendingAttribute" {"attribute :blending" :constructors diff --git a/src/play_clj/g2d.clj b/src/play_clj/g2d.clj index 561de2e..83d5b1d 100644 --- 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*