diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-06-03 17:31:42 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-06-03 17:31:42 -0400 |
| commit | 5ef4e1f8f206bb6b1bfe94b421d8b72b912af477 (patch) | |
| tree | 1c4da0521af6c06eed7ba0d8f45a477bf6e8484a | |
| parent | d9584d5877f428928dd562a169f81763d8f63902 (diff) | |
Discard fewer data points for fitting.
| -rw-r--r-- | MeshSketch.hs | 4 |
1 files 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 | |||
| 211 | -- grid plane | 211 | -- grid plane |
| 212 | uploadMeshToGPU xzplane >>= addMeshToObjectArray storage "plane" [] | 212 | uploadMeshToGPU xzplane >>= addMeshToObjectArray storage "plane" [] |
| 213 | 213 | ||
| 214 | let bufsize = 100 | 214 | let bufsize = 1000 |
| 215 | v <- MV.unsafeNew bufsize | 215 | v <- MV.unsafeNew bufsize |
| 216 | pts <- newRing bufsize (Vector.new v) | 216 | pts <- newRing bufsize (Vector.new v) |
| 217 | ring <- newRing bufsize (GPU.new storage ringPointAttr bufsize) | 217 | ring <- newRing bufsize (GPU.new storage ringPointAttr bufsize) |
| @@ -659,7 +659,7 @@ pushRing w st endpt h k c = do | |||
| 659 | x = dot û v̂ | 659 | x = dot û v̂ |
| 660 | uv = û + v̂ | 660 | uv = û + v̂ |
| 661 | θ = atan2 (uv!0) (uv!1) | 661 | θ = atan2 (uv!0) (uv!1) |
| 662 | n = round $ θ/(pi/6) | 662 | n = round $ θ/(pi/12) |
| 663 | m <- readIORef (stAngle st) | 663 | m <- readIORef (stAngle st) |
| 664 | let isSpecial = x<0.3 -- || δ<0.5 | 664 | let isSpecial = x<0.3 -- || δ<0.5 |
| 665 | go <- if (m /= n || isSpecial) then do | 665 | go <- if (m /= n || isSpecial) then do |