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

title particle.

Browse Source
This commit is contained in:
Bryce Covert
2015-07-23 22:53:31 -07:00
parent 564a073bb8
commit 04df5d93b1
4 changed files with 342 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
desktop/src-common/advent/screens/title.clj
View File

@@ -63,6 +63,7 @@
:opacity 1.0
:origin-x 0
:origin-y 0)
:clouds (assoc (particle-effect "titleclouds" :reset :start) :x 640 :y 480 )
:toolbox (center (assoc (nine-patch {:region (:object (texture "talk-bg-2.png")) :left 9 :top 9 :right 9 :bottom 9})
:y 90 :width 500 :height 250))
@@ -105,7 +106,7 @@
(let [entities (utils/apply-tweens screen entities (:tweens entities))]
(music! (:music entities) :set-volume (utils/current-music-volume (:volume entities)))
()
(render! screen [(:overlay entities) (:toolbox entities) (:start-playing entities) (:quit entities) (:music-label entities) (:music-volume-slider entities) (:sound-label entities) (:sound-volume-slider entities) (:fade entities) ])
(render! screen [(:overlay entities) (:clouds entities) (:toolbox entities) (:start-playing entities) (:quit entities) (:music-label entities) (:music-volume-slider entities) (:sound-label entities) (:sound-volume-slider entities) (:fade entities) ])
entities))
:show-screen (fn [entities]