12-7

> restart;

> with(plots):with(plottools):

Warning, the name changecoords has been redefined

> a:=tubeplot([2*cos(t),2*sin(t),0],t=0..2*Pi,radius=0.3,color=red):

> b:=tubeplot([2+2*cos(t),0,2*sin(t)],t=0..2*Pi,radius=0.3,color=yellow):

> c:=tubeplot([1,1+2*cos(t),1+2*sin(t)],t=0..2*Pi,radius=0.3,color=blue):

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

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

>