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

parallax scrolling looks awesome.

Browse Source
This commit is contained in:
Remington Covert
2015-03-02 07:11:57 -08:00
parent 9022ddc741
commit 2c2507febf
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
desktop/src-common/advent/screens/scene.clj
View File

@@ -443,6 +443,7 @@
parallax-view (Matrix4.) parallax-view (Matrix4.)
parallax-combined (Matrix4.)] parallax-combined (Matrix4.)]
(.update camera) (.update camera)
(.set tmp (.position camera)) (.set tmp (.position camera))
(set! (.x tmp) (* (.x tmp) 1.5)) (set! (.x tmp) (* (.x tmp) 1.5))
(set! (.y tmp) (* (.y tmp) 1.5)) (set! (.y tmp) (* (.y tmp) 1.5))
@@ -453,11 +454,15 @@
(.set parallax-combined (.projection camera)) (.set parallax-combined (.projection camera))
(Matrix4/mul (.val parallax-combined) (.val parallax-view)) (Matrix4/mul (.val parallax-combined) (.val parallax-view))
(let [^Batch batch (.getBatch renderer)] (let [^Batch batch (.getBatch renderer)]
(.begin batch) (.begin batch)
(.setProjectionMatrix batch parallax-combined) (.setProjectionMatrix batch parallax-combined)
(entities/draw! (:tex foreground) screen batch)
(doseq [e (:texes foreground)]
(entities/draw! (assoc e :x (+ (/ (:x e) (.zoom camera)) (- 240 (/ 160 (.zoom camera)) ))
:y (+ (/ (:y e) (.zoom camera)) (- 180 (/ 120 (.zoom camera))))) screen batch))
(.end batch)))) (.end batch))))
@@ -527,7 +532,8 @@
:override nil :override nil
:last-pos [0 0]} :last-pos [0 0]}
:foreground {:object nil :foreground {:object nil
:tex (assoc (texture "outsidehouse/fg1.png") :x 75 :y 57 :baseline 1000)} :texes [(assoc (texture "outsidehouse/fg1.png") :x 0 :y 0 :baseline 1000)
(assoc (texture "outsidehouse/fg2.png") :x (- 320 59) :y 0 :baseline 1000)]}
:all-items (assoc items/items :object nil) :all-items (assoc items/items :object nil)
:started? {:value false :started? {:value false