From 78c03b99e1f7637505a4b157922eba34f8e4f420 Mon Sep 17 00:00:00 2001 From: sheaf Date: Mon, 23 Jan 2023 02:01:56 +0100 Subject: [PATCH] change fitpoint render size --- src/app/MetaBrush/Render/Document.hs | 6 +++--- src/splines/Math/Bezier/Stroke.hs | 3 ++- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/src/app/MetaBrush/Render/Document.hs b/src/app/MetaBrush/Render/Document.hs index 5644d0b..fe3dbdc 100644 --- a/src/app/MetaBrush/Render/Document.hs +++ b/src/app/MetaBrush/Render/Document.hs @@ -622,7 +622,7 @@ drawFitPoint _ zoom ( FitPoint { fitPoint = ℝ2 x y } ) = do lift do Cairo.save Cairo.translate x y - Cairo.arc 0 0 ( 6 / zoom ) 0 ( 2 * pi ) -- 2 / zoom + Cairo.arc 0 0 ( 4 / zoom ) 0 ( 2 * pi ) Cairo.setSourceRGBA r g b 0.8 Cairo.fill Cairo.restore @@ -639,8 +639,8 @@ drawFitPoint _ zoom ( FitTangent { fitPoint = ℝ2 x y, fitTangent = V2 tx ty } Cairo.translate x y Cairo.moveTo 0 0 Cairo.lineTo ( 0.05 * tx ) ( 0.05 * ty ) - Cairo.setLineWidth ( 4 / zoom ) -- 1 / zoom - Cairo.setSourceRGBA r g b 0.8 + Cairo.setLineWidth ( 4 / zoom ) + Cairo.setSourceRGBA r g b 1.0 Cairo.stroke Cairo.arc 0 0 ( 2 / zoom ) 0 ( 2 * pi ) Cairo.fill diff --git a/src/splines/Math/Bezier/Stroke.hs b/src/splines/Math/Bezier/Stroke.hs index cc02076..b47bdb7 100644 --- a/src/splines/Math/Bezier/Stroke.hs +++ b/src/splines/Math/Bezier/Stroke.hs @@ -612,7 +612,8 @@ outlineFunction ptParams toBrushParams brushFromParams sp0 crv = OutlineInfo { outlineFn = fwdBwd , outlineDefiniteCusps = map ( cuspCoords curves ) newtSols - , outlinePotentialCusps = map ( cuspCoords curves ) newtDunno } + , outlinePotentialCusps = map ( cuspCoords curves ) newtDunno + } ----------------------------------- -- Various utility functions