> restart;

> x1:=cos(t):y1:=sin(t):z1:=0:

> x2:=0:y2:=y1:z2:=sqrt(3)*x1:

> x:=(1-s)*x1+s*x2:

> y:=(1-s)*y1+s*y2:

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

> with(plots):with(plottools):

Warning, the name changecoords has been redefined

> b:=reflect(a,[[0,0,0],[0,1,0],[0,0,1]]):

> x:=r*cos(t):y:=r*sin(t):

> c:=plot3d([x,y,0],r=0..1,t=0..2*Pi,scaling=constrained):

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

> d;

>

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

>