fixed issue with pinching.
This commit is contained in:
@@ -1450,10 +1450,11 @@
|
|||||||
:on-touch-up (fn [screen entities options]
|
:on-touch-up (fn [screen entities options]
|
||||||
(let [currently-pressed (dec (get-in entities [:cursor :counter] 1))
|
(let [currently-pressed (dec (get-in entities [:cursor :counter] 1))
|
||||||
max-pressed (get-in entities [:cursor :max-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
|
(cond
|
||||||
(and (<= currently-pressed 0)
|
(and (<= currently-pressed 0)
|
||||||
(<= max-pressed 1))
|
(<= max-pressed 1)
|
||||||
|
(not (get-in entities [:cam :pinching])))
|
||||||
(handle-touch-up screen
|
(handle-touch-up screen
|
||||||
(-> entities
|
(-> entities
|
||||||
(assoc-in [:cursor :counter] 0)
|
(assoc-in [:cursor :counter] 0)
|
||||||
|
|||||||
Reference in New Issue
Block a user