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

no weird scaling when switching screens

Browse Source
This commit is contained in:
Remington Covert
2014-09-20 08:47:15 -07:00
parent 43c74b3a79
commit dd17a0828e
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -182,12 +182,12 @@
entities))
(run-action entities
(begin [this screen entities]
(let [ego (get-in entities [:background :entities :ego])]
(-> entities
(assoc-in [:background] (get-in entities [:backgrounds new-background]))
(assoc-in [:background :entities :ego] ego)
(assoc-in [:background :entities :ego :x] x)
(assoc-in [:background :entities :ego :y] y))))
(let [ego (get-in entities [:background :entities :ego])
entities (-> entities
(assoc-in [:background] (get-in entities [:backgrounds new-background]))
(assoc-in [:background :entities :ego] ego))]
(-> entities
(update-in [:background :entities :ego] #(jump-to screen entities % [x y])))))
(continue [this screen entities]
(update-in entities [:transition :opacity] - 0.075))