 
 (defn beneath-1px [position]
   (let [{:keys [left bottom]} position]
-    {:left left :bottom (- bottom 1)}
+    {:left left :bottom (- bottom 5)}
     ))
 
 (defn left-1px [position]

    {:left (+ left 1) :bottom bottom}
    ))

(defn vertical-position [app]
  (let [current-vertical (get-in app [:hero :position :bottom])
        current-block-no (most-supportive-block (beneath-1px (get-in app [:hero :position])))]
    (if (>= current-block-no 1)
      current-vertical
      (- current-vertical 1)
      )
    ))


(def app-state (atom {:text "Hello Chestnut!"
                      :hero {:move false
                             :position {:bottom 560 :left 70}
                             :jump {:time nil :bottom nil}
                             }

                      :grid [[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
