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

change fitpoint render size

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/app/MetaBrush/Render/Document.hs
View file

@ -622,7 +622,7 @@ drawFitPoint _ zoom ( FitPoint { fitPoint = ℝ2 x y } ) = do
lift do lift do
Cairo.save Cairo.save
Cairo.translate x y 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.setSourceRGBA r g b 0.8
Cairo.fill Cairo.fill
Cairo.restore Cairo.restore
@ -639,8 +639,8 @@ drawFitPoint _ zoom ( FitTangent { fitPoint = ℝ2 x y, fitTangent = V2 tx ty }
Cairo.translate x y Cairo.translate x y
Cairo.moveTo 0 0 Cairo.moveTo 0 0
Cairo.lineTo ( 0.05 * tx ) ( 0.05 * ty ) Cairo.lineTo ( 0.05 * tx ) ( 0.05 * ty )
Cairo.setLineWidth ( 4 / zoom ) -- 1 / zoom Cairo.setLineWidth ( 4 / zoom )
Cairo.setSourceRGBA r g b 0.8 Cairo.setSourceRGBA r g b 1.0
Cairo.stroke Cairo.stroke
Cairo.arc 0 0 ( 2 / zoom ) 0 ( 2 * pi ) Cairo.arc 0 0 ( 2 / zoom ) 0 ( 2 * pi )
Cairo.fill Cairo.fill

3
src/splines/Math/Bezier/Stroke.hs
View file

@ -612,7 +612,8 @@ outlineFunction ptParams toBrushParams brushFromParams sp0 crv =
OutlineInfo OutlineInfo
{ outlineFn = fwdBwd { outlineFn = fwdBwd
, outlineDefiniteCusps = map ( cuspCoords curves ) newtSols , outlineDefiniteCusps = map ( cuspCoords curves ) newtSols
, outlinePotentialCusps = map ( cuspCoords curves ) newtDunno } , outlinePotentialCusps = map ( cuspCoords curves ) newtDunno
}
----------------------------------- -----------------------------------
-- Various utility functions -- Various utility functions