diff options
Diffstat (limited to 'runtime/print/prolog.ps')
| -rw-r--r-- | runtime/print/prolog.ps | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/runtime/print/prolog.ps b/runtime/print/prolog.ps new file mode 100644 index 000000000..0230999e6 --- /dev/null +++ b/runtime/print/prolog.ps @@ -0,0 +1,40 @@ +%!PS-Adobe-3.0 Resource-ProcSet +%%Title: VIM-Prolog +%%Version: 1.3 1 +%%EndComments +% Editing of this file is NOT RECOMMENDED. You run a very good risk of causing +% all PostScript printing from VIM failing if you do. PostScript is not called +% a write-only language for nothing! +/bd{bind def}bind def/ld{load def}bd/ed{exch def}bd/d/def ld +/db{dict begin}bd/cde{currentdict end}bd +/T true d/F false d +/SO null d/sv{/SO save d}bd/re{SO restore}bd +/L2 systemdict/languagelevel 2 copy known{get exec}{pop pop 1}ifelse 2 ge d +/m{moveto}bd/s{show}bd/ms{m s}bd/g{setgray}bd/r{setrgbcolor}bd/sp{showpage}bd +/gs{gsave}bd/gr{grestore}bd/cp{currentpoint}bd +/ul{gs UW setlinewidth cp UO add 2 copy newpath m 3 1 roll add exch lineto +stroke gr}bd +/bg{gs r cp BO add 4 -2 roll rectfill gr}bd +/sl{90 rotate 0 exch translate}bd +L2{ +/sspd{mark exch{setpagedevice}stopped cleartomark}bd +/nc{1 db/NumCopies ed cde sspd}bd +/sps{3 db/Orientation ed[3 1 roll]/PageSize ed/ImagingBBox null d cde sspd}bd +/dt{2 db/Tumble ed/Duplex ed cde sspd}bd +/c{1 db/Collate ed cde sspd}bd +}{ +/nc{/#copies ed}bd +/sps{statusdict/setpage get exec}bd +/dt{statusdict/settumble 2 copy known{get exec}{pop pop pop}ifelse +statusdict/setduplexmode 2 copy known{get exec}{pop pop pop}ifelse}bd +/c{pop}bd +}ifelse +/ffs{findfont exch scalefont d}bd/sf{setfont}bd +/ref{1 db findfont dup maxlength dict/NFD ed{exch dup/FID ne{exch NFD 3 1 roll +put}{pop pop}ifelse}forall/Encoding findresource dup length 256 eq{NFD/Encoding +3 -1 roll put}{pop}ifelse NFD dup/FontType get 3 ne{/CharStrings}{/CharProcs} +ifelse 2 copy known{2 copy get dup maxlength dict copy[/questiondown/space]{2 +copy known{2 copy get 2 index/.notdef 3 -1 roll put pop exit}if pop}forall put +}{pop pop}ifelse dup NFD/FontName 3 -1 roll put NFD definefont pop end}bd +% vim:ff=unix: +%%EOF |