%!PS-Adobe-3.0
%%BoundingBox: 55 241 574 673
%%Title: (plt/lwcat output)
%%CreationDate: Sun Apr 1 00:41:09 2001
%!
%%BoundingBox: 54 54 556 737
% pslw.pro Prolog file for plt with the LaserWriter
% Last revised: 30 March 2001 (GBM)
count /numstack exch def
save 100 dict begin /pslw exch def
/ED {exch def} def
/IN {exch 72 mul def} def
/CLOSE {count numstack sub {pop} repeat pslw end restore} def
/BF {gsave INIT} def
/EF {grestore} def
/LS {} def
/INIT {0 setlinecap LS /DMTX matrix currentmatrix def
/XOFF [0 0 0 -.5 -1 -1 -1 -.5 -.5 0 -.5 -1] def
/YOFF [0 -.37 -1 -1 -1 -.37 0 0 -.37 -.74 -.74 -.74] def
/XM 0 def /YM 0 def /XYM 0 def} def
/WSUBST {} def
/WDEF {/ury ED /urx ED /lly ED /llx ED
WSUBST /y1 IN /x1 IN /y0 IN /x0 IN /FSCL ED
gsave matrix setmatrix
x0 2 add y0 2 add translate
x1 x0 sub 4 sub urx llx sub div
y1 y0 sub 4 sub ury lly sub div scale
llx neg lly neg translate
/PMTX matrix currentmatrix def grestore} def
/M {newpath PMTX transform moveto} def
/N {PMTX dtransform rlineto} def
/L {N currentpoint stroke moveto} def
/F {closepath 0 eq {fill} {FS} ifelse} def
/FS {gsave fill grestore gsave 0 0 0 setrgbcolor stroke grestore} def
/XC 0 def
/YC 0 def
/T {/ang ED /pos ED /YY ED /XX ED
XX -32767 eq
{YY -32767 eq
{XC YC moveto}
{0 YY M currentpoint XC exch moveto pop}
ifelse}
{YY -32767 eq
{XX 0 M currentpoint pop YC moveto}
{XX YY M}
ifelse}
ifelse
ang rotate
/str ED str stringwidth pop
XOFF pos get mul
YOFF pos get PS mul XYM FSCL mul add
rmoveto str show 0 .37 PS mul XYM FSCL mul add rmoveto
/XYM 0 def SDM currentpoint /YC ED /XC ED} def
/GT {7 0 T} def
/XT {/XYM XM neg def 3 0 T /XM 0 def} def
/XTR {/XYM XM def 7 0 T /XM 0 def} def
/YT {/XYM YM def 7 90 T /YM 0 def} def
/YTR {/XYM YM neg def 3 90 T /YM 0 def} def
/XN {/XM PS def 3 0 T} def
/XNR {/XM PS def 9 0 T} def
/XE {10 1.25 XEX} def
/XER {11 1.5 XEX} def
/XEX {6 -1 roll /exp ED PS mul /XM ED 0 T EX} def
/YN {-1 1 0 YNUM} def
/YNR {1 0 0 YNUM} def
/YE {-1 1 YEX} def
/YER {1 0 YEX} def
/YEX {6 -1 roll /exp ED exp stringwidth pop .65 mul YNUM EX} def
/YNUM {6 3 roll M /str ED str stringwidth pop add /len ED
len mul .2 PS mul add mul PS -.37 mul rmoveto
str show /YM len .2 PS mul add YM MAX def} def
/EX {0 PS .6 mul rmoveto .65 .65 scale exp show SDM} def
/SP {/y ED /x ED /yp ED /yn ED /str ED
x y M currentpoint
str false charpath PBOX newpath
exch dup add x0 x1 add 2 div sub
exch dup add y0 y1 add 2 div sub moveto
str false charpath gsave fill EB} def
/SY {/y ED /x ED /yp ED /yn ED /st ED
newpath x y M PS 4 div dup scale
[{CIR} {UTRI} {DI} {SQ} {TRI}] st 5 mod get exec
closepath SDM gsave
[{1 FILL stroke} {fill} {stroke}] st 5 idiv 3 mod get exec
EB} def
/EB { grestore PMTX concat PBOX SDM
y1 y sub yp le {yp y1 EB2} if
y0 y sub yn ge {yn y0 EB2} if} def
/EB2 {newpath x exch M 0 exch N x0 x sub 0 N x1 x0 sub 0 N stroke} def
/CIR {currentpoint newpath 1.1 0 360 arc} def
/TRI {0 1.2 rmoveto -1.2 -2.4 rlineto 2.4 0 rlineto} def
/DI { 0 -1.5 rmoveto 1.3 1.5 rlineto
-1.3 1.5 rlineto -1.3 -1.5 rlineto} def
/UTRI {180 rotate TRI 180 rotate} def
/SQ {1 1 rmoveto -2 0 rlineto 0 -2 rlineto 2 0
rlineto} def
/LW {.2 mul FSCL mul setlinewidth} def
/SF {FSCL mul /PS ED findfont PS scalefont setfont} def
/DL {PS mul .05 mul} def
/solid {{}0} def
/dotted {[1 DL 3 DL] 0} def
/longdashed {[7 DL] 0} def
/shortdashed {[4 DL 5 DL] 0} def
/dotdashed {[1 DL 5 DL 6 DL 5 DL] 0} def
/MAX {2 copy lt {exch pop} {pop} ifelse} def
/SDM {DMTX setmatrix} def
/FILL {gsave setgray fill grestore} def
/PBOX {pathbbox /y1 ED /x1 ED /y0 ED /x0 ED} def
INIT
0.85 0.775 3.35 7.975 9.35 0 0 4320 3600 WDEF
/Times-Roman 16 SF
solid setdash
0.529412 0.807843 0.921569 setrgbcolor
3 LW
/Times-Roman 14 SF
4103 720 M
-3239 0 L
864 672 M
0 48 L
(0.0) 864 672 XN
1188 688 M
0 32 L
1512 672 M
0 48 L
(0.2) 1512 672 XN
1836 688 M
0 32 L
2160 672 M
0 48 L
(0.4) 2160 672 XN
2483 688 M
0 32 L
2807 672 M
0 48 L
(0.6) 2807 672 XN
3131 688 M
0 32 L
3455 672 M
0 48 L
(0.8) 3455 672 XN
3779 688 M
0 32 L
4103 672 M
0 48 L
(1.0) 4103 672 XN
0 1 0 setrgbcolor
3 LW
/Times-Roman 16 SF
(x axis) 2483 505 XT
0.529412 0.807843 0.921569 setrgbcolor
3 LW
/Times-Roman 14 SF
864 3060 M
0 -2340 L
816 720 M
48 0 L
(0.0) 816 720 YN
832 954 M
32 0 L
816 1188 M
48 0 L
(0.2) 816 1188 YN
832 1422 M
32 0 L
816 1656 M
48 0 L
(0.4) 816 1656 YN
832 1890 M
32 0 L
816 2124 M
48 0 L
(0.6) 816 2124 YN
832 2358 M
32 0 L
816 2592 M
48 0 L
(0.8) 816 2592 YN
832 2826 M
32 0 L
816 3060 M
48 0 L
(1.0) 816 3060 YN
1 0 0 setrgbcolor
3 LW
/Times-Roman 16 SF
(y axis) 613 1890 YT
0 0 1 setrgbcolor
(Plotting in color) 2483 3284 8 0 T
1 0 0 setrgbcolor
1188 2592 M
0 468 N
648 0 N
0 -468 N
-648 0 N
0 F
0 1 0 setrgbcolor
2160 2592 M
0 468 N
647 0 N
0 -468 N
-647 0 N
0 F
0 0 1 setrgbcolor
3131 2592 M
0 468 N
648 0 N
0 -468 N
-648 0 N
0 F
1 0.937255 0.835294 setrgbcolor
1188 1890 M
0 468 N
648 0 N
0 -468 N
-648 0 N
0 F
1 0.498039 0.313725 setrgbcolor
2160 1890 M
0 468 N
647 0 N
0 -468 N
-647 0 N
0 F
1 1 0 setrgbcolor
3131 1890 M
0 468 N
648 0 N
0 -468 N
-648 0 N
0 F
0 0.498039 0 setrgbcolor
1188 1188 M
0 468 N
648 0 N
0 -468 N
-648 0 N
0 F
0.8 0 0.498039 setrgbcolor
2160 1188 M
0 468 N
647 0 N
0 -468 N
-647 0 N
0 F
0.0627451 0.0627451 0.0627451 setrgbcolor
3131 1188 M
0 468 N
648 0 N
0 -468 N
-648 0 N
0 F
1 1 1 setrgbcolor
/Helvetica-Bold 16 SF
(red) 1512 2826 8 0 T
(green) 2484 2826 8 0 T
(blue) 3455 2826 8 0 T
0 0 0 setrgbcolor
/Helvetica 16 SF
(PapayaWhip) 1512 2124 8 0 T
1 1 1 setrgbcolor
/Helvetica-Bold 16 SF
(coral) 2484 2124 8 0 T
0 0 0 setrgbcolor
/Helvetica 16 SF
(yellow) 3455 2124 8 0 T
1 1 1 setrgbcolor
/Helvetica-Bold 16 SF
(#007f00) 1512 1422 8 0 T
(#cc007f) 2484 1422 8 0 T
(#101010) 3455 1422 8 0 T
showpage CLOSE
%%EOF
%%EndDocument