From f3ac5a8de1c86792517f6e6db56c370f330055bb Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Mon, 3 Jun 2019 20:29:27 -0400
Subject: Avoid curve-jump on pen-up.

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

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