change fitpoint render size

This commit is contained in:
sheaf 2023-01-23 02:01:56 +01:00
parent 86874882e4
commit 78c03b99e1
2 changed files with 5 additions and 4 deletions

View file

@ -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

View file

@ -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