home *** CD-ROM | disk | FTP | other *** search
/ OpenStep (Enterprise) / OpenStepENTCD.toast / OEDEPLOY / USER.Z / FDepVector < prev    next >
Text File  |  1996-09-09  |  6KB  |  91 lines
  1. %!PS-Adobe-3.0 Resource-FixCIDInitProcSet
  2. %%BeginResource: FixCIDInitProcSet (FDepVector)
  3. %%Title: (FixCIDInitProcSet/FDepVector)
  4. %%Version: 0.402
  5. %%Copyright: ------------------------------------------------------------
  6. %%Copyright: Copyright 1990-1995 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. /FDepVector 10 dict begin lib_extensions/lib_nativeMode get{/RKSJ-H{0 eq{exch
  26. pop/Fix-N-RKSJ-H/FixCMapCategory findresource exch dup length 1 eq{0 get[exch
  27. dup dup dup]}{/Fix-N-RKSJ-H/typecheck cid_raise}ifelse cid_composefont}if}bind
  28. def/RKSJ-V{0 eq{exch pop/Fix-N-RKSJ-V/FixCMapCategory findresource exch dup
  29. length 1 eq{0 get[exch dup dup dup]}{/Fix-N-RKSJ-V/typecheck cid_raise}ifelse
  30. cid_composefont}if}bind def/Ext-RKSJ-V{0 eq{exch pop/Fix-N-Ext-RKSJ-V
  31. /FixCMapCategory findresource exch dup length 1 eq{0 get[exch dup dup dup]}{
  32. /Fix-N-Ext-RKSJ-V/typecheck cid_raise}ifelse cid_composefont}if}bind def
  33. /Ext-RKSJ-H{0 eq{exch pop/Fix-N-Ext-RKSJ-H/FixCMapCategory findresource exch
  34. dup length 1 eq{0 get[exch dup dup dup]}{/Fix-N-Ext-RKSJ-H/typecheck cid_raise
  35. }ifelse cid_composefont}if}bind def/Ext-H{0 eq{exch pop/Fix-N-Ext-H
  36. /FixCMapCategory findresource exch dup length 1 eq{0 get dup type/dicttype ne{
  37. /CIDFont findresource}if dup length dict copy dup/FID undef dup/Encoding
  38. /NominalJISEncoding/Encoding findresource put dup/CIDFontName get 2 copy
  39. /FontName exch put exch definefont[exch 12{dup}repeat]}{/Fix-N-Ext-H/typecheck
  40. cid_raise}ifelse cid_composefont}if}bind def/Ext-V{0 eq{exch pop/Fix-N-Ext-V
  41. /FixCMapCategory findresource exch dup length 1 eq{0 get dup type/dicttype ne{
  42. /CIDFont findresource}if dup length dict copy dup/FID undef dup/Encoding
  43. /NominalJISEncoding/Encoding findresource put dup/CIDFontName get 2 copy
  44. /FontName exch put exch definefont[exch 12{dup}repeat]}{/Fix-Ext-V/typecheck
  45. cid_raise}ifelse cid_composefont}if}bind def/83pv-RKSJ-H{0 eq{exch pop
  46. /Fix-N-83pv-RKSJ-H/FixCMapCategory findresource exch dup length 1 eq{0 get dup
  47. type/dicttype ne{/CIDFont findresource}if dup length dict copy dup/FID undef
  48. dup/Encoding/NominalJISEncoding/Encoding findresource put/cid_CIDF exch
  49. /CIDFont defineresource}{/Fix-N-83pv-RKSJ-H/typecheck cid_raise}ifelse[exch
  50. dup dup/cid_CF-83pv-RKSJ-H exch[exch]/83pv-RKSJ-H exch cid_composefont 1 index
  51. 1 index dup 2 index]cid_composefont}if}bind def/Hankaku{0 eq{/cid_CF-Hankaku 3
  52. 1 roll cid_composefont dup[0 0 0 0]exch cid_GetMaxFontBBox/HankakuEncoding
  53. cid_BuildType3Font}if}bind def/Katakana{0 eq{/cid_CF-Katakana 3 1 roll
  54. cid_composefont dup[0 0 0 0]exch cid_GetMaxFontBBox/KatakanaEncoding
  55. cid_BuildType3Font}if}bind def/Roman{0 eq{/cid_CF-Roman 3 1 roll
  56. cid_composefont dup[0 0 0 0]exch cid_GetMaxFontBBox/HRomanEncoding
  57. cid_BuildType3Font}if}bind def/WP-Symbol{0 eq{/cid_CF-WP-Symbol 3 1 roll
  58. cid_composefont dup[0 0 0 0]exch cid_GetMaxFontBBox/PCSymEncoding
  59. cid_BuildType3Font}if}bind def}{/RKSJ-H{pop exch pop/Fix-C-RKSJ-H
  60. /FixCMapCategory findresource exch cid_composefont}bind def/RKSJ-V{pop exch
  61. pop/Fix-C-RKSJ-V/FixCMapCategory findresource exch cid_composefont}bind def
  62. /Ext-RKSJ-V{pop exch pop/Fix-C-Ext-RKSJ-V/FixCMapCategory findresource exch
  63. cid_composefont}bind def/Ext-RKSJ-H{pop exch pop/Fix-C-Ext-RKSJ-H
  64. /FixCMapCategory findresource exch cid_composefont}bind def/83pv-RKSJ-H{pop
  65. exch pop/Fix-C-83pv-RKSJ-H/FixCMapCategory findresource exch cid_composefont}
  66. bind def/90pv-RKSJ-H{pop exch pop/Fix-C-90pv-RKSJ-H/FixCMapCategory
  67. findresource exch cid_composefont}bind def/Hankaku{pop cid_composefont dup
  68. /FontName get(.Hankaku)search{exch pop exch pop lib_extensions begin
  69. /lib_fontname exch lib_Strcpy(.Hankaku)lib_Strcat lib_Strget end exch
  70. /FDepVector get 0 get dup length dict begin{1 index/FID ne{def}{pop pop}ifelse
  71. }forall currentdict end 2 copy exch/FontName exch put definefont}{pop}ifelse}
  72. bind def/Hiragana{pop cid_composefont dup/FontName get(.Hiragana)search{exch
  73. pop exch pop lib_extensions begin/lib_fontname exch lib_Strcpy(.Hiragana)
  74. lib_Strcat lib_Strget end exch/FDepVector get 0 get dup length dict begin{1
  75. index/FID ne{def}{pop pop}ifelse}forall currentdict end 2 copy exch/FontName
  76. exch put definefont}{pop}ifelse}bind def/Katakana{pop cid_composefont dup
  77. /FontName get(.Katakana)search{exch pop exch pop lib_extensions begin
  78. /lib_fontname exch lib_Strcpy(.Katakana)lib_Strcat lib_Strget end exch
  79. /FDepVector get 0 get dup length dict begin{1 index/FID ne{def}{pop pop}ifelse
  80. }forall currentdict end 2 copy exch/FontName exch put definefont}{pop}ifelse}
  81. bind def/Roman{pop cid_composefont dup/FontName get(.Roman)search{exch pop
  82. exch pop lib_extensions begin/lib_fontname exch lib_Strcpy(.Roman)lib_Strcat
  83. lib_Strget end exch/FDepVector get 0 get dup length dict begin{1 index/FID ne{
  84. def}{pop pop}ifelse}forall currentdict end 2 copy exch/FontName exch put
  85. definefont}{pop}ifelse}bind def/WP-Symbol{pop cid_composefont dup/FontName get
  86. (.WP-Symbol)search{exch pop exch pop lib_extensions begin/lib_fontname exch
  87. lib_Strcpy(.WP-Symbol)lib_Strcat lib_Strget end exch/FDepVector get 0 get dup
  88. length dict begin{1 index/FID ne{def}{pop pop}ifelse}forall currentdict end 2
  89. copy exch/FontName exch put definefont}{pop}ifelse}bind def}ifelse currentdict
  90. end/FixCIDInitProcSet defineresource pop
  91.