Fix resize bug, resize RenderbufferObject of ping pong framebuffers

This commit is contained in:
2021-05-14 22:31:07 +02:00
parent c5657fe855
commit e658fdcd0b
8 changed files with 24 additions and 23 deletions
+1
View File
@@ -8,6 +8,7 @@ import Control.Lens
import qualified Data.IntMap.Strict as IM
targetYouLOS :: Creature -> World -> Maybe Creature
{-# INLINE targetYouLOS #-}
targetYouLOS cr w
| hasLOS (_crPos cr) (_crPos $ you w) w = Just $ you w
| otherwise = Nothing