     (.begin batch)
     (doseq [entity (->> (map #(get-in screen [:layers %]) layer-names)
                         (apply concat entities)
-                        (sort #(if (< (:y %1) (:y %2)) 1 -1)))]
+                        (high->low :y))]
       (if-let [layer (:layer entity)]
         (.renderTileLayer renderer layer)
         (draw-entity! batch entity)))

(in-ns 'play-clj.core)

; tiled maps


  (let [^Camera camera (u/get-obj screen :camera)]
    (set! (. camera far) n)
    (.update camera)))
