From 5ef4e1f8f206bb6b1bfe94b421d8b72b912af477 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Mon, 3 Jun 2019 17:31:42 -0400
Subject: Discard fewer data points for fitting.

---
 MeshSketch.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/MeshSketch.hs b/MeshSketch.hs
index 0c1b4a2..c63420e 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -211,7 +211,7 @@ uploadState obj glarea storage = do
     -- grid plane
     uploadMeshToGPU xzplane >>= addMeshToObjectArray storage "plane" []
 
-    let bufsize = 100
+    let bufsize = 1000
     v <- MV.unsafeNew bufsize
     pts <- newRing bufsize (Vector.new v)
     ring <- newRing bufsize (GPU.new storage ringPointAttr bufsize)
@@ -659,7 +659,7 @@ pushRing w st endpt h k c = do
                 x = dot û v̂
                 uv = û + v̂
                 θ = atan2 (uv!0) (uv!1)
-                n = round $ θ/(pi/6)
+                n = round $ θ/(pi/12)
             m <- readIORef (stAngle st)
             let isSpecial = x<0.3 -- || δ<0.5
             go <- if (m /= n || isSpecial) then do
-- 
cgit v1.2.3