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

outsidehouse

Browse Source
This commit is contained in:
Bryce Covert
2017-05-28 06:27:36 -07:00
parent 7fc4f11a60
commit ad38708873
160 changed files with 548 additions and 169 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
desktop/src-common/advent/screens/fade.clj
View File

@@ -18,16 +18,17 @@
(defscreen fade-screen
:on-show
(fn [screen entities options]
(utils/setup-viewport screen 320 240)
{:fade (assoc (utils/get-texture "black.png")
:scale-x 100
:scale-y 100
:x -1
:y -1
:opacity 1.0
:origin-x 0
:origin-y 0)})
(let [[screen global-atlas] (utils/acquire-atlas screen "packed/global.atlas")]
(utils/setup-viewport screen 320 240)
{:fade (assoc (utils/atlas->texture global-atlas "black.png")
:scale-x 100
:scale-y 100
:x -1
:y -1
:opacity 1.0
:origin-x 0
:origin-y 0)}))
:on-render
@@ -35,6 +36,10 @@
(render! screen [(:fade entities)])
entities)
:on-hide
(fn [screen entities options]
(utils/release-resources screen))
:update-fade (fn [_ entities {:keys [opacity]}]
(assoc-in entities [:fade :opacity] opacity))