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 x :: Double) < 1280 &&
(realToFrac (y - (74 - (realToFrac tileHeight :: CFloat))) :: Double) < 720)) $ (realToFrac (y - (74 - (realToFrac tileHeight :: CFloat))) :: Double) < 720)) $
do do
let (bef, beh) = L.partition delimiter (reverse sorted) let (bef, beh) = L.partition delimiter sorted
save ctx save ctx
mapM_ drawAnim beh mapM_ drawAnim beh
maybe (return ()) (draw ud x (y - 42) 64 74 fact) maybe (return ()) (draw ud x (y - 42) 64 74 fact)