Play around with upscaling pixel filtering

src/Dodge/Data/Config.hs

@@ -49,6 +49,7 @@ data Config = Config
     { _volume_master :: Float
     , _volume_sound :: Float
     , _volume_music :: Float
+    , _gr_upscale_filter :: Bool
     , _gr_cloud_shadows :: Bool
     , _gr_distortions :: Bool
     , _gr_bloom :: Bool
@@ -152,6 +153,7 @@ defaultConfig =
         { _volume_master = 1
         , _volume_sound = 1
         , _volume_music = 0
+        , _gr_upscale_filter = True
         , _gr_cloud_shadows = True
         , _gr_bloom = True
         , _gr_shadow_rendering = GeoObjShads

src/Dodge/Menu.hs

@@ -189,6 +189,7 @@ graphicsMenuOptions :: [MenuOption]
 graphicsMenuOptions =
     [ enumOption gr_world_res "World resolution" (uvIOEffects .~ updatePreload)
     , enumOption gr_downsize_res "Downsize resolution" (uvIOEffects .~ updatePreload)
+    , boolOption gr_upscale_filter "UPSCALE FILTER"
     , enumOption gr_shadow_rendering "SHADOW RENDERING" id
     , enumOption gr_shadows_on_clouds "SHADOW DETAIL ON CLOUDS" id
     , enumOption gr_shadow_size "SHADOW DETAIL" id

src/Dodge/Render.hs

@@ -368,8 +368,10 @@ doDrawing' win pdata u = do
         [] -> do
             glBindTextureUnit 0 $ pdata ^. fboBase . _2 . _1 . unTO
             glBindFramebuffer GL_FRAMEBUFFER 0
-            glUseProgram (pdata ^. textureAntiaShader)
-            glUniform2f 0 (windowXFloat cfig) (windowYFloat cfig)
+            if (cfig ^. gr_upscale_filter) then do
+                glUseProgram (pdata ^. textureAntiaShader)
+                glUniform2f 0 (windowXFloat cfig) (windowYFloat cfig)
+            else glUseProgram (pdata ^. fullscreenShader)
             --glDrawArrays GL_TRIANGLES 0 6
             glDrawArrays GL_TRIANGLES 0 3
         rs' -> do