From 8e735080a3f45a90f9952f1ff883260b1230fdf1 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sun, 26 May 2019 00:59:50 -0400
Subject: Render curve points as line strips rather than points.

---
 PointPrimitiveRing.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'PointPrimitiveRing.hs')

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
-- 
cgit v1.2.3