fix drawing order again
This commit is contained in:
parent
e6c0c1ad70
commit
fff7dfbbce
1 changed files with 3 additions and 1 deletions
|
@ -395,12 +395,14 @@ drawTile ud ctx posanims pr pc row col img =
|
||||||
all delimit mb
|
all delimit mb
|
||||||
where
|
where
|
||||||
delimit b
|
delimit b
|
||||||
|
| nnr > fst (matmax b) || nnc < snd (matmin b) =
|
||||||
|
True
|
||||||
| nnr > fst (matmin b) && nnr < fst (matmax b) =
|
| nnr > fst (matmin b) && nnr < fst (matmax b) =
|
||||||
nnc < snd (matmin b)
|
nnc < snd (matmin b)
|
||||||
| nnc > snd (matmin b) && nnc < snd (matmax b) =
|
| nnc > snd (matmin b) && nnc < snd (matmax b) =
|
||||||
nnr > fst (matmax b)
|
nnr > fst (matmax b)
|
||||||
| otherwise =
|
| otherwise =
|
||||||
True
|
False
|
||||||
nnr = case mbnds of
|
nnr = case mbnds of
|
||||||
Just (Boundaries (minr, minc) (maxr, maxc)) -> maxr
|
Just (Boundaries (minr, minc) (maxr, maxc)) -> maxr
|
||||||
Nothing -> nr - fromIntegral ((floor nr) :: Int) :: Double
|
Nothing -> nr - fromIntegral ((floor nr) :: Int) :: Double
|
||||||
|
|
Loading…
Reference in a new issue