22

✏️ Editing: gs_il1_e.ps

% Copyright (C) 2001-2019 Artifex Software, Inc.
% All Rights Reserved.
%
% This software is provided AS-IS with no warranty, either express or
% implied.
%
% This software is distributed under license and may not be copied,
% modified or distributed except as expressly authorized under the terms
% of the license contained in the file LICENSE in this distribution.
%
% Refer to licensing information at http://www.artifex.com or contact
% Artifex Software, Inc.,  1305 Grant Avenue - Suite 200, Novato,
% CA 94945, U.S.A., +1(415)492-9861, for further information.
%

% Define the ISO Latin-1 encoding vector.
% The first half is the same as the standard encoding,
% except for minus instead of hyphen at code 055.
/ISOLatin1Encoding
StandardEncoding 0 45 getinterval aload pop
    /minus
StandardEncoding 46 82 getinterval aload pop
% NOTE: the following are missing in the Adobe documentation,
% but appear in the displayed table:
% macron at 0225, dieresis at 0230, cedilla at 0233, space at 0240.
% This is an error in the Red Book, corrected in Adobe TN 5085.
% \20x
    /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
    /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
    /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent
    /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron
% \24x
    /space /exclamdown /cent /sterling
        /currency /yen /brokenbar /section
    /dieresis /copyright /ordfeminine /guillemotleft
        /logicalnot /hyphen /registered /macron
    /degree /plusminus /twosuperior /threesuperior
        /acute /mu /paragraph /periodcentered
    /cedilla /onesuperior /ordmasculine /guillemotright
        /onequarter /onehalf /threequarters /questiondown
% \30x
    /Agrave /Aacute /Acircumflex /Atilde
        /Adieresis /Aring /AE /Ccedilla
    /Egrave /Eacute /Ecircumflex /Edieresis
        /Igrave /Iacute /Icircumflex /Idieresis
    /Eth /Ntilde /Ograve /Oacute
        /Ocircumflex /Otilde /Odieresis /multiply
    /Oslash /Ugrave /Uacute /Ucircumflex
        /Udieresis /Yacute /Thorn /germandbls
% \34x
    /agrave /aacute /acircumflex /atilde
        /adieresis /aring /ae /ccedilla
    /egrave /eacute /ecircumflex /edieresis
        /igrave /iacute /icircumflex /idieresis
    /eth /ntilde /ograve /oacute
        /ocircumflex /otilde /odieresis /divide
    /oslash /ugrave /uacute /ucircumflex
        /udieresis /yacute /thorn /ydieresis
% Make an array on large systems, a packed array on small ones.
256
vmstatus exch pop exch pop
100000 ge { array astore readonly } { packedarray } ifelse
def
1 ISOLatin1Encoding .registerencoding
/ISOLatin1Encoding ISOLatin1Encoding .defineencoding

MR SKB