> restart;

> with(plots):with(plottools):

Warning, the name changecoords has been redefined

> a1:=display(a,scaling=constrained):

> a2:=rotate(a1,2*Pi/3,[[1,1,1],[0,0,0]]):

> a3:=rotate(a1,4*Pi/3,[[1,1,1],[0,0,0]]):

> b1:=polygon([[1,1,-1],[1,0,-1],[0,1,-1]]):

> b2:=rotate(b1,2*Pi/3,[[1,1,1],[0,0,0]]):

> b3:=rotate(b1,4*Pi/3,[[1,1,1],[0,0,0]]):

> half:=display(a1,a2,a3,b1,b2,b3):

> half;

> half2:=reflect(half,[0,0,0]):

> hexagon:=polygon([[1,-1,0],[0,-1,1],[-1,0,1],[-1,1,0],[0,1,-1],[1,0,-1]],color=pink,thickness=3):

> ch1:=display(half,hexagon):

> ch1;

> ch2:=display(half,half2,hexagon):

> ch2;

>

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

>

>

>