Play with upscaling shaders

src/Dodge/Render.hs

@@ -384,7 +384,7 @@ doDrawing' win pdata u = do
             glUseProgram (pdata ^. barrelShader . _1)
             glUniform1i 0 (fromIntegral (length rs))
             --glDrawArrays GL_TRIANGLES 0 6
-            glDrawArrays GL_TRIANGLES 0 3
+            glDrawArrays GL_TRIANGLES 0 6
     glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
     -- draw the overlay
     glDepthFunc GL_ALWAYS

src/Dodge/TestString.hs

@@ -32,7 +32,8 @@ import Data.Foldable
 import Data.Monoid
 
 testStringInit :: Universe -> [String]
-testStringInit u =  [ show (u ^. uvWorld . wCam . camRot)
+testStringInit u =  [ show (u ^. uvConfig . windowX)
+    , show (u ^. uvConfig . windowY)
     ,show $ fmap (
      worldPosToScreen (u ^. uvWorld . wCam) )
     $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crPos . _xy