hashirama/metabrush
1
0
Fork 0
mirror of https://gitlab.com/sheaf/metabrush.git synced 2024-11-05 23:03:38 +00:00
Code Issues Actions Projects Releases Wiki Activity

fix bug in cubic Bézier subdivision

Browse source
This commit is contained in:
sheaf 2021-02-25 00:07:15 +01:00
parent 212ac4fded
commit 4788ab2efd
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/app/MetaBrush/Document/SubdivideStroke.hs
View file

@ -161,7 +161,7 @@ subdivide c doc@( Document { zoomFactor } ) =
let let
bez_start, bez_end :: Curve Open ( CachedStroke RealWorld ) ( PointData brushParams ) bez_start, bez_end :: Curve Open ( CachedStroke RealWorld ) ( PointData brushParams )
bez_start = Bezier3To q1 q2 ( NextPoint subdiv ) ( invalidateCache dat ) 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 ) put ( Just txt )
pure ( bez_start :<| bez_end :<| Empty ) pure ( bez_start :<| bez_end :<| Empty )
else pure $ Seq.singleton bez3 else pure $ Seq.singleton bez3