Mercurial > vim
comparison runtime/print/prolog.ps @ 7:3fc0f57ecb91 v7.0001
updated for version 7.0001
| author | vimboss |
|---|---|
| date | Sun, 13 Jun 2004 20:20:40 +0000 |
| parents | |
| children | 946da5994c01 |
comparison
equal
deleted
inserted
replaced
| 6:c2daee826b8f | 7:3fc0f57ecb91 |
|---|---|
| 1 %!PS-Adobe-3.0 Resource-ProcSet | |
| 2 %%Title: VIM-Prolog | |
| 3 %%Version: 1.3 1 | |
| 4 %%EndComments | |
| 5 % Editing of this file is NOT RECOMMENDED. You run a very good risk of causing | |
| 6 % all PostScript printing from VIM failing if you do. PostScript is not called | |
| 7 % a write-only language for nothing! | |
| 8 /bd{bind def}bind def/ld{load def}bd/ed{exch def}bd/d/def ld | |
| 9 /db{dict begin}bd/cde{currentdict end}bd | |
| 10 /T true d/F false d | |
| 11 /SO null d/sv{/SO save d}bd/re{SO restore}bd | |
| 12 /L2 systemdict/languagelevel 2 copy known{get exec}{pop pop 1}ifelse 2 ge d | |
| 13 /m{moveto}bd/s{show}bd/ms{m s}bd/g{setgray}bd/r{setrgbcolor}bd/sp{showpage}bd | |
| 14 /gs{gsave}bd/gr{grestore}bd/cp{currentpoint}bd | |
| 15 /ul{gs UW setlinewidth cp UO add 2 copy newpath m 3 1 roll add exch lineto | |
| 16 stroke gr}bd | |
| 17 /bg{gs r cp BO add 4 -2 roll rectfill gr}bd | |
| 18 /sl{90 rotate 0 exch translate}bd | |
| 19 L2{ | |
| 20 /sspd{mark exch{setpagedevice}stopped cleartomark}bd | |
| 21 /nc{1 db/NumCopies ed cde sspd}bd | |
| 22 /sps{3 db/Orientation ed[3 1 roll]/PageSize ed/ImagingBBox null d cde sspd}bd | |
| 23 /dt{2 db/Tumble ed/Duplex ed cde sspd}bd | |
| 24 /c{1 db/Collate ed cde sspd}bd | |
| 25 }{ | |
| 26 /nc{/#copies ed}bd | |
| 27 /sps{statusdict/setpage get exec}bd | |
| 28 /dt{statusdict/settumble 2 copy known{get exec}{pop pop pop}ifelse | |
| 29 statusdict/setduplexmode 2 copy known{get exec}{pop pop pop}ifelse}bd | |
| 30 /c{pop}bd | |
| 31 }ifelse | |
| 32 /ffs{findfont exch scalefont d}bd/sf{setfont}bd | |
| 33 /ref{1 db findfont dup maxlength dict/NFD ed{exch dup/FID ne{exch NFD 3 1 roll | |
| 34 put}{pop pop}ifelse}forall/Encoding findresource dup length 256 eq{NFD/Encoding | |
| 35 3 -1 roll put}{pop}ifelse NFD dup/FontType get 3 ne{/CharStrings}{/CharProcs} | |
| 36 ifelse 2 copy known{2 copy get dup maxlength dict copy[/questiondown/space]{2 | |
| 37 copy known{2 copy get 2 index/.notdef 3 -1 roll put pop exit}if pop}forall put | |
| 38 }{pop pop}ifelse dup NFD/FontName 3 -1 roll put NFD definefont pop end}bd | |
| 39 % vim:ff=unix: | |
| 40 %%EOF |