blob: a06ebc8c4c3751f23a27e6ae8cef75271b04d3a3 [file] [log] [blame]
Bram Moolenaar8299df92004-07-10 09:47:34 +00001%!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
11CIDN?{
12GS?{/vim_findresource{2 copy resourcestatus not{1 index SB cvs runlibfile}{
13pop pop}ifelse findresource}bd/vim_composefont{0 get/CIDFont vim_findresource
14exch/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
18dup 256 exch sub getinterval 3 -1 roll exch cvs length add SB exch 0 exch
19getinterval 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
23scale makefont d}bd
24CP setpacking
25% vim:ff=unix:
26%%EOF