nek0/hw
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

???

Browse source
This commit is contained in:
nek0 2020-02-06 05:24:47 +01:00
parent f4e4457df7
commit ba956ea3d6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Init.hs
View file

@ -42,7 +42,7 @@ load = do
GL.bindBuffer GL.ArrayBuffer $= Just verts GL.bindBuffer GL.ArrayBuffer $= Just verts
withArray (loTriangles lobj) $ \ptr -> withArray (loTriangles lobj) $ \ptr ->
GL.bufferData GL.ArrayBuffer $= GL.bufferData GL.ArrayBuffer $=
( fromIntegral $ length (loTriangles lobj) * 3 * sizeOf (0 :: Double) ( fromIntegral $ length (loTriangles lobj) {-* 3-} * sizeOf (0 :: Double)
, ptr , ptr
, GL.StaticDraw , GL.StaticDraw
) )