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

turning off screenshots.

Browse Source
This commit is contained in:
Bryce Covert
2017-03-23 21:27:26 -07:00
parent dc58787bf6
commit e208b96335
2 changed files with 16 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
desktop/gametodos.txt
View File

@@ -7,7 +7,6 @@ obvious about calculating path? seems to just pause a long time
Reenable mobile screenshots - Static images for mobile screenshots? Reenable mobile screenshots - Static images for mobile screenshots?
Lying down at start of jail Lying down at start of jail
Two finger panning?
Pinching end is wrong, sometimes clicks Pinching end is wrong, sometimes clicks
Improve padding on text so it's more clickable Improve padding on text so it's more clickable

46
desktop/src-common/advent/utils.clj
View File

@@ -212,32 +212,16 @@
(def screenshot-chan (chan)) (def screenshot-chan (chan))
(defn publish-screenshot-fn [] (defn publish-screenshot-fn []
(iosify (do
(do (log/info "Taking Desktop screenshot...")
(import '[advent.core Saver]) (Pixmap/setFilter Pixmap$Filter/BiLinear)
(log/info "Taking IOS screenshot...") (let [viewport (-> @ (resolve 'advent.screens.scene/scene) :screen deref :viewport)
(let [screenshot-data (advent.core.Saver/takeScreenshot)] [x y w h g-l g-r] [(.getScreenX ^FitViewport viewport) (.getScreenY ^FitViewport viewport) (.getScreenWidth ^FitViewport viewport) (.getScreenHeight ^FitViewport viewport)]
(fn [] pm (ScreenUtils/getFrameBufferPixmap x y w h)
(let [png-data (.getBytes (.toPNGData screenshot-data)) resized (Pixmap. 160 120 Pixmap$Format/RGB888)]
_ (.dispose screenshot-data) (.drawPixmap resized pm 0 0 (.getWidth pm) (.getHeight pm) 0 0 160 120)
big (Pixmap. png-data 0 (alength png-data)) (.dispose pm)
resized (Pixmap. 160 120 Pixmap$Format/RGB888)] (fn [] resized))))
(.drawPixmap resized big 0 0 (.getWidth big) (.getHeight big) 0 0 160 120)
(.dispose big)
(let [result (advent.core.Saver/flipPixmap resized)]
(.dispose resized)
result)))))
(do
(log/info "Taking Desktop screenshot...")
(Pixmap/setFilter Pixmap$Filter/BiLinear)
(let [viewport (-> @ (resolve 'advent.screens.scene/scene) :screen deref :viewport)
[x y w h g-l g-r] [(.getScreenX ^FitViewport viewport) (.getScreenY ^FitViewport viewport) (.getScreenWidth ^FitViewport viewport) (.getScreenHeight ^FitViewport viewport)]
pm (ScreenUtils/getFrameBufferPixmap x y w h)
resized (Pixmap. 160 120 Pixmap$Format/RGB888)]
(.drawPixmap resized pm 0 0 (.getWidth pm) (.getHeight pm) 0 0 160 120)
(.dispose pm)
(fn [] resized)))))
(defn save [entities id name & [blurb]] (defn save [entities id name & [blurb]]
@@ -253,10 +237,12 @@
(log/info "writing save file...") (log/info "writing save file...")
(steam/write-bytes (steam/save-file-name id) (.getBytes (pr-str save) "UTF-8")) (steam/write-bytes (steam/save-file-name id) (.getBytes (pr-str save) "UTF-8"))
(on-gl (let [gl-func (fn [] (iosify
(log/info "Screenshot captured. Publishing for persistence") nil
(put! screenshot-chan [id (publish-screenshot-fn)]))] (on-gl (let [gl-func (fn []
(try-times gl-func 3)) )))] (log/info "Screenshot captured. Publishing for persistence")
(put! screenshot-chan [id (publish-screenshot-fn)]))]
(try-times gl-func 3)) ))))]
(try-times save-fn 3))) (try-times save-fn 3)))
(defn listen-for-screenshots [] (defn listen-for-screenshots []