fontkind 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			linewidth setlinewidth SD strokepath			CheckPath {LC PF ArrowType} if	grestore}{pop pop pop pop pop} ifelse} bind def/CompensateForStroke {	sin currentlinewidth mul	exch	cos currentlinewidth mul	dup 0 translate	4 -1 roll exch 2.0 mul sub	3 1 roll	2.0 mul sub} bind def/arrowdict 10 dict defarrowdict begin	/SwallowTail {		newpath		0.0 0.0 moveto		1.0 -.5 lineto		.666 0.0 lineto		1.0 .5 lineto		closepath	} bind def	/Triangular {		newpath		0.0 0.0 moveto		1.0 -.5 lineto		1.0 .5 lineto		closepath	} bind def	/OpenTri {		newpath		1.0 0.5 moveto		0.0 0.0 lineto		1.0 -0.5 lineto	} bind def	/ClosedTri {		newpath		1.0 0.5 moveto		0.0 0.0 lineto		1.0 -0.5 lineto		closepath	} bind def	/SlashBar {		newpath		0.5 -.5 moveto		-.5 0.5 lineto	} bind def	/Dot {		newpath		0.5 0.0 moveto		0 0 1 0 360 arc		closepath	} bind def	/ExtSlashBar {		newpath		1.0 -.5 moveto		0.0 0.5 lineto	} bind defend/ScaleArrowHead {	0 0 4 -2 roll	0 0 1 1	8 -4 roll GetBoxesRatio	scale} bind def/DrawArrowHead {	gsave	[] 0 setdash	currentpoint translate rotate	{		4 copy		gsave			initmatrix			100 200 translate			msave				ScaleArrowHead pop				arrowdict exch get exec			mrestore			strokepath			0 0 3 index 3 index			pathbbox 8 4 roll			GetBoxesRatio			4 2 roll		grestore		3 index 1.0 exch sub		6 -1 roll		{			2 index mul			0 translate		}{			pop		} ifelse		msave			ScaleArrowHead scale			arrowdict exch get exec		mrestore		strokepath	} {		msave		ScaleArrowHead		arrowdict exch get exec		mrestore	} ifelse		CheckPath {			LC PF		} if	grestore} bind def%%EndProcSet %%BeginProcSet : SR /SR {  pbox left get pbox top get moveto  pbox right get pbox top get lineto  pbox right get pbox bottom get lineto  pbox left get pbox bottom get lineto  closepath} bind def %%EndProcSet %%BeginProcSet : RR1 /RR1 { pbox top get pbox bottom get sub abs 2 div dup dup dup pbox left get add pbox left 3 -1 roll put pbox right get exch sub pbox right 3 -1 roll put pbox left get pbox bottom get moveto pbox right get 0 3 -1 roll 90 -90 arcn pbox left get 0 3 -1 roll -90 90 arcn closepath} bind def %%EndProcSet %%BeginProcSet : RR2 /RR2 { dup dup dup dup dup dup dup dup pbox top get add pbox top 3 -1 roll put pbox left get add pbox left 3 -1 roll put pbox bottom get exch sub pbox bottom 3 -1 roll put pbox right get exch sub pbox right 3 -1 roll put pbox bottom get add pbox left get exch moveto pbox right get pbox bottom get 3 -1 roll 90 0 arcn pbox right get pbox top get 3 -1 roll  0 270 arcn pbox left get pbox top get 3 -1 roll  270 180 arcn pbox left get pbox bottom get 3 -1 roll 180 90 arcn closepath} bind def %%EndProcSet/StripFromFront { dup length2 index sub3 1 rollexch 3 -1 rollgetinterval} bind def/MakePathArray {  /k 0 def  {/k k 1 add def pop pop}{/k k 1 add def pop pop}{/k k 1 add def pop pop pop pop pop pop}{/k k 1 add def }pathforall  k array /k 0 def  {{moveto} 3 array astore 1 index k 3 -1 roll put /k k 1 add def}  {{lineto} 3 array astore 1 index k 3 -1 roll put /k k 1 add def}  {{curveto} 7 array astore 1 index k 3 -1 roll put /k k 1 add def}  {{closepath} 1 array astore 1 index k 3 -1 roll put /k k 1 add def} pathforall }bind def /MakeFlatPathArray { /k 0 def {/k k 1 add def pop pop}{/k k 1 add def pop pop}{pop pop pop pop pop pop}{}pathforall k array/k 0 def {{moveto} 3 array astore 1 index k 3 -1 roll put /k k 1 add def} {{lineto} 3 array astore 1 index k 3 -1 roll put /k k 1 add def} { pop pop pop pop pop pop} {} pathforall }bind def /FractionalLine {2 index sub.00001 mulexch3 index sub.00001 mul4 -1 roll add3 1 rolladd} bind def/calcLineLength { exch 4 -1 roll sub dup mul 3 1 roll exch sub dup mul add sqrt} bind def/InitTotalLineLength { /oldY exch def /oldX exch def theDash aload pop currentLineLength add setdash} bind def/AccumeLineLength { 3 copy pop 2 copy oldX oldY 4 2 roll calcLineLength /segmentLength exch def /currentLineLength currentLineLength segmentLength add def /oldY exch def /oldX exch def} bind def/DecumeLastLineLength { /currentLineLength currentLineLength segmentLength sub def} bind def/DrawFlattendSegment { /pointCount 2 def dup 0 lt { pop 0 } if fpc 3 1 roll 2 index 1 index gt { 2 copy get dup length dup 3 eq { pop dup 0 get exch 1 get 2 copy InitTotalLineLength   m } { } ifelse } { pop 1 index } ifelse dup 1 add 3 index exch sub dup 10 gt { pop 10} if { 1 add 2 copy get aload pop AccumeLineLength exec } repeat 3 1 roll pop pop DecumeLastLineLength} bind def/IncFPC { fpc add /fpc exch def} bind def/DrawFlatPathArray { fpc 0 {  dup 2 index 1 sub lt {  flatPathArray exch newpath 1 sub DrawFlattendSegment gsave pathSegProc grestore newpath } { pop pop exit } ifelse } loop} bind def/RecordFirstSubSegment { closepathArray 0 pathArray 0 get put closepathArray 1 pathArray 0 get aload pop pop pathArray 1 get dup length 3 eq { aload pop pop } { newpath 0 0 moveto aload pop exec /segmentArray flattenpath MakeFlatPathArray def segmentArray 1 get aload pop pop } ifelse FractionalLine {lineto} 3 array astore put} bind def/AppendClosePath { closepathArray 0 get 2 {lineto} put flatPathArray fpc closepathArray 0 get put 1 IncFPC flatPathArray fpc closepathArray 1 get put 1 IncFPC} bind def/RecordCurrentDash { /theDash currentdash 2 array astore def /currentLineLength 0 def} bind def/PatternStroke {	0 setlinecap RecordCurrentDash /saveFlat currentflat def .5 setflat /pathArray MakePathArray def /closepathArray 2 array def /pathLength pathArray length def /flatPathArray 513 array def /currentLineLength 0 def /fpc 0 def pathArray pathLength 1 sub get length 1 eq { /usingClosepath true def RecordFirstSubSegment /pathLength pathLength 1 sub def } { /usingClosepath false def } ifelse 0 1 pathLength 1 sub { pathArray exch get dup length 3 eq { fpc 1 add 512 ge { DrawFlatPathArray fpc 2 ge { flatPathArray flatPathArray fpc 2 sub get 0 put flatPathArray flatPathArray fpc 1 sub get 1 put /fpc 2 def }{ /fpc 0 def } ifelse } if flatPathArray exch fpc exch put 1 IncFPC } { dup length 7 eq { newpath /nToStrip 0 def fpc 1 gt { flatPathArray fpc 2 sub get aload pop pop m flatPathArray fpc 1 sub get aload pop exec /nToStrip 2 def } { fpc 1 eq { flatPathArray fpc 1 sub get aload pop exec /nToStrip 2 def } if } ifelse aload pop exec /segmentArray flattenpath MakeFlatPathArray def /segmentArray nToStrip segmentArray StripFromFront def segmentArray length fpc add 512 lt { flatPathArray fpc segmentArray putinterval segmentArray length IncFPC } { DrawFlatPathArray fpc 1 gt { flatPathArray flatPathArray fpc 2 sub get 0 exch put flatPathArray flatPathArray fpc 1 sub get 1 exch put /fpc 2 def }{ /fpc 0 def } ifelse segmentArray length 512 lt { flatPathArray fpc segmentArray putinterval segmentArray length IncFPC } { segmentArray length /exitLoop false def 0  {