                     (/ x half-tile-width))
                  2))))
 
-(defn isometric-map->screen
+(defn isometric->screen
   "Returns a copy of the provided map with x/y values converted from isometric
 map to screen coordinates
 
-    (isometric-map->screen screen {:x 2 :y 1})"
+    (isometric->screen screen {:x 2 :y 1})"
   [screen {:keys [x y] :as entity}]
   (let [{:keys [unit-scale tile-width tile-height]} (tiled-map-prop screen)
         half-tile-width (/ (* tile-width unit-scale) 2)

     :width (.get prop "width")
     :height (.get prop "height")}))

(defn screen->isometric-map
  "Returns a copy of the provided map with x/y values converted from screen
to isometric map coordinates

    (screen->isometric-map screen {:x 64 :y 32})"
  [screen {:keys [x y] :as entity}]
  (let [{:keys [unit-scale tile-width tile-height]} (tiled-map-prop screen)
        half-tile-width (/ (* tile-width unit-scale) 2)

  [screen layer-name]
  (let [^TiledMapTileLayer l (tiled-map-layer screen layer-name)]
    (reduce (fn [layers {:keys [x y] :as map-tile}]
              (let [screen-tile (isometric->screen screen map-tile)
                    new-layer (or (->> layers (filter #(= y (:y %))) first)
                                  (assoc screen-tile :layer (create-layer l)))]
                (->> (tiled-map-layer! l :get-cell x y)
