         app @app-state]
     (some #{1} [(get-in app (into [:grid] left)) (get-in app (into [:grid] right))]
          )))
+
+(defn on-supporting-block? [position]
+  (let [[left right] (hero-feet-coords position)
+        app @app-state
+        below-left (update-in left [0] + 1)
+        below-right (update-in right [0] + 1)]
+    (some #{1} [(get-in app (into [:grid] left)) (get-in app (into [:grid] right))]
+          )))
 
 (defn beneath-1px [position]
   (let [{:keys [left bottom]} position]


(def grid-content [
           [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
           [0 0 0 0 1 0 9 0 0 0 0 0 1 0 0 0 0 0 0 0]
           [0 0 0 0 1 1 1 1 1 0 1 1 1 0 0 0 0 0 0 0]
           [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
           [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
           [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
           [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
           [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
           [0 1 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 1 0]
           [1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]
           ])



(defn start-moving [e app]
  (condp = (aget e "keyCode")
    88 (om/update! app [:hero :dx] 10)
    90 (om/update! app [:hero :dx] -10)
    nil
    )
  )
