runtime/print/cidfont.ps

   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