%% added the following command \ Dick McGowan gsave 90 216 translate %!PS-Adobe-2.0 %%Creator: VAX DOCUMENT V1.2B %%+(+1 PSEUDOCONDENSE) -- this prolog provided by the CUPFAMILY011 kit %%+Copyright 1986,1987,1988,1989,1990 DIGITAL EQUIPMENT CORPORATION. %%+All Rights Reserved. %%DocumentFonts: (atend) %%Pages: (atend) %%EndComments /DEC_DVC$dict where { %FIND DICTIONARY pop }{ %else /DEC_DVC$dict 300 dict def } ifelse /BeginDVC$PSDoc { %BEGIN DOCUMENT vmstatus pop pop 0 eq { DEC_DVC$dict begin InitializeState }{ %else /DVC$PSJob save def DEC_DVC$dict begin InitializeState /DVC$PSFonts save def } ifelse } def /EndDVC$PSDoc { %END DOCUMENT % --- Preserving current page count --- vmstatus pop pop 0 eq { end }{ %else DVC$PSFonts restore end DVC$PSJob restore } ifelse } def % DEC_DVC$dict begin % mark % CREATE ISOLatin1 ENCODING /ISOLatin1 8#000 1 8#054 {StandardEncoding exch get} for /minus 8#056 1 8#217 {StandardEncoding exch get} for /dotlessi 8#301 1 8#317 {StandardEncoding exch get} for /space /exclamdown /cent /sterling /currency /yen /brokenbar /section /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis /ISOLatin1 where not {256 array astore def} if cleartomark % /DECMCS ISOLatin1 256 array copy def mark % CREATE DECMCS ENCODING 8#240 8#244 8#246 8#254 8#255 8#256 8#257 8#264 8#270 8#276 8#320 8#336 8#360 8#376 8#377 counttomark {DECMCS exch /.notdef put} repeat % STACK NOW CONTAINS MARK 8#250 /currency 8#327 /OE 8#335 /Ydieresis 8#367 /oe 8#375 /ydieresis counttomark -1 bitshift % DIVIDE BY 2 {DECMCS 3 1 roll put} repeat % STACK NOW CONTAINS MARK cleartomark % /DOCPSE DECMCS 256 array copy def mark % CREATE DOCPSE ENCODING 8#055 /hyphen 8#201 /bullet 8#202 /emdash 8#203 /endash 8#204 /dagger 8#205 /daggerdbl 8#206 /registered 8#207 /trademark %8#210 /Delta 8#211 /fi 8#212 /fl counttomark -1 bitshift % DIVIDE BY 2 {DOCPSE 3 1 roll put} repeat % STACK NOW CONTAINS MARK cleartomark % /reencodedict 10 dict def %Local storage for "ReENCODE" /ReENCODE { % /basefont /newfont encoding ReENCODE /newencoding exch def %ARG: NAME OF ENCODING VECTOR /newfontname exch def %ARG: NEW NAME FOR FONT AFTER RE-ENCODING findfont /basefontdict exch def %ARG: NAME OF FONT TO BE RE-ENCODED basefontdict maxlength dict begin %CREATE AND OPEN NEW DICT basefontdict { %COPY ENTRIES FROM BASE FONT DICT TO NEW ONE 1 index /FID ne { def %IF NOT THE ONE WE'RE ENCODING, JUST COPY PTRS } { %else pop pop %IGNORE FID AND ENCODING FOR ONE WE'RE ENCODING } ifelse } forall /FontName newfontname def %DEFINE NEW NAME /Encoding newencoding def %DEFINE NEW ENCODING VECTOR newfontname currentdict definefont %TURN IT INTO A PS FONT pop %IGNORE MODIFIED DICT RETURNED BY DEFINEFONT end } def % /cvsstr 64 string def /tempmatrix matrix def % /BP { % BEGIN PAGE /Magnification exch def /Colorsused 0 def /RVmatrix matrix def /DVC$PSPage save def } def % /EP {DVC$PSPage restore} def % END PAGE % /XP { % EXIT PAGE (TEMPORARILY) TO ADD FONTS/CHARS % SAVE CURRENT POINT AND COLOR INFORMATION SO IT CAN BE RESET LATER matrix currentmatrix aload pop currentrgbcolor Colorsused /Xpos where {pop Xpos} {0} ifelse /Ypos where {pop Ypos} {0} ifelse /currentpoint cvx stopped {0 0 moveto currentpoint} if /DVC$PSPage where {pop DVC$PSPage restore} if moveto /Ypos exch def /Xpos exch def /Colorsused exch def setrgbcolor matrix astore setmatrix } def % /RP {/DVC$PSPage save def} def % RESUME PAGE % /PF {GlobalMode LocalMode} def % PURGE FONTS TO RECLAIM MEMORY % /GlobalMode { % SWITCH TO BASE SAVE/RESTORE LEVEL, SAVING STATE RVmatrix aload pop PortraitMode PaperWidth PaperHeight PxlResolution Resolution Magnification Ymax Xorigin Yorigin RasterScaleFactor % SAVE CURRENTPOINT INFORMATION TO RESET LATER /currentpoint cvx stopped {0 0 moveto currentpoint} if /DVC$PSPage where {pop DVC$PSPage restore} if DVC$PSFonts restore RecoverState } def % /RecoverState { % PRESERVE STATE AT BASE LEVEL 18 copy /Ypos exch def /Xpos exch def /RasterScaleFactor exch def /Yorigin exch def /Xorigin exch def /Ymax exch def /Magnification exch def /Resolution exch def /PxlResolution exch def /PaperHeight exch def /PaperWidth exch def /PortraitMode exch def matrix astore /RVmatrix exch def DoInitialScaling RVmatrix concat PortraitMode not {PaperWidth 0 SetupLandscape} if Xpos Ypos moveto } def % /InitializeState { % INITIALIZE STATE VARIABLES TO DEFAULT VALUES /Resolution 3600 def /PxlResolution 300 def /RasterScaleFactor PxlResolution Resolution div def /PortraitMode true def /Magnification 1000 def /Xorigin 0 def /Yorigin 0 def /Xpos 0 def /Ypos 0 def /InitialMatrix matrix currentmatrix def /Colorsused 0 def /RVmatrix matrix def } def % /LocalMode { % SWITCH FROM BASE SAVE/RESTORE LEVEL, RESTORING STATE /Ypos exch def /Xpos exch def /RasterScaleFactor exch def /Yorigin exch def /Xorigin exch def /Ymax exch def /Magnification exch def /Resolution exch def /PxlResolution exch def /PaperHeight exch def /PaperWidth exch def /PortraitMode exch def matrix astore /RVmatrix exch def DoInitialScaling RVmatrix concat PortraitMode not {PaperWidth 0 SetupLandscape} if Xpos Ypos moveto /DVC$PSFonts save def /DVC$PSPage save def } def % % ABBREVIATIONS /S /show load def /SV /save load def /RST /restore load def /Yadjust {Ymax exch sub} def % /SXY { % (x,y) POSITION ABSOLUTE, JUST SET Xpos & Ypos, DON'T MOVE Yadjust /Ypos exch def /Xpos exch def } def % /XY { % (x,y) POSITION ABSOLUTE Yadjust 2 copy /Ypos exch def /Xpos exch def moveto } def % /X { % (x,0) POSITION ABSOLUTE currentpoint exch pop 2 copy /Ypos exch def /Xpos exch def moveto } def % /Y { % (0,y) POSITION ABSOLUTE currentpoint pop exch Yadjust 2 copy /Ypos exch def /Xpos exch def moveto } def % /xy { % (x,y) POSITION RELATIVE neg rmoveto currentpoint /Ypos exch def /Xpos exch def } def % /x { % (x,0) POSITION RELATIVE 0 rmoveto currentpoint /Ypos exch def /Xpos exch def } def % /y { % (0,y) POSITION RELATIVE 0 exch neg rmoveto currentpoint /Ypos exch def /Xpos exch def } def % /R { % DRAW A RULE /ht exch def /wd exch def gsave % 0 setgray currentpoint newpath moveto 0 ht rlineto wd 0 rlineto 0 ht neg rlineto wd neg 0 rlineto closepath fill grestore wd 0 rmoveto currentpoint /Ypos exch def /Xpos exch def } def % /RES { % RES /Resolution exch def /PxlResolution exch def /RasterScaleFactor PxlResolution Resolution div def DoInitialScaling } def % /DoInitialScaling { % DO INITIAL SCALING InitialMatrix setmatrix 72 Resolution div dup scale } def % /PM { % PM XP /PaperWidth exch def /PaperHeight exch def /Ymax PaperHeight def /PortraitMode true def DoInitialScaling RP } def % /SetupLandscape {translate 90 rotate} def /LM { % LM XP /PaperWidth exch def /PaperHeight exch def /Ymax PaperWidth def /PortraitMode false def DoInitialScaling PaperWidth 0 SetupLandscape RP } def % /MAG { % CHANGE MAGNIFICATION SETTING XP /Magnification exch def RP } def % /SPB { % SPB - BEGIN "\SPECIAL" MODE Yadjust /Yorigin exch def /Xorigin exch def currentrgbcolor Colorsused GlobalMode Xorigin Yorigin translate Resolution 72 div dup scale % RESTORE DEFAULT SCALING Magnification 1000 div dup scale % ADJUST FOR ANY MAGNIFICATION /Xpos Xpos 72 Resolution div mul 1000 Magnification div mul def /Ypos Ypos 72 Resolution div mul 1000 Magnification div mul def /spsavobj save def %SAVE STATE & STACK DEPTH FOR CLEANUP AFTER FIGURE /showpage {} def %DISABLE DURING FIGURE; `RESTORE' WILL BLOW DEF AWAY /DEC$EDMS_setrgbcolor /setrgbcolor load def % save standard definition /setrgbcolor { % create new definition /DEC$EDMS_SEPARATE_COLORS where % if separating colors { pop DEC$EDMS_SEPARATE_COLORS 0 ne % and not on color pass 0 { pop pop pop 1 1 1 } if % ...then write white } if DEC$EDMS_setrgbcolor % set color as now specified } def /DEC$EDMS_image /image load def % save standard definition /image { % create new definition /DEC$EDMS_SEPARATE_COLORS where % if separating colors { pop DEC$EDMS_SEPARATE_COLORS 0 ne % and not on color pass 0 { gsave % ...save current device state nulldevice % ...make no marks DEC$EDMS_image % ...process the image grestore % ...restore old device state } { DEC$EDMS_image } ifelse % if on color pass 0 - image } { DEC$EDMS_image } ifelse % if not separating colors - image } def mark } def % /SPE { % SPE - END "\SPECIAL" MODE cleartomark spsavobj restore 1000 Magnification div dup scale % UN-ADJUST FOR ANY MAGNIFICATION 72 Resolution div dup scale % RESTORE DEFAULT INTERNAL SCALING LocalMode /Colorsused exch def setrgbcolor } def % /PP % % If DEC$EDMS_MAKE_FILM is defined, it will add the crop & alignment marks, % and the document name, page number, & ink color identifiers to the page. % % Formal Arguments: None % % Referenced Variables: DocumentName % Colorsused % Currentpagecount % DEC$EDMS_MAKE_FILM % % Referenced Procedures: AlignMark % % Side Effects: Leaves the current font as Helvetica 8 point. % Creates the variable "junkstr". % { /PageNumber exch def /DEC$EDMS_MAKE_FILM where % if making film... { pop 2 DEC$EDMS_SEPARATE_COLORS exp cvi Colorsused and 0 ne % and if the correct separation { /Helvetica findfont 400 scalefont setfont 20 setlinewidth 0 setgray PaperWidth 150 add PaperHeight 100 add moveto % show the ink color (Ink: ) show DEC$EDMS_COLOR_NAMES DEC$EDMS_SEPARATE_COLORS get show PaperWidth 150 add PaperHeight 600 add moveto (Page: ) show % show the page number /junkstr 4 string def PageNumber junkstr cvs show ( of ) show DEC$EDMS_TOTAL_PAGES junkstr cvs show 150 PaperHeight 100 add moveto % show the document name (Document: ) show DEC$EDMS_DOCUMENT_ID show 150 -500 moveto % show ownership text (This film is the property of Digital Equipment Corporation) show stroke /mask 15 % all crop marks on by default /DEC$EDMS_SUPPRESS_CROPMARKS where % if defined, xor in the suppression mask { pop DEC$EDMS_SUPPRESS_CROPMARKS xor } if def mask 1 and 1 eq { PaperWidth PaperHeight moveto % Upper Right 450 0 rmoveto 1350 0 rlineto -1800 1800 rmoveto 0 -1350 rlineto } if mask 2 and 2 eq { PaperWidth 0 moveto % Lower Right 450 0 rmoveto 1350 0 rlineto -1800 -1800 rmoveto 0 1350 rlineto } if mask 4 and 4 eq { 0 0 moveto % Lower Left -450 0 rmoveto -1350 0 rlineto 1800 -1800 rmoveto 0 1350 rlineto } if mask 8 and 8 eq { 0 PaperHeight moveto % Upper Left -450 0 rmoveto -1350 0 rlineto 1800 1800 rmoveto 0 -1350 rlineto } if stroke /mask 15 % all registration marks on by default /DEC$EDMS_SUPPRESS_REGMARKS where % if defined, xor in the suppression mask { pop DEC$EDMS_SUPPRESS_REGMARKS xor } if def mask 1 and 1 eq % Top Center { gsave PaperWidth 2 div PaperHeight /DEC$EDMS_POSITION_REGMARKS where { pop DEC$EDMS_POSITION_REGMARKS -50 mul add } if translate AlignMark grestore } if mask 2 and 2 eq % Right Center { gsave PaperWidth /DEC$EDMS_POSITION_REGMARKS where { pop DEC$EDMS_POSITION_REGMARKS -50 mul add } if PaperHeight 2 div translate AlignMark grestore } if mask 4 and 4 eq % Bottom Center { gsave PaperWidth 2 div 0 /DEC$EDMS_POSITION_REGMARKS where { pop DEC$EDMS_POSITION_REGMARKS 50 mul add } if translate AlignMark grestore } if mask 8 and 8 eq % Left Center { gsave 0 /DEC$EDMS_POSITION_REGMARKS where { pop DEC$EDMS_POSITION_REGMARKS 50 mul add } if PaperHeight 2 div translate AlignMark grestore } if showpage } { erasepage } ifelse } { showpage } ifelse } def /CLRP {erasepage} def % /DMF { % /font-name DMF /psz exch def /nam exch def nam findfont psz scalefont setfont } def % /concatnam { % /abcd (xxx) concatnam ==> /abcdxxx /xxx exch def /nam exch def /namstr nam cvsstr cvs def /newnam namstr length xxx length add string def newnam 0 namstr putinterval newnam namstr length xxx putinterval newnam cvn } def % /strip { % /abcdef 2 strip ==> /cdef /num exch def /nam exch def /namstr nam cvsstr cvs def /newlen namstr length num sub def namstr num newlen getinterval cvn } def % ROUTINES TO HANDLE PACKING/UNPACKING NUMBERS /PackHW { % PackHW --> /num exch def /pos exch def /target exch def num 16#0000FFFF and 1 pos sub 16 mul bitshift target or } def /PackByte { % PackByte --> /num exch def /pos exch def /target exch def num 16#000000FF and 3 pos sub 8 mul bitshift target or } def /UnpkHW { % UnpkHW --> /num exch def /pos exch def num 1 pos sub -16 mul bitshift 16#0000FFFF and dup 16#00007FFF gt {16#00010000 sub} if } def /UnpkByte { % UnpkByte --> /num exch def /pos exch def num 3 pos sub -8 mul bitshift 16#000000FF and dup 16#0000007F gt {16#00000100 sub} if } def % % FOR POSTSCRIPT FONTS, LOOK AT SIZE REQUESTED. IF IT HAS A DECIMAL REMAINDER % EQUIVALENT TO .001-.009 POINTS (I.E., .050-.450 VAXDOC UNITS), THAT'S A FLAG % TO STRETCH IT VERTICALLY BY ADDING 1-9 EXTRA POINTS TO THE VERTICAL SCALING. % /TESTING false def % /ps-scalefont { % save requested size - as entered and as integer dup /x-size exch def cvi /x-int exch def % calc decimal remainder, mul x 1000, round x-size x-int sub 1000 mul round cvi /remainder exch def % see how we scale... remainder 50 lt remainder 450 gt or { % scale isomorphically /ystretch 0 def x-size scalefont } { % scale anamorphically /ystretch remainder def x-int ystretch add /y-size exch def [x-int 0 0 y-size 0 0] makefont } ifelse % TESTING { (\nSIZE ) print x-size 12 string cvs print (\tINT ) print x-int 12 string cvs print ( REM ) print remainder 12 string cvs print ( +Y ) print ystretch 12 string cvs print ( =\t) print ystretch 0 eq { x-size 12 string cvs print ( scalefont) print } { ([) print x-int 12 string cvs print ( 0 0 ) print y-size 12 string cvs print ( 0 0] makefont) print } ifelse } if } def % /DPSF { % /procname size /fontname DPSF findfont exch ps-scalefont [ exch /setfont cvx ] cvx def } def % /PXLBuildCharDict 17 dict def /CMEncodingArray 256 array def 0 1 255 {CMEncodingArray exch dup cvsstr cvs cvn put} for /RasterConvert {RasterScaleFactor div} def /TransformBBox { aload pop /BB-ury exch def /BB-urx exch def /BB-lly exch def /BB-llx exch def [ BB-llx RasterConvert BB-lly RasterConvert BB-urx RasterConvert BB-ury RasterConvert ] } def /RunLengthToRasters { % none yet } def /GenerateRasters { % GENERATE RASTERS FOR "IMAGEMASK" rasters runlength 1 eq {RunLengthToRasters} if } def % /int-dict-name {int (-dict) concatnam} def /int-dict {int (-dict) concatnam cvx load} def % /DefinePXLFont { % ... % ...[llx lly urx ury]DefinePXLFont /newfont exch def /bb exch def /num exch def /psz exch def /dsz exch def /pxlmag exch def /ext exch def /int exch def /fnam ext (-) concatnam pxlmag cvsstr cvs concatnam def newfont not { int-dict-name 13 dict def int-dict begin /FontType 3 def /FontMatrix [ 1 dsz div 0 0 1 dsz div 0 0 ] def /FontBBox bb TransformBBox def /Encoding CMEncodingArray def /CharDict 1 dict def CharDict begin /Char-Info num array def end /BuildChar { PXLBuildCharDict begin /char exch def /fontdict exch def fontdict /CharDict get /Char-Info get char get aload pop /rasters exch def /PackedWord1 exch def 0 PackedWord1 UnpkHW 16#7FFF ne { /PackedWord2 exch def /wx 0 PackedWord1 UnpkHW def /rows 2 PackedWord1 UnpkByte def /cols 3 PackedWord1 UnpkByte def /llx 0 PackedWord2 UnpkByte def /lly 1 PackedWord2 UnpkByte def /urx 2 PackedWord2 UnpkByte def /ury 3 PackedWord2 UnpkByte def }{ %else /PackedWord2 exch def /PackedWord3 exch def /PackedWord4 exch def /wx 1 PackedWord1 UnpkHW def /rows 0 PackedWord2 UnpkHW def /cols 1 PackedWord2 UnpkHW def /llx 0 PackedWord3 UnpkHW def /lly 1 PackedWord3 UnpkHW def /urx 0 PackedWord4 UnpkHW def /ury 1 PackedWord4 UnpkHW def } ifelse rows 0 lt { /rows rows neg def /runlength 1 def }{ %else /runlength 0 def } ifelse wx 0 llx RasterConvert lly RasterConvert urx RasterConvert ury RasterConvert setcachedevice rows 0 ne { gsave cols rows true RasterScaleFactor 0 0 RasterScaleFactor neg llx .5 add neg ury .5 add tempmatrix astore GenerateRasters imagemask grestore } if end } def end fnam int-dict definefont pop } if int-dict-name fnam findfont psz scalefont def currentdict int [ int-dict /setfont cvx ] cvx put } def /PXLF { true DefinePXLFont} def % SIGNAL THAT FONT IS ALREADY LOADED /PXLNF {false DefinePXLFont} def % SIGNAL THAT FONT IS NOT ALREADY LOADED % /PXLC { % ... % ...PXLC /rasters exch def /runlength exch def /cols exch def /rows exch def /ury exch def /urx exch def /lly exch def /llx exch def /wx exch def /code exch def /int exch def % SEE IF LONG OR SHORT FORMAT IS REQUIRED true cols CKSZ rows CKSZ ury CKSZ urx CKSZ lly CKSZ llx CKSZ TackRunLengthToRows { int-dict /CharDict get /Char-Info get code [ 0 0 llx PackByte 1 lly PackByte 2 urx PackByte 3 ury PackByte 0 0 wx PackHW 2 rows PackByte 3 cols PackByte rasters ] put }{ %else int-dict /CharDict get /Char-Info get code [ 0 0 urx PackHW 1 ury PackHW 0 0 llx PackHW 1 lly PackHW 0 0 rows PackHW 1 cols PackHW 0 0 16#7FFF PackHW 1 wx PackHW rasters ] put } ifelse } def % /CKSZ {abs 127 le and} def /TackRunLengthToRows {runlength 0 ne {/rows rows neg def} if} def % /PLOTC { % PLOTC /rasters exch def /runlength exch def /cols exch def /rows exch def /ury exch def /urx exch def /lly exch def /llx exch def /psz exch def /dsz exch def /wx exch def % "PLOT" A CHARACTER'S RASTER PATTERN rows 0 ne { gsave currentpoint translate psz dsz div dup scale cols rows true RasterScaleFactor 0 0 RasterScaleFactor neg llx .5 add neg ury .5 add tempmatrix astore GenerateRasters imagemask grestore } if wx x } def % /AlignMark % % This procedure draws an alignment mark centered on the coordinate system % origin. If the variable DEC$EDMS_SEPARATE_COLORS = 0 then a "positive" % alignment mark is drawn. If DEC$EDMS_SEPARATE_COLORS <> 0 then a "negative" % alignment mark is drawn. % % Formal Arguments: NONE % % Referenced Variables: DEC$EDMS_SEPARATE_COLORS % % Referenced Procedures: NONE % % Side Effects: NONE % { DEC$EDMS_SEPARATE_COLORS 0 eq { 0 0 300 0 360 arc 0 -450 moveto 0 450 lineto -450 0 moveto 450 0 lineto stroke } { 0 0 450 0 360 arc fill 1 setgray 0 0 300 0 360 arc 0 -450 moveto 0 450 lineto -450 0 moveto 450 0 lineto stroke 0 setgray } ifelse } def /SC % If not making film, the following procedure sets the current color using the % RGB color model. If making film, the procedure notes the "color pass" and, % if the specified color index matches the color pass, subsequent marks are % written in black. If the specified color index does not match the color pass, % marks are written in white. Use of colors on individual pages is also tracked % to allow pages that don't use a particular color to be suppressed on that % color pass (by the code in the /PP routine). % % Formal Arguments: color index (on stack) % % Referenced Variables: Colorsused % DEC$EDMS_SEPARATE_COLORS % DEC$EDMS_SUPPRESS_COLOR % % Referenced Procedures: NONE % % Side Effects: Modifies the variable Colorsused to record use of the color. % { /DEC$EDMS_SUPPRESS_COLOR where % if suppressing color { pop 0 setgray pop } % .then set "color" to Black { /DEC$EDMS_SEPARATE_COLORS where % .else if separating colors { pop dup DEC$EDMS_SEPARATE_COLORS eq % ..and if on this color pass { 0 setgray /Colorsused Colorsused % ...then write black (do write) 2 3 index exp cvi or def } % ...and note use of the "color" { 1 setgray } ifelse pop } % ...else write white (don't write) { dup ( ) cvs dup length 15 add string % ..using the color index, /tstr exch def % ..build up the name of the tstr 0 (DEC$EDMS_COLOR_) putinterval % ..potential external color tstr exch 15 exch putinterval % ..name procedure tstr cvn where % ..and see if it is defined { pop pop tstr cvn cvx exec } % ...if it is, execute it { DEC$EDMS_COLOR_ARRAY exch get % ..else execute the internal exec } ifelse % ..color setting procedure } ifelse } ifelse } def /RV % .. gross recto/verso translate { /DEC$EDMS_ENABLE_RECTOVERSO where { pop /RVmatrix DEC$EDMS_ENABLE_RECTOVERSO 50 mul 0 matrix translate def RVmatrix concat } if } def end %DEC_DVC$dict %%EndProlog %%BeginSetup /DEC$EDMS_MAKE_FILM where % if we are making film... { pop % ..clean up the stack 54 dup translate % ..make room for the film info } if BeginDVC$PSDoc /PaperWidth 8.500 Resolution mul def /PaperHeight 11.000 Resolution mul def /Ymax PaperHeight def CLRP 300 3600 RES %> Postamble of file WRITER:[RMCGOWAN.RT11.UTILITIES.NEW]S1481BC23_CONTENTS.DVI_PS. % DefineFont:F26 Category:10 Pointsize:12 /Helvetica /Helvetica@DOCPSE DOCPSE ReENCODE /F26 600.0 /Helvetica@DOCPSE DPSF % DefineFont:F20 Category:10 Pointsize:18 /Helvetica-Bold /Helvetica-Bold@DOCPSE DOCPSE ReENCODE /F20 900.0 /Helvetica-Bold@DOCPSE DPSF %%BeginDEC$EDMSInfo /DEC$EDMS_DOCUMENT_ID () def /DEC$EDMS_COLOR_NAMES [ (0_BLACK) ] def /DEC$EDMS_COLOR_ARRAY [ %%RGBCustomColor 0.000 0.000 0.000 0_BLACK { 0.000 0.000 0.000 setrgbcolor } % 0_BLACK not found ] def /DEC$EDMS_TOTAL_PAGES 0 def %%EndDEC$EDMSInfo /DEC$EDMS_MAKE_FILM where { pop /DEC$EDMS_SEPARATE_COLORS where { pop } { (ERROR - DEC$EDMS_MAKE_FILM requires DEC$EDMS_SEPARATE_COLORS be defined) = quit } ifelse } if /DEC$EDMS_SEPARATE_COLORS where { pop /DEC$EDMS_SUPPRESS_COLOR where { pop (ERROR - DEC$EDMS_SEPARATE_COLORS and DEC$EDMS_SUPPRESS_COLOR are mutually exclusive) = quit } if } if /DVC$PSFonts save def %%EndSetup % %%Page: III 1 %%BeginPageSetup %%EndPageSetup %%PageFonts: (atend) %%PageCustomColors: (atend) 1000 BP PaperHeight PaperWidth PM 0 0 XY %%BeginCustomColor: 0_BLACK 0 SC 22154 6068 XY F20(Chapter)S 298 x(23)S 3675 X 546 y 23160 48 R 3675 8308 %%EndCustomColor % 1 PP EP (put comments around these SDML page commands so the bar %% would print on same page as the contents page. \Dick McG) %%PageTrailer %%PageFonts: Helvetica-Bold Helvetica %%+ NewCenturySchlbk-Roman %%PageCustomColors: 0_BLACK % %%Trailer EndDVC$PSDoc /DEC$EDMS_MAKE_FILM where % if we are making film... { pop % ..clean up the stack -54 dup translate % ..undo the film translation } if %%Pages: 1 %%DocumentFonts: NewCenturySchlbk-Roman %%+ Helvetica Helvetica-Bold %%DocumentCustomColors: 0_BLACK grestore %!PS-Adobe-1.0 %%Title: rpage-8x11 %%Creator: Auto-trol PostScript Interface Version 3.6 %%CreationDate: 08/27/91 14:06:09 DIMARE %%Pages: 1 %%BoundingBox: 48 174 744 1050 %%EndComments [1. 0. 0. 1. 0. 0.] concat /a /arc load def /b /arcn load def /c /closepath load def /cc /concat load def /cm {/cmtx matrix currentmatrix def} bind def /f /eofill load def /gr /grestore load def /gs /gsave load def /l /lineto load def /m /moveto load def /n /newpath load def /p /currentpoint load def /q /rotate load def /r /rlineto load def /s /stroke load def /sm {cmtx setmatrix} bind def /t {findfont exch scalefont setfont} bind def /tm {/tmtx matrix currentmatrix def} bind def /w /setlinewidth load def /x /setrgbcolor load def /xm {tmtx setmatrix} bind def /y {rlineto closepath stroke} bind def /z {rlineto stroke} bind def /CenterShow { dup stringwidth pop 2 div neg 0 rmoveto show } def /TRUE 1 def /FALSE 0 def /Mirror FALSE def /CenterText { Mirror TRUE eq {show} {CenterShow} ifelse } def % Place between the parentheses '()' the desired string. Do NOT % add spaces to the beginning or end of the string. % EXAMPLE: Correct (Your Label) -- Incorrect ( Your Label ) % This will print both right- and left- handed pages. /TextString (RTMON) def % To Print an 8½ x 11 Page append the following line to your page. % This will move your page to center of a B-size sheet of paper. % % -90 -216 translate % %%EndProlog /mtx matrix currentmatrix def 1 setlinecap n 84 216 m 48 216 l .18 w 0 0 0 x s 90 210 m 90 174 l s 702 210 m 702 174 l s 708 216 m 744 216 l s 84 1008 m 48 1008 l s 90 1014 m 90 1050 l s 702 1014 m 702 1050 l s 708 1008 m 744 1008 l s 666 204 m 720 204 l 720 1020 l 666 1020 l c f [0 -1 1 0 684 612] cc 0 0 m 1 1 1 x 12 /Helvetica t TextString CenterText mtx setmatrix showpage /mtx matrix currentmatrix def 1 setlinecap n 708 1008 m 744 1008 l .18 w 0 0 0 x s 702 1014 m 702 1050 l s 90 1014 m 90 1050 l s 84 1008 m 48 1008 l s 708 216 m 744 216 l s 702 210 m 702 174 l s 90 210 m 90 174 l s 84 216 m 48 216 l s 126 1020 m 72 1020 l 72 204 l 126 204 l c f [0 1 -1 0 108 612] cc 0 0 m 1 1 1 x 12 /Helvetica t TextString CenterText mtx setmatrix showpage