diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-05-21 04:21:48 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-05-21 04:21:48 -0400 |
| commit | a2aa65ffc5a4fc6cd0f41ccab1516f85a27989b2 (patch) | |
| tree | 3b02233126690fea8a96ad2d2765be858ec41ab4 /MaskableStream.hs | |
| parent | bc6fd1c71e22ef54a4aed8774dcec4dd190b9dbc (diff) | |
Added colors to pen points + various updates.
Diffstat (limited to 'MaskableStream.hs')
| -rw-r--r-- | MaskableStream.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/MaskableStream.hs b/MaskableStream.hs index d836f37..6c03769 100644 --- a/MaskableStream.hs +++ b/MaskableStream.hs | |||
| @@ -331,7 +331,6 @@ updateAttributes i writer = forM_ (execWriter writer) $ \case | |||
| 331 | 331 | ||
| 332 | Just (MarshalGLVector with) -> with $ \sz ptr -> do | 332 | Just (MarshalGLVector with) -> with $ \sz ptr -> do |
| 333 | let sz' = fromIntegral $ attribSize * (fromIntegral sz) | 333 | let sz' = fromIntegral $ attribSize * (fromIntegral sz) |
| 334 | putStrLn $ "vector sz = " ++ show sz | ||
| 335 | glBufferSubData GL_ARRAY_BUFFER (base + fromIntegral i * sz') sz' ptr | 334 | glBufferSubData GL_ARRAY_BUFFER (base + fromIntegral i * sz') sz' ptr |
| 336 | 335 | ||
| 337 | Just (MarshalGLMatrix with) -> with $ \sz isrowcol ptr -> case isrowcol of | 336 | Just (MarshalGLMatrix with) -> with $ \sz isrowcol ptr -> case isrowcol of |