Left or Right?
A slightly unusual view of the Roman surface.
Source code:
DynamicModule[{cols},
cols = RGBColor /@ {"#FFF4E1", "#E67A7A"};
Manipulate[
ParametricPlot3D[
Evaluate@
Table[{Cos[?] Sin[?] Sin[?], Cos[?] Sin[?] Cos[?], Cos[?]^2 Cos[?] Sin[?]},
{?, 0, 2 ?, ?/50}], {?, 0, 2 ?}, PlotRange -> 1/2,
ViewPoint -> 5 {Cos[t], Sin[t], 0}, Boxed -> False, Axes -> False,
ImageSize -> 540, SphericalRegion -> True, Background -> cols[[2]],
PlotStyle -> Directive[Thickness[.004], cols[[1]]]], {t, 0, ?}]
]