home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 March / VPR0003B.ISO / support / usprndrv / alpha / pscript4.dll / 259 / 26 < prev    next >
Text File  |  1999-10-14  |  2KB  |  32 lines
  1. %%BeginResource: file Pscript_T3Hdr 5.0 0
  2. {version cvi 2016 ge{32/FontType resourcestatus{pop pop true}{false}ifelse}
  3. {false}ifelse}exec/Is2016andT32? exch def Is2016andT32?{/CIDInit/ProcSet
  4. findresource begin 10 dict begin begincmap/CIDSystemInfo 3 dict dup begin
  5. /Registry(Adobe)def/Ordering(Identity1)def/Supplement 0 def end def/CMapType 0
  6. def/WMode 0 def 1 begincodespacerange<00><ff>endcodespacerange 1 begincidrange
  7. <00><ff>0 endcidrange endcmap/DrvSBCMap currentdict/CMap defineresource pop end
  8. end}if/T32RsrcBegin{Is2016andT32?{/BitmapFontInit/ProcSet findresource begin}
  9. if}bind def/T32RsrcEnd{Is2016andT32?{end}if}bind def/AddT32Char{6 1 roll 0 get
  10. 7 1 roll pop pop 5 1 roll pop findfont/TT32R get addglyph}bind def/AddT3Char
  11. {findfont dup 5 2 roll 1 index length 0 gt{cvx 1 index exch 4 exch put dup
  12. (imagemask)cvx cvn 5 exch put cvx}{pop cvx}ifelse 3 -1 roll/CharProcs get 3 1
  13. roll put dup/Encoding get 5 -1 roll 4 index put/Metrics get 3 1 roll put}bind
  14. def/AddT3T32Char Is2016andT32?{/AddT32Char}{/AddT3Char}ifelse load def
  15. /GreNewFontT32{5 dict begin exch/FontMatrix exch def exch/FontBBox exch def
  16. exch pop exch pop/CIDFontType 4 def dup currentdict end/CIDFont defineresource
  17. 3 -1 roll dup/DrvSBCMap 5 -1 roll[exch]composefont dup length dict copy dup/FID
  18. undef begin exch/TT32R exch def currentdict end definefont/BitmapFontInit
  19. /ProcSet findresource begin/TT32R get[14 0 0 0 0 0]<>0 4 -1 roll addglyph end}
  20. bind def/GreNewFontT3{11 dict begin pop/FontType 3 def/FontMatrix exch def
  21. /FontBBox exch def/Encoding exch def/CharProcs 257 dict def CharProcs/.notdef{}
  22. put/Metrics 257 dict def Metrics/.notdef 3 -1 roll put/BuildChar{userdict begin
  23. /char exch def dup/charname exch/Encoding get char get def dup/Metrics get
  24. charname 2 copy known{get aload pop}{pop/.notdef get aload pop}ifelse
  25. setcachedevice begin Encoding char get CharProcs exch 2 copy known{get}{pop
  26. /.notdef get}ifelse end exec end}def currentdict end definefont pop}bind def
  27. /GreNewFont{Is2016andT32?{GreNewFontT32}{GreNewFontT3}ifelse}bind def/UDF3
  28. {Is2016andT32?{/BitmapFontInit/ProcSet findresource begin dup/CIDFont
  29. findresource removeall/CIDFont undefineresource undefinefont end}{pop UDF}
  30. ifelse}bind def
  31. %%EndResource
  32.