home *** CD-ROM | disk | FTP | other *** search
/ OpenStep (Enterprise) / OpenStepENTCD.toast / OEDEPLOY / USER.Z / PGFInit2 < prev    next >
Text File  |  1996-09-09  |  5KB  |  77 lines
  1. %!PS-Adobe-3.0 Resource-File
  2. %%BeginResource: file (Sys/PGFInit2)
  3. %%Title: (Sys/PGFInit2)
  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. systemdict/currentpacking known{currentpacking true setpacking}if systemdict
  26. /currentglobal known{currentglobal false setglobal}if 1183615869 internaldict
  27. dup begin/eCCRun known not{/eCCRun{{//systemdict/internaldict get 1183615869
  28. exch exec/$strop2 get 907181848 exch exec}stopped{pop/BuildChar errordict
  29. /invalidfont get exec stop}if 1183615869 internaldict/CCRun get exec}bind
  30. executeonly def}if end systemdict/monitor known{currentglobal true setglobal
  31. systemdict/globaldict get}{1183615869 internaldict}ifelse begin/$DiskPGFont 32
  32. dict def $DiskPGFont begin 1183615869 internaldict/compBuildChar known{
  33. /BuildChar 1183615869 internaldict/compBuildChar get def}{/BuildChar{userdict
  34. /$UDPGFont known not{userdict/$UDPGFont 22 dict dup/CurName()put dup/CurFile 0
  35. put dup/CurOpen false put dup/NameBuffer 64 string put dup/DataBuffer 500
  36. string put dup/c 0 put dup/fd 0 put dup/cn 0 put dup/co 0 put dup/pf 0 put dup
  37. /pd 0 put dup/po1 0 put dup/po2 0 put dup/pl 0 put dup/tn 0 put dup/ri 0 put
  38. put}if userdict/$UDPGFont get begin/c exch def/fd exch def/cn fd/Encoding get
  39. c get def fd/CharStrings get dup cn known{cn get}{/.notdef get}ifelse dup
  40. xcheck{//systemdict begin fd begin c exch exec end end}{/co exch fd
  41. /CharOffsets get exch 6 mul 6 getinterval def/pf co 0 get fd/PGFArray get exch
  42. get dup type/dicttype ne{findpgfont}if def/po1 co 1 get def/po2 co 2 get 8
  43. bitshift co 3 get add def/pl co 4 get 8 bitshift co 5 get add def fd c pf
  44. /CharStringsArray get dup type/stringtype eq{/CurOpen CurFile type/filetype ne
  45. {false}{CurFile status}ifelse def CurName ne CurOpen not or{CurOpen{CurFile
  46. closefile}if pf/CharStringsArray get length dup NameBuffer length gt{string
  47. /NameBuffer exch def}{pop}ifelse/CurName pf/CharStringsArray get NameBuffer
  48. copy def/CurFile CurName(r)file def}if CurFile po1 16 bitshift po2 add
  49. setfileposition pl DataBuffer length gt{/DataBuffer pl 1.1 mul cvi string def}
  50. if CurFile DataBuffer 0 pl getinterval readstring pop}{po1 get po2 pl
  51. getinterval}ifelse cvx/pd fd/Private get def fd/Private pf/Private get{dup
  52. /RunInt get/ri exch def put}//systemdict/internaldict get 1183615869 exch exec
  53. /superexec get exec ri/CCRun eq ri/BMRun eq or ri/eCCRun eq or{//systemdict
  54. /internaldict get 1183615869 exch exec ri get exec}{ri load exec}ifelse fd
  55. /Private pd{put}//systemdict/internaldict get 1183615869 exch exec/superexec
  56. get exec}ifelse end}bind executeonly def}ifelse/MDID 0 def/MDFV[]def/MDFS 1536
  57. string def/MDFF{FontDirectory 4 index known dup{pop 3 index findfont/Private
  58. get{/UniqueID get}//systemdict/internaldict get 1183615869 exch exec/superexec
  59. get exec 3 index eq}executeonly if{//$DiskPGFont/MDFS get exch 0 exch
  60. getinterval currentfile exch readstring pop pop pop pop findfont}executeonly{
  61. 15 dict begin string currentfile exch readstring pop/CharOffsets exch readonly
  62. def//$DiskPGFont/MDFV get exch get dup 0 get/Encoding exch findencoding def
  63. dup 1 get/CharStrings exch findcharstrings def dup 2 get/FontBBox exch
  64. readonly def dup 3 get/PGFArray exch readonly def dup 4 get/FontMatrix exch
  65. readonly def 5 get dup null eq{pop}{/CDevProc exch findcdevproc def}ifelse dup
  66. true eq{pop//$DiskPGFont/MDID 2 copy get dup null eq{pop pop pop null}{dup 1
  67. add exch 4 1 roll put}ifelse}if dup null ne{/UniqueID 1 index def}if exch
  68. /FontName exch def/FontType 4 def/PaintType 0 def/BuildChar//$DiskPGFont
  69. /BuildChar get def/Private 2 dict dup begin/password 5839 def/UniqueID 4 -1
  70. roll dup false eq{pop null}if def end noaccess def currentdict end dup
  71. /FontName get exch definefont}executeonly ifelse}bind executeonly def
  72. systemdict/monitor known{setglobal}if end end systemdict/currentpacking known{
  73. setpacking}if systemdict/currentglobal known{setglobal}if systemdict
  74. currentdict eq{end}if currentfile closefile
  75. %%EndResource
  76. %%EOF
  77.