diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-06-03 22:18:44 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-06-03 22:18:44 -0400 |
| commit | 07bcb2a2e4c52b0a0f3c34bc1a70772e4ab2dbb5 (patch) | |
| tree | 4f7405a8cee50937386cd0ccf90d0498a96dc781 /MeshSketch.hs | |
| parent | f3ac5a8de1c86792517f6e6db56c370f330055bb (diff) | |
Specify stream name for GPU-ringbuffers.
Diffstat (limited to 'MeshSketch.hs')
| -rw-r--r-- | MeshSketch.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MeshSketch.hs b/MeshSketch.hs index 15af94f..dc0adf1 100644 --- a/MeshSketch.hs +++ b/MeshSketch.hs | |||
| @@ -172,7 +172,7 @@ uploadState obj glarea storage = do | |||
| 172 | let bufsize = 1000 | 172 | let bufsize = 1000 |
| 173 | v <- MV.unsafeNew bufsize | 173 | v <- MV.unsafeNew bufsize |
| 174 | pts <- newRing bufsize (Vector.new v) | 174 | pts <- newRing bufsize (Vector.new v) |
| 175 | ring <- newRing bufsize (GPU.new storage ringPointAttr bufsize) | 175 | ring <- newRing bufsize (GPU.new "Points" storage ringPointAttr bufsize) |
| 176 | 176 | ||
| 177 | -- setup FrameClock | 177 | -- setup FrameClock |
| 178 | w <- toWidget glarea | 178 | w <- toWidget glarea |