12-7.mws

> restart;

> with(plots): 

Warning, the name changecoords has been redefined
> a:=tubeplot([4*cos(t),4*sin(t),0],t=0..2*Pi,scaling=constrained,radius=0.6,grid=[30,30],color=red):

> b:=tubeplot([4+4*cos(t),0,4*sin(t)],t=0..2*Pi,scaling=constrained,radius=0.6,grid=[30,30],color=green):

> c:=tubeplot([2,2+4*cos(t),2+4*sin(t)],t=0..2*Pi,scaling=constrained,radius=0.6,grid=[30,30],color=blue):

> d:=display(a,b,c):

> d;

[Maple Plot]

> with(plottools):

> vrml(d,"c:/040/12/12-7.wrl",background_color=white):

>