nek0 2 years ago
parent
commit
ba956ea3d6
  1. 2
      src/Init.hs

2
src/Init.hs

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

Loading…
Cancel
Save