{VERSION 2 3 "APPLE_PPC_MAC" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 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 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 0 
1 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 261 "" 0 1 255 0 0 1 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 
262 "" 0 1 255 0 0 1 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 0 1 255 
0 0 1 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 "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }
3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 "
" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 15 "Colors in Maple" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 98 "Maple use
s the RED-GREEN-BLUE system of describing colors.  A color is formulat
ed by the procedure" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 257 "" 0 
"" {TEXT -1 28 "COLOR(RGB, red, green, blue)" }}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 7 "where  " }{TEXT 256 3 "red" }
{TEXT -1 3 ",  " }{TEXT 258 4 "gree" }{TEXT -1 8 "n,  and " }{TEXT 
257 5 "blue " }{TEXT -1 117 " are numbers between zero and one that sp
ecify the amounts of the colors red, green, and blue making up the col
or.   " }{TEXT 259 19 "COLOR(RGB, 0, 0, 0)" }{TEXT -1 16 "  is black a
nd  " }{TEXT 260 18 "COLOR(RGB, 1, 1, 1" }{TEXT -1 64 ")  is white.  T
he cell below draws a single colored rectangle.  " }{TEXT 262 77 "Eval
uate it now and then try some experiments changing the rectangle's col
or." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 149 "with(plots):\nwith(plottools):\n\ndisplay(rectangle(
[0, 0], [1, 1], color=COLOR(RGB,1,0,0)),         axes=none, scaling=co
nstrained, style=patchnogrid);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "
" }}{PARA 0 "" 0 "" {TEXT -1 138 "The next cell generates a row of rec
tangles with different shades of red.  Notice the way in which the rec
tangles' colors are specified.  " }{TEXT 261 93 "Evaluate the next cel
l and then experiment with different shades of green and shades of blu
e." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 160 "image := seq(rectangle([x, 0],[x + 1, 1],color=COLOR
(RGB,x/10, 0, 0)),\n            x=0..10):\n\ndisplay(image, axes=none,
 scaling=constrained, style=patchnogrid);" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 201 "The next cell generates \+
a matrix of rectangles showing different combinations of red and green
.  Evaluate it now and then exsperiment with different combinations of
 red and blue; and of blue and green." }}{PARA 0 "" 0 "" {TEXT -1 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 199 "image := seq(seq(\n   \+
         rectangle([x, y], [x + 1, y + 1], color = COLOR(RGB, x/10, y/
10, 0)),\n            x=0..10), y=0..10):\n\ndisplay(image, axes=none,
 scaling=constrained, style=patchnogrid);" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 121 "The next cell generates \+
a series of matrices like the red and green matrix above but adding in
creasing amounts of blue.  " }{TEXT 263 16 "Evaluate it now." }}{PARA 
0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 221 "
for\n z from 0 to 10 do\n display(seq(seq(\n            rectangle([x, \+
y], [x + 1, y + 1], color = COLOR(RGB, x/10, y/10, z/10)),\n          \+
  x=0..10), y=0..10),\n            axes=none, scaling=constrained, sty
le=patchnogrid);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 15 }{VIEWOPTS 1 
1 0 1 1 1803 }