home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OpenStep (Enterprise)
/
OpenStepENTCD.toast
/
OEDEV
/
USER.Z
/
CIDInitN
< prev
next >
Wrap
Text File
|
1996-09-09
|
4KB
|
61 lines
%!PS-Adobe-3.0 Resource-ProcSet
%%BeginResource: ProcSet (CIDInitN)
%%Title: (ProcSet/CIDInitN)
%%Version: 0.402
%%Copyright: ------------------------------------------------------------
%%Copyright: Copyright 1990-1994 Adobe Systems Incorporated.
%%Copyright: All rights reserved.
%%Copyright:
%%Copyright: Patents Pending
%%Copyright:
%%Copyright: NOTICE: All information contained herein is the property
%%Copyright: of Adobe Systems Incorporated. Many of the intellectual
%%Copyright: and technical concepts contained herein are proprietary
%%Copyright: to Adobe, are protected as trade secrets, and are made
%%Copyright: available only to Adobe licensees for their internal use.
%%Copyright: Any reproduction or dissemination of this software is
%%Copyright: strictly forbidden unless prior written permission is
%%Copyright: obtained from Adobe.
%%Copyright:
%%Copyright: PostScript and Display PostScript are trademarks of
%%Copyright: Adobe Systems Incorporated which may be registered in
%%Copyright: certain jurisdictions.
%%Copyright: ------------------------------------------------------------
%%EndComments
userdict/cid_vmstate currentglobal put userdict/cid_packingstate
currentpacking put true setglobal true setpacking/CIDInitN/CIDInitN/ProcSet
findresource dup length dict copy begin
%% Add fixes to CIDInitN ProcSet
/cid_FindFixEntry{/FixCIDInitProcSet 2 copy resourcestatus{pop pop
findresource exch 2 copy known{get true}{pop pop false}ifelse}{pop pop pop
false}ifelse}bind def/cid_usefixcmap{{/FixCMapCategory findresource
cid_usecmap}stopped{/usecmap cid_reraise}if}bind def/cid_GetMaxFontBBox{
/FDepVector get{dup/FontType get 0 eq{/cid_GetMaxFontBBox cvx exec}{/FontBBox
get 0 1 1{dup 3 index exch get exch dup 3 index exch get dup 4 -1 roll lt{3
index 3 1 roll put}{pop pop}ifelse}for 2 1 3{dup 3 index exch get exch dup 3
index exch get dup 4 -1 roll gt{3 index 3 1 roll put}{pop pop}ifelse}for pop}
ifelse}forall}bind def/cid_BuildType3Font{10 dict begin/Encoding exch/Encoding
findresource def/FontBBox exch def/CFont exch def/FontName exch def/FontType 3
def/FontMatrix matrix def/show_str1 1 string def/BuildChar{gsave exch begin
show_str1 exch 0 exch put CFont 1 scalefont setfont show_str1 stringwidth 0 0
moveto show_str1 true charpath flattenpath pathbbox 5 index 5 index 0 0
currentdict/CDevProc known{show_str1 0 get CDevProc}if setcachedevice2 0 0
moveto show_str1 show end grestore}def FontName currentdict end definefont}
bind def/endrearrangedfont{mark{endcmap 2 index currentdict 3 index dup 0 get
dup type/nametype eq{userdict/cid_str120 120 string put userdict/cid_str100
100 string put cid_str120 cvs userdict exch/cid_templatename exch put
/FDepVector-RF/FixCIDInitProcSet 2 copy resourcestatus{pop pop findresource
false exch{exch cid_str100 cvs cid_templatename exch search{pop pop length 0
eq{exch pop true exit}{pop}ifelse}{pop pop}ifelse}forall}{pop pop false}ifelse
}{pop}ifelse{exec}{composefont}ifelse}stopped{cleartomark/endrearrangedfont
cid_reraise}if pop pop pop pop end}bind def currentdict/cid_Setup known not{
/cid_Setup{userdict/$PGFKeys known{dup/CIDFontName known{dup/CIDFontName get
userdict/$PGFKeys get exch 2 copy known{get false}{pop pop true}ifelse}{true}
ifelse}{true}ifelse{/Setup errordict/invalidfont get exec stop}if eexec pop
pop}bind def}if currentdict end/ProcSet defineresource/CIDInit exch/ProcSet
defineresource pop userdict/cid_vmstate get setglobal userdict
/cid_packingstate get setpacking userdict/cid_vmstate undef userdict
/cid_packingstate undef
%%EndResource
%%EOF