moooaaarrr work on triangles ... still nothing

2014-01-04 02:45:13 +01:00
parent a2c1effb48
commit 7db4bff2e4
6 changed files with 42 additions and 14 deletions
--- a/src/Map/Map.hs
+++ b/src/Map/Map.hs
@ -80,7 +80,9 @@ getMapBufferObject = do
        bo <- genObjectName                     -- create a new buffer
        bindBuffer ArrayBuffer $= Just bo       -- bind buffer
        withArray map' $ \buffer ->
-                bufferData ArrayBuffer $= (fromIntegral (sizeOf(P.head map')), buffer, StaticDraw)
+                bufferData ArrayBuffer $= (fromIntegral $ sizeOf (0 :: Float)*P.length map',
+                                           buffer,
+                                           StaticDraw)
        checkError "initBuffer"
        return (bo,len)