hacking.

src/play_clj/core_listeners.clj

@@ -194,7 +194,7 @@ in the `screen`."
      (let [actor-set (->> entities
                           vals
                           (map :object)
-                          (filter #(isa? (type %) Actor))
+                          (filter #(instance? Actor %))
                           set)]
        (doseq [^Actor a (clojure.set/difference (set (.getActors renderer)) actor-set )]
          (.remove a))
@@ -213,11 +213,11 @@ in the `screen`."
 
 (defn ^:private update-screen!
   ([{:keys [renderer world] :as screen}]
-    (when (isa? (type renderer) Stage)
+    (when (instance? Stage renderer)
       (update-stage! screen))
     (update-physics! screen))
   ([{:keys [renderer world] :as screen} entities]
-    (when (isa? (type renderer) Stage)
+    (when (instance?  Stage renderer)
       (update-stage! screen entities))
     (update-physics! screen entities)
     entities))

src/play_clj/g2d.clj

@@ -40,11 +40,11 @@
       (-> (or (u/load-asset arg Texture)
               (Texture. ^String arg))
           TextureRegion.)
-      (isa? (type arg) Pixmap)
+      (instance?  Pixmap arg)
       (-> ^Pixmap arg Texture. TextureRegion.)
-      (isa? (type arg) Texture)
+      (instance?  Texture arg)
       (-> ^Texture arg TextureRegion.)
-      (isa? (type arg) TextureEntity)
+      (instance?  TextureEntity )
       (-> ^TextureRegion (:object arg) TextureRegion.)
       :else
       arg)))
@@ -208,7 +208,8 @@
 
     (animation! object :set-play-mode (play-mode :loop))"
   [object k & options]
-  `(u/call! ^Animation ~object ~k ~@options))
+  (let [object (vary-meta object assoc :tag `Animation)]
+    `(u/call! ~object ~k ~@options)))
 
 (defn animation->texture
   "Returns a `texture` entity with a frame from `animation` based on the total

src/play_clj/math.clj

@@ -110,7 +110,8 @@
 (defmacro catmull-rom-spline!
   "Calls a single method on a `catmull-rom-spline`."
   [object k & options]
-  `(u/call! ^CatmullRomSpline ~object ~k ~@options))
+  (let [object (vary-meta object assoc :tag `CatmullRomSpline)]
+    `(u/call! ^CatmullRomSpline ~object ~k ~@options)))
 
 ; circle
 

src/play_clj/ui.clj

@@ -58,7 +58,7 @@ based on the file at `path`.
 
     (align :center)"
   [k]
-  (u/gdx-field :scenes :scene2d :utils :Align (u/key->camel k)))
+  (u/gdx-field :utils :Align (u/key->camel k)))
 
 (defn cell!
   "Calls methods on a [Cell](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/ui/Cell.html)."