notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow creating a model from a ModelData

Browse Source
This commit is contained in:
oakes
2014-01-29 22:39:37 -05:00
parent b6f0883b9f
commit 0eb846360a
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/play_clj/g3d.clj
View File

@@ -5,6 +5,7 @@
[com.badlogic.gdx.graphics.g3d.attributes BlendingAttribute [com.badlogic.gdx.graphics.g3d.attributes BlendingAttribute
ColorAttribute CubemapAttribute DepthTestAttribute FloatAttribute ColorAttribute CubemapAttribute DepthTestAttribute FloatAttribute
IntAttribute TextureAttribute] IntAttribute TextureAttribute]
[com.badlogic.gdx.graphics.g3d.model.data ModelData]
[com.badlogic.gdx.graphics.g3d.utils ModelBuilder])) [com.badlogic.gdx.graphics.g3d.utils ModelBuilder]))
; environment ; environment
@@ -54,7 +55,15 @@
(defmacro model (defmacro model
"Returns an entity based on [ModelInstance](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g3d/ModelInstance.html)" "Returns an entity based on [ModelInstance](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g3d/ModelInstance.html)"
[& args] [& args]
`(u/create-entity (ModelInstance. ~@args))) `(u/create-entity
(let [arg1# ~(first args)]
(cond
(:object arg1#)
(ModelInstance. ^ModelInstance (:object arg1#))
(isa? arg1# ModelData)
(ModelInstance. ^Model (Model. ~@args))
:else
(ModelInstance. ~@args)))))
(defmacro model! (defmacro model!
"Calls a single method on a `model`" "Calls a single method on a `model`"