diff options
-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 |