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

kind of nice sequence.

Browse Source
This commit is contained in:
Remington Covert
2015-02-18 12:52:55 -08:00
parent c7591dd3f2
commit 0c8dc65575
6 changed files with 49 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
desktop/src-common/advent/actions.clj
View File

@@ -469,11 +469,12 @@
music
(time music)))
(defn transition-music [entities new-music]
(let [current-volume (atom 1.0)]
(defn transition-music [entities new-music & {:keys [duration]}]
(let [current-volume (atom 1.0)
duration (or duration 2.0)]
(run-action entities
(begin [this screen entities]
(assoc-in entities [:tweens :fade-out-music] (utils/tween :fade-out-music screen [:volume :value] 1.0 0.0 2.0)))
(assoc-in entities [:tweens :fade-out-music] (utils/tween :fade-out-music screen [:volume :value] 1.0 0.0 duration)))
(continue [this screen entities]
entities)