This commit is contained in:
nek0 2018-11-16 12:38:40 +01:00
parent feb069f4ce
commit 231ebd2fba

View file

@ -537,7 +537,7 @@ drawTile ud ctx posanims pr pc row col img =
((realToFrac x :: Double) < 1280 &&
(realToFrac (y - (74 - (realToFrac tileHeight :: CFloat))) :: Double) < 720)) $
do
let (bef, beh) = L.partition delimiter (reverse sorted)
let (bef, beh) = L.partition delimiter sorted
save ctx
mapM_ drawAnim beh
maybe (return ()) (draw ud x (y - 42) 64 74 fact)