From 27691ae11b417577093405ba54f8cebc973ee08b Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Sun, 19 Feb 2017 19:48:02 -0800 Subject: [PATCH] modifications for ios --- src/play_clj/core.clj | 2 +- src/play_clj/core_basics.clj | 3 ++- src/play_clj/core_graphics.clj | 2 +- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/play_clj/core.clj b/src/play_clj/core.clj index e6bcaa7..072de86 100755 --- a/src/play_clj/core.clj +++ b/src/play_clj/core.clj @@ -117,7 +117,7 @@ (.begin (.getBatch ^Stage (:renderer @screen))) (swap! screen (fn [s] (-> s - (assoc :delta-time 0.0167) + (assoc :delta-time d) (update-in [:total-time] #(unchecked-add (or ^double %1 0) d))))) (let [r (execute-fn! on-render @screen)] (.end (.getBatch ^Stage (:renderer @screen))) diff --git a/src/play_clj/core_basics.clj b/src/play_clj/core_basics.clj index e9d2cfb..bd517e6 100755 --- a/src/play_clj/core_basics.clj +++ b/src/play_clj/core_basics.clj @@ -140,7 +140,8 @@ (defn ^:private add-input! [^InputProcessor p] (when-let [^InputMultiplexer multi (input! :get-input-processor)] - (.addProcessor multi p))) + (when p + (.addProcessor multi p)))) (defn ^:private remove-input! [^InputProcessor p] diff --git a/src/play_clj/core_graphics.clj b/src/play_clj/core_graphics.clj index e762ad0..480853f 100755 --- a/src/play_clj/core_graphics.clj +++ b/src/play_clj/core_graphics.clj @@ -496,7 +496,7 @@ with the tiled map file at `path` and `unit` scale. (when shader (.setShader batch shader) (.setUniformf shader "multiply_amount" (float (or multiply-amount 1.0))) - (.setUniformf shader "hue_amount" (float (or hue-amount 1.0)))) + (.setUniformf shader "hue_amount" (float (or hue-amount 0.0)))) (when additive? (.setBlendFunction ^Batch batch (gl :gl-src-alpha) (gl :gl-one)))