Fortunately there is a solution but it appears to be undocumented and takes a bit of guess work.
The magic is:
FilledCurveBoxOptions -> {Method -> {"SplinePoints" -> (* integer value *)}}
This may be set globally or for a Notebook:
SetOptions[InputNotebook[], FilledCurveBoxOptions -> {Method -> {"SplinePoints" -> 30}}]
(Use $FrontEnd
in place of InputNotebook[]
for persistent global setting.)
By using BaseStyle
it may also be set directly in Graphics
or with Show
:
sec = (* J.M.'s sector graphic *)
Show[sec,
BaseStyle -> FilledCurveBoxOptions -> {Method -> {"SplinePoints" -> 30}},
ImageSize -> 800]
Style
also works but the syntax highlighter will complain of an unknown option:
Style[sec, FilledCurveBoxOptions -> {Method -> {"SplinePoints" -> 30}}]
Related: