%!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

} ifelse

def

/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 AppleTalk

FrameDict /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 readline

00

0000000000

cleartomark

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

}def

FrameDict 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 def

systemdict /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 def

end

/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 def

FrameDict 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

} ifelse

userdict /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} {

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 put

fMLevel1 {

/patScreenDict 7 dict dup begin

<0f1e3c78f0e1c387> [ 45 { pop } {exch pop} .5 2 sqrt] FmBD

<0f87c3e1f0783c1e> [ 135 { pop } {exch pop} .5 2 sqrt] FmBD

<cccccccccccccccc> [ 0 { pop } dup .5 2 ] FmBD

<ffff0000ffff0000> [ 90 { pop } dup .5 2 ] FmBD

<8142241818244281> [ 45 { 2 copy lt {exch} if pop} dup .75 2 sqrt] FmBD

<03060c183060c081> [ 45 { pop } {exch pop} .875 2 sqrt] FmBD

<8040201008040201> [ 135 { pop } {exch pop} .875 2 sqrt] FmBD

end def

} {

/patProcDict 5 dict dup begin

<0f1e3c78f0e1c387> { 3 setlinewidth -1 -1 moveto 9 9 lineto stroke

4 -4 moveto 12 4 lineto stroke

-4 4 moveto 4 12 lineto stroke} bind def

<0f87c3e1f0783c1e> { 3 setlinewidth -1 9 moveto 9 -1 lineto stroke

-4 4 moveto 4 -4 lineto stroke

4 12 moveto 12 4 lineto stroke} bind def

<8142241818244281> { 1 setlinewidth -1 9 moveto 9 -1 lineto stroke

-1 -1 moveto 9 9 lineto stroke } bind def

<03060c183060c081> { 1 setlinewidth -1 -1 moveto 9 9 lineto stroke

4 -4 moveto 12 4 lineto stroke

-4 4 moveto 4 12 lineto stroke} bind def

<8040201008040201> { 1 setlinewidth -1 9 moveto 9 -1 lineto stroke

-4 4 moveto 4 -4 lineto stroke

4 12 moveto 12 4 lineto stroke} bind def

end def

/patDict 15 dict dup begin

/PatternType 1 def

/PaintType 2 def

/TilingType 3 def

/BBox [ 0 0 8 8 ] def

/XStep 8 def

/YStep 8 def

/PaintProc {

begin

patProcDict bstring known {

patProcDict bstring get exec

} {

8 8 true [1 0 0 -1 0 8] bstring imagemask

} ifelse

end

} bind def

end def

} ifelse

/combineColor {

FrameSepIs FMnone eq

{

graymode fMLevel1 or not {

[/Pattern [/DeviceCMYK]] setcolorspace

FrameCurColors 0 4 getinterval aload pop FrameCurPat setcolor

} {

FrameCurColors 3 get 1.0 ge {

FrameCurGray RealSetgray

} {

fMAcrobat not FMPColor graymode and and {

0 1 3 {

FrameCurColors exch get

1 FrameCurGray sub mul

} for

RealSetcmykcolor

} {

4 1 6 {

FrameCurColors exch get

graymode {

1 exch sub 1 FrameCurGray sub mul 1 exch sub

} {

1.0 lt {FrameCurGray} {1} ifelse

} ifelse

} for

RealSetrgbcolor

} ifelse

} ifelse

} ifelse

} {

FrameCurColors 0 4 getinterval aload

FrameColorInSepListCMYK {

FrameSepBlack eq exch

FrameSepYellow eq and exch

FrameSepMagenta eq and exch

FrameSepCyan eq and

FrameSepIs FMcustom eq and

{ FrameCurGray } { 1 } ifelse

} {

FrameSepIs FMblack eq

{FrameCurGray 1.0 exch sub mul 1.0 exch sub 4 1 roll pop pop pop} {

FrameSepIs FMyellow eq

{pop FrameCurGray 1.0 exch sub mul 1.0 exch sub 3 1 roll pop pop} {

FrameSepIs FMmagenta eq

{pop pop FrameCurGray 1.0 exch sub mul 1.0 exch sub exch pop } {

FrameSepIs FMcyan eq

{pop pop pop FrameCurGray 1.0 exch sub mul 1.0 exch sub }

{pop pop pop pop 1} ifelse } ifelse } ifelse } ifelse

} ifelse

graymode fMLevel1 or not {

[/Pattern [/DeviceGray]] setcolorspace

FrameCurPat setcolor

} {

graymode not fMLevel1 and {

dup 1 lt {pop FrameCurGray} if

} if

RealSetgray

} ifelse

} ifelse

} bind def

/savematrix {

orgmatrix currentmatrix pop

} bind def

/restorematrix {

orgmatrix setmatrix

} bind def

/fMDefaultMatrix matrix defaultmatrix def

/fMatrix2 matrix def

/dpi 72 0 fMDefaultMatrix dtransform

dup mul exch dup mul add sqrt def

/freq dpi dup 72 div round dup 0 eq {pop 1} if 8 mul div def

/sangle 1 0 fMDefaultMatrix dtransform exch atan def

sangle fMatrix2 rotate

fMDefaultMatrix fMatrix2 concatmatrix

dup 0 get /sflipx exch def

3 get /sflipy exch def

/screenIndex {

0 1 dpiranges length 1 sub { dup dpiranges exch get 1 sub dpi le {exit} {pop} ifelse } for

} bind def

/getCyanScreen {

FMUseHighFrequencyScreens { CHighAngles CMHighFreqs} {CLowAngles CMLowFreqs} ifelse

screenIndex dup 3 1 roll get 3 1 roll get /FMSpotFunction load

} bind def

/getMagentaScreen {

FMUseHighFrequencyScreens { MHighAngles CMHighFreqs } {MLowAngles CMLowFreqs} ifelse

screenIndex dup 3 1 roll get 3 1 roll get /FMSpotFunction load

} bind def

/getYellowScreen {

FMUseHighFrequencyScreens { YHighTDot YHighFreqs} { YLowTDot YLowFreqs } ifelse

screenIndex dup 3 1 roll get 3 1 roll get { 3 div

{2 { 1 add 2 div 3 mul dup floor sub 2 mul 1 sub exch} repeat

FMSpotFunction } } {/FMSpotFunction load } ifelse

0.0 exch

} bind def

/getBlackScreen {

FMUseHighFrequencyScreens { KHighFreqs } { KLowFreqs } ifelse

screenIndex get 45.0 /FMSpotFunction load

} bind def

/getSpotScreen {

getBlackScreen

} bind def

/getCompositeScreen {

getBlackScreen

} bind def

/FMSetScreen

fMLevel1 { /setscreen load

}{ {

8 dict begin

/HalftoneType 1 def

/SpotFunction exch def

/Angle exch def

/Frequency exch def

/AccurateScreens FMUseAcccurateScreens def

currentdict end sethalftone

} bind } ifelse

def

/setDefaultScreen {

FMPColor {

orgrxfer cvx orggxfer cvx orgbxfer cvx orgxfer cvx setcolortransfer

}

{

orgxfer cvx settransfer

} ifelse

orgfreq organgle orgproc cvx setscreen

} bind def

/setCurrentScreen {

FrameSepIs FMnone eq {

FMUseDefaultNoSeparationScreen {

setDefaultScreen

} {

getCompositeScreen FMSetScreen

} ifelse

} {

FrameSepIs FMcustom eq {

FMUseDefaultSpotSeparationScreen {

setDefaultScreen

} {

getSpotScreen FMSetScreen

} ifelse

} {

FMUseDefaultProcessSeparationScreen {

setDefaultScreen

} {

FrameSepIs FMcyan eq {

getCyanScreen FMSetScreen

} {

FrameSepIs FMmagenta eq {

getMagentaScreen FMSetScreen

} {

FrameSepIs FMyellow eq {

getYellowScreen FMSetScreen

} {

getBlackScreen FMSetScreen

} ifelse

} ifelse

} ifelse

} ifelse

} ifelse

} ifelse

} bind def

end

/FMDOCUMENT {

array /FMfonts exch def

/#copies exch def

FrameDict begin

0 ne /manualfeed exch def

/paperheight exch def

/paperwidth exch def

0 ne /fMNegative exch def

0 ne /edown exch def

/yscale exch def

/xscale exch def

fMLevel1 {

manualfeed {setmanualfeed} if

/FMdicttop countdictstack 1 add def

/FMoptop count def

setpapername

manualfeed {true} {papersize} ifelse

{manualpapersize} {false} ifelse

{desperatepapersize} {false} ifelse

{papersizefailure} if

count -1 FMoptop {pop pop} for

countdictstack -1 FMdicttop {pop end} for

}

{2 dict

dup /PageSize [paperwidth paperheight] put

manualfeed {dup /ManualFeed manualfeed put} if

{setpagedevice} stopped {papersizefailure} if

}

ifelse

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

} def

/FMBEGINPAGE {

FrameDict begin

/pagesave save def

3.86 setmiterlimit

/landscape exch 0 ne def

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

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

} def

/FMENDPAGE {

grestore

pagesave restore

end

showpage

} def

/FMFONTDEFINE {

FrameDict begin

findfont

ReEncode

1 index exch

definefont

FMfonts 3 1 roll

put

end

} def

/FMFILLS {

FrameDict begin dup

array /fillvals exch def

dict /patCache exch def

end

} def

/FMFILL {

FrameDict begin

fillvals 3 1 roll put

end

} def

/FMNORMALIZEGRAPHICS {

newpath

1 setlinewidth

0 setlinecap

0 0 0 sethsbcolor

0 setgray

} bind def

/FMBEGINEPSF {

end

/FMEPSF save def

/showpage {} def

% 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

/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

/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

[/fy /fx /fh /fw /ury /urx /lly /llx] {exch def} forall

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

llx neg lly neg translate

/FMdicttop countdictstack 1 add def

/FMoptop count def

} bind def

/FMENDEPSF {

count -1 FMoptop {pop pop} for

countdictstack -1 FMdicttop {pop end} for

FMEPSF restore

FrameDict begin

} bind def

FrameDict begin

/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 {

paperheight sub abs 16 lt exch

paperwidth sub abs 16 lt and

{/papername exch def} {pop} ifelse

} bind def

/setpapername {

/papersizedict 14 dict def

papersizedict begin

/papername /unknown def

/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