Slightly restrict texture sizes

shader/shape/basic.frag

@@ -3,11 +3,11 @@ in vec4 vCol;
 in vec4 vPos;
 in vec4 vNorm;
 layout (location=0) out vec4 fCol;
-layout (location=1) out vec4 fPos;
-layout (location=2) out vec4 fNorm;
+layout (location=1) out vec3 fPos;
+layout (location=2) out vec3 fNorm;
 void main()
 {
   fCol = vCol;
-  fPos = vPos;
-  fNorm = vNorm;
+  fPos = vPos.xyz;
+  fNorm = vNorm.xyz;
 }

src/Data/Preload/Render.hs

@@ -27,7 +27,6 @@ data RenderData = RenderData
     , _shapeEBO :: UintBO
     , _silhouetteEBO :: UintBO
     , _pictureShaders :: MV.MVector (PrimState IO) (GLuint,VBO)
---    , _fbo2 :: (FBO, TO)
     , _fboHalf1 :: (FBO, TO)
     , _fboHalf2 :: (FBO, TO)
     , _fboBase :: (FBO, (TO, TO, TO))

src/Dodge/Render.hs

@@ -318,7 +318,7 @@ doDrawing' win pdata u = do
     glEnable GL_CULL_FACE
     glDisable GL_DEPTH_CLAMP
     --apply lightmap to cloud buffer
-    glBindFramebuffer GL_FRAMEBUFFER (_unFBO (fst (_fboCloud pdata)))
+    glBindFramebuffer GL_FRAMEBUFFER $ pdata ^. fboCloud . _1 . unFBO
     glDepthMask GL_FALSE
     withArray [GL_COLOR_ATTACHMENT0, GL_NONE] $
         glNamedFramebufferDrawBuffers (pdata ^. fboCloud . _1 . unFBO) 2

src/Framebuffer/Update.hs

@@ -26,10 +26,10 @@ sizeFBOs cfig rdata =
             GL_NEAREST
             GL_NEAREST
             GL_RGBA16F
-            GL_RGBA16F -- could possibly recover using depth in a clever way
+            GL_RGB16F -- could possibly recover using depth in a clever way
             -- but probably not, because the projection matrix is
             -- not always on-center
-            GL_RGBA8_SNORM
+            GL_RGB8_SNORM
             rdata
             fboBase
             >>= flip