Image of Steiner's Surface Made in Mathematica with code: ParametricPlot3DCos[u Cos Sin, Sin Cos Sin, Cos Sin Cos^2 }, {u, 0, 2 \}, {v, 0, \/2}, Axes -> False, PlotStyle -> Directive0, 0, Specularity1, 0, 10], Opacity], ImageSize -> 800, Axes -> False, Mesh -> False, Boxed -> False, PlotPoints -> 200]