Commit before implementing downscaled resolution

src/Dodge/Config/Update.hs

@@ -7,7 +7,7 @@ import Dodge.Data.SoundOrigin
 import Dodge.Config.Data
 import Sound
 import Data.Preload
-import Preload.Update
+import Framebuffer.Update
 
 import Data.Aeson (encodeFile)
 --import Control.Monad (when)

src/Dodge/Event.hs

@@ -23,7 +23,7 @@ import Dodge.SoundLogic
 import Dodge.Inventory
 import Dodge.Config.Data
 --import Geometry
-import Preload.Update
+import Framebuffer.Update
 import qualified IntMapHelp as IM
 
 import Control.Lens

src/Dodge/Event/Menu.hs

@@ -10,7 +10,7 @@ import Dodge.SoundLogic
 import Dodge.Config.Data
 import Dodge.Config.Update
 import Dodge.Layout
-import Preload.Update
+import Framebuffer.Update
 import Dodge.Debug.Terminal
 
 import Data.Maybe

src/Dodge/Render.hs

@@ -115,7 +115,7 @@ doDrawing pdata w = do
     colorMask $= Color4 Enabled Enabled Enabled Enabled
     clearColor $= Color4 0 0 0 0
 
-    blend $= Disabled
+    --blend $= Disabled
     depthMask $= Disabled
     depthFunc $= Just Always