%!PS-Adobe-2.0 EPSF-1.2%%Title: parher.eps%%Creator: CLARIS EPSF Export Filter V1.0%%CreationDate:7/29/95  9:42:30 a.m.%%BoundingBox: 15.000 449.000 428.000 757.000                                                          %%QDBoundingBox: 15.000 35.000 428.000 343.000                                                           %%DocumentFonts: Times-Roman%%DocumentProcessColors: Cyan Magenta Yellow Black%%ObjectsIncluded: tText=T tLine=T tRect=T tRRect=T tOval=F tArc=F tFree=F tPoly=F tBMap=F tNote=F tBez=F tPMap=F %%AttributesIncluded: kBaWPattType=T kPixPattType=T kGradientType=F %%EndComments/MAV 300 dict defMAV begin /useClip true def /top    0 def /left   1 def /bottom 2 def /right  3 def /CM     6 array def /CTM    6 array def /CTMR   6 array def /MTC    6 array def /blimit 1500 def /bcnt   0 def /rbox 8 array def /segbox 8 array def /bbox1 4 array def /c1 3 array def /c2 3 array def /d 3 array def    /delta 3 array def /mycurrentrgbcolor 3 array def /ulx 0 def /uly 1 def /llx 2 def /lly 3 def /urx 4 def /ury 5 def /lrx 6 def /lry 7 def /sp [0 0] def /ep [0 0] def /bbox 4 array def /pbox 4 array def /scrnProc currentscreen 3 1 roll pop pop def/currentcolorscreen where {begincurrentcolorscreenend3 1 roll pop pop 4 2 roll pop pop 5 -2 roll pop pop 6 -2 roll pop pop /kProc exch def /bProc exch def /gProc exch def /rProc exch def } if /Max {2 copy gt {pop}{exch pop} ifelse} bind def/cellPenW 72.0 /currentcolorscreen where{begin currentcolorscreen end pop pop10 1 roll pop pop 8 1 roll pop pop 6 1 roll pop pop Max Max Max }{currentscreen pop pop} ifelse div 2.0 div def%%BeginProcSet : rect /rect {  /saveobj save def  R PC PF LC SS  saveobj restore } bind def %%EndProcSet %%BeginProcSet : R /R {  newpath pbox astore pop 0 792 translate 1 -1 scale CTMR currentmatrix pop exch translate /objectCord mstore def pbox right get 2 div dup pbox left get exch sub pbox left 3 -1 roll put  dup pbox right 3 -1 roll put pbox bottom get 2 div  dup pbox top get exch sub pbox top 3 -1 roll put dup pbox bottom 3 -1 roll put translate  CTM currentmatrix pop 57.3 mul rotate RT} bind def%%EndProcSet%%BeginProcSet : SaveScreenBW /SaveScreenBW { currentscreen /scrnProc exch def /scrnAngle exch def /scrnFreq exch def  } bind def%%EndProcSet%%BeginProcSet : RestoreScreenBW /RestoreScreenBW { scrnFreq scrnAngle MAV /scrnProc get setscreen } bind def%%EndProcSet%%BeginProcSet : SetFreqAngleBW /SetFreqAngleBW { currentscreen 3 1 roll pop pop setscreen } bind def%%EndProcSet%%BeginProcSet : SaveScreenColor  /SaveScreenColor { currentcolorscreen /grayProc exch def /grayAngle exch def /grayFreq exch def /bProc exch def /bAngle exch def /bFreq exch def /gProc exch def /gAngle exch def /gFreq exch def /rProc exch def /rAngle exch def /rFreq exch def  } bind def%%EndProcSet%%BeginProcSet : RestoreColorScreen /RestoreColorScreen { rFreq rAngle MAV /rProc get gFreq gAngle MAV /gProc get bFreq bAngle MAV /bProc get grayFreq grayAngle MAV /grayProc get setcolorscreen } bind def%%EndProcSet%%BeginProcSet : SetFreqAngleColor /SetFreqAngleColor {  currentcolorscreen  3 1 roll pop pop 4 2 roll pop pop 5 -2 roll pop pop 6 -2 roll pop pop 4 1 roll  6 1 roll  8 1 roll  10 1 roll  setcolorscreen  } bind def %%EndProcSet /initmsaverestore { userdict begin /mdict 10 dict def mdict begin /mindex -1 def /mstacksize 25 def /mstack mstacksize array def /incmindex { /mindex mindex 1 add def } bind def /decmindex { /mindex mindex 1 sub def } bind def /checkmindex { mindex 0 lt { (%ERROR: msave/mrestore stack underflow: Offending command 'mrestore') print flush stop } { mindex mstacksize ge { (%ERROR: msave/mrestore stack overflow: Offending command 'msave') print flush stop } if } ifelse } bind def /mpush { incmindex checkmindex mstack mindex 3 -1 roll put } bind def /mpop { checkmindex mstack mindex get decmindex } bind def end end } bind def /msave { mdict begin matrix currentmatrix mpush end } bind def /mrestore { mdict begin mpop setmatrix end } bind def /msavelevel { mdict begin mindex 1 add end } bind def /mstore {matrix currentmatrix} bind def/AutoSizeY {0 0 pldup 3 1 roll4 -1 roll  addpl exch popexch sub} bind def/pl {  transform0.25 sub round 0.25 add exch0.25 sub round 0.25 add exchitransform} bind def/pll {transformround exchround exchitransform} bind def/pr { dtransformround exchround exchidtransform} bind def/m { pl  moveto} bind def/l { pl lineto} bind def/c { pl curveto} bind def/rm { pr rmoveto} bind def/rl { pr rlineto} bind def/ar { 5 -2 roll pl5 2 rollarc} bind def/an { 5 -2 roll pl5 2 rollarcn} bind def/MakePatternFont {/FontDict 20 dict defFontDict begin/FontName exch def/Encoding exch def/FontMatrix [1 0 0 1 0 0 ] def/FontType 3 def/FontBBox [ 0 0 1 1 ] def/PatternDict exch def/RenderPattern {patternDict exch getexec} bind def/BuildChar {exch begin1 0 0 0 1 1 setcachedeviceEncoding exch get RenderPatternend} bind defFontName FontDict definefont popend} bind def/SnapToPattenGrid	{	exch	dup 0 lt {		1 index sub	} if	1 index	div truncate	mul} bind def/FillPatternString {dup length1 sub0 1 3 -1 roll {2 index2 index3 -2 rollput} forpop pop} bind def/AutoSizeY {	0.0 exch dtransform	round	idtransform exch pop} bind def /AutoSizeX {	0.0 dtransform	exch	round	exch	idtransform pop} bind def /AutoCellSize {	AutoSizeY	exch	AutoSizeX	exch} bind def/CheckPath {	false	{ pop pop pop true exit}	{ pop pop pop true exit}	{ pop pop pop pop pop pop pop true exit}	{ pop true exit}	pathforall} bind def/PatternFill {					%		patternCharacter	/patternString 1 string def	/cm mstore def	patternMatrix setmatrix	1 1 AutoCellSize	dup 0 eq { pop 1} if	exch	dup 0 eq { pop 1} if	exch	/patternSize exch 24.0 mul def	/PatternSizeX exch 24.0 mul patternString length mul def	/flaterror 0 def	patternString FillPatternString	gsave		flaterror 1 add setflat		flattenpath		pathbbox	grestore	psy add flaterror add psy SnapToPattenGrid	exch psx add flaterror add psx SnapToPattenGrid	3 -1 roll flaterror sub psy SnapToPattenGrid	4 -1 roll flaterror sub psx SnapToPattenGrid	4 2 roll pll	4 2 roll pll	/llxsnap exch def	/llysnap exch def	/urxsnap exch def	/urysnap exch def	gsave		useClip true eq {clip}{eoclip} ifelse newpath		/PatternFont findfont [psx 0.0 0.0 psy 0.0 0.0] makefont setfont		llysnap patternSize urysnap {			llxsnap exch moveto			llxsnap PatternSizeX urxsnap {				pop				patternString show				%currentpoint am			} for		} bind for	grestore	cm setmatrix} bind def				%		End 'PatternFill'/DefaultPatternFont {	/cm mstore def	patternMatrix setmatrix	1 1 AutoCellSize	dup 0 eq { pop 1} if	exch	dup 0 eq { pop 1} if	exch	/psy exch iSizeY mul def	/psx exch iSizeX mul def	/patternDict 64 dict def	patternDict begin		/NotDef {} def		/LiteDiagLines {			iSizeX iSizeY false [iSizeX 0.0 0.0 iSizeY -1.0 mul  0.0 iSizeY]			{pat}			imagemask		} bind def	end	/CustEncoding 256 array def	0 255 1 {		CustEncoding exch /NotDef put	} bind for	CustEncoding 65 /LiteDiagLines put	patternDict CustEncoding /PatternFont MakePatternFont	/pathSegProc {		strokepath		CheckPath {			65 PatternFill newpath		} if	} bind def	cm setmatrix} bind def/XRound {	dup	3 -1 roll	exch mul round	exch div} bind def/RoundMatrix {	/i 0 def	dup {		100000.0 XRound		1 index		exch i exch put		/i i 1 add def	} forall} bind def/GetBoxesRatio {3 -1 roll sub7 1 rollexch sub6 1 roll3 -1 roll sub5 1 rollexch sub4 1 roll3 -1 roll div3 1 rollexch divexch} bind def%%BeginProcSet : Text Attributes Procs/T {792 exch sub} bind def/sx 0 def/sy 0 def/ex 0 def/ey 0 def/lw  0 def/siz 0 def/U {gsave 0 setlinecap/lw siz 0.078125 mul def  /ey exch neg def /ex exch def /sy exch neg def /sx exch deffontkind plain eq  {  lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto stroke } {   currentdict /outlineFontSize known outlineFontSize 0 gt and     {       fontkind outline eq         {           /sy sy 0.0119444 siz mul sub def           /ey ey 0.0119444 siz mul sub def           gsave            1 1 1 setrgbcolor lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto stroke           grestore           lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto           strokepath 0.0119444 siz mul setlinewidth stroke         } if       fontkind shadow eq fontkind outlineshadow eq or         {           /sy sy 0.0358332 siz mul sub def           /ey ey 0.0358332 siz mul sub def           lw setlinewidth           lw 2 div sx add sy           lw 2 div sub moveto           lw 2 div ex add ey           lw 2 div sub lineto stroke            gsave           1 1 1 setrgbcolor lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto stroke           grestore           lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto           strokepath 0.0119444 siz mul setlinewidth stroke         } if      } if } ifelsegrestore} bind def/plain 1 def/outline 2 def/shadow 3 def/outlineshadow 4 def/fess {	currentdict /outlineFontSize known {		/outlineFontSize 2 index def	} if	findfont exch dup /siz exch def scalefont setfont} bind def/SHDW {gsave siz oldfontname fess siz 0.055 mul x add y siz 0.05 mul sub moveto c show grestore} def/NRML {gsave 1 1 1 setrgbcolor siz oldfontname fess x y moveto c show grestore siz /Outline fess  x y moveto c show} def/S {fontkind plain eq {neg moveto show} iffontkind outline eq {neg /y exch def /x exch def /c exch def NRML} iffontkind shadow eq {neg /y exch def /x exch def /c exch def SHDW NRML} iffontkind outlineshadow eq {neg /y exch def /x exch def /c exch def SHDW NRML} if} bind def/F {/fontkind exch deffontkind plain eq {fess} iffontkind outline eq {dup /oldfontname exch def exch dup /siz exch def exch OLF} iffontkind shadow eq {dup /oldfontname exch def exch dup /siz exch def exch OLF} iffontkind outlineshadow eq {dup /oldfontname exch def exch dup /siz exch def exch OLF} if} bind def/makeoutlinedict 15 dict def/makeoutlinefont {  makeoutlinedict begin   /uniqueid exch def   /strokewidth exch def   /newfontname exch def   /basefontname exch def   /basefontdict basefontname findfont def   /numentries basefontdict maxlength 1 add def   basefontdict /UniqueID known not   {/numentries numentries 1 add def} if   /outfontdict numentries dict def   basefontdict   {     exch dup /FID ne {exch outfontdict 3 1 roll put} {pop pop} ifelse	  }forall   outfontdict /FontName newfontname put   outfontdict /PaintType 2 put   outfontdict /StrokeWidth strokewidth put   outfontdict /UniqueID uniqueid put   newfontname outfontdict definefont pop  end  }def/UID { findfont dup /UniqueID known  {/UniqueID get 1 add}  {pop 1}  ifelse} def/OLF {dup/Outline1000 62 div4 -1 rollUID/outlineFontSize 5 index defmakeoutlinefont/Outline findfont exch scalefont setfont} def/CopyEncoding {findfont/Encoding getdup length array/tarrayz exch deftarrayz 03 -1 rollputintervaltarrayz} bind def/Re-encode {dup length array copy/eap 0 defexch {dup type /integertype eq {/eap exch def} {1 indexexcheap exchput/eap eap 1 add def} ifelse} forall} bind def/EncodeFont	{findfont duplength dictbegin{	1 index /FID ne{ def }{ pop pop } ifelse} forall/FontName exch def/Encoding exch defFontName currentdictenddefinefont pop} bind def%%EndProcSet%%BeginProcSet : clip2pathbbox/clip2pathbbox {	/magicNum linewidth 2 div 1 2 sqrt div mul def	pathbbox	/urymn exch magicNum add def	/urxmn exch magicNum add def	/llymn exch magicNum sub def	/llxmn exch magicNum sub def	newpath llxmn llymn moveto llxmn urymn lineto urxmn urymn lineto urxmn llymn lineto	closepath clip newpath} bind def%%EndProcSet %% Line takes the following arguments:%% linewidth xEnd yEnd xStart yStart%%BeginProcSet : Line/Line {MAV /LC get length 0 ne{	gsave			newpath			MAV /ArrowType get length 0 eq			MAV /SD get length 0 eq and			{2 setlinecap /UseClip {clip2pathbbox} def }			{0 setlinecap /UseClip {} def } ifelse			0 792 translate			1 -1 scale			CTM currentmatrix pop			/yStart exch def /xStart exch def /yEnd exch def /xEnd exch def /linewidth exch def			MAV /ArrowType get length 0 eq xStart xEnd ne yStart yEnd ne and and			{xStart yStart moveto xEnd yEnd lineto UseClip xStart yStart moveto xEnd yEnd lineto}			{xStart yStart moveto xEnd yEnd lineto} ifelse