> restart:
> r:=sin(s):
> x:=r*cos(t):
> y:=r*sin(t):
> z:=cos(s):
> plot3d ([x,y,z],s=0..Pi,t=0..2*Pi,scaling=constrained);