} {				FrameSepIs FMcyan eq {					getCyanScreen FMSetScreen				} {					FrameSepIs FMmagenta eq {						getMagentaScreen FMSetScreen					} {						FrameSepIs FMyellow eq {							getYellowScreen FMSetScreen						} {							getBlackScreen FMSetScreen						} ifelse					} ifelse				} ifelse			} ifelse		} ifelse	} ifelse } bind defend% End of Color separation code%	/FMDOCUMENT { % xscale yscale edown negative paperwidth paperheight manfeed numcopies numfonts	array /FMfonts exch def % Why isn't this in FrameDict???	/#copies exch def	FrameDict begin	0 ne /manualfeed exch def	/paperheight exch def	/paperwidth exch def	0 ne /fMNegative exch def % invert page	0 ne /edown exch def % flip page along y axis	/yscale exch def	/xscale exch def	fMLevel1 {		manualfeed {setmanualfeed} if		/FMdicttop countdictstack 1 add def % some PS's leave junk on dict ...		/FMoptop count def % ...or on operand stack...		setpapername % This stuff may alter the transfer/screen/angle		manualfeed {true} {papersize} ifelse % true->more work to do		{manualpapersize} {false} ifelse % true->more work to do		{desperatepapersize} {false} ifelse % true->failed completely		{papersizefailure} if		count -1 FMoptop {pop pop} for		countdictstack -1 FMdicttop {pop end} for %...if tray not installed		}		{2 dict		 dup /PageSize [paperwidth paperheight] put		 manualfeed {dup /ManualFeed manualfeed put} if		 {setpagedevice} stopped {papersizefailure} if		}	ifelse % fMLevel1		FMPColor {		currentcolorscreen			cvlit /orgproc exch def				  /organgle exch def 				  /orgfreq exch def			cvlit /orgbproc exch def				  /orgbangle exch def 				  /orgbfreq exch def			cvlit /orggproc exch def				  /orggangle exch def 				  /orggfreq exch def			cvlit /orgrproc exch def				  /orgrangle exch def 				  /orgrfreq exch def			currentcolortransfer 			fMNegative {				1 1 4 { 					pop { 1 exch sub } fmConcatProcs 4 1 roll				} for				4 copy				setcolortransfer			} if			cvlit /orgxfer exch def			cvlit /orgbxfer exch def			cvlit /orggxfer exch def			cvlit /orgrxfer exch def	} {		currentscreen 			cvlit /orgproc exch def				  /organgle exch def 				  /orgfreq exch def				  		currenttransfer 		fMNegative {			{ 1 exch sub } fmConcatProcs			dup settransfer		} if 		cvlit /orgxfer exch def	} ifelse	end % FrameDict} def % only used at startup, so no bind/FMBEGINPAGE { % pagewidth pageheight landscape color-arrays count	FrameDict begin % for the whole page...	/pagesave save def	3.86 setmiterlimit	/landscape exch 0 ne def	landscape { % check for landscape		90 rotate 0 exch dup /pwid exch def neg translate pop 	}{		pop /pwid exch def	} ifelse	edown { [-1 0 0 1 pwid 0] concat } if% paint the whole page in "white".  If the page is inverted, then% this will actually paint our black background	0 0 moveto paperwidth 0 lineto paperwidth paperheight lineto 	0 paperheight lineto 0 0 lineto 1 setgray fill	xscale yscale scale	/orgmatrix matrix def	gsave % for CLIP} def % only used infrequently, so no bind/FMENDPAGE {	grestore % for CLIP	pagesave restore	end % FrameDict	showpage	} def % only used infrequently, so no bind/FMFONTDEFINE { % fontindex nonstd_encoding fontname -- 	FrameDict begin	findfont % fontindex nonstd_encoding font	ReEncode % fontindex font'	1 index exch % fontindex fontindex font'	definefont % fontindex font"	FMfonts 3 1 roll %  FMfonts fontindex font"	put	end % FrameDict	} def % only used infrequently, so no bind/FMFILLS {	FrameDict begin dup	array /fillvals exch def	dict /patCache exch def	end % framedict	} def % Only called once, so no bind/FMFILL {	FrameDict begin	 fillvals 3 1 roll put	end % FrameDict	} def % only used infrequently, so no bind% Set things to a known, quiescent state, for when we switch to another writer/FMNORMALIZEGRAPHICS { 	newpath	1 setlinewidth	0 setlinecap	0 0 0 sethsbcolor	0 setgray % Not FMsetgray; only called outside of our environment!	} bind def/FMBEGINEPSF { % <theta> llx lly urx ury fw fh fx fy	end % FrameDict	/FMEPSF save def % in userdict	/showpage {} def % this def is in userdict%- See Adobe's "PostScript Language Reference Manual, 2nd Edition", page 714.%- "...the following operators MUST NOT be used in an EPS file:" (emphasis ours)	/banddevice {(banddevice) FMBADEPSF} def	/clear {(clear) FMBADEPSF} def	/cleardictstack {(cleardictstack) FMBADEPSF} def % FMBADEPSF knows this is the longest!	/copypage {(copypage) FMBADEPSF} def	/erasepage {(erasepage) FMBADEPSF} def	/exitserver {(exitserver) FMBADEPSF} def	/framedevice {(framedevice) FMBADEPSF} def	/grestoreall {(grestoreall) FMBADEPSF} def	/initclip {(initclip) FMBADEPSF} def	/initgraphics {(initgraphics) FMBADEPSF} def%	/initmatrix {(initmatrix) FMBADEPSF} def	% Aldus Freehand 4.0 epsf uses this harmlessly <Gus 4/26/95>	/quit {(quit) FMBADEPSF} def	/renderbands {(renderbands) FMBADEPSF} def	/setglobal {(setglobal) FMBADEPSF} def	/setpagedevice {(setpagedevice) FMBADEPSF} def	/setshared {(setshared) FMBADEPSF} def	/startjob {(startjob) FMBADEPSF} def	/lettertray {(lettertray) FMBADEPSF} def	/letter {(letter) FMBADEPSF} def	/lettersmall {(lettersmall) FMBADEPSF} def	/11x17tray {(11x17tray) FMBADEPSF} def	/11x17 {(11x17) FMBADEPSF} def	/ledgertray {(ledgertray) FMBADEPSF} def	/ledger {(ledger) FMBADEPSF} def	/legaltray {(legaltray) FMBADEPSF} def	/legal {(legal) FMBADEPSF} def	/statementtray {(statementtray) FMBADEPSF} def	/statement {(statement) FMBADEPSF} def	/executivetray {(executivetray) FMBADEPSF} def	/executive {(executive) FMBADEPSF} def	/a3tray {(a3tray) FMBADEPSF} def	/a3 {(a3) FMBADEPSF} def	/a4tray {(a4tray) FMBADEPSF} def	/a4 {(a4) FMBADEPSF} def	/a4small {(a4small) FMBADEPSF} def	/b4tray {(b4tray) FMBADEPSF} def	/b4 {(b4) FMBADEPSF} def	/b5tray {(b5tray) FMBADEPSF} def	/b5 {(b5) FMBADEPSF} def	FMNORMALIZEGRAPHICS % in case we're in a strange state	[/fy /fx /fh /fw /ury /urx /lly /llx] {exch def} forall % neat trick	fx fw 2 div add fy fh 2 div add  translate	rotate	fw 2 div neg fh 2 div neg translate	fw urx llx sub div fh ury lly sub div scale % then scale	llx neg lly neg translate % then compensate for LL offset 	/FMdicttop countdictstack 1 add def % high-water mark of dict stack	/FMoptop count def % tricky! "/FMoptop" on stack	} bind def/FMENDEPSF {	count -1 FMoptop {pop pop} for % clear EPS junk from operand stack	countdictstack -1 FMdicttop {pop end} for % ditto for dict stack	FMEPSF restore	FrameDict begin % for the whole page...	} bind defFrameDict begin % put most defs here/setmanualfeed {%%BeginFeature *ManualFeed True	 statusdict /manualfeed true put%%EndFeature	} bind def/max {2 copy lt {exch} if pop} bind def/min {2 copy gt {exch} if pop} bind def/inch {72 mul} def/pagedimen { % name width height	paperheight sub abs 16 lt exch % 16pt is an arbitrary slop amount	paperwidth sub abs 16 lt and	{/papername exch def} {pop} ifelse	} bind def/setpapername { % Already set up: paperwidth paperheight and manualfeed	/papersizedict 14 dict def % one for /papername, one for /unknown	papersizedict begin	/papername /unknown def % in case no match		/Letter 8.5 inch 11.0 inch pagedimen		/LetterSmall 7.68 inch 10.16 inch pagedimen		/Tabloid 11.0 inch 17.0 inch pagedimen		/Ledger 17.0 inch 11.0 inch pagedimen		/Legal 8.5 inch 14.0 inch pagedimen		/Statement 5.5 inch 8.5 inch pagedimen		/Executive 7.5 inch 10.0 inch pagedimen		/A3 11.69 inch 16.5 inch pagedimen		/A4 8.26 inch 11.69 inch pagedimen		/A4Small 7.47 inch 10.85 inch pagedimen		/B4 10.125 inch 14.33 inch pagedimen		/B5 7.16 inch 10.125 inch pagedimen	end	} bind def/papersize {	papersizedict begin		/Letter {lettertray letter} def		/LetterSmall {lettertray lettersmall} def		/Tabloid {11x17tray 11x17} def		/Ledger {ledgertray ledger} def		/Legal {legaltray legal} def		/Statement {statementtray statement} def		/Executive {executivetray executive} def		/A3 {a3tray a3} def		/A4 {a4tray a4} def		/A4Small {a4tray a4small} def		/B4 {b4tray b4} def		/B5 {b5tray b5} def		/unknown {unknown} def	papersizedict dup papername known {papername} {/unknown} ifelse get	end	statusdict begin stopped end % return true if more work to do	} bind def/manualpapersize {	papersizedict begin		/Letter {letter} def		/LetterSmall {lettersmall} def		/Tabloid {11x17} def		/Ledger {ledger} def		/Legal {legal} def		/Statement {statement} def		/Executive {executive} def		/A3 {a3} def		/A4 {a4} def		/A4Small {a4small} def		/B4 {b4} def		/B5 {b5} def		/unknown {unknown} def	papersizedict dup papername known {papername} {/unknown} ifelse get	end	stopped % return true if more work to do	} bind def/desperatepapersize {	statusdict /setpageparams known		{		paperwidth paperheight 0 1 		statusdict begin		{setpageparams} stopped % return true iff failed		end		} {true} ifelse % return true iff failed	} bind def/papersizefailure {	FMAllowPaperSizeMismatch not		{(The requested paper size is not available in any currently-installed tray)(Edit the PS file to "FMAllowPaperSizeMismatch true" to use default tray)		 FMFAILURE } if	} def%% Font re-encoding to include diacritics% /DiacriticEncoding [/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef/.notdef /.notdef /.notdef /.notdef /space /exclam /quotedbl/numbersign /dollar /percent /ampersand /quotesingle /parenleft/parenright /asterisk /plus /comma /hyphen /period /slash /zero /one/two /three /four /five /six /seven /eight /nine /colon /semicolon/less /equal /greater /question /at /A /B /C /D /E /F /G /H /I /J /K/L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash/bracketright /asciicircum /underscore /grave /a /b /c /d /e /f /g /h/i /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z /braceleft /bar/braceright /asciitilde /.notdef /Adieresis /Aring /Ccedilla /Eacute/Ntilde /Odieresis /Udieresis /aacute /agrave /acircumflex /adieresis/atilde /aring /ccedilla /eacute /egrave /ecircumflex /edieresis/iacute /igrave /icircumflex /idieresis /ntilde /oacute /ograve/ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex/udieresis /dagger /.notdef /cent /sterling /section /bullet/paragraph /germandbls /registered /copyright /trademark /acute/dieresis /.notdef /AE /Oslash /.notdef /.notdef /.notdef /.notdef/yen /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef/ordfeminine /ordmasculine /.notdef /ae /oslash /questiondown/exclamdown /logicalnot /.notdef /florin /.notdef /.notdef/guillemotleft /guillemotright /ellipsis /.notdef /Agrave /Atilde/Otilde /OE /oe /endash /emdash /quotedblleft /quotedblright/quoteleft /quoteright /.notdef /.notdef /ydieresis /Ydieresis/fraction /currency /guilsinglleft /guilsinglright /fi /fl /daggerdbl/periodcentered /quotesinglbase /quotedblbase /perthousand/Acircumflex /Ecircumflex /Aacute /Edieresis /Egrave /Iacute/Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex /.notdef /Ograve/Uacute /Ucircumflex /Ugrave /dotlessi /circumflex /tilde /macron/breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron] def/ReEncode { % nonstd_encoding font -- reencodedfont	dup % nonstd_encoding font font	length % nonstd_encoding font dictlength	dict begin % nonstd_encoding font % currentdict = newdict	{% forall % forall is over font to be copied	1 index /FID ne % skip FID		{def} % defs go into newfontdict which is currentdict		{pop pop} ifelse % copy all keys including /Encoding	} forall % nonstd_encoding	0 eq {/Encoding DiacriticEncoding def} if % --	currentdict % push a copy of the copied font dict onto operand stack	end % font' % before popping it off dictionary stack	} bind defFMPColor 	% setup procs for color printing	{	/BEGINBITMAPCOLOR { % iw, ih, width, height, theta, x y 		BITMAPCOLOR} def	/BEGINBITMAPCOLORc { % iw, ih, width, height, theta, x y 		BITMAPCOLORc} def	/BEGINBITMAPTRUECOLOR { 		BITMAPTRUECOLOR } def	/BEGINBITMAPTRUECOLORc { 		BITMAPTRUECOLORc } def	/BEGINBITMAPCMYK { 		BITMAPCMYK } def	/BEGINBITMAPCMYKc { 		BITMAPCMYKc } def	}	% setup procs for B&W printing	{	/BEGINBITMAPCOLOR { % iw, ih, width, height, theta, x y 		BITMAPGRAY} def	/BEGINBITMAPCOLORc { % iw, ih, width, height, theta, x y 		BITMAPGRAYc} def	/BEGINBITMAPTRUECOLOR { 		BITMAPTRUEGRAY } def	/BEGINBITMAPTRUECOLORc { 		BITMAPTRUEGRAYc } def	/BEGINBITMAPCMYK { 		BITMAPCMYKGRAY } def	/BEGINBITMAPCMYKc { 		BITMAPCMYKGRAYc } def	}ifelse/K { % c m y k r g b SEPARATION	FMPrintAllColorsAsBlack {		dup 1 eq 2 index 1 eq and 3 index 1 eq and not			{7 {pop} repeat 0 0 0 1 0 0 0} if	} if 	FrameCurColors astore 	pop combineColor} bind def%% graymode is true if we are just doing gray fills, this way do not keep calling% setscreen. I don't know what the cost is on calling setscreen with defaults, but% this is easy to keep track of, and we know for sure we aren't wasting cycles.% if graymode is false and fMLevel1 is false, then we are using Level 2 patterns.%/graymode true def% used by level 1 patterns% defaultflip matrixentry fmGetFlit -> eith -1 or 1fMLevel1 {	/fmGetFlip {		fMatrix2 exch get mul 0 lt { -1 } { 1 } ifelse	} FmBD} if/setPatternMode {	fMLevel1 {		2 index patScreenDict exch known {			pop pop			patScreenDict exch get aload pop % angle spot fspot gray mult			freq 								% freq			mul									% times multiplier			5 2 roll							% angle spot fspot gray mult freq -> gray freq angle spot fspot			fMatrix2 currentmatrix 1 get 0 ne {				3 -1 roll 90 add 3 1 roll 		% landscape				sflipx 1 fmGetFlip sflipy 2 fmGetFlip neg mul			} {  								% portrait     				sflipx 0 fmGetFlip sflipy 3 fmGetFlip mul 			} ifelse			0 lt {exch pop} {pop} ifelse 		% take regular or flipped spot function			fMNegative { 				{neg} fmConcatProcs 			% invert spot function			} if			bind			% we need to bypass any screen filter and go directly to systemdict			% to avoid problems with Kodak Precision calibration software			% <Gus 9/13/93>			systemdict /setscreen get exec		% leave graylevel on stack			/FrameCurGray exch def		} {