Options problem for 3D plots

Question

If I'm not mistaken, the code below should produce two identical pictures of a torus. But it does not. The MeshStyle->Thick option seems to be ignored for the first. Obviously the second code provides a workaround - but is this a bug, or do I not know how "SetOptions" works?

SetOptions[ParametricPlot3D,
    Axes->False,
    Boxed->False,
    Mesh->20,
    PlotStyle->Glow[White],
    MeshStyle->Thick
    ]


g1 =    ParametricPlot3D[
    {Cos[u]*(Sqrt[2]+Cos[t]), Sin[u]*(Sqrt[2]+Cos[t]),Sin[t]
    }, {u,0,2Pi},{t,0,2Pi}]

g2 =    ParametricPlot3D[
    {Cos[u]*(Sqrt[2]+Cos[t]), Sin[u]*(Sqrt[2]+Cos[t]),Sin[t]
    }, {u,0,2Pi},{t,0,2Pi},
    MeshStyle->Thick
    ]

related: Why does ListPlot ignore some global options?, GridLinesStyle not working with SetOptions, How can I work out which functions work with SetOptions? — kglr, Aug 01 '18 at 00:52
a workaround: Block[{parametricPlot3D = ParametricPlot3D}, SetOptions[parametricPlot3D, Axes -> False, Boxed -> False, Mesh -> 20, PlotStyle -> Glow[White], MeshStyle -> Thick]; parametricPlot3D[{Cos[u]*(Sqrt[2] + Cos[t]), Sin[u]*(Sqrt[2] + Cos[t]), Sin[t]}, {u, 0, 2 Pi}, {t, 0, 2 Pi}]] — kglr, Aug 01 '18 at 04:42

Options problem for 3D plots

0 Answers0