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

Add type hints

Browse Source
This commit is contained in:
oakes
2014-04-08 16:35:39 -04:00
parent 08a9eb9ff3
commit 32e24c8a33
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/play_clj/core_graphics.clj
View File

@@ -16,7 +16,8 @@ memory.
(pixmap! object :dispose)" (pixmap! object :dispose)"
[object k & options] [object k & options]
`(u/call! ^Pixmap ~object ~k ~@options)) `(let [^Pixmap object# ~object]
(u/call! object# ~k ~@options)))
(defmacro shape-type (defmacro shape-type
"Returns a static field from [ShapeRenderer.ShapeType](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/glutils/ShapeRenderer.ShapeType.html). "Returns a static field from [ShapeRenderer.ShapeType](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/glutils/ShapeRenderer.ShapeType.html).

4
src/play_clj/g2d.clj
View File

@@ -24,10 +24,12 @@
(-> ^String arg Texture. TextureRegion.) (-> ^String arg Texture. TextureRegion.)
(isa? (type arg) Pixmap) (isa? (type arg) Pixmap)
(-> ^Pixmap arg Texture. TextureRegion.) (-> ^Pixmap arg Texture. TextureRegion.)
(isa? (type arg) TextureRegion)
arg
(:object arg) (:object arg)
(TextureRegion. ^TextureRegion (:object arg)) (TextureRegion. ^TextureRegion (:object arg))
:else :else
arg))) (TextureRegion. arg))))
(defmacro texture (defmacro texture
"Returns an entity based on [TextureRegion](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g2d/TextureRegion.html). "Returns an entity based on [TextureRegion](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g2d/TextureRegion.html).