diff options
Diffstat (limited to 'PointPrimitiveRing.hs')
-rw-r--r-- | PointPrimitiveRing.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/PointPrimitiveRing.hs b/PointPrimitiveRing.hs index 54405e4..d4fafae 100644 --- a/PointPrimitiveRing.hs +++ b/PointPrimitiveRing.hs | |||
@@ -54,7 +54,8 @@ newRing storage sz toAttr = fix $ \retProxy -> do | |||
54 | sizeRef <- newIORef 0 | 54 | sizeRef <- newIORef 0 |
55 | let ps = fieldParameters paramProxy toAttr | 55 | let ps = fieldParameters paramProxy toAttr |
56 | putStrLn $ "Ring params: " ++ show ps | 56 | putStrLn $ "Ring params: " ++ show ps |
57 | gd <- uploadDynamicBuffer sz ps | 57 | gd0 <- uploadDynamicBuffer sz ps |
58 | let gd = gd0 { dPrimitive = LineStrip } | ||
58 | Just keys <- return $ lookupAttrKeys (lookupAttributeKey gd . toAttr) | 59 | Just keys <- return $ lookupAttrKeys (lookupAttributeKey gd . toAttr) |
59 | obj <- addToObjectArray storage "Points" [] gd | 60 | obj <- addToObjectArray storage "Points" [] gd |
60 | readIORef (objCommands obj) >>= mapM_ print | 61 | readIORef (objCommands obj) >>= mapM_ print |