home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / runtime / dos / print / cidfont.ps < prev    next >
Encoding:
Text File  |  2010-08-15  |  1.1 KB  |  27 lines
  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
  27.