{VERSION 4 0 "IBM INTEL NT" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Text Output" -1 2 
1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 
0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 
"" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 
}{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 
2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot
" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }
3 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 21 "Color Transformations" }}
{PARA 0 "" 0 "" {TEXT -1 237 "Colors on the computer are defined by th
ree components: red, green, and blue.  Each of these colors is a real \+
number between 0 and 1 inclusive.  A value of 1 indicates complete sat
uration of that color; zero indicates none of that color." }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "restart; with(linalg):" }}{PARA 7 "
" 1 "" {TEXT -1 80 "Warning, the protected names norm and trace have b
een redefined and unprotected\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
132 "Black is defined as (0,0,0) - there is no color at all.  White is
 defined as (1,1,1) - remember that light is made up of all colors." }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "red := 0; green := 0; blue := 0;
\nplot(sin(x), x=-1..1, thickness=10, color=COLOR(RGB, red, green, blu
e));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$redG\"\"!" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%&greenG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
%blueG\"\"!" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-
%'CURVESG6#7S7$$!\"\"\"\"!$!30l*y![)4ZT)!#=7$$!3ommm;p0k&*F-$!3;[f!\\t
[7<)F-7$$!3wKL$3<XZ=*F-$!3e6$RPEln%zF-7$$!3mmmmT%p\"e()F-$!35*4Np/p1o(
F-7$$!3:mmm\"4m(G$)F-$!3Cwb&3p'p)R(F-7$$!3\"QLL3i.9!zF-$!3M^h9'e?X5(F-
7$$!3\"ommT!R=0vF-$!3P3.;*oz,#oF-7$$!3u****\\P8#\\4(F-$!3C2'GdS&[9lF-7
$$!3+nm;/siqmF-$!3Sg+g\"35o='F-7$$!3[++](y$pZiF-$!3uqDa?B5\\eF-7$$!33L
LL$yaE\"eF-$!3=h/dI-#3\\&F-7$$!3hmmm\">s%HaF-$!3?)*zT0hhm^F-7$$!3Q+++]
$*4)*\\F-$!3;(Gg@K(e#z%F-7$$!39+++]_&\\c%F-$!3HgtzO>03WF-7$$!31+++]1aZ
TF-$!3k)RB1f['HSF-7$$!3umm;/#)[oPF-$!319f5OC#*zOF-7$$!3hLLL$=exJ$F-$!3
uT$*4f^AdKF-7$$!3*RLLLtIf$HF-$!3o0hnBT$R*GF-7$$!3]++]PYx\"\\#F-$!33I#>
15pgY#F-7$$!3EMLLL7i)4#F-$!3O!*pA-0D$3#F-7$$!3c****\\P'psm\"F-$!3gOT_R
fbf;F-7$$!3')****\\74_c7F-$!3gQ;\\-r@`7F-7$$!3)3LLL3x%z#)!#>$!3_\\*e\"
e5-q#)Fdr7$$!3KMLL3s$QM%Fdr$!3RPBZy7ZUVFdr7$$!3]^omm;zr)*!#@$!3msgGj+z
r)*F_s7$$\"3%pJL$ezw5VFdr$\"37)[#y&)HV4VFdr7$$\"3s*)***\\PQ#\\\")Fdr$
\"3(*)42#4:AS\")Fdr7$$\"3GKLLe\"*[H7F-$\"3PE#oj\"RRE7F-7$$\"3I*******p
vxl\"F-$\"3'**Q!z0H>];F-7$$\"3#z****\\_qn2#F-$\"31Fj()\\U(=1#F-7$$\"3U
)***\\i&p@[#F-$\"3MRJ`O&fnX#F-7$$\"3B)****\\2'HKHF-$\"3GxVS+[X!*GF-7$$
\"3ElmmmZvOLF-$\"3%Gq#e$))z^F$F-7$$\"3i******\\2goPF-$\"3uUnB%3F+o$F-7
$$\"3UKL$eR<*fTF-$\"3im0P!*G(4/%F-7$$\"3m******\\)Hxe%F-$\"3r?l*=.$[GW
F-7$$\"3ckm;H!o-*\\F-$\"3-[W94Dr&y%F-7$$\"3y)***\\7k.6aF-$\"3'3Es-\"G#
3:&F-7$$\"3#emmmT9C#eF-$\"3%4')e!3W(*)\\&F-7$$\"33****\\i!*3`iF-$\"3YM
s'fcxM&eF-7$$\"3%QLLL$*zym'F-$\"3Ex(**fZ^Y='F-7$$\"3wKLL3N1#4(F-$\"3A&
=c_#pJ7lF-7$$\"3Nmm;HYt7vF-$\"3h\\;.d)*pDoF-7$$\"3Y*******p(G**yF-$\"3
@>v8d8..rF-7$$\"3]mmmT6KU$)F-$\"3jXv\"R04yS(F-7$$\"3fKLLLbdQ()F-$\"35.
`ynp5owF-7$$\"3[++]i`1h\"*F-$\"3K'4\")*o&oB$zF-7$$\"3W++]P?Wl&*F-$\"3o
(RYU7Z?<)F-7$$\"\"\"F*$\"30l*y![)4ZT)F--%+AXESLABELSG6$Q\"x6\"Q!6\"-%&
COLORG6&%$RGBGF*F*F*-%*THICKNESSG6#\"#5-%%VIEWG6$;F(Ffz%(DEFAULTG" 1 
2 0 1 10 10 2 6 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 75 "Red is defined as (1,0,0) (similar
ly green is (0,1,0) and blue is (0,0,1) )" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 105 "red := 1; green := 0; blue := 0;\nplot(sin(x), x=-1.
.1, thickness=10, color=COLOR(RGB, red, green, blue));" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%$redG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%&greenG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%blueG\"\"!" }}
{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6#7S7$
$!\"\"\"\"!$!30l*y![)4ZT)!#=7$$!3ommm;p0k&*F-$!3;[f!\\t[7<)F-7$$!3wKL$
3<XZ=*F-$!3e6$RPEln%zF-7$$!3mmmmT%p\"e()F-$!35*4Np/p1o(F-7$$!3:mmm\"4m
(G$)F-$!3Cwb&3p'p)R(F-7$$!3\"QLL3i.9!zF-$!3M^h9'e?X5(F-7$$!3\"ommT!R=0
vF-$!3P3.;*oz,#oF-7$$!3u****\\P8#\\4(F-$!3C2'GdS&[9lF-7$$!3+nm;/siqmF-
$!3Sg+g\"35o='F-7$$!3[++](y$pZiF-$!3uqDa?B5\\eF-7$$!33LLL$yaE\"eF-$!3=
h/dI-#3\\&F-7$$!3hmmm\">s%HaF-$!3?)*zT0hhm^F-7$$!3Q+++]$*4)*\\F-$!3;(G
g@K(e#z%F-7$$!39+++]_&\\c%F-$!3HgtzO>03WF-7$$!31+++]1aZTF-$!3k)RB1f['H
SF-7$$!3umm;/#)[oPF-$!319f5OC#*zOF-7$$!3hLLL$=exJ$F-$!3uT$*4f^AdKF-7$$
!3*RLLLtIf$HF-$!3o0hnBT$R*GF-7$$!3]++]PYx\"\\#F-$!33I#>15pgY#F-7$$!3EM
LLL7i)4#F-$!3O!*pA-0D$3#F-7$$!3c****\\P'psm\"F-$!3gOT_Rfbf;F-7$$!3')**
**\\74_c7F-$!3gQ;\\-r@`7F-7$$!3)3LLL3x%z#)!#>$!3_\\*e\"e5-q#)Fdr7$$!3K
MLL3s$QM%Fdr$!3RPBZy7ZUVFdr7$$!3]^omm;zr)*!#@$!3msgGj+zr)*F_s7$$\"3%pJ
L$ezw5VFdr$\"37)[#y&)HV4VFdr7$$\"3s*)***\\PQ#\\\")Fdr$\"3(*)42#4:AS\")
Fdr7$$\"3GKLLe\"*[H7F-$\"3PE#oj\"RRE7F-7$$\"3I*******pvxl\"F-$\"3'**Q!
z0H>];F-7$$\"3#z****\\_qn2#F-$\"31Fj()\\U(=1#F-7$$\"3U)***\\i&p@[#F-$
\"3MRJ`O&fnX#F-7$$\"3B)****\\2'HKHF-$\"3GxVS+[X!*GF-7$$\"3ElmmmZvOLF-$
\"3%Gq#e$))z^F$F-7$$\"3i******\\2goPF-$\"3uUnB%3F+o$F-7$$\"3UKL$eR<*fT
F-$\"3im0P!*G(4/%F-7$$\"3m******\\)Hxe%F-$\"3r?l*=.$[GWF-7$$\"3ckm;H!o
-*\\F-$\"3-[W94Dr&y%F-7$$\"3y)***\\7k.6aF-$\"3'3Es-\"G#3:&F-7$$\"3#emm
mT9C#eF-$\"3%4')e!3W(*)\\&F-7$$\"33****\\i!*3`iF-$\"3YMs'fcxM&eF-7$$\"
3%QLLL$*zym'F-$\"3Ex(**fZ^Y='F-7$$\"3wKLL3N1#4(F-$\"3A&=c_#pJ7lF-7$$\"
3Nmm;HYt7vF-$\"3h\\;.d)*pDoF-7$$\"3Y*******p(G**yF-$\"3@>v8d8..rF-7$$
\"3]mmmT6KU$)F-$\"3jXv\"R04yS(F-7$$\"3fKLLLbdQ()F-$\"35.`ynp5owF-7$$\"
3[++]i`1h\"*F-$\"3K'4\")*o&oB$zF-7$$\"3W++]P?Wl&*F-$\"3o(RYU7Z?<)F-7$$
\"\"\"F*$\"30l*y![)4ZT)F--%+AXESLABELSG6$Q\"x6\"Q!6\"-%&COLORG6&%$RGBG
FgzF*F*-%*THICKNESSG6#\"#5-%%VIEWG6$;F(Ffz%(DEFAULTG" 1 2 0 1 10 10 2 
6 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 
"" 0 "" {TEXT -1 77 "Combinations can be defined as well; yellow is re
d and green combined (1,1,0)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "re
d := 1; green := 1; blue := 0;\nplot(sin(x), x=-1..1, thickness=10, co
lor=COLOR(RGB, red, green, blue));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%$redG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&greenG\"\"\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%blueG\"\"!" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6#7S7$$!\"\"\"\"!$!30l*
y![)4ZT)!#=7$$!3ommm;p0k&*F-$!3;[f!\\t[7<)F-7$$!3wKL$3<XZ=*F-$!3e6$RPE
ln%zF-7$$!3mmmmT%p\"e()F-$!35*4Np/p1o(F-7$$!3:mmm\"4m(G$)F-$!3Cwb&3p'p
)R(F-7$$!3\"QLL3i.9!zF-$!3M^h9'e?X5(F-7$$!3\"ommT!R=0vF-$!3P3.;*oz,#oF
-7$$!3u****\\P8#\\4(F-$!3C2'GdS&[9lF-7$$!3+nm;/siqmF-$!3Sg+g\"35o='F-7
$$!3[++](y$pZiF-$!3uqDa?B5\\eF-7$$!33LLL$yaE\"eF-$!3=h/dI-#3\\&F-7$$!3
hmmm\">s%HaF-$!3?)*zT0hhm^F-7$$!3Q+++]$*4)*\\F-$!3;(Gg@K(e#z%F-7$$!39+
++]_&\\c%F-$!3HgtzO>03WF-7$$!31+++]1aZTF-$!3k)RB1f['HSF-7$$!3umm;/#)[o
PF-$!319f5OC#*zOF-7$$!3hLLL$=exJ$F-$!3uT$*4f^AdKF-7$$!3*RLLLtIf$HF-$!3
o0hnBT$R*GF-7$$!3]++]PYx\"\\#F-$!33I#>15pgY#F-7$$!3EMLLL7i)4#F-$!3O!*p
A-0D$3#F-7$$!3c****\\P'psm\"F-$!3gOT_Rfbf;F-7$$!3')****\\74_c7F-$!3gQ;
\\-r@`7F-7$$!3)3LLL3x%z#)!#>$!3_\\*e\"e5-q#)Fdr7$$!3KMLL3s$QM%Fdr$!3RP
BZy7ZUVFdr7$$!3]^omm;zr)*!#@$!3msgGj+zr)*F_s7$$\"3%pJL$ezw5VFdr$\"37)[
#y&)HV4VFdr7$$\"3s*)***\\PQ#\\\")Fdr$\"3(*)42#4:AS\")Fdr7$$\"3GKLLe\"*
[H7F-$\"3PE#oj\"RRE7F-7$$\"3I*******pvxl\"F-$\"3'**Q!z0H>];F-7$$\"3#z*
***\\_qn2#F-$\"31Fj()\\U(=1#F-7$$\"3U)***\\i&p@[#F-$\"3MRJ`O&fnX#F-7$$
\"3B)****\\2'HKHF-$\"3GxVS+[X!*GF-7$$\"3ElmmmZvOLF-$\"3%Gq#e$))z^F$F-7
$$\"3i******\\2goPF-$\"3uUnB%3F+o$F-7$$\"3UKL$eR<*fTF-$\"3im0P!*G(4/%F
-7$$\"3m******\\)Hxe%F-$\"3r?l*=.$[GWF-7$$\"3ckm;H!o-*\\F-$\"3-[W94Dr&
y%F-7$$\"3y)***\\7k.6aF-$\"3'3Es-\"G#3:&F-7$$\"3#emmmT9C#eF-$\"3%4')e!
3W(*)\\&F-7$$\"33****\\i!*3`iF-$\"3YMs'fcxM&eF-7$$\"3%QLLL$*zym'F-$\"3
Ex(**fZ^Y='F-7$$\"3wKLL3N1#4(F-$\"3A&=c_#pJ7lF-7$$\"3Nmm;HYt7vF-$\"3h
\\;.d)*pDoF-7$$\"3Y*******p(G**yF-$\"3@>v8d8..rF-7$$\"3]mmmT6KU$)F-$\"
3jXv\"R04yS(F-7$$\"3fKLLLbdQ()F-$\"35.`ynp5owF-7$$\"3[++]i`1h\"*F-$\"3
K'4\")*o&oB$zF-7$$\"3W++]P?Wl&*F-$\"3o(RYU7Z?<)F-7$$\"\"\"F*$\"30l*y![
)4ZT)F--%+AXESLABELSG6$Q\"x6\"Q!6\"-%&COLORG6&%$RGBGFgzFgzF*-%*THICKNE
SSG6#\"#5-%%VIEWG6$;F(Ffz%(DEFAULTG" 1 2 0 1 10 10 2 6 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
69 "We can put the colors into a matrix and transform them appropriate
ly." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "C := vector([red, green, blu
e, 1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CG-%'vectorG6#7&\"\"\"F
)\"\"!F)" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 173 "L is the Luminence v
ector - if we convert the color to black and white, this will tell us \+
how bright the color is.  The values 0.3086, 0.6094, and 0.0820 are mo
stly made up." }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
114 "L := matrix([[0.3086, 0.3086, 0.3086, 0], [0.6094, 0.6094,0.6094,
 0], [0.0820, 0.0820, 0.0820, 0], [0, 0, 0, 1]]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"LG-%'matrixG6#7&7&$\"%'3$!\"%F*F*\"\"!7&$\"%%4'F,F/
F/F-7&$\"$?)F,F2F2F-7&F-F-F-\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 106 "We can see that since the luminence is 0.9180, the color (yell
ow from the previous example) is very bright" }{MPLTEXT 1 0 0 "" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "evalm(C&*L);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%'vectorG6#7&$\"%!=*!\"%F'F'\"\"\"" }}}{EXCHG {PARA 0 
"" 0 "" {TEXT -1 16 "Let's try purple" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 109 "red := 1/4; green := 0; blue := 1/2;\nplot(sin(x), x=-1..1, thi
ckness=10, color=COLOR(RGB, red, green, blue));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$redG#\"\"\"\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%&greenG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%blueG#\"\"\"\"\"#
" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6#
7S7$$!\"\"\"\"!$!30l*y![)4ZT)!#=7$$!3ommm;p0k&*F-$!3;[f!\\t[7<)F-7$$!3
wKL$3<XZ=*F-$!3e6$RPEln%zF-7$$!3mmmmT%p\"e()F-$!35*4Np/p1o(F-7$$!3:mmm
\"4m(G$)F-$!3Cwb&3p'p)R(F-7$$!3\"QLL3i.9!zF-$!3M^h9'e?X5(F-7$$!3\"ommT
!R=0vF-$!3P3.;*oz,#oF-7$$!3u****\\P8#\\4(F-$!3C2'GdS&[9lF-7$$!3+nm;/si
qmF-$!3Sg+g\"35o='F-7$$!3[++](y$pZiF-$!3uqDa?B5\\eF-7$$!33LLL$yaE\"eF-
$!3=h/dI-#3\\&F-7$$!3hmmm\">s%HaF-$!3?)*zT0hhm^F-7$$!3Q+++]$*4)*\\F-$!
3;(Gg@K(e#z%F-7$$!39+++]_&\\c%F-$!3HgtzO>03WF-7$$!31+++]1aZTF-$!3k)RB1
f['HSF-7$$!3umm;/#)[oPF-$!319f5OC#*zOF-7$$!3hLLL$=exJ$F-$!3uT$*4f^AdKF
-7$$!3*RLLLtIf$HF-$!3o0hnBT$R*GF-7$$!3]++]PYx\"\\#F-$!33I#>15pgY#F-7$$
!3EMLLL7i)4#F-$!3O!*pA-0D$3#F-7$$!3c****\\P'psm\"F-$!3gOT_Rfbf;F-7$$!3
')****\\74_c7F-$!3gQ;\\-r@`7F-7$$!3)3LLL3x%z#)!#>$!3_\\*e\"e5-q#)Fdr7$
$!3KMLL3s$QM%Fdr$!3RPBZy7ZUVFdr7$$!3]^omm;zr)*!#@$!3msgGj+zr)*F_s7$$\"
3%pJL$ezw5VFdr$\"37)[#y&)HV4VFdr7$$\"3s*)***\\PQ#\\\")Fdr$\"3(*)42#4:A
S\")Fdr7$$\"3GKLLe\"*[H7F-$\"3PE#oj\"RRE7F-7$$\"3I*******pvxl\"F-$\"3'
**Q!z0H>];F-7$$\"3#z****\\_qn2#F-$\"31Fj()\\U(=1#F-7$$\"3U)***\\i&p@[#
F-$\"3MRJ`O&fnX#F-7$$\"3B)****\\2'HKHF-$\"3GxVS+[X!*GF-7$$\"3ElmmmZvOL
F-$\"3%Gq#e$))z^F$F-7$$\"3i******\\2goPF-$\"3uUnB%3F+o$F-7$$\"3UKL$eR<
*fTF-$\"3im0P!*G(4/%F-7$$\"3m******\\)Hxe%F-$\"3r?l*=.$[GWF-7$$\"3ckm;
H!o-*\\F-$\"3-[W94Dr&y%F-7$$\"3y)***\\7k.6aF-$\"3'3Es-\"G#3:&F-7$$\"3#
emmmT9C#eF-$\"3%4')e!3W(*)\\&F-7$$\"33****\\i!*3`iF-$\"3YMs'fcxM&eF-7$
$\"3%QLLL$*zym'F-$\"3Ex(**fZ^Y='F-7$$\"3wKLL3N1#4(F-$\"3A&=c_#pJ7lF-7$
$\"3Nmm;HYt7vF-$\"3h\\;.d)*pDoF-7$$\"3Y*******p(G**yF-$\"3@>v8d8..rF-7
$$\"3]mmmT6KU$)F-$\"3jXv\"R04yS(F-7$$\"3fKLLLbdQ()F-$\"35.`ynp5owF-7$$
\"3[++]i`1h\"*F-$\"3K'4\")*o&oB$zF-7$$\"3W++]P?Wl&*F-$\"3o(RYU7Z?<)F-7
$$\"\"\"F*$\"30l*y![)4ZT)F--%+AXESLABELSG6$Q\"x6\"Q!6\"-%&COLORG6&%$RG
BG#Fgz\"\"%F*#Fgz\"\"#-%*THICKNESSG6#\"#5-%%VIEWG6$;F(Ffz%(DEFAULTG" 
1 2 0 1 10 10 2 6 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}
}{EXCHG {PARA 0 "" 0 "" {TEXT -1 50 "As expected, purple is rather dar
k (low luminence)" }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 49 "C :=  vector([red, green, blue, 1]);\nevalm(C&*L);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"CG-%'vectorG6#7&#\"\"\"\"\"%\"\"!#F*\"\"#F*
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7&$\"+++]\"=\"!#5F'F'
\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 34 "This will be an ongoing
 session..." }{MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 
1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }