%!PS-Adobe-3.0%%BoundingBox: (atend)%%Pages: (atend)%%PageOrder: (atend)%%DocumentFonts: (atend)%%Creator: Frame 5.0%%DocumentData: Clean7Bit%%EndComments%%BeginProlog%% Frame ps_prolog 5.0, for use with Frame 5.0 products% This ps_prolog file is Copyright (c) 1986-1995 Frame Technology% Corporation.  All rights reserved.  This ps_prolog file may be% freely copied and distributed in conjunction with documents created% using FrameMaker, FrameMaker/SGML and FrameViewer as long as this % copyright notice is preserved.%% FrameMaker users specify the proper paper size for each print job in the% "Print" dialog's "Printer Paper Size" "Width" and "Height~ fields.  If the% printer that the PS file is sent to does not support the requested paper% size, or if there is no paper tray of the proper size currently installed, % then the job will not be printed.  The following flag, if set to true, will% cause the job to print on the default paper in such cases./FMAllowPaperSizeMismatch            false def%% Frame products normally print colors as their true color on a color printer% or as shades of gray, based on luminance, on a black-and white printer. The% following flag, if set to true, forces all non-white colors to print as pure% black. This has no effect on bitmap images./FMPrintAllColorsAsBlack             false def%% Frame products can either set their own line screens or use a printer's % default settings. Three flags below control this separately for no % separations, spot separations and process separations. If a flag% is true, then the default printer settings will not be changed. If it is% false, Frame products will use their own settings from a table based on% the printer's resolution./FMUseDefaultNoSeparationScreen      true  def/FMUseDefaultSpotSeparationScreen    true  def/FMUseDefaultProcessSeparationScreen false def%% For any given PostScript printer resolution, Frame products have two sets of % screen angles and frequencies for printing process separations, which are % recomended by Adobe. The following variable chooses the higher frequencies% when set to true or the lower frequencies when set to false. This is only% effective if the appropriate FMUseDefault...SeparationScreen flag is false./FMUseHighFrequencyScreens true def%% The following is a set of predefined optimal frequencies and angles for various% common dpi settings. This is taken from "Advances in Color Separation Using% PostScript Software Technology," from Adobe Systems (3/13/89 P.N. LPS 0043)% and corrolated with information which is in various PPD (4.0) files.%% The "dpiranges" figure is the minimum dots per inch device resolution which% can support this setting. The "low" and "high" values are controlled by the% setting of the FMUseHighFrequencyScreens flag above. The "TDot" flags control% the use of the "Yellow Triple Dot" feature whereby the frequency id divided by% three, but the dot function is "trippled" giving a block of 3x3 dots per cell.%% PatFreq is a compromise pattern frequency for ps Level 2 printers which is close% to the ideal WYSIWYG pattern frequency of 9 repetitions/inch but does not beat% (too badly) against the screen frequencies of any separations for that DPI./dpiranges   [  2540    2400    1693     1270    1200     635      600      0      ] def/CMLowFreqs  [ 100.402  94.8683 89.2289 100.402  94.8683  66.9349  63.2456 47.4342 ] def/YLowFreqs   [  95.25   90.0    84.65    95.25   90.0     70.5556  66.6667 50.0    ] def/KLowFreqs   [  89.8026 84.8528 79.8088  89.8026 84.8528  74.8355  70.7107 53.033  ] def/CLowAngles  [  71.5651 71.5651 71.5651 71.5651  71.5651  71.5651  71.5651 71.5651 ] def/MLowAngles  [  18.4349 18.4349 18.4349 18.4349  18.4349  18.4349  18.4349 18.4349 ] def/YLowTDot    [  true    true    false    true    true     false    false   false   ] def/CMHighFreqs [ 133.87  126.491 133.843  108.503 102.523  100.402   94.8683 63.2456 ] def/YHighFreqs  [ 127.0   120.0   126.975  115.455 109.091   95.25    90.0    60.0    ] def/KHighFreqs  [ 119.737 113.137 119.713  128.289 121.218   89.8026  84.8528 63.6395 ] def/CHighAngles [  71.5651 71.5651 71.5651  70.0169 70.0169  71.5651  71.5651 71.5651 ] def/MHighAngles [  18.4349 18.4349 18.4349  19.9831 19.9831  18.4349  18.4349 18.4349 ] def/YHighTDot   [  false   false   true     false   false    true     true    false   ] def/PatFreq     [	10.5833 10.0     9.4055  10.5833 10.0	  10.5833  10.0	   9.375   ] def%% PostScript Level 2 printers contain an "Accurate Screens" feature which can% improve process separation rendering at the expense of compute time. This % flag is ignored by PostScript Level 1 printers./FMUseAcccurateScreens true def%% The following PostScript procedure defines the spot function that Frame% products will use for process separations. You may un-comment-out one of% the alternative functions below, or use your own.%% Dot function/FMSpotFunction {abs exch abs 2 copy add 1 gt 		{1 sub dup mul exch 1 sub dup mul add 1 sub }		{dup mul exch dup mul add 1 exch sub }ifelse } def%% Line function% /FMSpotFunction { pop } def%% Elipse function% /FMSpotFunction { dup 5 mul 8 div mul exch dup mul exch add %		sqrt 1 exch sub } def%%/FMversion (5.0) def /fMLevel1 /languagelevel where {pop languagelevel} {1} ifelse 2 lt def/FMPColor	fMLevel1 {		false		/colorimage where {pop pop true} if	} {		true	} ifelsedef/FrameDict 400 dict def systemdict /errordict known not {/errordict 10 dict def		errordict /rangecheck {stop} put} if% The readline in PS 23.0 doesn't recognize cr's as nl's on AppleTalkFrameDict /tmprangecheck errordict /rangecheck get put errordict /rangecheck {FrameDict /bug true put} put FrameDict /bug false put mark % Some PS machines read past the CR, so keep the following 3 lines together!currentfile 5 string readline000000000000cleartomark errordict /rangecheck FrameDict /tmprangecheck get put FrameDict /bug get { 	/readline {		/gstring exch def		/gfile exch def		/gindex 0 def		{			gfile read pop 			dup 10 eq {exit} if 			dup 13 eq {exit} if 			gstring exch gindex exch put 			/gindex gindex 1 add def 		} loop		pop 		gstring 0 gindex getinterval true 		} bind def	} if/FMshowpage /showpage load def/FMquit /quit load def/FMFAILURE { 	dup = flush 	FMshowpage 	/Helvetica findfont 12 scalefont setfont	72 200 moveto show	72 220 moveto show	FMshowpage 	FMquit 	} def /FMVERSION {	FMversion ne {		(Frame product version does not match ps_prolog!  Check installation;)		(also check ~/fminit and ./fminit for old versions) FMFAILURE		} if	} def /FMBADEPSF { 	(Adobe's PostScript Language Reference Manual, 2nd Edition, section H.2.4)	(says your EPS file is not valid, as it calls X              )	dup dup (X) search pop exch pop exch pop length 	5 -1 roll 	putinterval 	FMFAILURE	} def/fmConcatProcs	{	/proc2 exch cvlit def/proc1 exch cvlit def/newproc proc1 length proc2 length add array def	newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval newproc cvx}defFrameDict begin [	/ALDsave	/FMdicttop	/FMoptop	/FMpointsize	/FMsaveobject	/b	/bitmapsave	/blut	/bpside	/bs	/bstring	/bwidth	/c	/cf	/cs	/cynu	/depth	/edown	/fh	/fillvals	/fw	/fx	/fy	/g	/gfile	/gindex	/grnt	/gryt	/gstring	/height	/hh	/i	/im	/indx	/is	/k	/kk	/landscape	/lb	/len	/llx	/lly	/m	/magu	/manualfeed	/n	/offbits	/onbits	/organgle	/orgbangle	/orgbfreq	/orgbproc	/orgbxfer	/orgfreq	/orggangle	/orggfreq	/orggproc	/orggxfer	/orgmatrix	/orgproc	/orgrangle	/orgrfreq	/orgrproc	/orgrxfer	/orgxfer	/pagesave	/paperheight	/papersizedict	/paperwidth	/pos	/pwid	/r	/rad	/redt	/sl	/str	/tran	/u	/urx	/ury	/val	/width	/width	/ws	/ww	/x	/x1	/x2	/xindex	/xpoint	/xscale	/xx	/y	/y1	/y2	/yelu	/yindex	/ypoint	/yscale	/yy] { 0 def } forall/FmBD {bind def} bind defsystemdict /pdfmark known {	/fMAcrobat true def		/FmPD /pdfmark load def			/FmPT /show load def			currentdistillerparams /CoreDistVersion get 2000 ge {					/FmPD2 /pdfmark load def												/FmPA { mark exch /Dest exch 5 3 roll 				/View [ /XYZ null 6 -2 roll FmDC exch pop null] /DEST FmPD 		}FmBD	} {				/FmPD2 /cleartomark load def		/FmPA {pop pop pop}FmBD	} ifelse} {		/fMAcrobat false def	/FmPD /cleartomark load def	/FmPD2 /cleartomark load def	/FmPT /pop load def	/FmPA {pop pop pop}FmBD} ifelse/FmDC {	transform fMDefaultMatrix itransform cvi exch cvi exch}FmBD/FmBx {	dup 3 index lt {3 1 roll exch} if 	1 index 4 index lt {4 -1 roll 3 1 roll exch 4 1 roll} if}FmBD/FMnone 0 def/FMcyan 1 def/FMmagenta 2 def/FMyellow 3 def/FMblack 4 def/FMcustom 5 def/fMNegative false def /FrameSepIs FMnone def /FrameSepBlack 0 def/FrameSepYellow 0 def/FrameSepMagenta 0 def/FrameSepCyan 0 def/FrameSepRed 1 def/FrameSepGreen 1 def/FrameSepBlue 1 def/FrameCurGray 1 def/FrameCurPat null def/FrameCurColors [ 0 0 0 1 0 0 0 ] def /FrameColorEpsilon .001 def	/eqepsilon {			sub dup 0 lt {neg} if	FrameColorEpsilon le} bind def/FrameCmpColorsCMYK { 	2 copy 0 get exch 0 get eqepsilon {		2 copy 1 get exch 1 get eqepsilon {			2 copy 2 get exch 2 get eqepsilon {				3 get exch 3 get eqepsilon			} {pop pop false} ifelse		}{pop pop false} ifelse	} {pop pop false} ifelse} bind def/FrameCmpColorsRGB { 	2 copy 4 get exch 0 get eqepsilon {		2 copy 5 get exch 1 get eqepsilon {			6 get exch 2 get eqepsilon		}{pop pop false} ifelse	} {pop pop false} ifelse} bind def/RGBtoCMYK { 	1 exch sub 	3 1 roll 	1 exch sub 	3 1 roll 	1 exch sub 	3 1 roll 	3 copy 	2 copy 	le { pop } { exch pop } ifelse 	2 copy 	le { pop } { exch pop } ifelse 	dup dup dup 	6 1 roll 	4 1 roll 	7 1 roll 	sub 	6 1 roll 	sub 	5 1 roll 	sub 	4 1 roll } bind def/CMYKtoRGB { 	dup dup 4 -1 roll add 						  	5 1 roll 3 -1 roll add 						  	4 1 roll add 								  	1 exch sub dup 0 lt {pop 0} if 3 1 roll 	  	1 exch sub dup 0 lt {pop 0} if exch 	      	1 exch sub dup 0 lt {pop 0} if exch	  		  } bind def/FrameSepInit {	1.0 RealSetgray} bind def/FrameSetSepColor { 	/FrameSepBlue exch def	/FrameSepGreen exch def	/FrameSepRed exch def	/FrameSepBlack exch def	/FrameSepYellow exch def	/FrameSepMagenta exch def	/FrameSepCyan exch def	/FrameSepIs FMcustom def	setCurrentScreen	} bind def/FrameSetCyan {	/FrameSepBlue 1.0 def	/FrameSepGreen 1.0 def	/FrameSepRed 0.0 def	/FrameSepBlack 0.0 def	/FrameSepYellow 0.0 def	/FrameSepMagenta 0.0 def	/FrameSepCyan 1.0 def	/FrameSepIs FMcyan def	setCurrentScreen	} bind def /FrameSetMagenta {	/FrameSepBlue 1.0 def	/FrameSepGreen 0.0 def	/FrameSepRed 1.0 def	/FrameSepBlack 0.0 def	/FrameSepYellow 0.0 def	/FrameSepMagenta 1.0 def	/FrameSepCyan 0.0 def	/FrameSepIs FMmagenta def	setCurrentScreen} bind def /FrameSetYellow {	/FrameSepBlue 0.0 def	/FrameSepGreen 1.0 def	/FrameSepRed 1.0 def	/FrameSepBlack 0.0 def	/FrameSepYellow 1.0 def	/FrameSepMagenta 0.0 def	/FrameSepCyan 0.0 def	/FrameSepIs FMyellow def	setCurrentScreen} bind def /FrameSetBlack {	/FrameSepBlue 0.0 def	/FrameSepGreen 0.0 def	/FrameSepRed 0.0 def	/FrameSepBlack 1.0 def	/FrameSepYellow 0.0 def	/FrameSepMagenta 0.0 def	/FrameSepCyan 0.0 def	/FrameSepIs FMblack def	setCurrentScreen} bind def /FrameNoSep { 	/FrameSepIs FMnone def	setCurrentScreen} bind def/FrameSetSepColors { 	FrameDict begin	[ exch 1 add 1 roll ]	/FrameSepColors  	exch def end	} bind def/FrameColorInSepListCMYK { 	FrameSepColors {         		exch dup 3 -1 roll        		FrameCmpColorsCMYK        		{ pop true exit } if    	} forall 	dup true ne {pop false} if	} bind def/FrameColorInSepListRGB { 	FrameSepColors {         		exch dup 3 -1 roll        		FrameCmpColorsRGB        		{ pop true exit } if    	} forall 	dup true ne {pop false} if	} bind def/RealSetgray /setgray load def/RealSetrgbcolor /setrgbcolor load def/RealSethsbcolor /sethsbcolor load defend /setgray { 	FrameDict begin	FrameSepIs FMnone eq		{ RealSetgray } 		{ 		FrameSepIs FMblack eq 			{ RealSetgray } 			{ FrameSepIs FMcustom eq 			  FrameSepRed 0 eq and			  FrameSepGreen 0 eq and			  FrameSepBlue 0 eq and {			  	RealSetgray			  } {				1 RealSetgray pop 			  } ifelse			} ifelse		} ifelse	end} bind def/setrgbcolor { 	FrameDict begin	FrameSepIs FMnone eq	{  RealSetrgbcolor }	{		3 copy [ 4 1 roll ] 		FrameColorInSepListRGB		{				FrameSepBlue eq exch 			 	FrameSepGreen eq and exch 			 	FrameSepRed eq and			 	{ 0 } { 1 } ifelse		}		{			FMPColor {				RealSetrgbcolor				currentcmykcolor			} {				RGBtoCMYK			} ifelse			FrameSepIs FMblack eq			{1.0 exch sub 4 1 roll pop pop pop} {			FrameSepIs FMyellow eq			{pop 1.0 exch sub 3 1 roll pop pop} {			FrameSepIs FMmagenta eq			{pop pop 1.0 exch sub exch pop } {			FrameSepIs FMcyan eq			{pop pop pop 1.0 exch sub } 			{pop pop pop pop 1} ifelse } ifelse } ifelse } ifelse 		} ifelse		RealSetgray	} 	ifelse	end} bind def/sethsbcolor {	FrameDict begin	FrameSepIs FMnone eq 	{ RealSethsbcolor } 	{		RealSethsbcolor 		currentrgbcolor  		setrgbcolor 	} 	ifelse	end} bind defFrameDict begin/setcmykcolor where {	pop /RealSetcmykcolor /setcmykcolor load def} {	/RealSetcmykcolor {		4 1 roll		3 { 3 index add 0 max 1 min 1 exch sub 3 1 roll} repeat 		RealSetrgbcolor pop	} bind def} ifelseuserdict /setcmykcolor { 		FrameDict begin		FrameSepIs FMnone eq		{ RealSetcmykcolor } 		{			4 copy [ 5 1 roll ]			FrameColorInSepListCMYK			{				FrameSepBlack eq exch 				FrameSepYellow eq and exch 				FrameSepMagenta eq and exch 				FrameSepCyan eq and 				{ 0 } { 1 } ifelse			}			{				FrameSepIs FMblack eq				{1.0 exch sub 4 1 roll pop pop pop} {