12-8

> restart:

> with(plots):with(plottools):

Warning, the name changecoords has been redefined

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

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

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

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

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

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

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

> half:=display(aa,bb,cc,a1,a2,a3):

> 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=red,thickness=3):

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

> p;

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

>