% > <PDriver$Dir>.<PDriver$PSprologue>
% User-editable prologue definitions for the PostScript printer driver
% module.
% Version 1.03, first used with version 1.05 of the module.
%%DocumentFonts: Courier Courier-Oblique Courier-Bold
%%+ Courier-BoldOblique Helvetica Helvetica-Oblique Helvetica-Bold
%%+ Helvetica-BoldOblique Times-Roman Times-Italic Times-Bold
%%+ Times-BoldItalic
%%EndComments

% If you add further fonts to the '%%DocumentFonts' and '%%+" comments
% above, make certain that you keep strictly to the format above - in
% particular, all names are case-sensitive, exactly one space should
% appear between the start of the comment and the first font name on
% the line, exactly one space should appear between font names, and
% there should no surplus spaces at the ends of lines.
%   Note also that all PostScript font names quoted in the font
% translation data at the bottom of this file should appear in these
% comments.

% Note for advanced users: the printer driver module will remove
% PostScript comments from this file when copying it into the PostScript
% output (to avoid excessive amounts of output) according to the
% following simple algorithm:
%   (a) If a line starts with "%%" or "%!", it is copied without any
%       changes.
%   (b) If a line starts with a "%" and does not start with "%%" or
%       "%!", the whole line is removed, including the new line at the
%       end of it.
%   (c) If a "%" appears anywhere else in a line that does not start
%       with "%%" or "%!", it and all characters up to but not including
%       the following new line are removed.
% In the unlikely event that you wish to add some PostScript containing
% e.g. a string with a "%" in it, use the "\045" escape sequence
% instead.
%   The printer driver will also compress multiple new lines down to
% one when copying this file.

% The following chunk of PostScript defines the ISO 8859-1 Latin 1
% mapping of character codes to PostScript character names. It can be
% edited if necessary to produce other encodings or to add characters
% in the range 128-159. Note that PostScript character names are case-
% sensitive.

/Latin1Enc [
/.notdef /.notdef /.notdef /.notdef     % Codes 0-31 (not used)
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/space /exclam /quotedbl /numbersign    % Codes 32-63
/dollar /percent /ampersand /quoteright
/parenleft /parenright /asterisk /plus
/comma /hyphen /period /slash
/zero /one /two /three
/four /five /six /seven
/eight /nine /colon /semicolon
/less /equal /greater /question
/at /A /B /C                            % Codes 64-95
/D /E /F /G
/H /I /J /K
/L /M /N /O
/P /Q /R /S
/T /U /V /W
/X /Y /Z /bracketleft
/backslash /bracketright /circumflex /underscore
/grave /a /b /c                         % Codes 96-127
/d /e /f /g
/h /i /j /k
/l /m /n /o
/p /q /r /s
/t /u /v /w
/x /y /z /braceleft
/bar /braceright /tilde /.notdef        % NB code 127 is unused
/.notdef /.notdef /.notdef /.notdef     % Codes 128-159 (redefinable)
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/space /exclamdown /cent /sterling      % Codes 160-191
/currency /yen /brokenbar /section
/dieresis /copyright /ordfeminine /guillemotleft
/logicalnot /hyphen /registered /macron
/ring /plusminus /twosuperior /threesuperior
/acute /mu /paragraph /periodcentered
/cedilla /onesuperior /ordmasculine /guillemotright
/onequarter /onehalf /threequarters /questiondown
/Agrave /Aacute /Acircumflex /Atilde    % Codes 192-223
/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
/agrave /aacute /acircumflex /atilde    % Codes 224-255
/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
] def

% Unless you really know what you are doing, do not edit the following
% PostScript, except for the indicated possible change.

/fonts 200 dict def

/PopCh {pop} bind def

/RemCh {Encoding exch /.notdef put} bind def

/ChkCh {
  dup Encoding exch get
  CharStrings exch known /PopCh load /RemCh load ifelse
} bind def

/FF {
  findfont begin
    currentdict dup maxlength dict begin
      {1 index /FID ne {def} {pop pop} ifelse} forall
      /Encoding Latin1Enc 256 array copy def
% Possible change: Delete or comment out the following line if you don't
% want undefined PostScript characters to be ignored.
      0 1 255 /ChkCh load for
      dup currentdict
    end
  end
  definefont
  fonts 3 1 roll put
} bind def

% The font translation data follows. You can install further
% translations by adding lines of the form:
%   /<RISC OS font name> /<PostScript font name> FF
% Note that all names are case-sensitive. Also note that you should
% add any additional PostScript font names that appear here to the
% '%%DocumentFonts' comment at the head of this file.
%   This line will take a copy of the PostScript font specified, copy
% the Latin 1 encoding into it to get the right mapping of character
% codes to characters and install the result as a new font whose name
% is the RISC OS font name. In addition, it checks that all of the
% characters named in the encoding vector exist in the font: any that
% don't are removed (i.e. replaced by '/.notdef') from the new font's
% encoding.

/Corpus.Medium /Courier FF
/Corpus.Medium.Oblique /Courier-Oblique FF
/Corpus.Bold /Courier-Bold FF
/Corpus.Bold.Oblique /Courier-BoldOblique FF
/Homerton.Medium /Helvetica FF
/Homerton.Medium.Oblique /Helvetica-Oblique FF
/Homerton.Bold /Helvetica-Bold FF
/Homerton.Bold.Oblique /Helvetica-BoldOblique FF
/Trinity.Medium /Times-Roman FF
/Trinity.Medium.Italic /Times-Italic FF
/Trinity.Bold /Times-Bold FF
/Trinity.Bold.Italic /Times-BoldItalic FF

