Correct text scaling

src/Picture/Preload.hs

@@ -143,14 +143,18 @@ preloadRender = do
 
     --textureBinding Texture2D $= Just chartex
 
+-- input a list of (attribute location, attrib length) pairs
+-- these will have buffers and pointers created
     trivao  <- setupVAO [(0,3),(1,4)]
     linevao <- setupVAO [(0,3),(1,4)]
-    textvao <- setupVAO [(0,3),(1,4),(2,2)]
+    textvao <- setupVAO [(0,3),(1,4),(2,3)]
     circvao <- setupVAO [(0,3),(1,4),(2,1)]
     arcvao  <- setupVAO [(0,3),(1,4),(2,4)]
-    backgroundvao <- setupVAO [(0,4),(1,2)]
+    backgroundvao 
+            <- setupVAO [(0,4),(1,2)]
     wallvao <- setupVAO [(0,4),(1,4)]
-    fadecircvao <- setupVAO [(0,4)]
+    fadecircvao 
+            <- setupVAO [(0,4)]
     
     return $ RenderData
         { -- _charMap      = convertRGBA8 cmap