Torus

torus=ParametricPlot3D[{(9+3 Cos[u]) Cos[v],(9+3 Cos[u]) Sin[v], 
3 Sin[u]},{u,0,2 Pi},{v,0,2 Pi}]
Show[torus, AspectRatio->Automatic]
Display["torus.ps", torus]