fixed issue with pinching.

This commit is contained in:
Bryce Covert
2017-07-22 19:51:30 -07:00
parent 31c6a0883e
commit 9a6b1b4b84

View File

@@ -1450,10 +1450,11 @@
:on-touch-up (fn [screen entities options]
(let [currently-pressed (dec (get-in entities [:cursor :counter] 1))
max-pressed (get-in entities [:cursor :max-counter] 1)]
(println "touched up" currently-pressed max-pressed)
(println "touched up" currently-pressed max-pressed (get-in entities [:state :hud-active?]) (get-in entities [:state :active?]) (get-in entities [:cam :pinching]))
(cond
(and (<= currently-pressed 0)
(<= max-pressed 1))
(<= max-pressed 1)
(not (get-in entities [:cam :pinching])))
(handle-touch-up screen
(-> entities
(assoc-in [:cursor :counter] 0)