{VERSION 3 0 "IBM INTEL NT" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 342 "macro(cr1 = COLOR(RGB, 0.1960, 0.6
000, 0.8000)):\nmacro(cr2 = COLOR(RGB, 0.1960, 0.9000, 0.8000)):\nmacr
o(cr3 = COLOR(RGB, 0.1960, 0.9000, 0.4000)):\nmacro(cr4 = COLOR(RGB, 0
.7960, 0.9000, 0.4000)):\nmacro(cr5 = COLOR(RGB, 0.5960, 0.6000, 0.800
0)):\nmacro(cr6 = COLOR(RGB, 0.8960, 0.3000, 0.2000)):\nmacro(cr7 = CO
LOR(RGB, 0.8960, 0.3000, 0.8000)):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "with(plots):" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 420 "f1:=polygonplot3d([[0,0,1],[1,0,1],[1,1,1],[0,1
,1]],color=cr1):\nf2:=polygonplot3d([[0,0,1],[1,0,1],[1,0,0],[0,0,0]],
color=cr2):\nf3:=polygonplot3d([[0,0,1],[0,0,0],[0,1,0],[0,1,1]],color
=cr3):\nf4:=polygonplot3d([[0,1,1],[1,1,1],[1,1,0],[0,1,0]],color=cr4)
:\nf5:=polygonplot3d([[1,0,1],[1,1,1],[1,1,0],[1,0,0]],color=cr5):\nf6
:=polygonplot3d([[0,0,0],[1,0,0],[1,1,0],[0,1,0]],color=cr6):\nplots[d
isplay]([f1,f2,f3,f4,f5,f6]);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 524 "g1:=polygonplot3d([[0,0,1],[1/2,0,1],[1,1/2,1],
[1,1,1],[0,1,1]],\ncolor=cr1):\ng2:=polygonplot3d([[0,0,1],[1/2,0,1],[
1,0,1/2],[1,0,0],[0,0,0]],\ncolor=cr2):\ng3:=polygonplot3d([[0,0,1],[0
,0,0],[0,1,0],[0,1,1]],color=cr3):\ng4:=polygonplot3d([[0,1,1],[1,1,1]
,[1,1,0],[0,1,0]],color=cr4):\ng5:=polygonplot3d([[1,0,1/2],[1,1/2,1],
[1,1,1],[1,1,0],[1,0,0]],\ncolor=cr5):\ng6:=polygonplot3d([[0,0,0],[1,
0,0],[1,1,0],[0,1,0]],color=cr6):\ng7:=polygonplot3d([[1/2,0,1],[1,0,1
/2],[1,1/2,1]],color=cr7):\nplots[display]([g1,g2,g3,g4,g5,g6,g7]);" }
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 458 "k1:=polygo
nplot3d([[0,0,1],[0,0,0],[1,0,0]],color=cr1):\nk2:=polygonplot3d([[1,0
,0],[1,1,0],[1,1,1]],color=cr2):\nk3:=polygonplot3d([[1,1,1],[0,1,1],[
0,0,1]],color=cr3):\nk4:=polygonplot3d([[0,0,0],[0,0,1],[0,1,1],[0,1,0
]],\ncolor=cr4):\nk5:=polygonplot3d([[0,1,0],[0,1,1],[1,1,1],[1,1,0]],
\ncolor=cr5):\nk6:=polygonplot3d([[0,0,0],[0,1,0],[1,1,0],[1,0,0]],\nc
olor=cr6):\nk7:=polygonplot3d([[0,0,1],[1,1,1],[1,0,0]],color=cr7):\np
lots[display]([k1,k2,k3,k4,k5,k6,k7]);" }{TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 543 "h1:=polygonplot3d([[0,0,1/2],[0,0,
0],[1/2,0,0]],color=cr1):\nh2:=polygonplot3d([[1,1/2,0],[1,1,0],[1,1,1
/2]],color=cr2):\nh3:=polygonplot3d([[1/2,1,1],[0,1,1],[0,1/2,1]],colo
r=cr3):\nh4:=polygonplot3d([[0,0,0],[0,0,1/2],[0,1/2,1],[0,1,1],[0,1,0
]],\ncolor=cr4):\nh5:=polygonplot3d([[0,1,0],[0,1,1],[1/2,1,1],[1,1,1/
2],[1,1,0]],\ncolor=cr5):\nh6:=polygonplot3d([[0,0,0],[0,1,0],[1,1,0],
[1,1/2,0],[1/2,0,0]],\ncolor=cr6):\nh7:=polygonplot3d([[1/2,0,0],[1,1/
2,0],[1,1,1/2],[1/2,1,1],\n[0,1/2,1],[0,0,1/2]],color=cr7):\nplots[dis
play]([h1,h2,h3,h4,h5,h6,h7]);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }