Skip to main content
4 of 5
edited tags
MarcoB
  • 67.7k
  • 18
  • 96
  • 198

How to add an outline around a closed 3D surface?

I would like to add a black outline (silhouette) all around a closed surface. Here's a MWE code to work with :

Manipulate[
    SphericalPlot3D[1, {theta, 0, Pi}, {phi, t, 2Pi + t},
        Mesh -> {7, 7},
        MaxRecursion -> ControlActive[2, 5],
        PlotRange -> All,
        Boxed -> False,
        Axes -> None,
        SphericalRegion -> True,
        Method -> {"RotationControl" -> "Globe"},
        ImageSize -> {500, 500}
    ],
    {{t, 0, Style["t", 10]}, 0, 2Pi, 0.01}
]

So is it possible to draw a thin line all around that sphere, to make it standing out of the white background ?

EDIT : By "outline" (or "silhouette", or "profile"), I mean some curve like the circle around the ball shown below (the outline should be made for any surface, not just for the sphere defined in the code above !)

a sphere with an outline http://s10.postimg.org/bdw15vf1l/outlinecolor.jpg

The outline should be drawn around the whole surface's exterior, and don't apply to parts inside the surface (except if it has holes).

Cham
  • 4.1k
  • 22
  • 39