> restart;

> x:=(cos(u)*cos(v))^3:

> y:=(sin(u)*cos(v))^3:

> z:=(sin(v))^3:

> a:=plot3d([x,y,z],u=0..2*Pi,v=0..2*Pi,scaling=constrained,color=red,grid=[50,50]):

> a;

> with(plottools):

> vrml(a,"c:/My Documents/mei/10.html/10-4.wrl",background_color=white):

>