home *** CD-ROM | disk | FTP | other *** search
/ OpenStep (Enterprise) / OpenStepENTCD.toast / OEDEPLOY / USER.Z / CIDInitN < prev    next >
Text File  |  1996-09-09  |  4KB  |  61 lines

  1. %!PS-Adobe-3.0 Resource-ProcSet
  2. %%BeginResource: ProcSet (CIDInitN)
  3. %%Title: (ProcSet/CIDInitN)
  4. %%Version: 0.402
  5. %%Copyright: ------------------------------------------------------------
  6. %%Copyright: Copyright 1990-1994 Adobe Systems Incorporated.
  7. %%Copyright: All rights reserved.
  8. %%Copyright:
  9. %%Copyright: Patents Pending
  10. %%Copyright:
  11. %%Copyright: NOTICE: All information contained herein is the property
  12. %%Copyright: of Adobe Systems Incorporated. Many of the intellectual
  13. %%Copyright: and technical concepts contained herein are proprietary
  14. %%Copyright: to Adobe, are protected as trade secrets, and are made
  15. %%Copyright: available only to Adobe licensees for their internal use.
  16. %%Copyright: Any reproduction or dissemination of this software is
  17. %%Copyright: strictly forbidden unless prior written permission is
  18. %%Copyright: obtained from Adobe.
  19. %%Copyright:
  20. %%Copyright: PostScript and Display PostScript are trademarks of
  21. %%Copyright: Adobe Systems Incorporated which may be registered in
  22. %%Copyright: certain jurisdictions.
  23. %%Copyright: ------------------------------------------------------------
  24. %%EndComments
  25. userdict/cid_vmstate currentglobal put userdict/cid_packingstate
  26. currentpacking put true setglobal true setpacking/CIDInitN/CIDInitN/ProcSet
  27. findresource dup length dict copy begin
  28. %% Add fixes to CIDInitN ProcSet
  29. /cid_FindFixEntry{/FixCIDInitProcSet 2 copy resourcestatus{pop pop
  30. findresource exch 2 copy known{get true}{pop pop false}ifelse}{pop pop pop
  31. false}ifelse}bind def/cid_usefixcmap{{/FixCMapCategory findresource
  32. cid_usecmap}stopped{/usecmap cid_reraise}if}bind def/cid_GetMaxFontBBox{
  33. /FDepVector get{dup/FontType get 0 eq{/cid_GetMaxFontBBox cvx exec}{/FontBBox
  34. get 0 1 1{dup 3 index exch get exch dup 3 index exch get dup 4 -1 roll lt{3
  35. index 3 1 roll put}{pop pop}ifelse}for 2 1 3{dup 3 index exch get exch dup 3
  36. index exch get dup 4 -1 roll gt{3 index 3 1 roll put}{pop pop}ifelse}for pop}
  37. ifelse}forall}bind def/cid_BuildType3Font{10 dict begin/Encoding exch/Encoding
  38. findresource def/FontBBox exch def/CFont exch def/FontName exch def/FontType 3
  39. def/FontMatrix matrix def/show_str1 1 string def/BuildChar{gsave exch begin
  40. show_str1 exch 0 exch put CFont 1 scalefont setfont show_str1 stringwidth 0 0
  41. moveto show_str1 true charpath flattenpath pathbbox 5 index 5 index 0 0
  42. currentdict/CDevProc known{show_str1 0 get CDevProc}if setcachedevice2 0 0
  43. moveto show_str1 show end grestore}def FontName currentdict end definefont}
  44. bind def/endrearrangedfont{mark{endcmap 2 index currentdict 3 index dup 0 get
  45. dup type/nametype eq{userdict/cid_str120 120 string put userdict/cid_str100
  46. 100 string put cid_str120 cvs userdict exch/cid_templatename exch put
  47. /FDepVector-RF/FixCIDInitProcSet 2 copy resourcestatus{pop pop findresource
  48. false exch{exch cid_str100 cvs cid_templatename exch search{pop pop length 0
  49. eq{exch pop true exit}{pop}ifelse}{pop pop}ifelse}forall}{pop pop false}ifelse
  50. }{pop}ifelse{exec}{composefont}ifelse}stopped{cleartomark/endrearrangedfont
  51. cid_reraise}if pop pop pop pop end}bind def currentdict/cid_Setup known not{
  52. /cid_Setup{userdict/$PGFKeys known{dup/CIDFontName known{dup/CIDFontName get
  53. userdict/$PGFKeys get exch 2 copy known{get false}{pop pop true}ifelse}{true}
  54. ifelse}{true}ifelse{/Setup errordict/invalidfont get exec stop}if eexec pop
  55. pop}bind def}if currentdict end/ProcSet defineresource/CIDInit exch/ProcSet
  56. defineresource pop userdict/cid_vmstate get setglobal userdict
  57. /cid_packingstate get setpacking userdict/cid_vmstate undef userdict
  58. /cid_packingstate undef
  59. %%EndResource
  60. %%EOF
  61.