|
7
|
1 %!PS-Adobe-3.0 Resource-ProcSet
|
|
|
2 %%Title: VIM-Prolog
|
|
14
|
3 %%Version: 1.4 1
|
|
7
|
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!
|
|
15
|
8 /packedarray where not{userdict begin/setpacking/pop load def/currentpacking
|
|
|
9 false def end}{pop}ifelse/CP currentpacking def true setpacking
|
|
7
|
10 /bd{bind def}bind def/ld{load def}bd/ed{exch def}bd/d/def ld
|
|
|
11 /db{dict begin}bd/cde{currentdict end}bd
|
|
|
12 /T true d/F false d
|
|
|
13 /SO null d/sv{/SO save d}bd/re{SO restore}bd
|
|
|
14 /L2 systemdict/languagelevel 2 copy known{get exec}{pop pop 1}ifelse 2 ge d
|
|
15
|
15 /m/moveto ld/s/show ld /ms{m s}bd /g/setgray ld/r/setrgbcolor ld/sp{showpage}bd
|
|
|
16 /gs/gsave ld/gr/grestore ld/cp/currentpoint ld
|
|
7
|
17 /ul{gs UW setlinewidth cp UO add 2 copy newpath m 3 1 roll add exch lineto
|
|
|
18 stroke gr}bd
|
|
|
19 /bg{gs r cp BO add 4 -2 roll rectfill gr}bd
|
|
|
20 /sl{90 rotate 0 exch translate}bd
|
|
|
21 L2{
|
|
|
22 /sspd{mark exch{setpagedevice}stopped cleartomark}bd
|
|
|
23 /nc{1 db/NumCopies ed cde sspd}bd
|
|
|
24 /sps{3 db/Orientation ed[3 1 roll]/PageSize ed/ImagingBBox null d cde sspd}bd
|
|
|
25 /dt{2 db/Tumble ed/Duplex ed cde sspd}bd
|
|
|
26 /c{1 db/Collate ed cde sspd}bd
|
|
|
27 }{
|
|
|
28 /nc{/#copies ed}bd
|
|
|
29 /sps{statusdict/setpage get exec}bd
|
|
|
30 /dt{statusdict/settumble 2 copy known{get exec}{pop pop pop}ifelse
|
|
|
31 statusdict/setduplexmode 2 copy known{get exec}{pop pop pop}ifelse}bd
|
|
|
32 /c{pop}bd
|
|
|
33 }ifelse
|
|
|
34 /ffs{findfont exch scalefont d}bd/sf{setfont}bd
|
|
|
35 /ref{1 db findfont dup maxlength dict/NFD ed{exch dup/FID ne{exch NFD 3 1 roll
|
|
|
36 put}{pop pop}ifelse}forall/Encoding findresource dup length 256 eq{NFD/Encoding
|
|
|
37 3 -1 roll put}{pop}ifelse NFD dup/FontType get 3 ne{/CharStrings}{/CharProcs}
|
|
|
38 ifelse 2 copy known{2 copy get dup maxlength dict copy[/questiondown/space]{2
|
|
|
39 copy known{2 copy get 2 index/.notdef 3 -1 roll put pop exit}if pop}forall put
|
|
|
40 }{pop pop}ifelse dup NFD/FontName 3 -1 roll put NFD definefont pop end}bd
|
|
15
|
41 CP setpacking
|
|
14
|
42 (\004)cvn{}bd
|
|
7
|
43 % vim:ff=unix:
|
|
|
44 %%EOF
|
