8-1

> restart;

> with(plots):

Warning, the name changecoords has been redefined

> a:=tubeplot([cos(t),sin(t),0],t=0..2*Pi,scaling=constrained,radius=0.3,grid=[30,50]):

> a;

> with(plottools):;

> vrml(a,"c:/program files/maple 6/beauty/8-1.wrl",background_color=white);

>