gs_mgl_e.ps 2.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. % Copyright (C) 1999, 2000 Aladdin Enterprises. All rights reserved.
  2. %
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. %
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. %
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA 94903, U.S.A., +1(415)492-9861.
  15. % $Id: gs_mgl_e.ps,v 1.5 2002/02/21 21:49:28 giles Exp $
  16. % Define the Macintosh standard glyph encoding vector.
  17. % This is not an Encoding strictly speaking, but we treat it like one.
  18. /currentglobal where
  19. { pop currentglobal { setglobal } true setglobal }
  20. { { } }
  21. ifelse
  22. /MacRomanEncoding .findencoding
  23. /MacGlyphEncoding
  24. /.notdef /.null /CR
  25. % 3
  26. 4 index 32 95 getinterval aload pop
  27. % 98
  28. 99 index 128 45 getinterval aload pop
  29. % 143
  30. /notequal /AE
  31. /Oslash /infinity /plusminus /lessequal /greaterequal
  32. /yen /mu1 /partialdiff /summation /product
  33. /pi /integral /ordfeminine /ordmasculine /Ohm
  34. /ae /oslash /questiondown /exclamdown /logicalnot
  35. /radical /florin /approxequal /increment /guillemotleft
  36. /guillemotright /ellipsis /nbspace
  37. % 173
  38. 174 index 203 12 getinterval aload pop
  39. /lozenge
  40. % 186
  41. 187 index 216 24 getinterval aload pop
  42. /applelogo
  43. % 211
  44. 212 index 241 7 getinterval aload pop
  45. /overscore
  46. % 219
  47. 220 index 249 7 getinterval aload pop
  48. % 226
  49. /Lslash /lslash /Scaron /scaron
  50. /Zcaron /zcaron /brokenbar /Eth /eth
  51. /Yacute /yacute /Thorn /thorn /minus
  52. /multiply /onesuperior /twosuperior /threesuperior /onehalf
  53. /onequarter /threequarters /franc /Gbreve /gbreve
  54. % The TrueType documentation says the next glyph is named
  55. % Idot, but the Adobe standard name for this glyph is
  56. % Idotaccent.
  57. /Idotaccent /Scedilla /scedilla /Cacute /cacute
  58. /Ccaron /ccaron /dmacron
  59. 260 -1 roll pop % delete MacRomanEncoding
  60. 258 packedarray
  61. 7 1 index .registerencoding
  62. .defineencoding
  63. exec