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

Add type hints to screenshot! function

Browse Source
This commit is contained in:
oakes
2014-04-08 16:36:14 -04:00
parent 32e24c8a33
commit 7da1cdaa52
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/play_clj/core_utils.clj
View File

@@ -16,7 +16,8 @@ specified path. Note that when a `pixmap` is no longer needed, you must call
(screenshot! \"out.png\") (screenshot! \"out.png\")
(screenshot! (files! :external \"out.png\"))" (screenshot! (files! :external \"out.png\"))"
([] ([]
(let [pic (Pixmap. (game :width) (game :height) (Pixmap$Format/RGBA8888)) (let [^Pixmap$Format pic-f (Pixmap$Format/RGBA8888)
^Pixmap pic (Pixmap. ^long (game :width) ^long (game :height) pic-f)
pixel-data (ScreenUtils/getFrameBufferPixels true) pixel-data (ScreenUtils/getFrameBufferPixels true)
pixels (.getPixels pic)] pixels (.getPixels pic)]
(doto pixels (doto pixels
@@ -30,7 +31,7 @@ specified path. Note that when a `pixmap` is no longer needed, you must call
(files! :local path) (files! :local path)
path)] path)]
(PixmapIO/writePNG handle pic) (PixmapIO/writePNG handle pic)
(.dispose pic)))) (pixmap! pic :dispose))))
; static fields ; static fields