Construct a VRML file illustrating the intersection of two cylinders having the same radius, with axes meet and perpendicular to each other.

> restart:

> x:=cos(t):

> y:=sin(t):

> z1:=x:

> z2:=-x:

> z:=(1-s)*z1+s*z2:

> with(plots):

Warning, the name changecoords has been redefined

> with(plottools):

> a:=plot3d([x,y,z],s=0..1,t=0..2*Pi,scaling=constrained,color=red):

> b:=plot3d([z,y,x],s=0..1,t=0..2*Pi,scaling=constrained,color=yellow):

> c:=display(a,b):

> vrml(c,"c:/87138/ex10/10-1.wrl",background_color=white):

> display(c);

>