diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-05-19 02:16:30 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-05-19 02:16:30 -0400 |
| commit | 04fc039177d49e1f5f57ce0f61216870d4f723ab (patch) | |
| tree | 5ed07577fb0e505df057fcb0330a6cc17730451c /PointPrimitiveRing.hs | |
| parent | b00e114facc43d94aebefa103caa7df61b39d246 (diff) | |
Allow multiple attributes for dynamic buffer.
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],[],[],[]] |