罗马曲面的旋转

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, π}]
 ]