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