Stereoscopic Polyhedra

\[Phi] = 0.1; Manipulate[
 g = {Opacity[0.5], PolyhedronData[p, "Faces"]};
 GraphicsGrid[{{
    Graphics3D[g,
     ViewPoint -> {10 Sin[\[Theta]], 10 Cos[\[Theta]], 3},
     Boxed -> False],
    Graphics3D[g,
     ViewPoint -> {10 Sin[\[Theta] + \[Phi]],
       10 Cos[\[Theta] + \[Phi]], 3}, Boxed -> False]
    }}]
 , {\[Theta], 0, 2 Pi},
 {p, PolyhedronData[All]}]