% Copyright (c) 1995  Microsoft Corporation
%
% Module Name:
%
%    header.ps
%
% Abstract:
%
%    Windows NT PostScript driver procset
%
% Notes:
%
%    Used to be hardcoded in the C source file.
%    Now reside in the resource instead.
%
% Revision History:
%
%	07/07/95 -davidx-
%		Extracted out of C source code.
%
%	mm/dd/yy -author-
%		description

%%BeginResource: procset NTPSOct95

/NTPSOct95 100 dict dup begin

% Redefine frequently used operators

/bd {bind def} bind def
/ld {load def} bd
/ed {exch def} bd
/a  {currentpoint} bd
/c  /curveto ld
/d  /dup ld
/e  /eofill ld
/f  /fill ld
/tr /translate ld
/gr /grestore ld
/gs /gsave ld
/j  /setlinejoin ld
/L  /lineto ld
/M  /moveto ld
/n  /newpath ld
/cp /closepath ld
/rm /rmoveto ld
/sl /setlinewidth ld
/sd /setdash ld
/g  /setgray ld
/r  /setrgbcolor ld
/s  /stroke ld
/t  /show ld
/aw /awidthshow ld
/im /imagemask ld
/MS {moveto show} bd
/SF {findfont exch scalefont setfont} bd
/SM {cmtx setmatrix} bd
/MF {findfont exch makefont setfont} bd
/CM {/cmtx matrix currentmatrix def} bd
/B  {M exch dup 0 rlt exch 0 exch rlt neg 0 rlt} bd
/CB {B cp eoclip} bd
/EA {1 index 0 /G0 put 4 string 1 1 4 -1 roll
     {3 copy neg exch cvs dup 0 71 put cvn 3 -1 roll exch put} for pop
    } bd
/rlt /rlineto ld

% Determine whether the interpreter is level 2 or higher

/L2? /languagelevel where {pop languagelevel 2 ge} {false} ifelse def

end def
%%EndResource