diff --git a/src/MainGame/WorldMap.hs b/src/MainGame/WorldMap.hs index d73c5b3..b3ec5c2 100644 --- a/src/MainGame/WorldMap.hs +++ b/src/MainGame/WorldMap.hs @@ -576,9 +576,9 @@ drawTile ud ctx posanims pr pc row col img = tileWidth = 64 :: Double tileHeight = 32 :: Double sorted = sortOn (\(V2 sr sc, _, mbnds) -> case mbnds of - Just (Boundaries (_, minc) (maxr, _)) -> maxr * 10 + (1 - minc) - _ -> (sr - (fromIntegral ((floor sr) :: Int))) * 10 + - (1 - (sc - (fromIntegral ((floor sc) :: Int)))) + Just (Boundaries (_, _) (maxr, maxc)) -> maxr + (1 - maxc) * 10 + _ -> (sr - (fromIntegral ((floor sr) :: Int))) + + (1 - (sc - (fromIntegral ((floor sc) :: Int)))) * 10 ) posanims -- sorted = posanims minrs = Prelude.map (fst . matmin) mb