|
0
|
1 %!PS-Adobe-3.0 Resource-ProcSet
|
|
|
2 %%Title: VIM-CIDFont
|
|
|
3 %%Version: 1.0 0
|
|
|
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 /CP currentpacking d T setpacking
|
|
|
9 /SB 256 string d
|
|
|
10 /CIDN? systemdict/composefont known d /GS? systemdict/.makeoperator known d
|
|
|
11 CIDN?{
|
|
|
12 GS?{/vim_findresource{2 copy resourcestatus not{1 index SB cvs runlibfile}{
|
|
|
13 pop pop}ifelse findresource}bd/vim_composefont{0 get/CIDFont vim_findresource
|
|
|
14 exch/CMap vim_findresource exch[exch]composefont pop}bd}{/vim_findresource
|
|
|
15 /findresource ld/vim_composefont{composefont pop}bd}ifelse
|
|
|
16 }{
|
|
|
17 /vim_fontname{0 get SB cvs length dup SB exch(-)putinterval 1 add dup SB exch
|
|
|
18 dup 256 exch sub getinterval 3 -1 roll exch cvs length add SB exch 0 exch
|
|
|
19 getinterval cvn}bd/vim_composefont{vim_fontname findfont d}bd
|
|
|
20 } ifelse
|
|
|
21 /cfs{exch scalefont d}bd
|
|
|
22 /sffs{findfont 3 1 roll 1 index mul exch 2 index/FontMatrix get matrix copy
|
|
|
23 scale makefont d}bd
|
|
|
24 CP setpacking
|
|
|
25 % vim:ff=unix:
|
|
|
26 %%EOF
|
