From 4788ab2efd60a85599fb4c4efc46c724d8ec20f6 Mon Sep 17 00:00:00 2001 From: sheaf Date: Thu, 25 Feb 2021 00:07:15 +0100 Subject: [PATCH] =?UTF-8?q?fix=20bug=20in=20cubic=20B=C3=A9zier=20subdivis?= =?UTF-8?q?ion?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/app/MetaBrush/Document/SubdivideStroke.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/app/MetaBrush/Document/SubdivideStroke.hs b/src/app/MetaBrush/Document/SubdivideStroke.hs index 265b388..5bf9791 100644 --- a/src/app/MetaBrush/Document/SubdivideStroke.hs +++ b/src/app/MetaBrush/Document/SubdivideStroke.hs @@ -161,7 +161,7 @@ subdivide c doc@( Document { zoomFactor } ) = let bez_start, bez_end :: Curve Open ( CachedStroke RealWorld ) ( PointData brushParams ) bez_start = Bezier3To q1 q2 ( NextPoint subdiv ) ( invalidateCache dat ) - bez_end = Bezier3To r1 r2 ( NextPoint sp2 ) ( invalidateCache dat ) + bez_end = Bezier3To r1 r2 ( NextPoint sp3 ) ( invalidateCache dat ) put ( Just txt ) pure ( bez_start :<| bez_end :<| Empty ) else pure $ Seq.singleton bez3