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

Question

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 !)

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).

Answer 1

Although, this may not be the best answer. I thought I post it for fun.

Input:

core = {Red, Sphere[{0, 0, 0}, 1.9]};
outline = {Yellow, Opacity[0.5], Sphere[{0, 0, 0}, 2]};

Graphics3D @ {core, outline}

Output:

EDIT:

Alternatively, you could probably mess around with lighting property. Here is an example:

sphere1 = Graphics3D[core, Lighting -> {{"Ambient", White}}];
sphere2 = Graphics3D[outline];

Show[sphere1, sphere2]

And the output of this would be something like:

EDIT:

Some additional way how to modify edges:

Graphics3D[{EdgeForm[{Thick, Black}], 
    FaceForm[White], #}] & /@ {Cuboid[], 
  Polygon[{{1, 0, 0}, {1, 1, 1}, {0, 0, 1}}]}

With the associated output:

Reference:

Sphere
Graphics3D
Opacity