Render curve points as line strips rather than points.

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
     sizeRef <- newIORef 0
     let ps = fieldParameters paramProxy toAttr
     putStrLn $ "Ring params: " ++ show ps
-    gd <- uploadDynamicBuffer sz ps
+    gd0 <- uploadDynamicBuffer sz ps
+    let gd = gd0 { dPrimitive = LineStrip }
     Just keys <- return $ lookupAttrKeys (lookupAttributeKey gd . toAttr)
     obj <- addToObjectArray storage "Points" [] gd
     readIORef (objCommands obj) >>= mapM_ print