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

laser butt.

Browse Source
This commit is contained in:
Bryce Covert
2015-07-26 00:10:09 -07:00
parent c4d5e25b11
commit 060dd49fd5
5 changed files with 1280 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -52,10 +52,14 @@
v (vector-2 0 0)
a (catmull-rom-spline! (:path (:flying-ego entities)) :value-at v pos-f)
direction (get-dir (get-in entities [:flying-ego :x]) (vector-2! v :x))]
(update-in entities [:flying-ego]
merge {:x (vector-2! v :x)
:y (vector-2! v :y)}
(get-in entities [:flying-ego direction]))))
(-> entities
(update-in [:flying-ego]
merge {:x (vector-2! v :x)
:y (vector-2! v :y)}
(get-in entities [:flying-ego direction]))
(update-in [:ego-jet]
merge {:x (vector-2! v :x)
:y (vector-2! v :y)}))))
(defn flip [t]
(let [flipped (texture t)]
@@ -100,6 +104,7 @@
:x 450
:y 650)
:clouds (assoc (particle-effect "titleclouds" :reset :start) :x 640 :y 480 )
:ego-jet (assoc (particle-effect "ego/jet" :reset :start) :x 450 :y 650 )
:toolbox (center (assoc (nine-patch {:region (:object (texture "talk-bg-2.png")) :left 9 :top 9 :right 9 :bottom 9})
:y 58 :width 500 :height 282))
@@ -144,7 +149,7 @@
entities (fly-ego screen entities)]
(music! (:music entities) :set-volume (utils/current-music-volume (:volume entities)))
(render! screen [(:overlay entities) (:clouds entities) (:flying-ego entities) (:toolbox entities) (:start-playing entities) (:quit entities) (:fullscreen entities) (:music-label entities) (:music-volume-slider entities) (:sound-label entities) (:sound-volume-slider entities) (:fade entities) ])
(render! screen [(:overlay entities) (:clouds entities) (:ego-jet entities) (:flying-ego entities) (:toolbox entities) (:start-playing entities) (:quit entities) (:fullscreen entities) (:music-label entities) (:music-volume-slider entities) (:sound-label entities) (:sound-volume-slider entities) (:fade entities) ])
entities))
:show-screen (fn [entities]