{VERSION 2 2 "IBM INTEL NT" "2.2" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "CG Times" 1 12 255 0 0 1 0 1 0 
0 1 0 0 0 0 }{CSTYLE "" -1 256 "" 1 18 10 0 0 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "System" 0 1 0 0 80 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" 
-1 258 "" 0 1 0 0 0 0 0 1 0 0 0 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 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 
0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 6 6 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 50 "                                                  " }{TEXT 256 
21 "     Help for rainbow" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "
" 0 "" {TEXT -1 338 "FUNCTION : rb(L,A0);\n\nCALLING SEQUENCE :  rb(L,
A0);\n\nPARAMETERS : L is a list of powers of the generators r1,r2,r3,
r4,f1,f2,f3,f4,f5,f6,f7,f8 of the masterball.\nA0 is a 4x8 array of in
tegers in the range 1, ..., 8 (the \"color array\").\n\nSYNOPSIS : Thi
s program creates a 3d polygonplot of a sphere representing a \"geomas
ter\" masterball (c)" }}{PARA 0 "" 0 "" {TEXT -1 66 "obtained by movin
g the masterball associated to A0 by the move L.\n" }}{PARA 0 "" 0 "" 
{TEXT -1 5 "Uses " }{TEXT 257 11 "rainbow.mpl" }{TEXT -1 9 " and the \+
" }{TEXT 258 5 "plots" }{TEXT -1 74 " package\nwith(plots):\nread(`d:/
maplev4/share/games/rainbow/rainbow.mpl`):\n" }}}{SECT 1 {PARA 3 "" 0 
"" {TEXT -1 8 "Examples" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 50 "To see \+
the masterball in the solved position, type" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 9 "rb(1,A0);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 76 "T
o see the masterball after moving r1 then r2 from the solved position,
 type" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "rb([r1,r2],A0);" }
}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 173 " To see more precisely how a mo
ve affects the individual facets, there is a \"text only\" option. We \+
use the matrix for the solved masterball already entered into rainbow.
mpl:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "evalm(B0);" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 45 "To see the effect of r1 then r2 on
 this, type" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "B1:=move([r1
,r2],B0): evalm(B1);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 78 "Some pret
tier examples (the ideas for these moves are due to Andrew Southern):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "banded:=[r3^(-4),r1^(-4
),f1,r3^(2),r1^(2),f2,r3^(2),r1^(2),f3]:\nrb(banded,A0);" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 3 "and" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 82 "quadrant:=[r3^(-4),r4^(-4),f1,r3^(2),r4^(2),f2,r3^(2),r4^(2),f
3]:\nrb(quadrant,A0);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "and" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 389 "move1:=[r1,r3,f1,r3^(-1),r1
^(-1),f7,f2]:\nmove2:=[r1,r3,f1,r3^(-1),r1^(-1),f1]:\nmove3:=[r1,r3,f3
,r1^(-1),r3^(-1),f4,f5]:\nmove4:=[r1,r3,f2,r1^(-1),r3^(-1),f2]:\nmove5
:=[f3,f4,f5,f6,f3,f4,f5,f6,r1,r2,r3,r4]: #this swaps columns 1,2\nmove
6:=[f4,f5,f6,f7,f4,f5,f6,f7,r1,r2,r3,r4]: #this swaps columns 2,3\nche
ckered:=[op(move1),op(move2),op(move3),op(move4),op(move5),op(move6)]:
\nrb(checkered,A0);" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}}{MARK "0 5 4
" 29 }{VIEWOPTS 1 1 0 1 1 1803 }