modifications for ios

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)))

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]

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)))