Play with upscaling filters

src/Dodge/Render.hs

@@ -44,6 +44,7 @@ doTestDrawing _ _ = do
 doDrawing' :: SDL.Window -> RenderData -> Universe -> IO ()
 doDrawing' win pdata u = do
     --sTicks <- SDL.ticks
+--    SDL.glSwapWindow win
     let w = _uvWorld u
         cfig = _uvConfig u
         (windowPoints, wallSPics, wallsToPoke) = wallsToDraw w
@@ -370,6 +371,7 @@ doDrawing' win pdata u = do
             glBindFramebuffer GL_FRAMEBUFFER 0
             if (cfig ^. gr_upscale_filter) then do
                 glUseProgram (pdata ^. textureAntiaShader)
+                glGenerateTextureMipmap (pdata ^. fboBase . _2 . _1 . unTO)
                 glUniform2f 0 (windowXFloat cfig) (windowYFloat cfig)
             else glUseProgram (pdata ^. fullscreenShader)
             --glDrawArrays GL_TRIANGLES 0 6

src/Dodge/Room/Tutorial.hs

@@ -48,6 +48,12 @@ tutAnoTree = do
     foldMTRS
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , tutHub
         , tutLight
         , tutDrop