gs_mgl_e.ps 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
  1. % Copyright (C) 1999, 2000 Aladdin Enterprises. All rights reserved.
  2. %
  3. % This file is part of AFPL Ghostscript.
  4. %
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND. No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing. Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. %
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC. The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License. Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17. % $Id: gs_mgl_e.ps,v 1.3 2000/09/19 18:29:11 lpd Exp $
  18. % Define the Macintosh standard glyph encoding vector.
  19. % This is not an Encoding strictly speaking, but we treat it like one.
  20. /currentglobal where
  21. { pop currentglobal { setglobal } true setglobal }
  22. { { } }
  23. ifelse
  24. /MacRomanEncoding .findencoding
  25. /MacGlyphEncoding
  26. /.notdef /.null /CR
  27. % 3
  28. 4 index 32 95 getinterval aload pop
  29. % 98
  30. 99 index 128 45 getinterval aload pop
  31. % 143
  32. /notequal /AE
  33. /Oslash /infinity /plusminus /lessequal /greaterequal
  34. /yen /mu1 /partialdiff /summation /product
  35. /pi /integral /ordfeminine /ordmasculine /Ohm
  36. /ae /oslash /questiondown /exclamdown /logicalnot
  37. /radical /florin /approxequal /increment /guillemotleft
  38. /guillemotright /ellipsis /nbspace
  39. % 173
  40. 174 index 203 12 getinterval aload pop
  41. /lozenge
  42. % 186
  43. 187 index 216 24 getinterval aload pop
  44. /applelogo
  45. % 211
  46. 212 index 241 7 getinterval aload pop
  47. /overscore
  48. % 219
  49. 220 index 249 7 getinterval aload pop
  50. % 226
  51. /Lslash /lslash /Scaron /scaron
  52. /Zcaron /zcaron /brokenbar /Eth /eth
  53. /Yacute /yacute /Thorn /thorn /minus
  54. /multiply /onesuperior /twosuperior /threesuperior /onehalf
  55. /onequarter /threequarters /franc /Gbreve /gbreve
  56. % The TrueType documentation says the next glyph is named
  57. % Idot, but the Adobe standard name for this glyph is
  58. % Idotaccent.
  59. /Idotaccent /Scedilla /scedilla /Cacute /cacute
  60. /Ccaron /ccaron /dmacron
  61. 260 -1 roll pop % delete MacRomanEncoding
  62. 258 packedarray
  63. 7 1 index .registerencoding
  64. .defineencoding
  65. exec