home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / prolog.ps < prev    next >
Text File  |  2003-08-12  |  2KB  |  41 lines
  1. %!PS-Adobe-3.0 Resource-ProcSet
  2. %%Title: VIM-Prolog
  3. %%Version: 1.3 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. /bd{bind def}bind def/ld{load def}bd/ed{exch def}bd/d/def ld
  9. /db{dict begin}bd/cde{currentdict end}bd
  10. /T true d/F false d
  11. /SO null d/sv{/SO save d}bd/re{SO restore}bd
  12. /L2 systemdict/languagelevel 2 copy known{get exec}{pop pop 1}ifelse 2 ge d
  13. /m{moveto}bd/s{show}bd/ms{m s}bd/g{setgray}bd/r{setrgbcolor}bd/sp{showpage}bd
  14. /gs{gsave}bd/gr{grestore}bd/cp{currentpoint}bd
  15. /ul{gs UW setlinewidth cp UO add 2 copy newpath m 3 1 roll add exch lineto
  16. stroke gr}bd
  17. /bg{gs r cp BO add 4 -2 roll rectfill gr}bd
  18. /sl{90 rotate 0 exch translate}bd
  19. L2{
  20. /sspd{mark exch{setpagedevice}stopped cleartomark}bd
  21. /nc{1 db/NumCopies ed cde sspd}bd
  22. /sps{3 db/Orientation ed[3 1 roll]/PageSize ed/ImagingBBox null d cde sspd}bd
  23. /dt{2 db/Tumble ed/Duplex ed cde sspd}bd
  24. /c{1 db/Collate ed cde sspd}bd
  25. }{
  26. /nc{/#copies ed}bd
  27. /sps{statusdict/setpage get exec}bd
  28. /dt{statusdict/settumble 2 copy known{get exec}{pop pop pop}ifelse
  29. statusdict/setduplexmode 2 copy known{get exec}{pop pop pop}ifelse}bd
  30. /c{pop}bd
  31. }ifelse
  32. /ffs{findfont exch scalefont d}bd/sf{setfont}bd
  33. /ref{1 db findfont dup maxlength dict /NFD ed{exch dup/FID ne{exch NFD 3 1 roll
  34. put}{pop pop}ifelse}forall/Encoding findresource dup length 256 eq{NFD/Encoding
  35. 3 -1 roll put}{pop}ifelse NFD dup/FontType get 3 ne{/CharStrings}{/CharProcs}
  36. ifelse 2 copy get dup maxlength dict copy[/questiondown/space]{2 copy known{2
  37. copy get 2 index/.notdef 3 -1 roll put pop exit}if pop}forall put dup NFD
  38. /FontName 3 -1 roll put NFD definefont pop end}bd
  39. % vim:ff=unix:
  40. %%EOF
  41.