diff options
Diffstat (limited to 'PointPrimitiveRing.hs')
-rw-r--r-- | PointPrimitiveRing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/PointPrimitiveRing.hs b/PointPrimitiveRing.hs index 10040d5..3f2258b 100644 --- a/PointPrimitiveRing.hs +++ b/PointPrimitiveRing.hs | |||
@@ -41,7 +41,7 @@ newRing :: GLStorage -> Int -> IO Ring | |||
41 | newRing storage sz = do | 41 | newRing storage sz = do |
42 | startRef <- newIORef 0 | 42 | startRef <- newIORef 0 |
43 | sizeRef <- newIORef 0 | 43 | sizeRef <- newIORef 0 |
44 | gd <- uploadDynamicBuffer sz "position" | 44 | gd <- uploadDynamicBuffer sz [Parameter "position" V3F] |
45 | obj <- addToObjectArray storage "Points" [] gd | 45 | obj <- addToObjectArray storage "Points" [] gd |
46 | readIORef (objCommands obj) >>= mapM_ print | 46 | readIORef (objCommands obj) >>= mapM_ print |
47 | -- [[GLSetUniform 0 GLUniform M44F,GLSetVertexAttribArray 0 5 3 5126 0x0000000000000000,GLDrawArrays 0 0 1],[],[],[]] | 47 | -- [[GLSetUniform 0 GLUniform M44F,GLSetVertexAttribArray 0 5 3 5126 0x0000000000000000,GLDrawArrays 0 0 1],[],[],[]] |