Bram Moolenaar | 8299df9 | 2004-07-10 09:47:34 +0000 | [diff] [blame] | 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 |