8-2

> restart;

> with(plots):;

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

> b:=tubeplot([1+cos(t),0,sin(t)],t=0..2*Pi,radius=0.3,scaling=constrained,grid=[40,30],color=orange):

> b:;

> p:=display(a,b):p;

> with(plottools):

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

>