Fix resize bug, resize RenderbufferObject of ping pong framebuffers

src/Dodge/Base/Zone.hs

@@ -12,7 +12,7 @@ import Data.Bifunctor
 import qualified Data.IntMap.Strict as IM
 import qualified Data.IntSet as IS
 zoneSize :: Float
-zoneSize = 50
+zoneSize = 25
 --zoneSize = 100
           
 floorHun :: Float -> Int

src/Dodge/Creature/ChooseTarget.hs

@@ -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

src/Dodge/Creature/SwarmCrit.hs

@@ -38,3 +38,5 @@ swarmCrit = defaultCreature
     , _crFaction = ColorFaction yellow
     , _crMeleeCooldown = Just 0
     }
+
+

src/Dodge/Floor.hs

@@ -52,7 +52,7 @@ roomTreex = do
             [[StartRoom]
             ,[Corridor]
             ,[SpecificRoom . pure . pure . Right $ roomGlassOctogon 400 
-                & rmPS %~ ([swarmPS 0 (x,y) 0 swarmCrit | x <- [-20,-19.5.. 20] , y <- [200,200.5..202] ]++)
+                & rmPS %~ ([swarmPS 0 (x,y) 0 swarmCrit | x <- [-20,-19.5.. 20] , y <- [200,201] ]++)
              ]
             ,[Corridor]
             ,[Corridor]

src/Dodge/Render.hs

@@ -23,6 +23,7 @@ import Control.Applicative
 import Control.Monad.State
 import Control.Lens
 import qualified Control.Foldl as F
+import Data.Tuple.Extra
 import Data.Maybe
 import Data.List
 import Data.Bifunctor
@@ -95,7 +96,7 @@ doDrawing pdata w = do
     -- we probably do not want to blend during this step
     blend $= Disabled
     depthFunc $= Just Always
-    textureBinding Texture2D $= Just (snd $ _fbo2 pdata)
+    textureBinding Texture2D $= Just (snd3 $ _fbo2 pdata)
 --    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
 --    generateMipmap' Texture2D
     if _crHP (you w) > 0