Avoid curve-jump on pen-up.

1 files changed, 2 insertions, 0 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index 14b3ebc..15af94f 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -724,9 +724,11 @@ onEvent w realized ev = do
               Nothing -> case inputSource of
                 Just InputSourcePen -> do
                     writeIORef (stPenDown st) False
+                    {-
                     d <- pushRing w st True h k red
                     Just win <- getWidgetWindow w
                     windowInvalidateRect win Nothing False
+                    -}
                 _ -> do
                     updateCameraRotation w st h k
                     sanitizeCamera st