

char *PS_SIZE = 

"%%!PS-Adobe-2.0 EPSF-2.0\n"
"%%%%BoundingBox: 0.000 0.000 %5.3f %5.3f \n"
"%%%%Creator: wplot\n"
"%%%%CreationDate:  \n"
"%%%%EndComments\n"
"\n"
"/Wavedict 150 dict def\n"
"Wavedict begin\n"
"/Mlmarg		0.000 def\n"
"/Mrmarg		0.000 def\n"
"/Mbmarg		0.000 def\n"
"/Mtmarg		0.000 def\n"
"/Mwidth	     %8.3f def\n"
"/Mheight     %8.3f def\n";

char *PS_HEADER = 

"/Mtransform	{  } bind def\n"
"/Mnodistort	true def\n"
"/Mfixwid	true	def\n"
"/Mfixdash	false def\n"
"/Mrot		0	def\n"
"/Mpstart {\n"
"WavePictureStart\n"
"} bind def\n"
"/Mpend {\n"
"WavePictureEnd\n"
"} bind def\n"
"/Mscale {\n"
"0 1 0 1\n"
"5 -1 roll\n"
"WaveScale\n"
"} bind def\n"
"/ISOLatin1Encoding dup where\n"
"{ pop pop }\n"
"{\n"
"[\n"
"/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef\n"
"/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef\n"
"/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef\n"
"/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef\n"
"/space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright\n"
"/parenleft /parenright /asterisk /plus /comma /minus /period /slash\n"
"/zero /one /two /three /four /five /six /seven\n"
"/eight /nine /colon /semicolon /less /equal /greater /question\n"
"/at /A /B /C /D /E /F /G\n"
"/H /I /J /K /L /M /N /O\n"
"/P /Q /R /S /T /U /V /W\n"
"/X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore\n"
"/quoteleft /a /b /c /d /e /f /g\n"
"/h /i /j /k /l /m /n /o\n"
"/p /q /r /s /t /u /v /w\n"
"/x /y /z /braceleft /bar /braceright /asciitilde /.notdef\n"
"/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef\n"
"/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef\n"
"/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent\n"
"/dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron\n"
"/space /exclamdown /cent /sterling /currency /yen /brokenbar /section\n"
"/dieresis /copyright /ordfeminine /guillemotleft\n"
"/logicalnot /hyphen /registered /macron\n"
"/degree /plusminus /twosuperior /threesuperior\n"
"/acute /mu /paragraph /periodcentered\n"
"/cedilla /onesuperior /ordmasculine /guillemotright\n"
"/onequarter /onehalf /threequarters /questiondown\n"
"/Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla\n"
"/Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis\n"
"/Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply\n"
"/Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls\n"
"/agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla\n"
"/egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis\n"
"/eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide\n"
"/oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis\n"
"] def\n"
"} ifelse\n"
"/MFontDict 50 dict def\n"
"/MStrCat\n"
"{\n"
"exch\n"
"dup length\n"
"2 index length add\n"
"string\n"
"dup 3 1 roll\n"
"copy\n"
"length\n"
"exch dup\n"
"4 2 roll exch\n"
"putinterval\n"
"} def\n"
"/MCreateEncoding\n"
"{\n"
"1 index\n"
"255 string cvs\n"
"(-) MStrCat\n"
"1 index MStrCat\n"
"cvn exch\n"
"(Encoding) MStrCat\n"
"cvn dup where\n"
"{\n"
"exch get\n"
"}\n"
"{\n"
"pop\n"
"StandardEncoding\n"
"} ifelse\n"
"3 1 roll\n"
"dup MFontDict exch known not\n"
"{\n"
"1 index findfont\n"
"dup length dict\n"
"begin\n"
"{1 index /FID ne\n"
"{def}\n"
"{pop pop}\n"
"ifelse} forall\n"
"/Encoding 3 index\n"
"def\n"
"currentdict\n"
"end\n"
"1 index exch definefont pop\n"
"MFontDict 1 index\n"
"null put\n"
"}\n"
"if\n"
"exch pop\n"
"exch pop\n"
"} def\n"
"/ISOLatin1 { (ISOLatin1) MCreateEncoding } def\n"
"/ISO8859 { (ISOLatin1) MCreateEncoding } def\n"
"/Mcopyfont {\n"
"dup\n"
"maxlength\n"
"dict\n"
"exch\n"
"{\n"
"1 index\n"
"/FID\n"
"eq\n"
"{\n"
"pop pop\n"
"}\n"
"{\n"
"2 index\n"
"3 1 roll\n"
"put\n"
"}\n"
"ifelse\n"
"}\n"
"forall\n"
"} def\n"
"/Plain	/Courier findfont Mcopyfont definefont pop\n"
"/WavePictureStart {\n"
"gsave\n"
"Mtransform\n"
"Mlmarg\n"
"Mbmarg\n"
"translate\n"
"Mwidth\n"
"Mlmarg Mrmarg add\n"
"sub\n"
"/Mwidth exch def\n"
"Mheight\n"
"Mbmarg Mtmarg add\n"
"sub\n"
"/Mheight exch def\n"
"/Mtmatrix\n"
"matrix currentmatrix\n"
"def\n"
"/Mgmatrix\n"
"matrix currentmatrix\n"
"def\n"
"} bind def\n"
"/WavePictureEnd {\n"
"grestore\n"
"} bind def\n"
"/MFill {\n"
"0 0 		moveto\n"
"Mwidth 0 	lineto\n"
"Mwidth Mheight 	lineto\n"
"0 Mheight 	lineto\n"
"fill\n"
"} bind def\n"
"/MPlotRegion {\n"
"3 index\n"
"Mwidth mul\n"
"2 index\n"
"Mheight mul\n"
"translate\n"
"exch sub\n"
"Mheight mul\n"
"/Mheight\n"
"exch def\n"
"exch sub\n"
"Mwidth mul\n"
"/Mwidth\n"
"exch def\n"
"} bind def\n"
"/WaveSubStart {\n"
"Momatrix\n"
"Mgmatrix Mtmatrix\n"
"Mwidth Mheight\n"
"7 -2 roll\n"
"moveto\n"
"Mtmatrix setmatrix\n"
"currentpoint\n"
"Mgmatrix setmatrix\n"
"9 -2 roll\n"
"moveto\n"
"Mtmatrix setmatrix\n"
"currentpoint\n"
"2 copy translate\n"
"/Mtmatrix matrix currentmatrix def\n"
"3 -1 roll\n"
"exch sub\n"
"/Mheight exch def\n"
"sub\n"
"/Mwidth exch def\n"
"} bind def\n"
"/WaveSubEnd {\n"
"/Mheight exch def\n"
"/Mwidth exch def\n"
"/Mtmatrix exch def\n"
"dup setmatrix\n"
"/Mgmatrix exch def\n"
"/Momatrix exch def\n"
"} bind def\n"
"/Mdot {\n"
"moveto\n"
"0 0 rlineto\n"
"stroke\n"
"} bind def\n"
"/Mtetra {\n"
"moveto\n"
"lineto\n"
"lineto\n"
"lineto\n"
"fill\n"
"} bind def\n"
"/Metetra {\n"
"moveto\n"
"lineto\n"
"lineto\n"
"lineto\n"
"closepath\n"
"gsave\n"
"fill\n"
"grestore\n"
"0 setgray\n"
"stroke\n"
"} bind def\n"
"/Mistroke {\n"
"flattenpath\n"
"0 0 0\n"
"{\n"
"4 2 roll\n"
"pop pop\n"
"}\n"
"{\n"
"4 -1 roll\n"
"2 index\n"
"sub dup mul\n"
"4 -1 roll\n"
"2 index\n"
"sub dup mul\n"
"add sqrt\n"
"4 -1 roll\n"
"add\n"
"3 1 roll\n"
"}\n"
"{\n"
"stop\n"
"}\n"
"{\n"
"stop\n"
"}\n"
"pathforall\n"
"pop pop\n"
"currentpoint\n"
"stroke\n"
"moveto\n"
"currentdash\n"
"3 -1 roll\n"
"add\n"
"setdash\n"
"} bind def\n"
"/Mfstroke {\n"
"stroke\n"
"currentdash\n"
"pop 0\n"
"setdash\n"
"} bind def\n"
"/Mrotsboxa {\n"
"gsave\n"
"dup\n"
"/Mrot\n"
"exch def\n"
"Mrotcheck\n"
"Mtmatrix\n"
"dup\n"
"setmatrix\n"
"7 1 roll\n"
"4 index\n"
"4 index\n"
"translate\n"
"rotate\n"
"3 index\n"
"-1 mul\n"
"3 index\n"
"-1 mul\n"
"translate\n"
"/Mtmatrix\n"
"matrix\n"
"currentmatrix\n"
"def\n"
"grestore\n"
"Msboxa\n"
"3  -1 roll\n"
"/Mtmatrix\n"
"exch def\n"
"/Mrot\n"
"0 def\n"
"} bind def\n"
"/Msboxa {\n"
"newpath\n"
"5 -1 roll\n"
"Mvboxa\n"
"pop\n"
"Mboxout\n"
"6 -1 roll\n"
"5 -1 roll\n"
"4 -1 roll\n"
"Msboxa1\n"
"5 -3 roll\n"
"Msboxa1\n"
"Mboxrot\n"
"[\n"
"7 -2 roll\n"
"2 copy\n"
"[\n"
"3 1 roll\n"
"10 -1 roll\n"
"9 -1 roll\n"
"]\n"
"6 1 roll\n"
"5 -2 roll\n"
"]\n"
"} bind def\n"
"/Msboxa1 {\n"
"sub\n"
"2 div\n"
"dup\n"
"2 index\n"
"1 add\n"
"mul\n"
"3 -1 roll\n"
"-1 add\n"
"3 -1 roll\n"
"mul\n"
"} bind def\n"
"/Mvboxa	{\n"
"Mfixwid\n"
"{\n"
"Mvboxa1\n"
"}\n"
"{\n"
"dup\n"
"Mwidthcal\n"
"0 exch\n"
"{\n"
"add\n"
"}\n"
"forall\n"
"exch\n"
"Mvboxa1\n"
"4 index\n"
"7 -1 roll\n"
"add\n"
"4 -1 roll\n"
"pop\n"
"3 1 roll\n"
"}\n"
"ifelse\n"
"} bind def\n"
"/Mvboxa1 {\n"
"gsave\n"
"newpath\n"
"[ true\n"
"3 -1 roll\n"
"{\n"
"Mbbox\n"
"5 -1 roll\n"
"{\n"
"0\n"
"5 1 roll\n"
"}\n"
"{\n"
"7 -1 roll\n"
"exch sub\n"
"(m) stringwidth pop\n"
".3 mul\n"
"sub\n"
"7 1 roll\n"
"6 -1 roll\n"
"4 -1 roll\n"
"Mmin\n"
"3 -1 roll\n"
"5 index\n"
"add\n"
"5 -1 roll\n"
"4 -1 roll\n"
"Mmax\n"
"4 -1 roll\n"
"}\n"
"ifelse\n"
"false\n"
"}\n"
"forall\n"
"{ stop } if\n"
"counttomark\n"
"1 add\n"
"4 roll\n"
"]\n"
"grestore\n"
"} bind def\n"
"/Mbbox {\n"
"1 dict begin\n"
"0 0 moveto\n"
"/temp (T) def\n"
"{	gsave\n"
"currentpoint newpath moveto\n"
"temp 0 3 -1 roll put temp\n"
"false charpath flattenpath currentpoint\n"
"pathbbox\n"
"grestore moveto lineto moveto} forall\n"
"pathbbox\n"
"newpath\n"
"end\n"
"} bind def\n"
"/Mmin {\n"
"2 copy\n"
"gt\n"
"{ exch } if\n"
"pop\n"
"} bind def\n"
"/Mmax {\n"
"2 copy\n"
"lt\n"
"{ exch } if\n"
"pop\n"
"} bind def\n"
"/Mrotshowa {\n"
"dup\n"
"/Mrot\n"
"exch def\n"
"Mrotcheck\n"
"Mtmatrix\n"
"dup\n"
"setmatrix\n"
"7 1 roll\n"
"4 index\n"
"4 index\n"
"translate\n"
"rotate\n"
"3 index\n"
"-1 mul\n"
"3 index\n"
"-1 mul\n"
"translate\n"
"/Mtmatrix\n"
"matrix\n"
"currentmatrix\n"
"def\n"
"Mgmatrix setmatrix\n"
"Mshowa\n"
"/Mtmatrix\n"
"exch def\n"
"/Mrot 0 def\n"
"} bind def\n"
"/Mshowa {\n"
"4 -2 roll\n"
"moveto\n"
"2 index\n"
"Mtmatrix setmatrix\n"
"Mvboxa\n"
"7 1 roll\n"
"Mboxout\n"
"6 -1 roll\n"
"5 -1 roll\n"
"4 -1 roll\n"
"Mshowa1\n"
"4 1 roll\n"
"Mshowa1\n"
"rmoveto\n"
"currentpoint\n"
"Mfixwid\n"
"{\n"
"Mshowax\n"
"}\n"
"{\n"
"Mshoway\n"
"}\n"
"ifelse\n"
"pop pop pop pop\n"
"Mgmatrix setmatrix\n"
"} bind def\n"
"/Mshowax {	\n"
"0 1\n"
"4 index length\n"
"-1 add\n"
"{\n"
"2 index\n"
"4 index\n"
"2 index\n"
"get\n"
"3 index\n"
"add\n"
"moveto\n"
"4 index\n"
"exch get\n"
"Mfixdash\n"
"{\n"
"Mfixdashp		\n"
"}\n"
"if\n"
"show\n"
"} for\n"
"} bind def\n"
"/Mfixdashp {\n"
"dup\n"
"length\n"
"1\n"
"gt\n"
"1 index\n"
"true exch\n"
"{\n"
"45\n"
"eq\n"
"and\n"
"} forall\n"
"and\n"
"{\n"
"gsave\n"
"(--)		\n"
"stringwidth pop\n"
"(-)\n"
"stringwidth pop\n"
"sub\n"
"2 div\n"
"0 rmoveto\n"
"dup\n"
"length\n"
"1 sub\n"
"{\n"
"(-)\n"
"show\n"
"}\n"
"repeat\n"
"grestore\n"
"}\n"
"if\n"
"} bind def	\n"
"/Mshoway {\n"
"3 index\n"
"Mwidthcal\n"
"5 1 roll\n"
"0 1\n"
"4 index length\n"
"-1 add\n"
"{\n"
"2 index\n"
"4 index\n"
"2 index\n"
"get\n"
"3 index\n"
"add\n"
"moveto\n"
"4 index\n"
"exch get\n"
"[\n"
"6 index\n"
"aload\n"
"length\n"
"2 add\n"
"-1 roll\n"
"{\n"
"pop\n"
"Strform\n"
"stringwidth\n"
"pop\n"
"exch\n"
"add\n"
"0 rmoveto\n"
"}\n"
"exch\n"
"kshow\n"
"cleartomark\n"
"} for\n"
"pop	\n"
"} bind def\n"
"/Mwidthcal {\n"
"[\n"
"exch\n"
"{\n"
"Mwidthcal1\n"
"}\n"
"forall\n"
"]\n"
"[\n"
"exch\n"
"dup\n"
"Maxlen\n"
"-1 add\n"
"0 1\n"
"3 -1 roll\n"
"{\n"
"[\n"
"exch\n"
"2 index\n"
"{		 \n"
"1 index	\n"
"Mget\n"
"exch\n"
"}\n"
"forall		\n"
"pop\n"
"Maxget\n"
"exch\n"
"}\n"
"for\n"
"pop\n"
"]\n"
"Mreva\n"
"} bind def\n"
"/Mreva	{\n"
"[\n"
"exch\n"
"aload\n"
"length\n"
"-1 1\n"
"{1 roll}\n"
"for\n"
"]\n"
"} bind def\n"
"/Mget	{\n"
"1 index\n"
"length\n"
"-1 add\n"
"1 index\n"
"ge\n"
"{\n"
"get\n"
"}\n"
"{\n"
"pop pop\n"
"0\n"
"}\n"
"ifelse\n"
"} bind def\n"
"/Maxlen	{\n"
"[\n"
"exch\n"
"{\n"
"length\n"
"}\n"
"forall\n"
"Maxget\n"
"} bind def\n"
"/Maxget	{\n"
"counttomark\n"
"-1 add\n"
"1 1\n"
"3 -1 roll\n"
"{\n"
"pop\n"
"Mmax\n"
"}\n"
"for\n"
"exch\n"
"pop\n"
"} bind def\n"
"/Mwidthcal1 {\n"
"[\n"
"exch\n"
"{\n"
"Strform\n"
"stringwidth\n"
"pop\n"
"}\n"
"forall\n"
"]\n"
"} bind def\n"
"/Strform {\n"
"/tem (x) def\n"
"tem 0\n"
"3 -1 roll\n"
"put\n"
"tem\n"
"} bind def\n"
"/Mshowa1 {\n"
"2 copy\n"
"add\n"
"4 1 roll\n"
"sub\n"
"mul\n"
"sub\n"
"-2 div\n"
"} bind def\n"
"/WaveScale {\n"
"Mwidth\n"
"Mheight\n"
"Mlp\n"
"translate\n"
"scale\n"
"/yscale exch def\n"
"/ybias exch def\n"
"/xscale exch def\n"
"/xbias exch def\n"
"/Momatrix\n"
"xscale yscale matrix scale\n"
"xbias ybias matrix translate\n"
"matrix concatmatrix def\n"
"/Mgmatrix\n"
"matrix currentmatrix\n"
"def\n"
"} bind def\n"
"/Mlp {\n"
"3 copy\n"
"Mlpfirst\n"
"{\n"
"Mnodistort\n"
"{\n"
"Mmin\n"
"dup\n"
"} if\n"
"4 index\n"
"2 index\n"
"2 index\n"
"Mlprun\n"
"11 index\n"
"11 -1 roll\n"
"10 -4 roll\n"
"Mlp1\n"
"8 index\n"
"9 -5 roll\n"
"Mlp1\n"
"4 -1 roll\n"
"and\n"
"{ exit } if\n"
"3 -1 roll\n"
"pop pop\n"
"} loop\n"
"exch\n"
"3 1 roll\n"
"7 -3 roll\n"
"pop pop pop\n"
"} bind def\n"
"/Mlpfirst {\n"
"3 -1 roll\n"
"dup length\n"
"2 copy\n"
"-2 add\n"
"get\n"
"aload\n"
"pop pop pop\n"
"4 -2 roll\n"
"-1 add\n"
"get\n"
"aload\n"
"pop pop pop\n"
"6 -1 roll\n"
"3 -1 roll\n"
"5 -1 roll\n"
"sub\n"
"div\n"
"4 1 roll\n"
"exch sub\n"
"div\n"
"} bind def\n"
"/Mlprun {\n"
"2 copy\n"
"4 index\n"
"0 get\n"
"dup\n"
"4 1 roll\n"
"Mlprun1\n"
"3 copy\n"
"8 -2 roll\n"
"9 -1 roll\n"
"{\n"
"3 copy\n"
"Mlprun1\n"
"3 copy\n"
"11 -3 roll\n"
"/gt Mlpminmax\n"
"8 3 roll\n"
"11 -3 roll\n"
"/lt Mlpminmax\n"
"8 3 roll\n"
"} forall\n"
"pop pop pop pop\n"
"3 1 roll\n"
"pop pop\n"
"aload pop\n"
"5 -1 roll\n"
"aload pop\n"
"exch\n"
"6 -1 roll\n"
"Mlprun2\n"
"8 2 roll\n"
"4 -1 roll\n"
"Mlprun2\n"
"6 2 roll\n"
"3 -1 roll\n"
"Mlprun2\n"
"4 2 roll\n"
"exch\n"
"Mlprun2\n"
"6 2 roll\n"
"} bind def\n"
"/Mlprun1 {\n"
"aload pop\n"
"exch\n"
"6 -1 roll\n"
"5 -1 roll\n"
"mul add\n"
"4 -2 roll\n"
"mul\n"
"3 -1 roll\n"
"add\n"
"} bind def\n"
"/Mlprun2 {\n"
"2 copy\n"
"add 2 div\n"
"3 1 roll\n"
"exch sub\n"
"} bind def\n"
"/Mlpminmax {\n"
"cvx\n"
"2 index\n"
"6 index\n"
"2 index\n"
"exec\n"
"{\n"
"7 -3 roll\n"
"4 -1 roll\n"
"} if\n"
"1 index\n"
"5 index\n"
"3 -1 roll\n"
"exec\n"
"{\n"
"4 1 roll\n"
"pop\n"
"5 -1 roll\n"
"aload\n"
"pop pop\n"
"4 -1 roll\n"
"aload pop\n"
"[\n"
"8 -2 roll\n"
"pop\n"
"5 -2 roll\n"
"pop\n"
"6 -2 roll\n"
"pop\n"
"5 -1 roll\n"
"]\n"
"4 1 roll\n"
"pop\n"
"}\n"
"{\n"
"pop pop pop\n"
"} ifelse\n"
"} bind def\n"
"/Mlp1 {\n"
"5 index\n"
"3 index	sub\n"
"5 index\n"
"2 index mul\n"
"1 index\n"
"le\n"
"1 index\n"
"0 le\n"
"or\n"
"dup\n"
"not\n"
"{\n"
"1 index\n"
"3 index	div\n"
".99999 mul\n"
"8 -1 roll\n"
"pop\n"
"7 1 roll\n"
"}\n"
"if\n"
"8 -1 roll\n"
"2 div\n"
"7 -2 roll\n"
"pop sub\n"
"5 index\n"
"6 -3 roll\n"
"pop pop\n"
"mul sub\n"
"exch\n"
"} bind def\n"
"/intop 0 def\n"
"/inrht 0 def\n"
"/inflag 0 def\n"
"/outflag 0 def\n"
"/xadrht 0 def\n"
"/xadlft 0 def\n"
"/yadtop 0 def\n"
"/yadbot 0 def\n"
"/Minner {\n"
"outflag\n"
"1\n"
"eq\n"
"{\n"
"/outflag 0 def\n"
"/intop 0 def\n"
"/inrht 0 def\n"
"} if		\n"
"5 index\n"
"gsave\n"
"Mtmatrix setmatrix\n"
"Mvboxa pop\n"
"grestore\n"
"3 -1 roll\n"
"pop\n"
"dup\n"
"intop\n"
"gt\n"
"{\n"
"/intop\n"
"exch def\n"
"}\n"
"{ pop }\n"
"ifelse\n"
"dup\n"
"inrht\n"
"gt\n"
"{\n"
"/inrht\n"
"exch def\n"
"}\n"
"{ pop }\n"
"ifelse\n"
"pop\n"
"/inflag\n"
"1 def\n"
"} bind def\n"
"/Mouter {\n"
"/xadrht 0 def\n"
"/xadlft 0 def\n"
"/yadtop 0 def\n"
"/yadbot 0 def\n"
"inflag\n"
"1 eq\n"
"{\n"
"dup\n"
"0 lt\n"
"{\n"
"dup\n"
"intop\n"
"mul\n"
"neg\n"
"/yadtop\n"
"exch def\n"
"} if\n"
"dup\n"
"0 gt\n"
"{\n"
"dup\n"
"intop\n"
"mul\n"
"/yadbot\n"
"exch def\n"
"}\n"
"if\n"
"pop\n"
"dup\n"
"0 lt\n"
"{\n"
"dup\n"
"inrht\n"
"mul\n"
"neg\n"
"/xadrht\n"
"exch def\n"
"} if\n"
"dup\n"
"0 gt\n"
"{\n"
"dup\n"
"inrht\n"
"mul\n"
"/xadlft\n"
"exch def\n"
"} if\n"
"pop\n"
"/outflag 1 def\n"
"}\n"
"{ pop pop}\n"
"ifelse\n"
"/inflag 0 def\n"
"/inrht 0 def\n"
"/intop 0 def\n"
"} bind def	\n"
"/Mboxout {\n"
"outflag\n"
"1\n"
"eq\n"
"{\n"
"4 -1\n"
"roll\n"
"xadlft\n"
"leadjust\n"
"add\n"
"sub\n"
"4 1 roll\n"
"3 -1\n"
"roll\n"
"yadbot\n"
"leadjust\n"
"add\n"
"sub\n"
"3 1\n"
"roll\n"
"exch\n"
"xadrht\n"
"leadjust\n"
"add\n"
"add\n"
"exch\n"
"yadtop\n"
"leadjust\n"
"add\n"
"add\n"
"/outflag 0 def\n"
"/xadlft 0 def\n"
"/yadbot 0 def\n"
"/xadrht 0 def\n"
"/yadtop 0 def\n"
"} if\n"
"} bind def\n"
"/leadjust {\n"
"(m) stringwidth pop\n"
".5 mul\n"
"} bind def\n"
"/Mrotcheck {\n"
"dup\n"
"90\n"
"eq\n"
"{\n"
"yadbot\n"
"/yadbot\n"
"xadrht\n"
"def	\n"
"/xadrht\n"
"yadtop\n"
"def\n"
"/yadtop\n"
"xadlft\n"
"def\n"
"/xadlft\n"
"exch\n"
"def\n"
"}\n"
"if\n"
"dup\n"
"cos\n"
"1 index\n"
"sin\n"
"Checkaux\n"
"dup\n"
"cos\n"
"1 index\n"
"sin neg\n"
"exch\n"
"Checkaux\n"
"3 1 roll\n"
"pop pop\n"
"} bind def\n"
"/Checkaux {\n"
"4 index\n"
"exch\n"
"4 index\n"
"mul\n"
"3 1 roll\n"
"mul add\n"
"4 1 roll\n"
"} bind def\n"
"/Mboxrot {\n"
"Mrot\n"
"90 eq\n"
"{\n"
"brotaux\n"
"4 2\n"
"roll\n"
"}\n"
"if\n"
"Mrot\n"
"180 eq\n"
"{\n"
"4 2\n"
"roll\n"
"brotaux\n"
"4 2\n"
"roll\n"
"brotaux\n"
"}	\n"
"if\n"
"Mrot\n"
"270 eq\n"
"{\n"
"4 2\n"
"roll\n"
"brotaux\n"
"}\n"
"if\n"
"} bind def\n"
"/brotaux {\n"
"neg\n"
"exch\n"
"neg\n"
"} bind def\n"
"/Mabsproc {\n"
"0\n"
"matrix defaultmatrix\n"
"dtransform idtransform\n"
"dup mul exch\n"
"dup mul\n"
"add sqrt\n"
"} bind def\n"
"/Mabswid {\n"
"Mabsproc\n"
"setlinewidth	\n"
"} bind def\n"
"/Mabsdash {\n"
"exch\n"
"[\n"
"exch\n"
"{\n"
"Mabsproc\n"
"}\n"
"forall\n"
"]\n"
"exch\n"
"setdash\n"
"} bind def\n"
"\n"
"%MBeginOrig start coordinates in user coordinates\n"
"/MBeginOrig { Momatrix concat} bind def\n"
"\n"
"%MEndOrig start coordinates in user coordinates\n"
"/MEndOrig { Mgmatrix setmatrix} bind def\n"
"\n"
"/sampledsound where\n"
"{ pop}\n"
"{ /sampledsound {\n"
"exch\n"
"pop\n"
"exch\n"
"5 1 roll\n"
"mul\n"
"4 idiv\n"
"mul\n"
"2 idiv\n"
"exch pop\n"
"exch\n"
"/Mtempproc exch def\n"
"{ Mtempproc pop}\n"
"repeat\n"
"} bind def\n"
"} ifelse\n"
"/g { setgray} bind def\n"
"/k { setcmykcolor} bind def\n"
"/m { moveto} bind def\n"
"/p { gsave} bind def\n"
"/r { setrgbcolor} bind def\n"
"/w { setlinewidth} bind def\n"
"/C { curveto} bind def\n"
"/F { fill} bind def\n"
"/L { lineto} bind def\n"
"/P { grestore} bind def\n"
"/s { stroke} bind def\n"
"/setcmykcolor where\n"
"{ pop}\n"
"{ /setcmykcolor {\n"
"4 1\n"
"roll\n"
"[\n"
"4 1 \n"
"roll\n"
"]\n"
"{\n"
"1 index\n"
"sub\n"
"1\n"
"sub neg\n"
"dup\n"
"0\n"
"lt\n"
"{\n"
"pop\n"
"0\n"
"}\n"
"if\n"
"dup\n"
"1\n"
"gt\n"
"{\n"
"pop\n"
"1\n"
"}\n"
"if\n"
"exch\n"
"} forall\n"
"pop\n"
"setrgbcolor\n"
"} bind def\n"
"} ifelse\n"
"/Mcharproc\n"
"{\n"
"currentfile\n"
"(x)\n"
"readhexstring\n"
"pop\n"
"0 get\n"
"exch\n"
"div\n"
"} bind def\n"
"/Mshadeproc\n"
"{\n"
"dup\n"
"3 1\n"
"roll\n"
"{\n"
"dup\n"
"Mcharproc\n"
"3 1\n"
"roll\n"
"} repeat\n"
"1 eq\n"
"{\n"
"setgray\n"
"}\n"
"{\n"
"3 eq\n"
"{\n"
"setrgbcolor\n"
"}\n"
"{\n"
"setcmykcolor\n"
"} ifelse\n"
"} ifelse\n"
"} bind def\n"
"/Mrectproc\n"
"{\n"
"3 index\n"
"2 index\n"
"moveto\n"
"2 index\n"
"3 -1\n"
"roll\n"
"lineto\n"
"dup\n"
"3 1\n"
"roll\n"
"lineto\n"
"lineto\n"
"fill\n"
"} bind def\n"
"/Mcolorimage\n"
"{\n"
"7 1\n"
"roll\n"
"pop\n"
"pop\n"
"matrix\n"
"invertmatrix\n"
"concat\n"
"2 exch exp\n"
"1 sub\n"
"3 1 roll\n"
"1 1\n"
"2 index\n"
"{\n"
"1 1\n"
"4 index\n"
"{\n"
"dup\n"
"1 sub\n"
"exch\n"
"2 index\n"
"dup\n"
"1 sub\n"
"exch\n"
"7 index\n"
"9 index\n"
"Mshadeproc\n"
"Mrectproc\n"
"} for\n"
"pop\n"
"} for\n"
"pop pop pop pop\n"
"} bind def\n"
"/Mimage\n"
"{\n"
"pop\n"
"matrix\n"
"invertmatrix\n"
"concat\n"
"2 exch exp\n"
"1 sub\n"
"3 1 roll\n"
"1 1\n"
"2 index\n"
"{\n"
"1 1\n"
"4 index\n"
"{\n"
"dup\n"
"1 sub\n"
"exch\n"
"2 index\n"
"dup\n"
"1 sub\n"
"exch\n"
"7 index\n"
"Mcharproc\n"
"setgray\n"
"Mrectproc\n"
"} for\n"
"pop\n"
"} for\n"
"pop pop pop\n"
"} bind def\n";
