%%
%% Definition of local variables for Topaz
%%
%%%%BeginProlog

/TopazDict 150 dict def
/reencwindict 100 dict def

TopazDict begin

%%
%% definition of constants
%%

/PAPERX 0 def
/PAPERY 0 def
/PENRED 0 def
/PENGREEN 0 def
/PENBLUE 0 def
/BRUSHRED 0 def
/BRUSHGREEN 0 def
/BRUSHBLUE 0 def
/NULLPEN 0 def
/NULLBRUSH 1 def
/CFONTFACE /Times-Roman def
/CFONTSIZE 11 def
/CFONTESCAPE 0 def


%%
%% definition of gdi primitives
%%

/SavePage {/Others save def} bind def
/RestorePage {Others restore} bind def
/StartPage {gsave} bind def
/EndPage {grestore} bind def

/M {moveto} bind def
/L {lineto} bind def
/ACT {arcto} bind def
/ARC {arc} bind def
/GSAVE {gsave} bind def
/GREST {grestore} bind def
/TRA {translate} bind def
/ROT {rotate} bind def
/BGP {newpath} bind def
/SRP {NULLPEN 1 eq {GSAVE newpath GREST} {GSAVE PENRED PENGREEN PENBLUE setrgbcolor stroke GREST} ifelse} bind def
/CLP {closepath} bind def
/FLP {NULLBRUSH 1 eq {GSAVE newpath GREST} {GSAVE BRUSHRED BRUSHGREEN BRUSHBLUE setrgbcolor fill GREST} ifelse} bind def

/PAI {/PAPERY exch def /PAPERX exch def} bind def

/SPC {/PENBLUE exch def /PENGREEN exch def /PENRED exch def} bind def
/SBC {/BRUSHBLUE exch def /BRUSHGREEN exch def /BRUSHRED exch def} bind def
/SNP {/NULLPEN exch def} bind def
/SNB {/NULLBRUSH exch def}  bind def


/SCP {BGP M L L L CLP clip} bind def
/RCP {initclip} bind def
/RET {BGP M L L L CLP FLP SRP} bind def
/RRT {BGP M ACT 4 {pop} repeat ACT 4 {pop} repeat ACT 4 {pop} repeat ACT 4 {pop} repeat CLP FLP SRP} bind def
/ELS {GSAVE TRA /cmtx matrix currentmatrix def scale BGP ARC CLP cmtx setmatrix FLP SRP GREST} bind def

/TO {GSAVE TRA CFONTESCAPE ROT 0 0 M PENRED PENGREEN PENBLUE setrgbcolor show GREST} bind def

/LSY {setlinejoin setlinecap setlinewidth} bind def


%%
%% remap encoding for Unix
%%


/ReEncodeQ
{	reencwindict begin
	/newcodesandnames exch def
	/newfontname exch def
	/basefontname exch def
	
	
	/basefontdict basefontname findfont def
	
	/newfont basefontdict maxlength dict def
	
	basefontdict
	{exch dup /FID ne
		{dup /Encoding eq
			{exch dup length array copy
				newfont 3 1 roll put}
			{exch newfont 3 1 roll put}
			ifelse
		}
		{pop pop}
		ifelse			
	}forall
	
	newfont /FontName newfontname put
	newcodesandnames aload pop
	
	newcodesandnames length 2 idiv
	{ newfont /Encoding get 3 1 roll put}
	repeat
	newfontname newfont definefont pop
	end
}bind def

/Qvec[ 0/grave 1/acute 2/circumflex 3/tilde 4/macron 5/breve 6/dotaccent 7/dieresis 8/ring 9/cedilla 10/hungarumlaut 11/ogonek 12/caron 13/dotlessi 39/quotesingle 45/minus 96/grave 124/bar 130/quotesinglbase 131/florin 132/quotedblbase 133/ellipsis 134/dagger 135/daggerdbl 136/circumflex 137/perthousand 138/Scaron 139/guilsinglleft 140/OE 145/quoteleft 146/quoteright 147/quotedblleft 148/quotedblright 149/bullet 150/endash 151/emdash 152/tilde 153/trademark 154/scaron 155/guilsinglright 156/oe 159/Ydieresis 160/space 161/exclamdown 164/currency 165/yen 166/brokenbar 167/section 168/dieresis 169/copyright 170/ordfeminine 171/guillemotleft 172/logicalnot 173/hyphen 174/registered 175/macron 176/degree 177/plusminus 178/twosuperior 179/threesuperior 180/acute 181/mu 182/paragraph 183/periodcentered 184/cedilla 185/onesuperior 186/ordmasculine 187/guillemotright 188/onequarter 189/onehalf 190/threequarters 191/questiondown 192/Agrave 193/Aacute 194/Acircumflex 195/Atilde 196/Adieresis 197/Aring 198/AE 199/Ccedilla 200/Egrave 201/Eacute 202/Ecircumflex 203/Edieresis 204/Igrave 205/Iacute 206/Icircumflex 207/Idieresis 208/Eth 209/Ntilde 210/Ograve 211/Oacute 212/Ocircumflex 213/Otilde 214/Odieresis 215/multiply 216/Oslash 217/Ugrave 218/Uacute 219/Ucircumflex 220/Udieresis 221/Yacute 222/Thorn 223/germandbls 224/agrave 225/aacute 226/acircumflex 227/atilde 228/adieresis 229/aring 230/ae 231/ccedilla 232/egrave 233/eacute 234/ecircumflex 235/edieresis 236/igrave 237/iacute 238/icircumflex 239/idieresis 240/eth 241/ntilde 242/ograve 243/oacute 244/ocircumflex 245/otilde 246/odieresis 247/divide 248/oslash 249/ugrave 250/uacute 251/ucircumflex 252/udieresis 253/yacute 254/thorn 255/ydieresis ]def

/Times-Roman            /Times-Roman-Q              Qvec ReEncodeQ 
/Times-Italic           /Times-Italic-Q             Qvec ReEncodeQ 
/Times-Bold             /Times-Bold-Q               Qvec ReEncodeQ 
/Times-BoldItalic       /Times-BoldItalic-Q         Qvec ReEncodeQ 
/Helvetica              /Helvetica-Q                Qvec ReEncodeQ 
/Helvetica-Oblique      /Helvetica-Oblique-Q        Qvec ReEncodeQ 
/Helvetica-Bold         /Helvetica-Bold-Q           Qvec ReEncodeQ 
/Helvetica-BoldOblique  /Helvetica-BoldOblique-Q    Qvec ReEncodeQ 
/Courier                /Courier-Q                  Qvec ReEncodeQ 
/Courier-Oblique        /Courier-Oblique-Q          Qvec ReEncodeQ 
/Courier-Bold           /Courier-Bold-Q             Qvec ReEncodeQ 
/Courier-BoldOblique    /Courier-BoldOblique-Q      Qvec ReEncodeQ 

end
%%%%EndProlog