{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 }{CSTYLE "" -1 256 "" 1 14 0 0 0 0 0 0 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 "" 1 24 0 0 0 0 0 1 1 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 0 0 0 0 0 
0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" 
-1 -1 "" 1 24 0 0 0 0 0 1 1 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 
-1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" 
{TEXT -1 48 "Maple worksheet for putting the RGB values from " }}
{PARA 258 "" 0 "" {TEXT -1 50 "an un-compressed windows bitmap file in
to a matrix" }}{PARA 257 "" 0 "" {TEXT 256 103 "Including, a procedure
 to plot the colours so you can confirm that the data has been read in
 correctly." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 171 "Note that this procedure does not handle anything complicated \+
like compressed bitmaps and it is required that the width (in pixels) \+
of the bitmap file is a mutiple of 4.  " }}{PARA 0 "" 0 "" {TEXT -1 
221 "The reason for this is that the bitmap file format fills lines th
at don't make multiples of 4 with 0's.  I haven't written in code to c
heck for this.  The procedure will, however read the width and height \+
from the file.  " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 288 "To test you will need a bitmap file called `mouset.bmp` \+
in the same directory as the one from which Maple is started.  On wind
ows platforms just copy this worksheet into the directory and doublecl
ick - Maple has then been started from that directory and will look th
ere for the bmp file. " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 
0 "" {TEXT -1 23 "Andrew Martin, 3/4/2002" }}{PARA 0 "" 0 "" {TEXT -1 
23 "andrew@ilovemaths.co.uk" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "restart:with(plots):with(plo
ttools,disk):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "filename:=
`mouse.bmp`;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "readRev:=proc(num)  # a procedure t
o read the next num hex numbers from a file" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 85 "global xx,byte,str; # then reverse them and concat to
 get the correct decimal number." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "
str:=``;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "for xx from 1 to num do
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 126 "  byte[xx]:=convert(op(readbyt
es(fd)),hex,decimal); # need to convert it back to hex, then cat numbr
s then convert back to dec" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "  #pr
int(byte[xx]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 29 "for xx from num to 1 by -1 do" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 25 "  str:=cat(str,byte[xx]);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "convert(str,
decimal,hex)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "fd:=fopen(filename,READ,BINARY):" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 17 "readbytes(fd,10);" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 77 "offset:=readRev(4); # this is the value at which t
he data starts in the file." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "readbytes(fd,4);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "W:=
readRev(4); # width\nH:=readRev(4); # height " }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 11 "fclose(fd):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "fd:=fop
en(filename,READ,BINARY):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
21 "readbytes(fd,offset);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
33 "AA:=array(1..H,1..W): #print(AA):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "for i f
rom H to 1 by -1 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 " for j from \+
1 to W do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "   Bnumbr:=op(readbyte
s(fd)); Gnumbr:=op(readbytes(fd)); Rnumbr:=op(readbytes(fd));" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "   # print(i,j,Rnumbr,Gnumbr,Bnumbr
 );" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "   AA[i,j]:=`cat`(convert(R
numbr,hex,binary),convert(Gnumbr,hex,binary),convert(Bnumbr,hex,binary
));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "   pp.i.r.j:=disk([j,-i],0.5
,color=COLOR(RGB,Rnumbr/255,Gnumbr/255,Bnumbr/255));" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 4 " od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od;" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "fclose(fd);" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 10 "print(AA);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 204 "#so we
 must have a width *3 thats a multiple of 4 (otherwise 00 are attached
 to make up the line length for the row of pixels to fill a whle line \+
of data in the file, which i haven't accomodated for here)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17639 "display(\{pp48r1,pp48r2,pp48r3,pp48r4,pp48r5,pp48r
6,pp48r7,pp48r8,pp48r9,pp48r10,pp48r11,pp48r12,pp48r13,pp48r14,pp48r15
,pp48r16,pp48r17,pp48r18,pp48r19,pp48r20,pp48r21,pp48r22,pp48r23,pp48r
24,pp48r25,pp48r26,pp48r27,pp48r28,pp48r29,pp48r30,pp48r31,pp48r32,pp4
8r33,pp48r34,pp48r35,pp48r36,pp48r37,pp48r38,pp48r39,pp48r40,pp48r41,p
p48r42,pp48r43,pp48r44,pp48r45,pp48r46,pp48r47,pp48r48,pp47r1,pp47r2,p
p47r3,pp47r4,pp47r5,pp47r6,pp47r7,pp47r8,pp47r9,pp47r10,pp47r11,pp47r1
2,pp47r13,pp47r14,pp47r15,pp47r16,pp47r17,pp47r18,pp47r19,pp47r20,pp47
r21,pp47r22,pp47r23,pp47r24,pp47r25,pp47r26,pp47r27,pp47r28,pp47r29,pp
47r30,pp47r31,pp47r32,pp47r33,pp47r34,pp47r35,pp47r36,pp47r37,pp47r38,
pp47r39,pp47r40,pp47r41,pp47r42,pp47r43,pp47r44,pp47r45,pp47r46,pp47r4
7,pp47r48,pp46r1,pp46r2,pp46r3,pp46r4,pp46r5,pp46r6,pp46r7,pp46r8,pp46
r9,pp46r10,pp46r11,pp46r12,pp46r13,pp46r14,pp46r15,pp46r16,pp46r17,pp4
6r18,pp46r19,pp46r20,pp46r21,pp46r22,pp46r23,pp46r24,pp46r25,pp46r26,p
p46r27,pp46r28,pp46r29,pp46r30,pp46r31,pp46r32,pp46r33,pp46r34,pp46r35
,pp46r36,pp46r37,pp46r38,pp46r39,pp46r40,pp46r41,pp46r42,pp46r43,pp46r
44,pp46r45,pp46r46,pp46r47,pp46r48,pp45r1,pp45r2,pp45r3,pp45r4,pp45r5,
pp45r6,pp45r7,pp45r8,pp45r9,pp45r10,pp45r11,pp45r12,pp45r13,pp45r14,pp
45r15,pp45r16,pp45r17,pp45r18,pp45r19,pp45r20,pp45r21,pp45r22,pp45r23,
pp45r24,pp45r25,pp45r26,pp45r27,pp45r28,pp45r29,pp45r30,pp45r31,pp45r3
2,pp45r33,pp45r34,pp45r35,pp45r36,pp45r37,pp45r38,pp45r39,pp45r40,pp45
r41,pp45r42,pp45r43,pp45r44,pp45r45,pp45r46,pp45r47,pp45r48,pp44r1,pp4
4r2,pp44r3,pp44r4,pp44r5,pp44r6,pp44r7,pp44r8,pp44r9,pp44r10,pp44r11,p
p44r12,pp44r13,pp44r14,pp44r15,pp44r16,pp44r17,pp44r18,pp44r19,pp44r20
,pp44r21,pp44r22,pp44r23,pp44r24,pp44r25,pp44r26,pp44r27,pp44r28,pp44r
29,pp44r30,pp44r31,pp44r32,pp44r33,pp44r34,pp44r35,pp44r36,pp44r37,pp4
4r38,pp44r39,pp44r40,pp44r41,pp44r42,pp44r43,pp44r44,pp44r45,pp44r46,p
p44r47,pp44r48,pp43r1,pp43r2,pp43r3,pp43r4,pp43r5,pp43r6,pp43r7,pp43r8
,pp43r9,pp43r10,pp43r11,pp43r12,pp43r13,pp43r14,pp43r15,pp43r16,pp43r1
7,pp43r18,pp43r19,pp43r20,pp43r21,pp43r22,pp43r23,pp43r24,pp43r25,pp43
r26,pp43r27,pp43r28,pp43r29,pp43r30,pp43r31,pp43r32,pp43r33,pp43r34,pp
43r35,pp43r36,pp43r37,pp43r38,pp43r39,pp43r40,pp43r41,pp43r42,pp43r43,
pp43r44,pp43r45,pp43r46,pp43r47,pp43r48,pp42r1,pp42r2,pp42r3,pp42r4,pp
42r5,pp42r6,pp42r7,pp42r8,pp42r9,pp42r10,pp42r11,pp42r12,pp42r13,pp42r
14,pp42r15,pp42r16,pp42r17,pp42r18,pp42r19,pp42r20,pp42r21,pp42r22,pp4
2r23,pp42r24,pp42r25,pp42r26,pp42r27,pp42r28,pp42r29,pp42r30,pp42r31,p
p42r32,pp42r33,pp42r34,pp42r35,pp42r36,pp42r37,pp42r38,pp42r39,pp42r40
,pp42r41,pp42r42,pp42r43,pp42r44,pp42r45,pp42r46,pp42r47,pp42r48,pp41r
1,pp41r2,pp41r3,pp41r4,pp41r5,pp41r6,pp41r7,pp41r8,pp41r9,pp41r10,pp41
r11,pp41r12,pp41r13,pp41r14,pp41r15,pp41r16,pp41r17,pp41r18,pp41r19,pp
41r20,pp41r21,pp41r22,pp41r23,pp41r24,pp41r25,pp41r26,pp41r27,pp41r28,
pp41r29,pp41r30,pp41r31,pp41r32,pp41r33,pp41r34,pp41r35,pp41r36,pp41r3
7,pp41r38,pp41r39,pp41r40,pp41r41,pp41r42,pp41r43,pp41r44,pp41r45,pp41
r46,pp41r47,pp41r48,pp40r1,pp40r2,pp40r3,pp40r4,pp40r5,pp40r6,pp40r7,p
p40r8,pp40r9,pp40r10,pp40r11,pp40r12,pp40r13,pp40r14,pp40r15,pp40r16,p
p40r17,pp40r18,pp40r19,pp40r20,pp40r21,pp40r22,pp40r23,pp40r24,pp40r25
,pp40r26,pp40r27,pp40r28,pp40r29,pp40r30,pp40r31,pp40r32,pp40r33,pp40r
34,pp40r35,pp40r36,pp40r37,pp40r38,pp40r39,pp40r40,pp40r41,pp40r42,pp4
0r43,pp40r44,pp40r45,pp40r46,pp40r47,pp40r48,pp39r1,pp39r2,pp39r3,pp39
r4,pp39r5,pp39r6,pp39r7,pp39r8,pp39r9,pp39r10,pp39r11,pp39r12,pp39r13,
pp39r14,pp39r15,pp39r16,pp39r17,pp39r18,pp39r19,pp39r20,pp39r21,pp39r2
2,pp39r23,pp39r24,pp39r25,pp39r26,pp39r27,pp39r28,pp39r29,pp39r30,pp39
r31,pp39r32,pp39r33,pp39r34,pp39r35,pp39r36,pp39r37,pp39r38,pp39r39,pp
39r40,pp39r41,pp39r42,pp39r43,pp39r44,pp39r45,pp39r46,pp39r47,pp39r48,
pp38r1,pp38r2,pp38r3,pp38r4,pp38r5,pp38r6,pp38r7,pp38r8,pp38r9,pp38r10
,pp38r11,pp38r12,pp38r13,pp38r14,pp38r15,pp38r16,pp38r17,pp38r18,pp38r
19,pp38r20,pp38r21,pp38r22,pp38r23,pp38r24,pp38r25,pp38r26,pp38r27,pp3
8r28,pp38r29,pp38r30,pp38r31,pp38r32,pp38r33,pp38r34,pp38r35,pp38r36,p
p38r37,pp38r38,pp38r39,pp38r40,pp38r41,pp38r42,pp38r43,pp38r44,pp38r45
,pp38r46,pp38r47,pp38r48,pp37r1,pp37r2,pp37r3,pp37r4,pp37r5,pp37r6,pp3
7r7,pp37r8,pp37r9,pp37r10,pp37r11,pp37r12,pp37r13,pp37r14,pp37r15,pp37
r16,pp37r17,pp37r18,pp37r19,pp37r20,pp37r21,pp37r22,pp37r23,pp37r24,pp
37r25,pp37r26,pp37r27,pp37r28,pp37r29,pp37r30,pp37r31,pp37r32,pp37r33,
pp37r34,pp37r35,pp37r36,pp37r37,pp37r38,pp37r39,pp37r40,pp37r41,pp37r4
2,pp37r43,pp37r44,pp37r45,pp37r46,pp37r47,pp37r48,pp36r1,pp36r2,pp36r3
,pp36r4,pp36r5,pp36r6,pp36r7,pp36r8,pp36r9,pp36r10,pp36r11,pp36r12,pp3
6r13,pp36r14,pp36r15,pp36r16,pp36r17,pp36r18,pp36r19,pp36r20,pp36r21,p
p36r22,pp36r23,pp36r24,pp36r25,pp36r26,pp36r27,pp36r28,pp36r29,pp36r30
,pp36r31,pp36r32,pp36r33,pp36r34,pp36r35,pp36r36,pp36r37,pp36r38,pp36r
39,pp36r40,pp36r41,pp36r42,pp36r43,pp36r44,pp36r45,pp36r46,pp36r47,pp3
6r48,pp35r1,pp35r2,pp35r3,pp35r4,pp35r5,pp35r6,pp35r7,pp35r8,pp35r9,pp
35r10,pp35r11,pp35r12,pp35r13,pp35r14,pp35r15,pp35r16,pp35r17,pp35r18,
pp35r19,pp35r20,pp35r21,pp35r22,pp35r23,pp35r24,pp35r25,pp35r26,pp35r2
7,pp35r28,pp35r29,pp35r30,pp35r31,pp35r32,pp35r33,pp35r34,pp35r35,pp35
r36,pp35r37,pp35r38,pp35r39,pp35r40,pp35r41,pp35r42,pp35r43,pp35r44,pp
35r45,pp35r46,pp35r47,pp35r48,pp34r1,pp34r2,pp34r3,pp34r4,pp34r5,pp34r
6,pp34r7,pp34r8,pp34r9,pp34r10,pp34r11,pp34r12,pp34r13,pp34r14,pp34r15
,pp34r16,pp34r17,pp34r18,pp34r19,pp34r20,pp34r21,pp34r22,pp34r23,pp34r
24,pp34r25,pp34r26,pp34r27,pp34r28,pp34r29,pp34r30,pp34r31,pp34r32,pp3
4r33,pp34r34,pp34r35,pp34r36,pp34r37,pp34r38,pp34r39,pp34r40,pp34r41,p
p34r42,pp34r43,pp34r44,pp34r45,pp34r46,pp34r47,pp34r48,pp33r1,pp33r2,p
p33r3,pp33r4,pp33r5,pp33r6,pp33r7,pp33r8,pp33r9,pp33r10,pp33r11,pp33r1
2,pp33r13,pp33r14,pp33r15,pp33r16,pp33r17,pp33r18,pp33r19,pp33r20,pp33
r21,pp33r22,pp33r23,pp33r24,pp33r25,pp33r26,pp33r27,pp33r28,pp33r29,pp
33r30,pp33r31,pp33r32,pp33r33,pp33r34,pp33r35,pp33r36,pp33r37,pp33r38,
pp33r39,pp33r40,pp33r41,pp33r42,pp33r43,pp33r44,pp33r45,pp33r46,pp33r4
7,pp33r48,pp32r1,pp32r2,pp32r3,pp32r4,pp32r5,pp32r6,pp32r7,pp32r8,pp32
r9,pp32r10,pp32r11,pp32r12,pp32r13,pp32r14,pp32r15,pp32r16,pp32r17,pp3
2r18,pp32r19,pp32r20,pp32r21,pp32r22,pp32r23,pp32r24,pp32r25,pp32r26,p
p32r27,pp32r28,pp32r29,pp32r30,pp32r31,pp32r32,pp32r33,pp32r34,pp32r35
,pp32r36,pp32r37,pp32r38,pp32r39,pp32r40,pp32r41,pp32r42,pp32r43,pp32r
44,pp32r45,pp32r46,pp32r47,pp32r48,pp31r1,pp31r2,pp31r3,pp31r4,pp31r5,
pp31r6,pp31r7,pp31r8,pp31r9,pp31r10,pp31r11,pp31r12,pp31r13,pp31r14,pp
31r15,pp31r16,pp31r17,pp31r18,pp31r19,pp31r20,pp31r21,pp31r22,pp31r23,
pp31r24,pp31r25,pp31r26,pp31r27,pp31r28,pp31r29,pp31r30,pp31r31,pp31r3
2,pp31r33,pp31r34,pp31r35,pp31r36,pp31r37,pp31r38,pp31r39,pp31r40,pp31
r41,pp31r42,pp31r43,pp31r44,pp31r45,pp31r46,pp31r47,pp31r48,pp30r1,pp3
0r2,pp30r3,pp30r4,pp30r5,pp30r6,pp30r7,pp30r8,pp30r9,pp30r10,pp30r11,p
p30r12,pp30r13,pp30r14,pp30r15,pp30r16,pp30r17,pp30r18,pp30r19,pp30r20
,pp30r21,pp30r22,pp30r23,pp30r24,pp30r25,pp30r26,pp30r27,pp30r28,pp30r
29,pp30r30,pp30r31,pp30r32,pp30r33,pp30r34,pp30r35,pp30r36,pp30r37,pp3
0r38,pp30r39,pp30r40,pp30r41,pp30r42,pp30r43,pp30r44,pp30r45,pp30r46,p
p30r47,pp30r48,pp29r1,pp29r2,pp29r3,pp29r4,pp29r5,pp29r6,pp29r7,pp29r8
,pp29r9,pp29r10,pp29r11,pp29r12,pp29r13,pp29r14,pp29r15,pp29r16,pp29r1
7,pp29r18,pp29r19,pp29r20,pp29r21,pp29r22,pp29r23,pp29r24,pp29r25,pp29
r26,pp29r27,pp29r28,pp29r29,pp29r30,pp29r31,pp29r32,pp29r33,pp29r34,pp
29r35,pp29r36,pp29r37,pp29r38,pp29r39,pp29r40,pp29r41,pp29r42,pp29r43,
pp29r44,pp29r45,pp29r46,pp29r47,pp29r48,pp28r1,pp28r2,pp28r3,pp28r4,pp
28r5,pp28r6,pp28r7,pp28r8,pp28r9,pp28r10,pp28r11,pp28r12,pp28r13,pp28r
14,pp28r15,pp28r16,pp28r17,pp28r18,pp28r19,pp28r20,pp28r21,pp28r22,pp2
8r23,pp28r24,pp28r25,pp28r26,pp28r27,pp28r28,pp28r29,pp28r30,pp28r31,p
p28r32,pp28r33,pp28r34,pp28r35,pp28r36,pp28r37,pp28r38,pp28r39,pp28r40
,pp28r41,pp28r42,pp28r43,pp28r44,pp28r45,pp28r46,pp28r47,pp28r48,pp27r
1,pp27r2,pp27r3,pp27r4,pp27r5,pp27r6,pp27r7,pp27r8,pp27r9,pp27r10,pp27
r11,pp27r12,pp27r13,pp27r14,pp27r15,pp27r16,pp27r17,pp27r18,pp27r19,pp
27r20,pp27r21,pp27r22,pp27r23,pp27r24,pp27r25,pp27r26,pp27r27,pp27r28,
pp27r29,pp27r30,pp27r31,pp27r32,pp27r33,pp27r34,pp27r35,pp27r36,pp27r3
7,pp27r38,pp27r39,pp27r40,pp27r41,pp27r42,pp27r43,pp27r44,pp27r45,pp27
r46,pp27r47,pp27r48,pp26r1,pp26r2,pp26r3,pp26r4,pp26r5,pp26r6,pp26r7,p
p26r8,pp26r9,pp26r10,pp26r11,pp26r12,pp26r13,pp26r14,pp26r15,pp26r16,p
p26r17,pp26r18,pp26r19,pp26r20,pp26r21,pp26r22,pp26r23,pp26r24,pp26r25
,pp26r26,pp26r27,pp26r28,pp26r29,pp26r30,pp26r31,pp26r32,pp26r33,pp26r
34,pp26r35,pp26r36,pp26r37,pp26r38,pp26r39,pp26r40,pp26r41,pp26r42,pp2
6r43,pp26r44,pp26r45,pp26r46,pp26r47,pp26r48,pp25r1,pp25r2,pp25r3,pp25
r4,pp25r5,pp25r6,pp25r7,pp25r8,pp25r9,pp25r10,pp25r11,pp25r12,pp25r13,
pp25r14,pp25r15,pp25r16,pp25r17,pp25r18,pp25r19,pp25r20,pp25r21,pp25r2
2,pp25r23,pp25r24,pp25r25,pp25r26,pp25r27,pp25r28,pp25r29,pp25r30,pp25
r31,pp25r32,pp25r33,pp25r34,pp25r35,pp25r36,pp25r37,pp25r38,pp25r39,pp
25r40,pp25r41,pp25r42,pp25r43,pp25r44,pp25r45,pp25r46,pp25r47,pp25r48,
pp24r1,pp24r2,pp24r3,pp24r4,pp24r5,pp24r6,pp24r7,pp24r8,pp24r9,pp24r10
,pp24r11,pp24r12,pp24r13,pp24r14,pp24r15,pp24r16,pp24r17,pp24r18,pp24r
19,pp24r20,pp24r21,pp24r22,pp24r23,pp24r24,pp24r25,pp24r26,pp24r27,pp2
4r28,pp24r29,pp24r30,pp24r31,pp24r32,pp24r33,pp24r34,pp24r35,pp24r36,p
p24r37,pp24r38,pp24r39,pp24r40,pp24r41,pp24r42,pp24r43,pp24r44,pp24r45
,pp24r46,pp24r47,pp24r48,pp23r1,pp23r2,pp23r3,pp23r4,pp23r5,pp23r6,pp2
3r7,pp23r8,pp23r9,pp23r10,pp23r11,pp23r12,pp23r13,pp23r14,pp23r15,pp23
r16,pp23r17,pp23r18,pp23r19,pp23r20,pp23r21,pp23r22,pp23r23,pp23r24,pp
23r25,pp23r26,pp23r27,pp23r28,pp23r29,pp23r30,pp23r31,pp23r32,pp23r33,
pp23r34,pp23r35,pp23r36,pp23r37,pp23r38,pp23r39,pp23r40,pp23r41,pp23r4
2,pp23r43,pp23r44,pp23r45,pp23r46,pp23r47,pp23r48,pp22r1,pp22r2,pp22r3
,pp22r4,pp22r5,pp22r6,pp22r7,pp22r8,pp22r9,pp22r10,pp22r11,pp22r12,pp2
2r13,pp22r14,pp22r15,pp22r16,pp22r17,pp22r18,pp22r19,pp22r20,pp22r21,p
p22r22,pp22r23,pp22r24,pp22r25,pp22r26,pp22r27,pp22r28,pp22r29,pp22r30
,pp22r31,pp22r32,pp22r33,pp22r34,pp22r35,pp22r36,pp22r37,pp22r38,pp22r
39,pp22r40,pp22r41,pp22r42,pp22r43,pp22r44,pp22r45,pp22r46,pp22r47,pp2
2r48,pp21r1,pp21r2,pp21r3,pp21r4,pp21r5,pp21r6,pp21r7,pp21r8,pp21r9,pp
21r10,pp21r11,pp21r12,pp21r13,pp21r14,pp21r15,pp21r16,pp21r17,pp21r18,
pp21r19,pp21r20,pp21r21,pp21r22,pp21r23,pp21r24,pp21r25,pp21r26,pp21r2
7,pp21r28,pp21r29,pp21r30,pp21r31,pp21r32,pp21r33,pp21r34,pp21r35,pp21
r36,pp21r37,pp21r38,pp21r39,pp21r40,pp21r41,pp21r42,pp21r43,pp21r44,pp
21r45,pp21r46,pp21r47,pp21r48,pp20r1,pp20r2,pp20r3,pp20r4,pp20r5,pp20r
6,pp20r7,pp20r8,pp20r9,pp20r10,pp20r11,pp20r12,pp20r13,pp20r14,pp20r15
,pp20r16,pp20r17,pp20r18,pp20r19,pp20r20,pp20r21,pp20r22,pp20r23,pp20r
24,pp20r25,pp20r26,pp20r27,pp20r28,pp20r29,pp20r30,pp20r31,pp20r32,pp2
0r33,pp20r34,pp20r35,pp20r36,pp20r37,pp20r38,pp20r39,pp20r40,pp20r41,p
p20r42,pp20r43,pp20r44,pp20r45,pp20r46,pp20r47,pp20r48,pp19r1,pp19r2,p
p19r3,pp19r4,pp19r5,pp19r6,pp19r7,pp19r8,pp19r9,pp19r10,pp19r11,pp19r1
2,pp19r13,pp19r14,pp19r15,pp19r16,pp19r17,pp19r18,pp19r19,pp19r20,pp19
r21,pp19r22,pp19r23,pp19r24,pp19r25,pp19r26,pp19r27,pp19r28,pp19r29,pp
19r30,pp19r31,pp19r32,pp19r33,pp19r34,pp19r35,pp19r36,pp19r37,pp19r38,
pp19r39,pp19r40,pp19r41,pp19r42,pp19r43,pp19r44,pp19r45,pp19r46,pp19r4
7,pp19r48,pp18r1,pp18r2,pp18r3,pp18r4,pp18r5,pp18r6,pp18r7,pp18r8,pp18
r9,pp18r10,pp18r11,pp18r12,pp18r13,pp18r14,pp18r15,pp18r16,pp18r17,pp1
8r18,pp18r19,pp18r20,pp18r21,pp18r22,pp18r23,pp18r24,pp18r25,pp18r26,p
p18r27,pp18r28,pp18r29,pp18r30,pp18r31,pp18r32,pp18r33,pp18r34,pp18r35
,pp18r36,pp18r37,pp18r38,pp18r39,pp18r40,pp18r41,pp18r42,pp18r43,pp18r
44,pp18r45,pp18r46,pp18r47,pp18r48,pp17r1,pp17r2,pp17r3,pp17r4,pp17r5,
pp17r6,pp17r7,pp17r8,pp17r9,pp17r10,pp17r11,pp17r12,pp17r13,pp17r14,pp
17r15,pp17r16,pp17r17,pp17r18,pp17r19,pp17r20,pp17r21,pp17r22,pp17r23,
pp17r24,pp17r25,pp17r26,pp17r27,pp17r28,pp17r29,pp17r30,pp17r31,pp17r3
2,pp17r33,pp17r34,pp17r35,pp17r36,pp17r37,pp17r38,pp17r39,pp17r40,pp17
r41,pp17r42,pp17r43,pp17r44,pp17r45,pp17r46,pp17r47,pp17r48,pp16r1,pp1
6r2,pp16r3,pp16r4,pp16r5,pp16r6,pp16r7,pp16r8,pp16r9,pp16r10,pp16r11,p
p16r12,pp16r13,pp16r14,pp16r15,pp16r16,pp16r17,pp16r18,pp16r19,pp16r20
,pp16r21,pp16r22,pp16r23,pp16r24,pp16r25,pp16r26,pp16r27,pp16r28,pp16r
29,pp16r30,pp16r31,pp16r32,pp16r33,pp16r34,pp16r35,pp16r36,pp16r37,pp1
6r38,pp16r39,pp16r40,pp16r41,pp16r42,pp16r43,pp16r44,pp16r45,pp16r46,p
p16r47,pp16r48,pp15r1,pp15r2,pp15r3,pp15r4,pp15r5,pp15r6,pp15r7,pp15r8
,pp15r9,pp15r10,pp15r11,pp15r12,pp15r13,pp15r14,pp15r15,pp15r16,pp15r1
7,pp15r18,pp15r19,pp15r20,pp15r21,pp15r22,pp15r23,pp15r24,pp15r25,pp15
r26,pp15r27,pp15r28,pp15r29,pp15r30,pp15r31,pp15r32,pp15r33,pp15r34,pp
15r35,pp15r36,pp15r37,pp15r38,pp15r39,pp15r40,pp15r41,pp15r42,pp15r43,
pp15r44,pp15r45,pp15r46,pp15r47,pp15r48,pp14r1,pp14r2,pp14r3,pp14r4,pp
14r5,pp14r6,pp14r7,pp14r8,pp14r9,pp14r10,pp14r11,pp14r12,pp14r13,pp14r
14,pp14r15,pp14r16,pp14r17,pp14r18,pp14r19,pp14r20,pp14r21,pp14r22,pp1
4r23,pp14r24,pp14r25,pp14r26,pp14r27,pp14r28,pp14r29,pp14r30,pp14r31,p
p14r32,pp14r33,pp14r34,pp14r35,pp14r36,pp14r37,pp14r38,pp14r39,pp14r40
,pp14r41,pp14r42,pp14r43,pp14r44,pp14r45,pp14r46,pp14r47,pp14r48,pp13r
1,pp13r2,pp13r3,pp13r4,pp13r5,pp13r6,pp13r7,pp13r8,pp13r9,pp13r10,pp13
r11,pp13r12,pp13r13,pp13r14,pp13r15,pp13r16,pp13r17,pp13r18,pp13r19,pp
13r20,pp13r21,pp13r22,pp13r23,pp13r24,pp13r25,pp13r26,pp13r27,pp13r28,
pp13r29,pp13r30,pp13r31,pp13r32,pp13r33,pp13r34,pp13r35,pp13r36,pp13r3
7,pp13r38,pp13r39,pp13r40,pp13r41,pp13r42,pp13r43,pp13r44,pp13r45,pp13
r46,pp13r47,pp13r48,pp12r1,pp12r2,pp12r3,pp12r4,pp12r5,pp12r6,pp12r7,p
p12r8,pp12r9,pp12r10,pp12r11,pp12r12,pp12r13,pp12r14,pp12r15,pp12r16,p
p12r17,pp12r18,pp12r19,pp12r20,pp12r21,pp12r22,pp12r23,pp12r24,pp12r25
,pp12r26,pp12r27,pp12r28,pp12r29,pp12r30,pp12r31,pp12r32,pp12r33,pp12r
34,pp12r35,pp12r36,pp12r37,pp12r38,pp12r39,pp12r40,pp12r41,pp12r42,pp1
2r43,pp12r44,pp12r45,pp12r46,pp12r47,pp12r48,pp11r1,pp11r2,pp11r3,pp11
r4,pp11r5,pp11r6,pp11r7,pp11r8,pp11r9,pp11r10,pp11r11,pp11r12,pp11r13,
pp11r14,pp11r15,pp11r16,pp11r17,pp11r18,pp11r19,pp11r20,pp11r21,pp11r2
2,pp11r23,pp11r24,pp11r25,pp11r26,pp11r27,pp11r28,pp11r29,pp11r30,pp11
r31,pp11r32,pp11r33,pp11r34,pp11r35,pp11r36,pp11r37,pp11r38,pp11r39,pp
11r40,pp11r41,pp11r42,pp11r43,pp11r44,pp11r45,pp11r46,pp11r47,pp11r48,
pp10r1,pp10r2,pp10r3,pp10r4,pp10r5,pp10r6,pp10r7,pp10r8,pp10r9,pp10r10
,pp10r11,pp10r12,pp10r13,pp10r14,pp10r15,pp10r16,pp10r17,pp10r18,pp10r
19,pp10r20,pp10r21,pp10r22,pp10r23,pp10r24,pp10r25,pp10r26,pp10r27,pp1
0r28,pp10r29,pp10r30,pp10r31,pp10r32,pp10r33,pp10r34,pp10r35,pp10r36,p
p10r37,pp10r38,pp10r39,pp10r40,pp10r41,pp10r42,pp10r43,pp10r44,pp10r45
,pp10r46,pp10r47,pp10r48,pp9r1,pp9r2,pp9r3,pp9r4,pp9r5,pp9r6,pp9r7,pp9
r8,pp9r9,pp9r10,pp9r11,pp9r12,pp9r13,pp9r14,pp9r15,pp9r16,pp9r17,pp9r1
8,pp9r19,pp9r20,pp9r21,pp9r22,pp9r23,pp9r24,pp9r25,pp9r26,pp9r27,pp9r2
8,pp9r29,pp9r30,pp9r31,pp9r32,pp9r33,pp9r34,pp9r35,pp9r36,pp9r37,pp9r3
8,pp9r39,pp9r40,pp9r41,pp9r42,pp9r43,pp9r44,pp9r45,pp9r46,pp9r47,pp9r4
8,pp8r1,pp8r2,pp8r3,pp8r4,pp8r5,pp8r6,pp8r7,pp8r8,pp8r9,pp8r10,pp8r11,
pp8r12,pp8r13,pp8r14,pp8r15,pp8r16,pp8r17,pp8r18,pp8r19,pp8r20,pp8r21,
pp8r22,pp8r23,pp8r24,pp8r25,pp8r26,pp8r27,pp8r28,pp8r29,pp8r30,pp8r31,
pp8r32,pp8r33,pp8r34,pp8r35,pp8r36,pp8r37,pp8r38,pp8r39,pp8r40,pp8r41,
pp8r42,pp8r43,pp8r44,pp8r45,pp8r46,pp8r47,pp8r48,pp7r1,pp7r2,pp7r3,pp7
r4,pp7r5,pp7r6,pp7r7,pp7r8,pp7r9,pp7r10,pp7r11,pp7r12,pp7r13,pp7r14,pp
7r15,pp7r16,pp7r17,pp7r18,pp7r19,pp7r20,pp7r21,pp7r22,pp7r23,pp7r24,pp
7r25,pp7r26,pp7r27,pp7r28,pp7r29,pp7r30,pp7r31,pp7r32,pp7r33,pp7r34,pp
7r35,pp7r36,pp7r37,pp7r38,pp7r39,pp7r40,pp7r41,pp7r42,pp7r43,pp7r44,pp
7r45,pp7r46,pp7r47,pp7r48,pp6r1,pp6r2,pp6r3,pp6r4,pp6r5,pp6r6,pp6r7,pp
6r8,pp6r9,pp6r10,pp6r11,pp6r12,pp6r13,pp6r14,pp6r15,pp6r16,pp6r17,pp6r
18,pp6r19,pp6r20,pp6r21,pp6r22,pp6r23,pp6r24,pp6r25,pp6r26,pp6r27,pp6r
28,pp6r29,pp6r30,pp6r31,pp6r32,pp6r33,pp6r34,pp6r35,pp6r36,pp6r37,pp6r
38,pp6r39,pp6r40,pp6r41,pp6r42,pp6r43,pp6r44,pp6r45,pp6r46,pp6r47,pp6r
48,pp5r1,pp5r2,pp5r3,pp5r4,pp5r5,pp5r6,pp5r7,pp5r8,pp5r9,pp5r10,pp5r11
,pp5r12,pp5r13,pp5r14,pp5r15,pp5r16,pp5r17,pp5r18,pp5r19,pp5r20,pp5r21
,pp5r22,pp5r23,pp5r24,pp5r25,pp5r26,pp5r27,pp5r28,pp5r29,pp5r30,pp5r31
,pp5r32,pp5r33,pp5r34,pp5r35,pp5r36,pp5r37,pp5r38,pp5r39,pp5r40,pp5r41
,pp5r42,pp5r43,pp5r44,pp5r45,pp5r46,pp5r47,pp5r48,pp4r1,pp4r2,pp4r3,pp
4r4,pp4r5,pp4r6,pp4r7,pp4r8,pp4r9,pp4r10,pp4r11,pp4r12,pp4r13,pp4r14,p
p4r15,pp4r16,pp4r17,pp4r18,pp4r19,pp4r20,pp4r21,pp4r22,pp4r23,pp4r24,p
p4r25,pp4r26,pp4r27,pp4r28,pp4r29,pp4r30,pp4r31,pp4r32,pp4r33,pp4r34,p
p4r35,pp4r36,pp4r37,pp4r38,pp4r39,pp4r40,pp4r41,pp4r42,pp4r43,pp4r44,p
p4r45,pp4r46,pp4r47,pp4r48,pp3r1,pp3r2,pp3r3,pp3r4,pp3r5,pp3r6,pp3r7,p
p3r8,pp3r9,pp3r10,pp3r11,pp3r12,pp3r13,pp3r14,pp3r15,pp3r16,pp3r17,pp3
r18,pp3r19,pp3r20,pp3r21,pp3r22,pp3r23,pp3r24,pp3r25,pp3r26,pp3r27,pp3
r28,pp3r29,pp3r30,pp3r31,pp3r32,pp3r33,pp3r34,pp3r35,pp3r36,pp3r37,pp3
r38,pp3r39,pp3r40,pp3r41,pp3r42,pp3r43,pp3r44,pp3r45,pp3r46,pp3r47,pp3
r48,pp2r1,pp2r2,pp2r3,pp2r4,pp2r5,pp2r6,pp2r7,pp2r8,pp2r9,pp2r10,pp2r1
1,pp2r12,pp2r13,pp2r14,pp2r15,pp2r16,pp2r17,pp2r18,pp2r19,pp2r20,pp2r2
1,pp2r22,pp2r23,pp2r24,pp2r25,pp2r26,pp2r27,pp2r28,pp2r29,pp2r30,pp2r3
1,pp2r32,pp2r33,pp2r34,pp2r35,pp2r36,pp2r37,pp2r38,pp2r39,pp2r40,pp2r4
1,pp2r42,pp2r43,pp2r44,pp2r45,pp2r46,pp2r47,pp2r48,pp1r1,pp1r2,pp1r3,p
p1r4,pp1r5,pp1r6,pp1r7,pp1r8,pp1r9,pp1r10,pp1r11,pp1r12,pp1r13,pp1r14,
pp1r15,pp1r16,pp1r17,pp1r18,pp1r19,pp1r20,pp1r21,pp1r22,pp1r23,pp1r24,
pp1r25,pp1r26,pp1r27,pp1r28,pp1r29,pp1r30,pp1r31,pp1r32,pp1r33,pp1r34,
pp1r35,pp1r36,pp1r37,pp1r38,pp1r39,pp1r40,pp1r41,pp1r42,pp1r43,pp1r44,
pp1r45,pp1r46,pp1r47,pp1r48\},view=[0..op(W)+1,-op(H)-1..0],scaling=co
nstrained,axes=NONE);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 77 "The abov
e plot is a plot generated from the data extracted from the bmp file.
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 105 "# code below is to generate the sequence need
ed to display the above, its not ideal to do this of course!" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "seqstr:=``:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "for i from op(H) to 1 by -1 do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "  for j from 1 to op(W) do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "    seqstr:=cat(seqstr,pp.i.r.j.`,`
);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "  od:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "seqst
r;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "31" 0 }{VIEWOPTS 1 1 0 1 1 1803 }