Commit with working graphics but slow, will attempt to change text

2021-02-15 12:50:38 +01:00
parent 8447844bcd
commit 9747b5b876
4 changed files with 99 additions and 78 deletions
@@ -1,5 +1,5 @@
 {-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE Strict #-}
+--{-# LANGUAGE Strict #-}
 module Picture.Preload
    where

@@ -130,9 +130,9 @@ doPreload' = do
    vertexAttribArray (AttribLocation 2) $= Enabled

 -- allocate memory for vertex attributes
-    ptrPosVBO <- mallocArray (3*3*5000)
-    ptrColVBO <- mallocArray (3*4*5000)
-    ptrTexVBO <- mallocArray (3*2*5000)
+    ptrPosVBO <- mallocArray (3*3*20000)
+    ptrColVBO <- mallocArray (3*4*20000)
+    ptrTexVBO <- mallocArray (3*2*20000)

    return $ PreloadData
        { _charMap      = convertRGBA8 cmap