% \CheckSum{2502}
% \iffalse meta-comment
%
% Copyright 1993, 1994, 1995, 1996 Alan Jeffrey,
% hacked and maintained 1997, 1998 Sebastian Rahtz,
% copyright 1998, 1999, 2000 the fontinst maintenance team and any
% individual authors listed elsewhere in this file. All rights reserved.
%
% This file is part of the fontinst system version 1.9.
% -----------------------------------------------------
%
% It may be distributed under the terms of the LaTeX Project Public
% License, as described in lppl.txt in the base LaTeX distribution.
% Either version 1.1 or, at your option, any later version.
%
%%% From file: ficonv.dtx
%
%<*driver>
\documentclass{ltxdoc}
\usepackage{fisource}
\title{The \package{fontinst} utility}
\author{Alan Jeffrey, Sebastian Rahtz, Ulrik Vieth, Lars Hellstr\"om}
\begin{document}
\maketitle
\tableofcontents
\DocInput{ficonv.dtx}
\end{document}
%</driver>
% \fi
%
% \StopEventually{}
%
% \section{Basic file format conversions}
% \label{Sec:Conv. input}
% \changes{1.902}{1999/05/01}{Collected the material in Section
% \thesection\space and moved it to \texttt{ficonv.dtx}. (LH)}
% \changes{1.926}{2003/07/12}{Added some missing \textasciitilde's
% at ends of lines. (LH)}
%
% \subsection{Converting an ENC file to an ETX file}
%
% \DescribeMacro{\enctoetx}
% The macro
% \begin{quote}
% |\enctoetx|\marg{encfile}\marg{etxfile}
% \end{quote}
% reads \meta{encfile}|.enc| and writes the same information to
% \meta{etxfile}|.etx|, in a format \TeX{} can read more easily.
%
%
% \begin{macrocode}
%<*misc>
\newif\ifmissingslots
\x_cs\def{o-.notdef}#1{\global\missingslotstrue}
% \end{macrocode}
%
% \begin{macro}{\enctoetx}
% For every |/|\meta{glyph} command, the command |\o-|\meta{glyph}
% gets passed code which writes the corresponding
% |\setslot|\marg{glyph} \textellipsis\ |\endslot| statement.
% Normally that constrol sequence is undefined, hence equivalent to
% |\relax|, and thus the code gets executed. However |\o-.notdef| will
% instead gobble this argument and set |missingslots| to true.
% \begin{macrocode}
{
\catcode`\/=\active
\catcode`\]=\active
\gdef\enctoetx#1#2{{
\catcode`\/=\active
\catcode`\]=\active
\def/##1[{
\encname_to_etx ##1~{#1}{#2}
\a_count=0
\global\missingslotsfalse
\let/=\encslot_to_etx
}
\def]~def{}
\make_etx{#1}{#2}
}}
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\encname_to_etx}
% This macro recieves the encoding vector name, the ENC file name,
% and the ETX file name when converting an ENC file to an ETX file.
% The call syntax is
% \begin{quote}
% |\encname_to_etx|\meta{vectorname}\textvisiblespace
% \marg{enc}\marg{etx}
% \end{quote}
% (making the first argument space-delimited but the second
% undelimited is a trick to gobble any space that may be present at
% the end of that which the caller thinks is the vector name).
%
% The command outputs a |\declarepsencoding| command to the
% generated ETX file.
% \changes{1.931}{2005/05/13}{Macro added, to support caching
% original ENC names in autogenerated ETX files. (LH)
% Thanks to Alexej Kryukov for the inspiration for this.}
% \begin{macrocode}
\def\encname_to_etx#1~#2#3{
\out_line{\percent_char\space REMOVE~THE~FOLLOWING~LINE~IF~
THIS~FILE~IS~MODIFIED~OR~RENAMED.}
\out_line{\string\declarepsencoding{#3}{#1}{\string\download{#2.enc}}}
\out_line{}
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\encslot_to_etx}
% This macro grabs everything up to the next space and writes a
% |\setslot| entry with the grabbed material as glyph name. It is
% used as the definition of |/| (active character) when parsing
% elements of an encoding vector.
% \changes{1.931}{2005/05/13}{Macro added (separated from
% \cs{enctoetx}). (LH)}
% \begin{macrocode}
\def\encslot_to_etx#1~{
\csname o-#1\endcsname{
\ifmissingslots
\out_line{\string\nextslot{\the\a_count}}
\fi
\global\missingslotsfalse
\out_line{\string\setslot{#1}}
\out_line{\string\endsetslot}
\out_line{}
}
\advance\a_count by 1
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\make_etx}
% |\make_etx| does the stuff that |\enctoetx| does not; it handles
% writing the preamble and postamble of the ETX file, but also does
% the actual |\input| of the ENC file to convert.
% \changes{1.931}{2005/05/13}{Now requiring a particular
% \package{fontdoc} version. (LH)}
% \begin{macrocode}
\def\make_etx#1#2{
\open_out{\temp_prefix#2.etx}
\out_line{\percent_char~Filename:~#2.etx}
\out_line{\percent_char~Created~by:~tex~\jobname}
\out_line{\percent_char~Created~using:~\string\enctoetx{#1}{#2}}
\out_line{}
\out_line{\percent_char~This~file~contains~the~
information~of~#1.enc~in~a~form}
\out_line{\percent_char~more~easily~read~by~TeX.~
It~is~used~by~the~fontinst~package.}
\out_line{}
\out_line{\percent_char~THIS~FILE~CAN~BE~DELETED.}
\out_line{}
\out_line{\string\relax}
\out_line{}
\out_line{\string\documentclass[twocolumn]{article}}
\out_line{\string\usepackage{fontdoc}[2005/05/13]}
\out_line{}
\out_line{\string\begin{document}}
\out_line{}
\out_line{This~document~describes~the~#1~encoding.}
\out_line{It~was~automatically~generated~by~the}
\out_line{\string\texttt{fontinst}~package.}
\out_line{}
\out_line{\string\encoding}
\out_line{}
\out_line{\string\needsfontinstversion{\fontinstversion}}
\out_line{}
\primitiveinput #1.enc\x_relax
\out_line{}
\out_line{\string\end encoding}
\out_line{}
\out_line{\string\end{document}}
\close_out{Encoding}
}
% \end{macrocode}
% \end{macro}
%
%
% \subsection{Converting an ETX file to an ENC file}
% \changes{1.911}{1999/11/21}{ETX to ENC converter added. (LH)}
%
% \DescribeMacro{\etxtoenc}
% The command
% \begin{quote}
% |\etxtoenc|\marg{etxfile}\marg{encfile}
% \end{quote}
% reads \meta{etxfile}|.etx| and generates a postscript encoding file
% \meta{encfile}|.enc| that specifies the same encoding vector.
%
%
% \begin{macro}{\notdef_name}
% This macro holds the name of the \texttt{.notdef} glyph, which must
% be put in all encoding positions where there is no other glyph.
% \begin{macrocode}
\def\notdef_name{.notdef}
% \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\etxtoenc}
% The conversion has three steps. First the \texttt{.notdef} glyph is
% assigned to every slot in the encoding, then the ETX file is read
% and the assignments are changed for the slots which are not
% unassigned in the encoding, and finally the ENC file is written.
% The first two steps are carried out by |\etxtoenc|, but the final
% step is handled by |\make_enc|.
% \changes{1.927}{2004/07/12}{Made the \meta{etxfile} argument a
% comma-separated list of ETX files. Changed \cs{do_slot} definition
% to get set rather than reset semantics. (LH) Feature requested
% by Werner Lemberg.}
% \begin{macrocode}
\def\etxtoenc#1#2{\begingroup
\a_count=\z@
\loop
\x_cs\let{name-\the\a_count}=\notdef_name
\ifnum \@cclv>\a_count
\advance \a_count \@ne
\repeat
\def\do_slot{
\x_cs\ifx{name-\the\slot_number}\notdef_name
\x_cs\edef{name-\the\slot_number}{\slot_name}
\fi
}
\process_csep_list\inputetx #1,\process_csep_list,
\make_enc{#1}{#2}
\endgroup}
% \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\make_enc}
% The command
% \begin{quote}
% |\make_enc|\marg{etxfiles}\marg{encfile}
% \end{quote}
% creates the file \meta{encfile}|.enc| and writes to that file the
% definition of the postscript encoding vector which corresponds to
% the encoding currently stored in the |\name-|\meta{slot} family of
% macros. That encoding is assumed to be defined by the files listed
% in the \meta{etxfiles}.
%
% \changes{1.911}{1999/12/02}{Storing encoding name in string
% \texttt{encodingname}, thus allowing the ETX file to override
% the default. (LH)}
% \changes{1.912}{2000/02/12}{Also calling \cs{declarepsencoding}
% once the encoding file has been written. (LH)}
% \changes{1.914}{2000/05/14}{Not writing an \texttt{address} entry
% if that string isn't set. (LH)}
% \changes{1.919}{2001/08/02}{Added DSC comments. (LH)}
% \changes{1.927}{2004/07/12}{Modified to handle a comma-separated
% list of ETX files. (LH)}
% \begin{macrocode}
\def\make_enc#1#2{
\setstr{encodingname}{fontinst-autoenc-#1}
\def\a_macro##1{
\add_to\b_macro{##1.etx}
\def\a_macro####1{
\add_to\b_macro{,~####1.etx}
}
}
\let\b_macro\empty_command
\process_csep_list\a_macro #1,\process_csep_list,
\open_out{#2.enc}
\out_line{\percent_char !PS-Adobe-3.0~Resource-Encoding}
\out_line{\percent_char\space @psencodingfile\left_brace_char}
\ref_to_sourcefile{author}\b_macro
\ref_to_sourcefile{version}\b_macro
\out_line{\percent_char\four_spaces date~=~"generated~
\the\year/
\ifnum10>\month0\fi\the\month/
\ifnum10>\day0\fi\the\day",}
\out_line{\percent_char\four_spaces filename~=~"\out_filename",}
\ref_to_sourcefile{email}\b_macro
\ifisstr{address}\then
\out_line{\percent_char\four_spaces address~=~\str{address}}
\fi
\out_line{\percent_char\four_spaces codetable~=~"ISO/ASCII",}
\out_line{\percent_char\four_spaces checksum~=~"",}
\out_line{\percent_char\four_spaces abstract~=~"
This~is~a~postscript~encoding~file,~automatically~
generated~by~fontinst~from~\b_macro."}
\out_line{\percent_char\space\right_brace_char}
\out_line{}
\out_line{\percent_char\space Created~by:~tex~\jobname}
\out_line{\percent_char\space Created~using:~
\string\etxtoenc{#1}{#2}}
\out_line{}
\out_line{\percent_char\space This~file~should~be~installed~
somewhere~that~your~DVI}
\out_line{\percent_char\space to~postscript~driver~looks~for~files.~
It~is~needed~for}
\out_line{\percent_char\space reencoding~some~font~you~have~
transformed.}
\out_line{}
\out_line{\percent_char\space After~installing~this~file,~you~
should~add~the~following}
\out_line{\percent_char\space line~(minus~\percent_char)~
to~your~finstmsc.rc~file:}
\out_line{\percent_char\space\string\declarepsencoding
{#1}{\str{encodingname}}{\string\download{\out_filename}}}
\edef\a_macro{
\noexpand\declarepsencoding{#1}{\str{encodingname}}
{\noexpand\download{\out_filename}}
}
\a_macro
\out_line{}
\out_line{\percent_char\percent_char BeginResource:~
encoding~\str{encodingname}}
\out_line{/\str{encodingname}\space[}
\b_count=8
\a_count=\z@
\loop
\ifnum 8=\b_count
\b_count=\z@
\out_line{\percent_char\space\the\a_count}
\fi
\out_line{/\csname name-\the\a_count \endcsname}
\ifnum \@cclv>\a_count
\advance \a_count \@ne
\advance \b_count \@ne
\repeat
\out_line{]~def}
\out_line{\percent_char\percent_char EndResource}
\out_line{}
\out_line{\percent_char\space End~of~file~\out_filename.}
\close_out{Encoding~vector}
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\ref_to_sourcefile}
% The command
% \begin{quote}
% |\ref_to_sourcefile|\marg{field}\marg{sourcefile}
% \end{quote}
% writes a \meta{field} field of a \BibTeX-style header to the
% current main output file. If the string named \meta{field} is set
% then the value for this field will be that string, and if it isn't
% set then the value will be the string \texttt{"See file }^^A
% \meta{sourcefile}\texttt{"}. Note that the string \#1 is not
% quoted, so it must contain the quotes if it isn't simply an integer.
% \begin{macrocode}
\def\ref_to_sourcefile#1#2{
\ifisstr{#1}\then
\out_line{\percent_char\four_spaces #1~=~\str{#1},}
\else
\out_line{\percent_char\four_spaces #1~=~"See~file~#2",}
\fi
}
% \end{macrocode}
% \end{macro}
%
%
% \subsection{Converting an ETX file to CMAP file}
% \changes{1.928}{2004/11/28}{ETX to CMAP converter added. (LH)}
%
% \DescribeMacro{\etxtocmap}
% The command
% \begin{quote}
% |\etxtocmap|\marg{etxfile}\marg{cmapfile}
% \end{quote}
% reads \meta{etxfile}|.etx| and generates a ToUnicode CMap file
% \meta{cmapfile}|.cmap| that maps slots to Unicode strings as
% specified by the \meta{etxfile}.
%
% \begin{macro}{\write_cmap_body}
% The |\write_cmap_body| command writes the actual CMap
% data\footnote{As opposed to silly stuff that is requested by the
% file format specification but probably isn't of any use for
% anything, which is written by \cs{ref_to_sourcefile}.} to the
% current output file. The syntax is
% \begin{quote}
% |\write_cmap_body|\marg{etxfile}
% \end{quote}
%
% More precisely, what this command writes is the codespace range
% specification and the mappings. The latter are all encoded using
% \texttt{bfchar} operators.
% \begin{macrocode}
\def\write_cmap_body#1{
\out_line{1~begincodespacerange~<00>~<FF>~endcodespacerange}
\let\do_slot=\_a_true
\def\Unicode##1##2{\cmap_charseq{\cmap_codepoint{##1}{##2}}}
\let\charseq=\cmap_charseq
\inputetx{#1}
}
% \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\cmap_codepoint}
% This is what |\Unicode| is inside a |\charseq|. It appends a
% UTF-16BE character in hexadecimal notation (either four hex
% digits for a character in the BMP, or eight hex digits for
% a surrogate pair) to |\a_macro|, and also appends a space for
% grouping the digits for easier reading.
% \changes{1.928}{2004/12/05}{Added \cs{uppercase} to ensure case
% independence. (LH)}
% \begin{macrocode}
\def\cmap_codepoint#1#2{
\uppercase{\a_count="#1\x_relax}
\ifnum "10000>\a_count
\format_hex\b_macro{\a_count}{4}
\edef\a_macro{\a_macro \b_macro \space}
\else
\advance \a_count -"10000
\d_count=\a_count
\divide \a_count "400
\b_count=\a_count
\multiply \b_count "400
\advance \d_count -\b_count
\advance \a_count "D800
\advance \d_count "DC00~
\format_hex\b_macro{\a_count}{4}
\format_hex\c_macro{\d_count}{4}
\edef\a_macro{\a_macro \b_macro \c_macro \space}
\fi
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\cmap_charseq}
% This macro is what |\charseq| is when generating a CMap; all
% writing of CMap entries is routed through it. Only the first
% character equivalent of each slot should get written to file, so
% the |_a_| switch is used for keeping track of whether this would be
% the first.
%
% \begin{macrocode}
\def\cmap_charseq#1{%
\if_a_
\bgroup
\let\Unicode=\cmap_codepoint
\let\a_macro=\empty_command
#1
\format_hex\b_macro{\slot_number}{2}
\out_line{1~beginbfchar~<\b_macro>~<~\a_macro>~endbfchar}
\egroup
\_a_false
\fi
}
% \end{macrocode}
% \end{macro}
%
%
%
%
% \begin{macro}{\etxtocmap}
% As usual for macros with this kind of name, this is the user
% level command to call to generate a CMAP from an ETX. The
% arguments are file names (not including extensions).
% \begin{macrocode}
\def\etxtocmap#1#2{\begingroup
\inputetx{#1}
\open_out{#2.cmap}
\out_line{\percent_char !PS-Adobe-3.0~Resource-CMap}
\out_line{\percent_char\percent_char
DocumentNeededResources:~procset~CIDInit}
\out_line{\percent_char\percent_char
IncludeResource:~procset~CIDInit}
% \end{macrocode}
% Here comes the first problem: the CMap must have a name. If the ETX
% file sets the string variable \texttt{cmapname} then that is used
% as name, but otherwise |fontinst-|\meta{cmapfile} is used as name.
% Note that this is different from the pattern in |\etxtoenc|, which
% instead uses the \meta{etxname}.
% \begin{macrocode}
\setstr{cmapname}{fontinst-#2}
\out_line{\percent_char\percent_char
BeginResource:~CMap~\str{cmapname}}
% \end{macrocode}
% The next problem is whether one should bother with the quite
% extensive version control junk that Adobe has specified. I prefer
% not to, because it is very much geared towards using CMaps with
% CIDFonts, which is not the case here.
%
% Thus it is time for the actual PS code.
% \begin{macrocode}
\out_line{/CIDInit~/ProcSet~findresource~begin}
\out_line{7~dict~begin}
\out_line{begincmap}
\out_line{/CMapName~/\str{cmapname}~def}
\out_line{/CMapType~2~def}
\write_cmap_body{#1}
\out_line{endcmap}
\out_line{CMapName~currentdict~/CMap~defineresource~pop}
\out_line{end}
\out_line{end}
\out_line{\percent_char\percent_char EndResource}
\out_line{\percent_char\percent_char EOF}
\close_out{ToUnicode~CMap}
\endgroup}
%</misc>
% \end{macrocode}
% \end{macro}
%
%
%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% \subsection{Converting an AFM file to an MTX file}
%
% \DescribeMacro{\afmtomtx}
% The macro
% \begin{quote}
% |\afmtomtx|\marg{afmfile}\marg{mtxfile}
% \end{quote}
% reads \meta{afmfile}|.afm|, and writes the same information out to
% \meta{mtxfile}|.mtx|.
%
% \begin{macro}{\afmtomtx}
% \changes{1.911}{1999/11/18}{Changed setting of \cs{raw_font_name}
% to \cs{edef} and added setting of \cs{source_font_name}. (LH)}
% \changes{1.917}{2001/03/13}{Added resetting of
% \cs{setsomething_global}---assignments made here must be
% local. (LH)}
% \begin{macrocode}
%<*pkg>
\def\afmtomtx#1#2{{
\let\setsomething_global=\x_relax
\open_out{\temp_prefix#2.mtx}
\edef\raw_font_name{#2}
\edef\source_font_name{#1}
\x_resetint{italicslant}{0}
\let\italcorr_expression=\uprightitalcorr
\x_setint{minimumkern}{0}
\minimum_kern=\int{minimumkern}
\out_line{\percent_char~Filename:~#2.mtx}
\out_line{\percent_char~Created~by:~tex~\jobname}
\out_line{\percent_char~Created~using:~\string\afmtomtx{#1}{#2}}
\out_line{}
\out_line{\percent_char~This~file~contains~the~
information~of~#1.afm~in~a~form}
\out_line{\percent_char~more~easily~read~by~TeX.~
It~is~used~by~the~fontinst~package.}
\out_line{}
\out_line{\percent_char~THIS~FILE~CAN~BE~DELETED.}
\out_line{}
\out_line{\string\relax}
\out_line{\string\metrics}
\out_line{}
\out_line{\string\needsfontinstversion{\fontinstversion}}
\out_line{}
\catcode`\^^M=12
\catcode`\ =10
\expandafter\afm_line\primitiveinput #1.afm\x_relax
\out_line{}
\out_line{\endmetrics_text}
\close_out{Metrics}
}}
% \end{macrocode}
% \end{macro}
%
% Kerns below this value are ignored.
%
% \begin{macrocode}
\newcount\minimum_kern
% \end{macrocode}
%
%
% \begin{macro}{\afm_length}
% \changes{1.900}{1998/12/28}{Macro added, other macros modified to
% use it. (LH)}
% \begin{macro}{\afm_unit_dimen}
% The call |\afm_length|\meta{count}\marg{real}
% interprets the \meta{real} as a real number, rounds it to the
% nearest integer, and sets the \meta{count} (a |\count| register)
% to that integer. In this process, |\a_dimen| is used as a temporary
% storage.
% \begin{macrocode}
\def\afm_length#1#2{
\a_dimen=#2\afm_unit_dimen
#1=\a_dimen
\divide #1 by \afm_unit_dimen
\advance \a_dimen by -#1\afm_unit_dimen
\ifdim \a_dimen>0.5\afm_unit_dimen
\advance #1 by 1
\else \ifdim \a_dimen<-0.5\afm_unit_dimen
\advance #1 by -1
\fi\fi
\x_relax
}
% \end{macrocode}
% The dimen |\afm_unit_dimen| is used to keep track of how long an AFM
% unit is interpreted as being in this routine. Lowering its value
% makes |\afm_length| capable of handling greater lengths but looses
% some very slight precision in the rounding, increasing the value
% has the opposite effects. The current value of 1000\thinspace sp
% means it reads lengths with three decimals accuracy (not very much
% use for them though as the number is rounded to zero decimals
% accuracy anyway, but it does make a difference when deciding how
% a \meta{real} like |0.502| should be rounded) and can handle lengths
% of an absolute value of a good million AFM units. This should be
% adequate in most cases. It is, by the way, probably wisest to keep
% it a power of ten scaled points in all cases, as this should reduce
% the rounding errors caused by various base conversions.
% \begin{macrocode}
\newdimen\afm_unit_dimen
\afm_unit_dimen=1000sp
% \end{macrocode}
% \end{macro}\end{macro}
%
%
% The command |\afm_line| reads to the end of the line, calls
% |\afm_command| on that line, then calls |\afm_line| again.
%
% \begin{macrocode}
{\catcode`\^^M=12 \gdef\afm_line#1
{\afm_command#1~\end_of_line\afm_line}}
% \end{macrocode}
%
% The command |\afm_command| reads the first word \meta{FOO}, and
% calls |\afm-|\meta{FOO}\describecsfamily{afm-\meta{key}}. If this
% does not exist, then |\gobble_one_line| will
% eat up the rest of the line.
%
% \begin{macrocode}
\def\afm_command#1~{\csname~afm-#1\endcsname\gobble_one_line}
\def\gobble_one_line#1\end_of_line{}
% \end{macrocode}
%
% This all stops when we reach the command |EndFontMetrics|.
%
% \begin{macrocode}
\x_cs\def{afm-EndFontMetrics}#1\afm_line{\endinput}
% \end{macrocode}
%
% \begin{macro}{\afm_def}
% To define an AFM command, you say |\afm_def|\marg{command}^^A
% \parg{pattern}\marg{result}
% \begin{macrocode}
\def\afm_def#1(#2)#3{
\x_cs\def{afm-#1}\gobble_one_line#2\end_of_line{#3}
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\afm_let}
% Saying |\afm_let|\marg{dest-command}\marg{source-command} copies
% the definition of one AFM command to another.
% \begin{macrocode}
\def\afm_let#1#2{
\expandafter\let \csname afm-#1\expandafter\endcsname
\csname afm-#2\endcsname
}
% \end{macrocode}
% \end{macro}
%
% For example, we can define the following AFM commands:
% \changes{1.6}{1997/02/07}{AFM commands fixed, to get fontdimens
% comparable to EC fonts. (Thierry Bouche)}
% ^^A (Fixed by Thierry Bouche
% ^^A 1997/02/07, to get fontdimens comparable to EC fonts.)
% \changes{1.912}{2000/02/20}{AFM command \texttt{StdVW} now
% interpreted: generates \cs{setint} for integer
% \texttt{verticalstem}. (LH)}
%
% \begin{macrocode}
\afm_def{CharWidth}(#1){\afm_length\char_x_width{#1}}
\afm_def{ItalicAngle}(#1~){\calculate_it_slant{#1}}
\afm_def{XHeight}(#1){
\afm_length\a_count{#1}
\out_line{\string\setint{xheight}{\the\a_count}}}
\afm_def{CapHeight}(#1){
\afm_length\a_count{#1}
\out_line{\string\setint{capheight}{\the\a_count}}}
\afm_def{Ascender}(#1){
\afm_length\a_count{#1}
\out_line{\string\setint{ascender}{\the\a_count}}}
\afm_def{Descender}(#1){
\afm_length\a_count{#1}
\out_line{\string\setint{descender_neg}{\the\a_count}}}
\afm_def{UnderlineThickness}(#1){
\afm_length\a_count{#1}
\out_line{\string\setint{underlinethickness}{\the\a_count}}}
\afm_def{FontBBox}(#1~#2~#3~#4){
\afm_length\a_count{#4}
\out_line{\string\setint{maxheight}{\the\a_count}}
\afm_length\a_count{#2}
\out_line{\string\setint{maxdepth_neg}{\the\a_count}}}
\afm_def{StdVW}(#1){
\afm_length\a_count{#1}
\out_line{\string\setint{verticalstem}{\the\a_count}}}
\afm_def{IsFixedPitch}(#1){
\if\first_char#1=f
\else\out_line{\string\setint{monowidth}{1}}
\fi
}
% \end{macrocode}
%
% \multchanges{\cs{afm_font_name}}{1.901}{1999/03/06}{Macro added. (LH)}
% \multchanges{\cs{afm_font_name}}{1.911}{1999/11/18}{Macro removed,
% since no longer needed. (LH)}
%
% \begin{macro}{\afm-FontName}
% The |FontName| of a font is needed for the |\storemapdata| command,
% so it is when that is encountered that this is written. This
% information is of no use when making TFMs and VFs, but it is likely
% to be of use for generation of map files, so it will be included in
% a file of recorded transforms, if such a file is being generated.
% \begin{macrocode}
\afm_def{FontName}(#1~){
\record_transform{\raw_font_name}
{\string\fromafm{\source_font_name}{#1}}{}\iftrue
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\afm-KPX}
% \begin{macro}{\afm-KP}
% Processing kern pairs. If one of the glyph name starts with
% a dot as in |.notdef| or |.null| the kern pair is ignored.
% The pair is also ignored if the absolute value of the kern
% amount is |\minimum_kern| or less.
%
% That \texttt{KPX} can have the same definition as \texttt{KP} is
% due to an edge case in the processing of AFM lines: |\afm_line|
% inserts an extra space at the end of a line. For \texttt{KPX}
% which really only has three arguments this extra space matches
% the space in |#3~#4|, whereas for \texttt{KP} which has four
% arguments this extra space appears at the end of |#4|.
%
% \begin{macrocode}
\afm_def{KP}(#1~#2~#3~#4){
\if\first_char#1=.\else
\if\first_char#2=.\else
\afm_length\a_count{#3}
\ifnum \a_count>\minimum_kern
\afm_write_setkern{#1}{#2}{\the\a_count}
\else\ifnum \a_count<-\minimum_kern
\afm_write_setkern{#1}{#2}{\the\a_count}
\fi\fi
\fi\fi
}
\afm_let{KPX}{KP}
% \end{macrocode}
% \end{macro}\end{macro}
%
% \begin{macro}{\afm_write_setkern}
% This macro is a hook for the auto-aliasing mechanism to redefine.
% In this plain form, it just outputs a |\setkern| command with the
% given three arguments.
% \changes{1.933}{2007/01/23}{Macro added. (LH)}
% \begin{macrocode}
\def\afm_write_setkern#1#2#3{\out_line{\string\setkern{#1}{#2}{#3}}}
% \end{macrocode}
% \end{macro}
%
% Processing char metrics.
%
% \begin{macrocode}
\afm_def{C}(#1~;#2){\init_afm{#1}\do_list[#2]\afm_char}
% \end{macrocode}
%
% \begin{macro}{\afm-CH}
% The |CH| keyword is like |C|, but signals that the following
% character code is given in hexadecimal.
% \changes{1.933}{2007/01/22}{Proper definition, that parses the
% following hexadecimal value. (LH) Since noone has complained
% about this before, it's probably not very common.}
% \begin{macrocode}
\afm_def{CH}(<#1>~;#2){\uppercase{\init_afm{"#1}}\do_list[#2]\afm_char}
% \end{macrocode}
% \end{macro}
%
% Processing composite chars.
%
% \begin{macrocode}
\afm_def{CC}(#1~#2~;#3){\init_cc{#1}\do_list[#3]\cc_char}
% \end{macrocode}
%
% When parsing a character, we set the values of the following
% variables:
%
% \begin{macrocode}
\newcount\char_slot
\newcount\char_x_width
\newcount\x_width
\newcount\bbox_llx
\newcount\bbox_lly
\newcount\bbox_urx
\newcount\bbox_ury
\let\char_name=\empty_command
% \end{macrocode}
%
% \begin{macro}{\init_afm}
% |\init_afm| initializes the variables the AFM character list
% writes to.
% \begin{macrocode}
\def\init_afm#1{
\char_slot=#1\x_relax
\x_width=\char_x_width
\bbox_llx=0
\bbox_lly=0
\bbox_urx=0
\bbox_ury=0
\let\char_name=\empty_command
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\afm_char}
% This command is executed at the end of processing a \texttt{C}
% (or \texttt{CH}) line. It outputs the corresponding
% |\setrawglyph| or |\setnotglyph| command, based on information
% stored into registers when processing that line.
% \changes{1.933}{2007/01/23}{Negating \cs{bbox_lly} using
% \cs{number} instead of an assignment to \cs{a_count}. (LH)}
% \begin{macrocode}
\def\afm_char{
\eval_expr{
\italcorr_expression\x_width\bbox_llx\bbox_urx\bbox_lly\bbox_ury
}
\out_line{
\ifnum -1<\char_slot
\string\setrawglyph
\else
\string\setnotglyph
\fi
{\char_name}
{\raw_font_name}
{10pt}
{\the\char_slot}
{\the\x_width}
{\the\bbox_ury}
{\number -\bbox_lly}
{\the\result}
}
}
% \end{macrocode}
% \end{macro}
%
% |\init_cc| and |\cc_char| write out a composite character glyph.
%
% \begin{macrocode}
\def\init_cc#1{%
\out_line{\string\setglyph{#1}}
\def\char_name{#1}
}
\def\cc_char{%
\out_lline{\string\samesize{\char_name-not}}
\out_line{\string\endsetglyph}
}
% \end{macrocode}
%
%
% \changes{1.900}{1998/12/28}{Method of computing italic corrections
% changed to using an integer expression. (LH)}
% \DescribeMacro{\italcorr_expression}
% The way the italic correction is computed has been changed
% quite a bit, although the computed values are still the same.
% The point is that it is much simpler to modify the formula according
% to which the value is computed using this method than using the
% previous method.
%
% The call
% \begin{quote}
% |\italcorr_expression|\marg{width}\marg{left}^^A
% \marg{right}\marg{bottom}\marg{top},
% \end{quote}
% where the arguments are \TeX\ \meta{number}s, should expand to an
% integer expression. The value of that expression will be taken as the
% italic correction of the current character.
%
% \meta{width} is the width of the character. \meta{left},
% \meta{right}, \meta{bottom}, and \meta{top} are the respective
% coordinates of the sides of the bounding box of the character. A
% quantity which is not given as an argument, but which nontheless
% might be of interest for a calculation of italic correction, is the
% italic slant of the font. This quantity can be found in the fontinst
% integer \texttt{italicslant}. (The MTX file written will also set
% the integer \texttt{italicslant} to this value.)
%
% \begin{macro}{\uprightitalcorr}
% \begin{macro}{\slanteditalcorr}
% These two commands are what |\italcorr_expression| will get set
% to---the slanted version is used if the italic slant is positive and
% the upright version is used otherwise. The default definitions
% compute the same values as in fontinst v\,1.8, but the definitions
% can easily be modified using |\resetcommand|.
% \begin{macrocode}
\def\uprightitalcorr#1#2#3#4#5{0}
\def\slanteditalcorr#1#2#3#4#5{\max{\sub{#3}{#1}}{0}}
% \end{macrocode}
% \end{macro}\end{macro}
%
%
% \begin{macro}{\calculate_it_slant}
% To set the italic angle, we need to calculate the tangent of the
% angle that the |.afm| file contains. This is done with David
% Carlisle's \package{trig} macros. Note that the \package{trig}
% macros don't like a space at the end of their argument.
%
% \changes{1.911}{1999/11/18}{Stripping off the space in
% \cs{afm-ItalicAngle}. (LH)}
% ^^A\question{\cs{afm_line} always inserts a space at the end of the line.}
% ^^ACould we therefore save us a bit of trouble by simply changing the
% ^^Apattern for |\ItalicAngle| to |(#1~)|? /LH
%
% \begin{macrocode}
\def\calculate_it_slant#1{
\edef\theangle{#1}
\CalculateTan{\theangle}
\a_dimen=-\one_thousand sp
\a_dimen=\UseTan{\theangle}\a_dimen
\a_count=\a_dimen
\out_line{\string\setint{italicslant}{\the\a_count}}
\x_resetint{italicslant}{\a_count}
\ifnum 0<\a_count
\let\italcorr_expression=\slanteditalcorr
\else
\let\italcorr_expression=\uprightitalcorr
\fi
}
% \end{macrocode}
% \begin{macrocode}
% \def\strip_spaces#1~#2\end_strip_spaces{#1}
% \end{macrocode}
% \end{macro}
%
% To process a list of commands separated by semi-colons, we call
% |\do_list[LIST]|. This works in a similar way to |\afm_line|, but
% the control sequence family used for decoding is
% \describecsfamily{list-\meta{key}}|\list-|\meta{keyword} rather
% than |\afm-|\meta{keyword}.
%
% \begin{macrocode}
\def\do_list[~#1~#2;~#3]{
\csname~list-#1\endcsname\gobble_one_semi#2;
\ifx\x_relax#3\x_relax\expandafter\gobble_one
\else\expandafter\identity_one\fi
{\do_list[~#3]}
}
\def\gobble_one_semi#1;{}
% \end{macrocode}
%
% There is an analagous |\list_def| for defining commands to be used
% inside lists.
%
% \begin{macrocode}
\def\list_def#1(#2)#3{\x_cs\def{list-#1}\gobble_one_semi#2~;{#3}}
% \end{macrocode}
%
% For example, these are the commands that are used in giving
% character metrics:
%
% \begin{macrocode}
\list_def{W}(#1~#2){\afm_length\x_width{#1}}
\list_def{WX}(#1){\afm_length\x_width{#1}}
\list_def{WY}(#1){}
\list_def{N}(#1){\def\char_name{#1}}
\list_def{B}(#1~#2~#3~#4){
\afm_length\bbox_llx{#1}
\afm_length\bbox_lly{#2}
\afm_length\bbox_urx{#3}
\afm_length\bbox_ury{#4}
}
\list_def{PCC}(#1~#2~#3){
\afm_length\a_count{#2}
\afm_length\b_count{#3}
\out_lline{\string\glyphpcc{#1}{\the\a_count}{\the\b_count}}
}
% \end{macrocode}
%
% \begin{macro}{\definealias}
% The |\definealias| command can be used to define a glyph name
% alias, for generation of |\aliased| clauses in glyph names. The
% syntax is
% \begin{quote}
% |\definealias|\marg{alias name}\marg{font's name}\marg{int}
% \end{quote}
% where \meta{font's name} is the glyph name that if found in an
% AFM file should be converted to an |\aliased| clause using the
% \meta{alias name}. The \meta{int} is the name of an integer which
% will be incremented every time this alias applies to a glyph
% definition; this mechanism is meant to help higher level code
% pick an ETX file that fits the font's glyph names.
%
% \changes{1.933}{2007/01/22}{Command added. (LH)}
%
% Defined aliases are stored in the
% \describecsfamily{GN-\meta{font's name}}|\GN-|\meta{font's name}
% family of control sequences. These control sequences are defined
% to be macros expanding to the two tokens
% \begin{quote}
% |\g-|\meta{alias name}\,|\i-|\meta{int}
% \end{quote}
% In the case of |\g-|\meta{alias name}, this is purely a trick to
% save memory (it is very likely that these control sequences will
% anyway occur during the fontmaking part of the processing).
% \begin{macrocode}
\def\definealias#1#2#3{
\expandafter\def \csname GN-#1 \expandafter\endcsname
\expandafter{ \csname g-#2 \expandafter\endcsname
\csname i-#3\endcsname}
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\glyph_alias}
% \begin{macro}{\glyph_alias_i}
% The |\glyph_alias| macro has the syntax
% \begin{quote}
% |\glyph_alias|\marg{font's name}
% \end{quote}
% It expands to the \meta{alias name} corresponding to the
% \meta{font's name}, that had previously been set up using
% |\definealias|. Where this macro is used, it must already have
% been checked that |\GN-|\meta{font's name} is defined.
% \begin{macrocode}
\def\glyph_alias#1{
\expandafter\expandafter \expandafter\glyph_alias_i
\csname GN-#1\endcsname
}
\def\glyph_alias_i#1#2{
\expandafter\gobble_three \string#1
}
% \end{macrocode}
% \end{macro}\end{macro}
%
% \begin{macrocode}
\let\charnameprefix\empty
\def\charnamealias#1{
\if_defined{GN-\charnameprefix#1}\then
\glyph_alias{\charnameprefix#1}
\else\if_defined{GN-#1}\then
\glyph_alias{#1}
\else
#1
\fi\fi
}
% \end{macrocode}
%
% \begin{macrocode}
\def\alias_incr#1{
\expandafter\expandafter \expandafter\alias_incr_i
\csname GN-#1\endcsname
}
\def\alias_incr_i#1#2{
\ifx#2\x_relax
\mathchardef#2=\@ne
\else
\a_count=#2
\advance\a_count\@ne
\mathchardef#2=\a_count
\fi
}
% \end{macrocode}
%
% \begin{macrocode}
\def\alias_char_name#1{
\if_defined{GN-\charnameprefix#1}\then
\edef\char_name{
\string\aliased{#1}{\glyph_alias{\charnameprefix#1}}
}
\alias_incr{\charnameprefix#1}
\else\if_defined{GN-#1}\then
\edef\char_name{
\string\aliased{#1}{\glyph_alias{#1}}
}
\alias_incr{#1}
\else
\edef\char_name{#1}
\fi\fi
}
\def\autoaliasafm{
\begingroup
\list_def{N}(##1){\alias_char_name{##1}}
\def\afm_write_setkern##1##2##3{
\out_line{
\string\setkern{\charnamealias{##1}}{\charnamealias{##2}}{##3}
}
}
\def\init_cc##1{%
\edef\char_name{\charnamealias{##1}}
\out_line{\string\setglyph{\char_name}}
}
\list_def{PCC}(##1~##2~##3){
\afm_length\a_count{##2}
\afm_length\b_count{##3}
\out_lline{\string\glyphpcc
{\charnamealias{##1}}{\the\a_count}{\the\b_count}}
}
}
\def\endautoaliasafm{\endgroup}
% \end{macrocode}
%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% \subsection{Converting a PL file to an MTX file}
%
% \DescribeMacro{\generalpltomtx}The macro
% \begin{quote}
% |\generalpltomtx|\marg{plfile}\marg{mtxfile}\marg{plsuffix}\relax
% \marg{opt-enc}
% \end{quote}
% reads \meta{plfile}|.|\meta{plsuffix}, interprets it as having the
% encoding specified by the file \meta{opt-enc}|.etx|, and writes the
% same metric information out to \meta{mtxfile}|.mtx|. In case
% \meta{opt-enc} is empty, the encoding will be determined using the
% |CODINGSCHEME| property of the file being read.
% \DescribeMacro{\pltomtx}The macro
% \begin{quote}
% |\pltomtx|\marg{plfile}\marg{mtxfile}
% \end{quote}
% reads \meta{plfile}|.pl|, uses the |CODINGSCHEME| property in that
% file to determine its encoding, and writes the same metric information
% out to \meta{mtxfile}|.mtx|.
%
% None of these commands can cope with |SKIP| properties in the (V)PL
% file.
%
% \begin{macro}{\generalpltomtx}
% \changes{1.902}{1999/05/01}{Command added, removed
% \cs{pltomtxgivenetx}. (LH)}
% \changes{1.910}{1999/11/01}{Made this command the standard one,
% which \cs{pltomtx} calls. (UV\&LH)}
% \changes{1.917}{2001/03/13}{Added resetting of
% \cs{setsomething_global}---assignments made here must be
% local. (LH)}
% \changes{1.923}{2002/12/03}{Changed test of fourth argument to
% instead of \cs{ifx} use \cs{if}. This is more versatile. (LH)}
% \begin{macrocode}
\def\generalpltomtx#1#2#3#4{{
\let\setsomething_global=\x_relax
\let\setfontdimen=\pl_setfontdimen
\if _#4_ \else
\def\do_slot{\x_cs\let{name-\the\slot_number}\slot_name}
\def\do_boundary{\x_cs\let{name-BOUNDARYCHAR}\slot_name}
\inputetx{#4}
\let\CODINGSCHEME=\ignore_parens
\fi
\pl_to_mtx{#1}{#2}{#3}{\string\generalpltomtx{#1}{#2}{#3}{#4}}
}}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\pltomtx}
% \begin{macrocode}
\def\pltomtx#1#2{\generalpltomtx{#1}{#2}{pl}{}}
% \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\pl_to_mtx}
% \changes{1.911}{1999/11/19}{\cs{edef}ing \cs{raw_font_name}. (LH)}
% The |\pl_to_mtx| macro contains all code that was common to
% |\pltomtx| and |\general|\-|pltomtx| before the former was redefined
% to a call of the latter. The structure of a call of |\pl_to_mtx| is
% \begin{quote}
% |\pl_to_mtx|\marg{plfile}\marg{mtxfile}\marg{plsuffix}\marg{call}
% \end{quote}
% \meta{call} is what should be written in the ``Created using:''
% comment at the top of the MTX file written.
% \changes{1.921}{2002/07/27}{\cs{fromvpl} in \cs{storemapdata} does
% not have an argument. Fixed a bug that produced such an argument
% anyway. (LH)}
% \begin{macrocode}
\def\pl_to_mtx#1#2#3#4{
\edef\raw_font_name{#1}
\open_out{\temp_prefix#2.mtx}
\out_line{\percent_char~Filename:~#2.mtx}
\out_line{\percent_char~Created~by:~tex~\jobname}
\out_line{\percent_char~Created~using:~#4}
\out_line{}
\out_line{\percent_char~This~file~contains~the~
information~of~#1.#3~in~a~form}
\out_line{\percent_char~more~easily~read~by~TeX.~
It~is~used~by~the~fontinst~package.}
\out_line{}
\out_line{\percent_char~THIS~FILE~CAN~BE~DELETED.}
\out_line{}
\out_line{\string\relax}
\out_line{\string\metrics}
\out_line{}
\out_line{\string\needsfontinstversion{\fontinstversion}}
\out_line{}
\lowercase{
\record_transform{#2}{
\string\from#3 \x_cs\ifx{from#3}\frompl {#1} \fi
}{}\iftrue
}
\out_line{}
\catcode`\(=0 \catcode`\)=9
\let\/=\ignore_parens
\let\do_pl_glyph=\x_relax
\primitiveinput #1.#3\x_relax
\do_pl_glyph
\out_line{}
\ifisint{\percent_char boundarychar}\then
\f_count=\int{\percent_char boundarychar}
\x_cs\ifx{name-\the\f_count}\x_relax \else
\out_line{\string\setstr{rightboundary}
{\csname name-\the\f_count\endcsname}
}
\out_line{}
\fi
\fi
\out_line{\endmetrics_text}
\close_out{Metrics}
}
% \end{macrocode}
% \end{macro}
%
% To parse a |.pl| file, we first make |(| the escape character, make |)|
% ignored, then define the various PL commands as \TeX\ control sequences.
% We can ignore a parenthesis matched string by making |(| and |)| the
% group delimiters, then gobbling them up.
%
% \begin{macrocode}
\def\ignore_parens{\bgroup\catcode`(=1 \catcode`)=2 \x_relax
\expandafter\expandafter\expandafter\gobble_parens
\iftrue\expandafter{\else}\fi}
\def\gobble_parens#1{\egroup}
% \end{macrocode}
%
% \begin{macro}{\pl_real}
% \begin{macro}{\pl_realer}
% Convert a PL real to an AFM unit, assuming it contains a decimal point.
% \begin{macrocode}
\def\pl_real#1{\pl_realer(#1000)}
\def\pl_realer(#1.#2#3#4#5){#1#2#3#4}
% \end{macrocode}
% \cs{pl_real} only works if the \texttt{DESIGNUNITS}
% setting is at the default value 1. Luckily, this is what
% \package{TFtoPL} and \package{VFtoVP} use in all (V)PL files they
% create, so you can always get a (V)PL file that will work by
% converting first to TFM (+\,VF) and then back again. As of v\,1.913,
% that is also the value \package{fontinst} uses for all VPL files it
% generates, so the problem isn't particularly important.
% \end{macro}\end{macro}
%
% \begin{macro}{\pl_rounded_real}
% \changes{1.921}{2002/07/26}{Macro added and is used instead of
% \cs{pl_real}. (LH)}
% The |\pl_rounded_real| macro is like |\pl_realer| in that it converts
% a PL unit containing a decimal point to an AFM unit. The difference
% is (i) that it rounds the number rather than truncating it and (ii)
% that it stores the result in |\result| rather than expanding to it.
% Note that the actual real (character string) to convert must be
% followed by at least four zeros for the conversion to work
% correctly in all cases.
% \begin{macrocode}
\def\pl_rounded_real(#1.#2#3#4#5){
\global\result=#1#2#3#4\relax
\ifnum \first_char#5= >4
\global\advance \result
\if - \first_char#1= \m@ne \else \@ne \fi
\fi
}
% \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\pl_int}
% Convert a PL int to a \TeX{} int, assuming it's prefixed
% by |C|, |D|, |O|, or |H|.
% \begin{macrocode}
\def\pl_int#1#2{
\ifx#1C `#2
\else\ifx#1D #2
\else\ifx#1O '#2
\else\ifx#1H "#2
\else -1\errmessage{Unknown~PL~number~prefix~`#1'}
\fi\fi\fi\fi
}
% \end{macrocode}
% \end{macro}
%
% Many of the PL commands are ignored, and I'm assuming the |R|s are in
% the places \texttt{tftopl} puts them, which is a bit naughty of me.
%
% \begin{PLproperty}{FAMILY}
% \begin{PLproperty}{FACE}
% \begin{PLproperty}{CHECKSUM}
% \begin{PLproperty}{HEADER}
% \begin{PLproperty}{SEVENBITSAFEFLAG}
% \begin{macrocode}
\let\FAMILY=\ignore_parens
\let\FACE=\ignore_parens
\let\CHECKSUM=\ignore_parens
\def\HEADER~#1~#2~#3~#4~{}
\def\SEVENBITSAFEFLAG~#1~{}
% \end{macrocode}
% \end{PLproperty}\end{PLproperty}\end{PLproperty}\end{PLproperty}
% \end{PLproperty}
%
% \begin{PLproperty}{COMMENT}
% \begin{PLproperty}{LIG}
% \begin{PLproperty}{NEXTLARGER}
% \begin{PLproperty}{VARCHAR}
% \begin{macrocode}
\let\COMMENT=\ignore_parens
\let\LIG=\ignore_parens
\let\NEXTLARGER=\ignore_parens
\let\VARCHAR=\ignore_parens
% \end{macrocode}
% \end{PLproperty}\end{PLproperty}\end{PLproperty}\end{PLproperty}
%
%
% \begin{PLproperty}{VTITLE}
% \begin{PLproperty}{MAPFONT}
% \begin{PLproperty}{MAP}
% \begin{flushleft}
% ^^A Flushed left since the paragraph is so hard to break
% ^^A correctly.
% \changes{1.900}{1998/12/04}{VPL-specific properties added to
% those which are ignored by \cs{pltomtx}. (LH)}
% The properties which are unique for VPL files---|VTITLE|,
% |MAPFONT|, |MAP|, |FONTNAME|, |FONTAREA|, |FONTCHECKSUM|,
% |FONTAT|, |FONTDSIZE|, |SELECTFONT|, |SETCHAR|, |SETRULE|,
% |MOVERIGHT|, |MOVELEFT|, |MOVEUP|, |MOVEDOWN|, |PUSH|, |POP|,
% |SPECIAL|, and |SPECIALHEX|---should also be ignored, but it is
% actually sufficient to ignore the first three since the others
% are only allowed inside |MAP| or |MAPFONT| property lists.
% \end{flushleft}
%
% \begin{macrocode}
\let\VTITLE=\ignore_parens
\let\MAPFONT=\ignore_parens
\let\MAP=\ignore_parens
% \end{macrocode}
% \end{PLproperty}\end{PLproperty}\end{PLproperty}
%
%
% \begin{PLproperty}{CODINGSCHEME}
% \begin{macro}{\CODINGSCHEME_cont}
% When we reach a |CODINGSCHEME| instruction, we read the coding string,
% and read in the corresponding \meta{encoding}|.etx| file.
%
% The corresponding \meta{encoding} is specified by |\declareencoding|
% statements (see below). Each |\declare_encoding| defines a macro
% |\enc-|\meta{codingscheme} which expands to \meta{encoding}.
%
% If the PL file is converted using the |\generalpltomtx| command with
% a nonempty \meta{opt-enc} argument then the |CODINGSCHEME| instruction
% is ignored since an encoding file has already been read in.
%
% \begin{macrocode}
\def\CODINGSCHEME{\bgroup\catcode`\)=12\x_relax\CODINGSCHEME_cont}
\def\CODINGSCHEME_cont#1){
\egroup
\if_undefined{enc-#1}\then
\errhelp{The~encoding~for~`#1'~has~not~been~declared.^^J
You~should~declare~it~with~
\string\declareencoding{#1}{ETXFILE}.^^J
Press~<RETURN>~to~carry~on~with~fingers~crossed,^^J
or~X~<RETURN>~to~exit.}
\errmessage{Undeclared~encoding~`#1'}
\else
\def\do_slot{\x_cs\let{name-\the\slot_number}\slot_name}
\def\do_boundary{\x_cs\let{name-BOUNDARYCHAR}\slot_name}
\catcode`\(=12 \catcode`\)=12
\x_cs\inputetx{enc-#1}\x_relax
\catcode`\(=0 \catcode`\)=9
\fi
}
% \end{macrocode}
% \end{macro}\end{PLproperty}
%
% \begin{PLproperty}{DESIGNSIZE}
% The |DESIGNSIZE| is needed because the |FONTDSIZE| specified in a
% |MAPFONT| property list has to be the same as the |DESIGNSIZE| of
% the corresponding base font.
% \begin{macrocode}
\def\DESIGNSIZE~#1~#2~{
\a_dimen=#2pt
\out_line{\string\setdim{designsize}{\the\a_dimen}}
}
% \end{macrocode}
% \end{PLproperty}
%
% \begin{PLproperty}{DESIGNUNITS}
% \changes{1.905}{1999/06/30}{Error message added. (LH)}
% \changes{1.912}{2000/02/20}{Store designunits value in
% \cs{b_dimen} rather than \cs{a_dimen}. \cs{a_dimen} holds the
% design size throughout PL-to-MTX. (LH)}
% The PL to MTX converter assumes that the (V)PL files to convert
% look like the ones created by \texttt{TFtoPL}\slash\texttt{VFtoVP},
% and the interpretation of the \texttt{DESIGNUNITS} property is one
% thing specifically affected by this. The TFM file format does not
% store the \texttt{DESIGNUNITS} value used, so the two above
% programs always generate (V)PL files with the default setting of
% design unit equal to the design size. Hence any occurence of the
% \texttt{DESIGNUNITS} property with a nondefault value is an
% indication of an error.
%
% The incorrect metrics can be corrected by scaling by a suitable
% amount (1000 divided by the \texttt{designunits} dimen), but it is
% much simpler to convert the PL to a TFM and then convert it back,
% that will also fix the units.
%
% \begin{macrocode}
\def\DESIGNUNITS~#1~#2~{
\b_dimen=#2pt\x_relax
\ifdim 1pt=\b_dimen \else
\fontinsterror{PL-to-MTX}{Nondefault~unit~used~in~PL~file}
{You~may~continue,~but~the~metrics~for~this~font~will~be~wrong.}
\fi
\out_line{\string\setdim{designunits}{\the\b_dimen}}
}
% \end{macrocode}
% \end{PLproperty}
%
% \begin{PLproperty}{BOUNDARYCHAR}
% \begin{macrocode}
\def\BOUNDARYCHAR~#1~#2~{
\x_setint{\percent_char boundarychar}{\pl_int{#1}{#2}}
}
% \end{macrocode}
% \end{PLproperty}
%
% \changes{1.917}{2001/03/16}{Rewrote the fontdimen part of the
% (V)PL-to-MTX converter so that the ETX can specify the
% fontdimens. (LH)}
%
% Declared fontdimens are converted to |\setint| commands in the MTX
% file. A fontdimen declaration for fontdimen $n$ is stored in the
% control sequence \describecsfamily{fdimen-\meta{n}}|\fdimen-|$n$; if
% this control sequence is undefined then the fontdimen is not declared
% and if it is set then it is a macro which expands to the name of the
% corresponding integer variable.
%
% \begin{macro}{\pl_setfontdimen}
% Fontdimens are declared by the |\pl_setfontdimen| macro, which is a
% definition of |\setfontdimen| that is used during (V)PL-to-MTX
% conversion.
% \begin{macrocode}
\def\pl_setfontdimen#1#2{\x_cs\def{fdimen-#1}{#2}}
% \end{macrocode}
% \end{macro}
%
% \begin{PLproperty}{PARAMETER}
% The |PARAMETER| property is the generic specifier of fontdimens in
% (V)PL files. It takes two arguments: the fontdimen number (integer)
% and value (real).
% \begin{macrocode}
\def\PARAMETER~#1~#2~R~#3~{
\f_count=\pl_int{#1}{#2}\x_relax
\if_defined{fdimen-\the\f_count}\then
\pl_rounded_real(#3 0000)
\out_line{\string\setint{\csname fdimen-\the\f_count\endcsname}
{\the\result}}
\fi
}
% \end{macrocode}
% \end{PLproperty}
%
% \begin{PLproperty}{FONTDIMEN}
% No special processing is required for the |FONTDIMEN| property.
% \begin{macrocode}
\let\FONTDIMEN=\x_relax
% \end{macrocode}
% \end{PLproperty}
%
% \begin{PLproperty}{SLANT}
% \begin{PLproperty}{SPACE}
% \begin{PLproperty}{STRETCH}
% \begin{PLproperty}{SHRINK}
% \begin{PLproperty}{XHEIGHT}
% \begin{PLproperty}{QUAD}
% \begin{PLproperty}{EXTRASPACE}
% The properties for the seven mandatory fontdimens are converted
% to the corresponding |PARAMETER| properties but their meanings are
% predeclared. The effect of these predeclarations is that even ETX
% files that don't use |\setfontdimen| to set the fontdimens have
% these fontdimens converted to |\setint|s.
%
% A scan shows that the current (2001/03/17) MTX and ETX files aren't
% using the integers \texttt{stretchword}, \texttt{shrinkword},
% \texttt{quad}, and \texttt{extraspace}. They probably should.
% \begin{macrocode}
\def\SLANT{\PARAMETER D~1~}
\pl_setfontdimen{1}{italicslant}
\def\SPACE{\PARAMETER D~2~}
\pl_setfontdimen{2}{interword}
\def\STRETCH{\PARAMETER D~3~}
\pl_setfontdimen{3}{stretchword}
\def\SHRINK{\PARAMETER D~4~}
\pl_setfontdimen{4}{shrinkword}
\def\XHEIGHT{\PARAMETER D~5~}
\pl_setfontdimen{5}{xheight}
\def\QUAD{\PARAMETER D~6~}
\pl_setfontdimen{6}{quad}
\def\EXTRASPACE{\PARAMETER D~7~}
\pl_setfontdimen{7}{extraspace}
% \end{macrocode}
% \end{PLproperty}\end{PLproperty}\end{PLproperty}\end{PLproperty}
% \end{PLproperty}\end{PLproperty}\end{PLproperty}
%
% \begin{numPLproperty}{NUM}{1,2,3}
% \begin{numPLproperty}{DENOM}{1,2}
% The |NUM|$*$ and |DENOM|$*$ properties are for fontdimens 8--10
% and 11--12. They have to do with positioning numerator and
% denominator in fractions.
% \begin{macrocode}
\def\NUM#1~#2~#3~{
\ifcase #1\or
\PARAMETER D~8~#2~#3~
\or
\PARAMETER D~9~#2~#3~
\or
\PARAMETER D~10~#2~#3~
\fi
}
\def\DENOM#1~#2~#3~{
\ifcase #1\or
\PARAMETER D~11~#2~#3~
\or
\PARAMETER D~12~#2~#3~
\fi
}
% \end{macrocode}
% \end{numPLproperty}\end{numPLproperty}
%
% \begin{numPLproperty}{SUP}{1,2,3}
% \begin{numPLproperty}{SUB}{1,2}
% The |SUP|$*$ and |SUB|$*$ properties are for fontdimens 13--15
% and 16--17. They have to do with positioning superscripts and
% subscripts.
% \begin{macrocode}
\def\SUP#1~#2~#3~{
\ifcase #1\or
\PARAMETER D~13~#2~#3~
\or
\PARAMETER D~14~#2~#3~
\or
\PARAMETER D~15~#2~#3~
\fi
}
\def\SUB#1~#2~#3~{
\ifcase #1\or
\PARAMETER D~16~#2~#3~
\or
\PARAMETER D~17~#2~#3~
\fi
}
% \end{macrocode}
% \end{numPLproperty}\end{numPLproperty}
%
% \begin{PLproperty}{SUPDROP}
% \begin{PLproperty}{SUBDROP}
% \begin{PLproperty}{AXISHEIGHT}
% These are fontdimens 18, 19, and 22.
% \begin{macrocode}
\def\SUPDROP{\PARAMETER D~18~}
\def\SUBDROP{\PARAMETER D~19~}
\def\AXISHEIGHT{\PARAMETER D~22~}
% \end{macrocode}
% \end{PLproperty}\end{PLproperty}\end{PLproperty}
%
% \begin{numPLproperty}{DELIM}{1,2}
% The |DELIM|$*$ fondimens have number 20 and 21. They have to do with
% the size of delimiters put around a generalised fraction.
% \begin{macrocode}
\def\DELIM#1~#2~#3~{
\ifcase #1\or
\PARAMETER D~20~#2~#3~
\or
\PARAMETER D~21~#2~#3~
\fi
}
% \end{macrocode}
% \end{numPLproperty}
%
% \begin{PLproperty}{DEFAULTRULETHICKNESS}
% \begin{numPLproperty}{BIGOPSPACING}{1,2,3,4,5}
% The fontdimen properties that are special for math extension fonts
% are |DEFAULT|\-|RULE|\-|THICKNESS| and the various
% |BIG|\-|OP|\-|SPACING|$*$.
% \begin{macrocode}
\def\DEFAULTRULETHICKNESS{\PARAMETER D~8~}
\def\BIGOPSPACING#1~#2~#3~{
\ifcase #1\or
\PARAMETER D~9~#2~#3~
\or
\PARAMETER D~10~#2~#3~
\or
\PARAMETER D~11~#2~#3~
\or
\PARAMETER D~12~#2~#3~
\or
\PARAMETER D~13~#2~#3~
\fi
}
% \end{macrocode}
% This is the old definition of |\DEFAULTRULETHICKNESS| for historical
% references (since its behaviour has changed).
% \begin{macrocode}
% \def\DEFAULTRULETHICKNESS~R~#1~{
% \out_line{\string\setint{underlinethickness}{\pl_real{#1}}}
% }
% \end{macrocode}
% \end{numPLproperty}\end{PLproperty}
%
%
% \begin{PLproperty}{LABEL}
% \begin{macro}{\LABEL_slot}
% \begin{macro}{\LABEL_boundarychar}
% \begin{macro}{\do_if_defined}
% The most complicated part of the processing of the |LIGTABLE|
% property list is that it has to keep track of which glyphs the
% current ligature\slash kerning program applies to. This stored as
% a |\do|\marg{glyph} list in |\a_macro| and building this list
% is the job of the |LABEL| property.
%
% It is assumed that |\do| is |\never_do| whenever some element is
% added to |\a_macro|.
% \begin{macrocode}
\def\LABEL~#1{\ifx #1B
\expandafter\LABEL_boundarychar
\else
\expandafter\LABEL_slot \expandafter#1
\fi
}
\def\LABEL_slot #1~#2~{
\f_count=\pl_int{#1}{#2}
\edef\a_macro{\a_macro
\x_cs\do_if_defined{name-\the\f_count}
}
}
\def\LABEL_boundarychar OUNDARYCHAR{
\edef\a_macro{\a_macro
\x_cs\do_if_defined{name-BOUNDARYCHAR}
}
}
\def\do_if_defined#1{\ifx #1\x_relax \else \do{#1} \fi}
% \end{macrocode}
% \end{macro}\end{macro}\end{macro}\end{PLproperty}
%
%
% \begin{PLproperty}{LIGTABLE}
% \begin{PLproperty}{STOP}
% \begin{PLproperty}{SKIP}
% The |LIGTABLE|, |STOP|, and |SKIP| properties are the remaining
% properties involved in managing the |\a_macro| list. |SKIP|
% properties are \emph{not} processed.
% \begin{macrocode}
\def\LIGTABLE{\let\do=\never_do\let\a_macro\empty_command}
\def\STOP{\let\a_macro\empty_command}
\def\SKIP~#1~#2~{\immediate\write16{Warning:~SKIP~instruction~ignored.}}
% \end{macrocode}
% \end{PLproperty}\end{PLproperty}\end{PLproperty}
%
% \begin{PLproperty}{KRN}
% \begin{macro}{\write_pl_krn}
% |KRN| properties are converted to |\setkern| instructions.
% \begin{macrocode}
\def\KRN~#1~#2~R~#3~{
\pl_rounded_real(#3 0000)
\edef\do{\noexpand\write_pl_krn{\pl_int{#1}{#2}}{\the\result}}
\a_macro
\let\do=\never_do
}
\def\write_pl_krn#1#2#3{
\f_count=#1\x_relax
\x_cs\ifx{name-\the\f_count}\x_relax \else
\out_line{\string\setkern{#3}
{\csname name-\the\f_count\endcsname}{#2}
}
\fi
}
% \end{macrocode}
% \end{macro}\end{PLproperty}
%
% \begin{PLproperty}{CHARACTER}
% \begin{PLproperty}{CHARWD}
% \begin{PLproperty}{CHARHT}
% \begin{PLproperty}{CHARDP}
% \begin{PLproperty}{CHARIC}
% The character metrics that are processed are |CHARWD|, |CHARHT|,
% |CHARDP|, and |CHARIC|. The |CHARACTER| property takes care of
% writing the information to the MTX file, but note that each new
% |CHARACTER| property writes the information from the preceeding
% |CHARACTER| property.
% \begin{macrocode}
\def\CHARWD~R~#1~{\pl_rounded_real(#1 0000) \b_count=\result}
\def\CHARHT~R~#1~{\pl_rounded_real(#1 0000) \c_count=\result}
\def\CHARDP~R~#1~{\pl_rounded_real(#1 0000) \d_count=\result}
\def\CHARIC~R~#1~{\pl_rounded_real(#1 0000) \e_count=\result}
\def\CHARACTER~#1~#2~{
\do_pl_glyph
\a_count=\pl_int{#1}{#2}
\b_count=0
\c_count=0
\d_count=0
\e_count=0
\let\do_pl_glyph=\write_pl_glyph
}
% \end{macrocode}
% \end{PLproperty}\end{PLproperty}\end{PLproperty}\end{PLproperty}
% \end{PLproperty}
%
% \begin{macro}{\write_pl_glyph}
% The |\write_pl_glyph| actually writes the information contained in
% a |CHARACTER| property list to the MTX file as a |\setrawglyph|
% command.
% \begin{macrocode}
\def\write_pl_glyph{
\x_cs\ifx{name-\the\a_count}\x_relax\else
\out_line{\string\setrawglyph
{\csname~name-\the\a_count\endcsname}
{\raw_font_name}
{\the\a_dimen}
{\the\a_count}
{\the\b_count}
{\the\c_count}
{\the\d_count}
{\the\e_count}}
\fi
}
% \end{macrocode}
% \end{macro}
%
%
% \subsection{Converting an MTX file to a PL file}
%
% \DescribeMacro{\mtxtopl}
% The macro
% \begin{quote}
% |\mtxtopl|\marg{mtxfile}\marg{plfile}
% \end{quote}
% writes a font from the |\setrawglyph| instructions in \meta{mtxfile}
% to \meta{plfile}. It ignores any font dimensions and kerning, so the
% resulting font is only useful for generating virtual fonts from.
% (This macro is called by |\transformfont|.)
%
% \begin{macro}{\mtxtopl}
% \changes{1.911}{1999/11/19}{Added `ligless' to one of the comment
% lines. (LH) Clarification requested by Walter Schmidt.}
% \changes{1.917}{2001/03/13}{Added resetting of
% \cs{setsomething_global}---assignments made here must be
% local. (LH)}
% \changes{1.929}{2005/02/05}{Corrected `\texttt{pltotf}' in
% comment. (LH)}
% \begin{macrocode}
\def\mtxtopl#1#2{{
\let\setsomething_global=\x_relax
\open_out{#2.pl}
\top_of_pl_hook
\out_line{(COMMENT~raw~font~#2~created~by~fontinst~
v\fontinstversion)}
\out_line{}
\out_line{(COMMENT~Filename:~#2.pl)}
\out_line{(COMMENT~Created~by:~tex~\jobname)}
\out_line{(COMMENT~Created~using:~\string\mtxtopl{#1}{#2})}
\out_line{}
\out_line{(COMMENT~This~file~can~be~turned~into~
a~ligless~TeX~font~with)}
\out_line{(COMMENT~pltotf~#2.pl~#2.tfm)}
\out_line{}
\out_line{(COMMENT~THIS~FILE~CAN~THEN~BE~DELETED.)}
\out_line{}
\out_line{(DESIGNSIZE~R~10.0)}
\out_line{}
\let\setglyph=\iffalse
\let\endsetglyph=\fi
\let\setkern=\gobble_three
\let\setscaledrawglyph=\first_pl_raw_glyph
\def\setscalednotglyph##1##2##3##4##5##6##7##8##9{}
\inputmtx{#1}
\out_line{}
\out_line{(COMMENT~END~OF~FILE~#2.pl)}
\close_out{Raw~font}
}}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\first_pl_raw_glyph}
% The |\first_pl_raw_glyph| writes the \texttt{DESIGNUNITS} property
% for the font when the first |\setscaledrawglyph| is encountered.
% This is to undo the scaling that has already been applied to the
% metrics, so that the metrics will match the actual font.
% \begin{macrocode}
\def\first_pl_raw_glyph#1#2#3#4{
\out_line{(DESIGNUNITS~R~\make_factor{#4})}
\let\setscaledrawglyph=\pl_raw_glyph
\pl_raw_glyph{#1}{#2}{#3}{#4}
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\pl_raw_glyph}
% \begin{macrocode}
\def\pl_raw_glyph#1#2#3#4#5#6#7#8#9{
\out_line{(CHARACTER~D~\number#5~\space(COMMENT~#1)}
\out_lline{(CHARWD~R~\make_factor{#6})}
\out_lline{(CHARHT~R~\make_factor{#7})}
\out_lline{(CHARDP~R~\make_factor{#8})}
\out_lline{(CHARIC~R~\make_factor{#9})}
\out_lline{)}
}
% \end{macrocode}
% \end{macro}
%
%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% \section{Font transformations}
% \label{Sec:Font.trans}
% \changes{1.902}{1999/05/01}{Moved Section \thesection\space to
% \texttt{ficonv.dtx}. (LH)}
%
% \subsection{Transformable metric files}
% \label{Ssec:TransMTX}
%
% \changes{1.901}{1999/02/28}{Definition of transformable metric file
% added. (LH)}
% \changes{1.913}{2000/03/10}{Definition of transformable metric file
% changed to include the \cs{setscaledrawglyph} and
% \cs{setscalednotglyph} commands. (LH)}
% \changes{1.915}{2000/09/09}{Added description of \cs{aliased} macro
% to the definition of transformable metric files. (LH)}
% A \emph{transformable metric file} is a metric file
% which complies with certain restrictions in its syntax. The only
% metric commands allowed are
% \begin{isyntax}
% |\setscaledrawglyph|\marg{glyph}\marg{font}\marg{size}^^A
% \marg{scale}\marg{slot}\marg{width}\penalty0
% \marg{height}\penalty0\marg{depth}\penalty0\marg{italic}\\
% |\setrawglyph|\marg{glyph}\marg{font}\marg{size}\marg{slot}^^A
% \marg{width}\marg{height}\penalty0\marg{depth}\penalty0
% \marg{italic}\\
% |\setscalednotglyph|\marg{glyph}\marg{font}\marg{size}^^A
% \marg{scale}\marg{slot}\marg{width}\penalty0
% \marg{height}\penalty0\marg{depth}\penalty0\marg{italic}\\
% |\setnotglyph|\marg{glyph}\marg{font}\marg{size}\marg{slot}^^A
% \marg{width}\marg{height}\penalty0\marg{depth}\penalty0
% \marg{italic}\\
% |\setkern|\marg{glyph1}\marg{glyph2}\marg{amount}\\
% |\setglyph|\marg{glyph} \meta{glyph commands} |\endsetglyph|
% \end{isyntax}
% where \meta{glyph}, \meta{glyph1}, \meta{glyph2}, and \meta{font} are
% strings without any variable references (no |\str| or |\strint| are
% allowed), \meta{scale}, \meta{slot}, \meta{width}, \meta{height},
% \meta{depth}, \meta{italic}, and \meta{amount} are \TeX\ numbers, and
% \meta{size} is a \TeX\ dimen. (More accurately, all dimens in a
% transformable metric file should be on the form \meta{optional
% signs}\penalty0 \meta{decimal constant}\penalty0 \meta{physical unit},
% but that's at the ``dangerous bend'' level.) The \meta{glyph}s may be
% of the form
% \begin{quote}
% |\aliased|\marg{font's name}\marg{alias name}
% \end{quote}
% Such \meta{glyph}s are interpreted as \meta{alias name} for all
% purposes except reencoding, when they are interpreted as \meta{font's
% name}. \meta{glyph}s of this form are furthermore copied as they are
% to MTX files created by |\transform|\-|font| (|\mtxtomtx|).
%
% The only \meta{glyph commands} allowed are
% \begin{quote}
% |\samesize|\marg{glyph}\\
% |\glyphpcc|\marg{glyph}\marg{xoffset}\marg{yoffset}
% \end{quote}
% where \meta{glyph} is as above, and \meta{xoffset} and \meta{yoffset}
% are \TeX\ numbers.
%
% The only general commands allowed are
% \begin{quote}
% |\needsfontinstversion|\marg{version}\\
% |\setint|\marg{name}\marg{number}\\
% |\setdim|\marg{name}\marg{dimen}\\
% |\setstr|\marg{name}\marg{string}\\
% |\storemapdata|\marg{font}\marg{source}\marg{transformations}
% \end{quote}
% where \meta{name} and \meta{string} are strings without variable
% references, \meta{number} is a \TeX\ number, and \meta{dimen} is a
% \TeX\ dimen. The arguments of |\needs|\-|fontinst|\-|version| and
% |\store|\-|map|\-|data| are as usual, but these commands do not get
% copied in a font transformation.
%
% The metric files produced by |\afmtomtx| and |\generalpltomtx| are
% meant to be transformable. If they are not then there is a bug
% somewhere.
%
% The name of the integer in |\setint| commands is interpreted. This
% name is used to determine how the number should be transformed, see
% the implementation of |\mtxtomtx_setint| below.
%
%
% \subsection{Making font transformations}
%
% \changes{1.911}{1999/11/19}{Recording of transformations moved to the
% macros that actually write the MTX files. (LH)}
% \changes{1.911}{1999/11/19}{Flag for that source font wasn't found
% changed to \texttt{afm-name}. \texttt{transform-source} string
% completely removed. (LH)}
% \changes{1.913}{2000/03/11}{New implementation of \cs{scalefont} and
% \cs{yscalefont}, using the new \cs{setscaledrawglyph} and
% \cs{setscalednotglyph} commands. (LH)}
% \changes{1.913}{2000/03/12}{Using \cs{slots-}\meta{glyph} control
% sequences for storing encoding positions of glyphs in reencoded
% fonts. (LH)}
%
% \DescribeMacro{\transformfont}
% The macro:
% \begin{quote}
% |\transformfont|\marg{font-name}\marg{transformed font}
% \end{quote}
% transforms the metrics of a raw font. As far as \TeX\ is concerned,
% \meta{font-name} will be a new font. Actually doing the
% transformation and providing the transformed font (as opposed to the
% metrics of the transformed font) is for most transforms up to some
% other piece of software, in most cases the DVI driver, but
% \package{fontinst} will handle isotropic scaling itself.
%
% The easiest way to find out which transformations need to be carried
% out is to generate a map file for the \texttt{debug} ``driver'' (see
% Section~\ref{Sec:Mapfiles}). Of course, if \package{fontinst} can
% generate a mapfile for the target driver then you probably don't need
% to find out which transformations were necessary\,\textellipsis
% \spacefactor=\sfcode`\.\space\space
% In any case, the arguments of |\storemapdata| in the MTX file
% generated will tell which transformations of this |\transformfont|
% command that must be performed by some other software.
%
% \DescribeMacro{\fromafm}
% \DescribeMacro{\frommtx}
% \DescribeMacro{\frompl}
% \DescribeMacro{\scalefont}
% \DescribeMacro{\xscalefont}
% \DescribeMacro{\yscalefont}
% \DescribeMacro{\slantfont}
% \DescribeMacro{\reencodefont}
% The \meta{transformed font} commands are:
% \begin{quote}
% |\fromafm|\marg{AFM file}\\
% |\frompl|\marg{PL file}\\
% |\fromplgivenetx|\marg{PL file}\marg{etx}\\
% |\frommtx|\marg{MTX file}\\
% |\fromany|\marg{file}\\
% |\scalefont|\marg{integer expression}\marg{transformed font}\\
% |\xscalefont|\marg{integer expression}\marg{transformed font}\\
% |\yscalefont|\marg{integer expression}\marg{transformed font}\\
% |\slantfont|\marg{integer expression}\marg{transformed font}\\
% |\reencodefont|\marg{etx}\marg{transformed font}
% \end{quote}
%
% Each |\transformfont| command generates an |.mtx| file for
% \meta{font-name} and a corresponding raw |.pl| file, which is written
% out by |\mtxtopl|.
%
% Each |\fromafm|, |\frompl|, or |\fromplgivenetx| command also generates
% an |.mtx| file for the source font, which is written out by |\afmtomtx|
% or |\generalpltomtx|. In addition, |\fromafm| also uses |\mtxtopl|
% to generate a corresponding raw |.pl| file.
%
% |\fromany| reads an MTX, PL, AFM, or VPL file depending on what it can
% find. It tries them in the order first MTX, then PL, then AFM, and
% last VPL.
%
% \begin{macro}{\transformfont}
% \changes{1.912}{2000/01/15}{Added local resetting of
% \cs{setsomething_global} to \cs{relax}, since \cs{transformfont}
% assumes such assignments are local. (LH)}
% \begin{macrocode}
\def\transformfont#1#2{{
\let\setsomething_global=\x_relax
\unsetstr{afm-name}
\unsetstr{etx-name}
\x_resetint{x-scale}{\one_thousand}
\x_resetint{y-scale}{\one_thousand}
\x_resetint{slant-scale}{0}
#2
% \end{macrocode}
% \changes{1.903}{1999/06/01}{Added behaviour for the case source file
% not found. (LH)}
% \changes{1.921}{2002/07/31}{Corrected an error message that tried
% to use a variable that wasn't set! (LH)}
% \begin{macrocode}
\ifisstr{afm-name}\then
\mtxtomtx{\str{afm-name}}{#1}
\mtxtopl{#1}{#1}
\else
\fontinsterror{Transformfont}{
Failed~to~make~transformed~font~#1;\messagebreak
source~font~metrics~file~not~found
}\error_help_a
\fi
}}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\fromafm}
% \changes{1.904}{1999/06/17}{Added call of \cs{record_transform}. (LH)}
% \changes{1.911}{1999/11/19}{Added test for file existence. (LH)}
% \begin{macrocode}
\def\fromafm#1{
\if_file_exists{#1.afm}\then
\x_setstr{afm-name}{#1}
\afmtomtx{#1}{#1}
\mtxtopl{#1}{#1}
\fi
}
% \end{macrocode}
% \end{macro}
% \begin{macro}{\frommtx}
% \changes{1.911}{1999/11/19}{Added test for file existence. (LH)}
% \begin{macrocode}
\def\frommtx#1{
\if_file_exists{#1.mtx}\then \x_setstr{afm-name}{#1} \fi
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\frompl}
% \changes{1.904}{1999/06/17}{Added call of \cs{record_transform}. (LH)}
% \changes{1.911}{1999/11/19}{Added test for file existence. (LH)}
% \begin{macro}{\fromplgivenetx}
% \changes{1.902}{1999/05/02}{Command added. (LH)}
% \changes{1.904}{1999/06/17}{Added call of \cs{record_transform}. (LH)}
% \changes{1.911}{1999/11/19}{Added test for file existence. (LH)}
% \begin{macrocode}
\def\frompl#1{
\if_file_exists{#1.pl}\then
\x_setstr{afm-name}{#1}
\generalpltomtx{#1}{#1}{pl}{}
\fi
}
% \end{macrocode}
% \begin{macrocode}
\def\fromplgivenetx#1#2{
\if_file_exists{#1.pl}\then
\x_setstr{afm-name}{#1}
\generalpltomtx{#1}{#1}{pl}{#2}
\fi
}
% \end{macrocode}
% \end{macro} \end{macro}
%
% \multchanges{\cs{fromvpl}\cs{fromvplgivenetx}}{1.902}{1999/05/02}
% {Commands added. (LH)}
% \multchanges{\cs{fromvpl}\cs{fromvplgivenetx}}{1.904}{1999/06/16}
% {Commands removed. (LH)}
% Regarding \cs{fromvpl} and \cs{fromvplgivenetx}: I realized that
% there isn't any point in reading metrics for a font that is to be
% transformed from a VPL file, since no driver I know of can transform
% virtual fonts. If someone has a problem with this then I suppose he
% or she should send word about it. /LH
%
%
% \begin{macro}{\fromany}
% \changes{1.903}{1999/05/20}{Command added. (LH) Based on a
% suggestion by Vladimir Volovich.}
% \changes{1.903}{1999/06/01}{Added behaviour for AFM not found case.
% (LH)}
% \changes{1.904}{1999/06/16}{Added search for VPL file and calls to
% \cs{record_transform}. (LH)}
% \changes{1.923}{2002/12/03}{Added \cs{pl_encoding}. (LH)}
% \changes{1.926}{2003/07/10}{Removed \cs{pl_encoding}; it is better
% to provide that functionality in a separate macro. (LH)}
% \changes{1.926}{2003/07/10}{Has to reset the \texttt{afm-name}
% string, since \cs{input_mtx_file} now uses the value. (LH)}
% The |\fromany| transformed font command searches for font metrics
% for \#1 by looking for, in turn, the files \#1|.mtx|, \#1|.pl|,
% \#1|.afm|, and \#1|.vpl|. If an MTX file doesn't exist, it is
% generated, and if the MTX is generated from an AFM then a
% corresponding (non-ligful) PL file is generated as well. |\fromany|
% also sets the fontinst string \texttt{afm-name} according
% to what kind of font it found. If none of the fonts existed then
% |afm-name| is unset.
% \begin{macrocode}
\def\fromany#1{
\x_cs\edef{s-afm-name}{#1}
\if_file_exists{#1.mtx}\then\else
% \end{macrocode}
%
% \changes{1.6}{1997/01/15}{Search order changed to PL before AFM.
% (SPQR) The code wasn't in \cs{fromany} back then, though.}
% 1997/01/15 SPQR changed the below search order to |.pl| before |.afm|
% because of the |cmr*.afm| files found in the |TEXMF|\slash
% |fonts|\slash|afm| hierarchy.
% \begin{macrocode}
\if_file_exists{#1.pl}\then
\generalpltomtx{#1}{#1}{pl}{}
\else
\if_file_exists{#1.afm}\then
\afmtomtx{#1}{#1}
\mtxtopl{#1}{#1}
\else
\if_file_exists{#1.vpl}\then
\generalpltomtx{#1}{#1}{vpl}{}
\else
\unsetstr{afm-name}
\fi\fi\fi\fi
}
% \end{macrocode}
% \end{macro}
%
%
% \subsubsection*{The mathematical basis for the metric font transformations}
%
% Mathematically, all the metric font transformations (|\scale|\-|font|,
% |\xscale|\-|font|, |\yscale|\-|font|, and |\slant|\-|font|) are linear
% mappings of the real plane onto itself. All quantities in a
% transformable metric file are interpreted as being determined by some
% point in this plane and hence their transformation depends on how that
% point would be moved by the metric font transformations performed.
% This is usually simpler than it sounds, since all quantities except
% |italicslant| are interpreted as either the $x$- or the $y$-coordinate
% of some point. |italicslant| is interpreted as the quotient
% $\frac{x}{y}$ for a point.
%
% The best way to describe a linear mapping of the real plane to itself
% is by a \(2 \times 2\) matrix whose components are real numbers. Since
% true real numbers are not available in \TeX, integers are used instead,
% with the convention that they are in units of thousandths. In a
% concrete form this means that $0$ represents $0$, $500$ represents
% $\frac{1}{2}$, $1000$ represents $1$, etc. This works just as for the
% scaling factors used in |\scale|. It also means that the matrix
% $$
% \left(\begin{array}{cc} 1000 & 0 \\ 0 & 1000 \end{array}\right)
% $$
% represents the identity mapping (the mapping taking everything to
% itself).
%
% Thinking of points as column vectors (\(2 \times 1\) matrices) with
% the $x$-coordinate in the first component and the $y$-coordinate in
% the second, the respective elementary metric font transformations
% correspond to the following matrices:
% \begin{eqnarray*}
% \mbox{\cs{scalefont}\marg{n}} & \mbox{is} &
% \left( \begin{array}{cc}
% \mbox{\meta{n}}& 0 \\
% 0 & \mbox{\meta{n}}
% \end{array} \right) \\
% \mbox{\cs{xscalefont}\marg{n}} & \mbox{is} &
% \left( \begin{array}{cc}
% \mbox{\meta{n}}& 0 \\
% 0 & 1000
% \end{array} \right) \\
% \mbox{\cs{yscalefont}\marg{n}} & \mbox{is} &
% \left( \begin{array}{cc}
% 1000 & 0 \\
% 0 & \mbox{\meta{n}}
% \end{array} \right) \\
% \mbox{\cs{slantfont}\marg{n}} & \mbox{is} &
% \left( \begin{array}{cc}
% 1000 & \mbox{\meta{n}} \\
% 0 & 1000
% \end{array} \right)
% \end{eqnarray*}
% Since all these matrices are upper triangular, all products of such
% matrices (corresponding to compositions of the linear mappings) will be
% upper triangular as well. It is therefore unnecessary to store the
% subdiagonal component anywhere (it is always zero), and hence
% \package{fontinst} represents an arbitrary metric transform by the
% matrix
% $$
% \left( \begin{array}{cc}
% \mbox{\texttt{x-scale}} & \mbox{\texttt{slant-scale}} \\
% 0 & \mbox{\texttt{y-scale}}
% \end{array} \right)
% $$
% where \texttt{x-scale}, \texttt{y-scale}, and \texttt{slant-scale}
% are fontinst integers.
%
% The reason there is a representation of arbitrary metric transforms
% is that all the elementary metric transforms listed in the second
% argument of |\transformfont| are concatenated before the actual font
% file conversion is made. This reduces the amount of calculations
% performed in case there are many transformations of the font.
%
% Why do we only consider transformations that correspond to upper
% triangular matrices? Well, a transformation corresponds to an upper
% triangular matrix if and only if it leaves horizontal lines horizontal.
% Since in particular the baseline must always be horizontal in \TeX,
% there is no point in considering other linear transformations.
%
% \begin{macro}{\scalefont}
% \begin{macro}{\xscalefont}
% \begin{macro}{\yscalefont}
% \begin{macro}{\slantfont}
% \begin{macro}{\reencodefont}
% \begin{macrocode}
\def\scalefont#1#2{
\eval_expr_to\d_count{#1}
\x_resetint{x-scale}{\scale{\d_count}{\int{x-scale}}}
\x_resetint{y-scale}{\scale{\d_count}{\int{y-scale}}}
\x_resetint{slant-scale}{\scale{\d_count}{\int{slant-scale}}}
#2
}
\def\xscalefont#1#2{
\x_resetint{x-scale}{\scale{#1}{\int{x-scale}}}
#2
}
\def\yscalefont#1#2{
\eval_expr_to\d_count{#1}
\x_resetint{y-scale}{\scale{\d_count}{\int{y-scale}}}
\x_resetint{slant-scale}{\scale{\d_count}{\int{slant-scale}}}
#2
}
\def\slantfont#1#2{
\x_resetint{slant-scale}{
\add{\scale{#1}{\int{x-scale}}}{\int{slant-scale}}
}
#2
}
\def\reencodefont#1#2{
#2
\resetstr{etx-name}{#1}
}
% \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
%
% That's only half the story, however. It is true that the transformation
% matrix, as computed by |\scalefont|, |\slantfont|, |\xscalefont|, and
% |\yscalefont| above, is used for transforming the font metrics, but it
% is not directly used for transforming the font itself. Instead it is
% factorized as
% $$
% \left( \begin{array}{cc}
% x & s \\ 0 & y
% \end{array} \right) =
% y \left( \begin{array}{cc}
% x/y & s/y \\ 0 & 1
% \end{array} \right)
% $$
% Here the scalar factor $y$ will be used to scale the \meta{scale}
% argument of |\set|\-|scaled|\-|raw|\-|glyph| and
% |\set|\-|scaled|\-|not|\-|glyph| commands, whereas the matrix
% factor will be put in the third argument of |\store|\-|map|\-|data|
% in the MTX file written. Thus \package{fontinst} will handle the
% scalar factor of the transformation itself, but leave the matrix
% factor for some other software to take care of.
%
% \bigskip
%
%
% \DescribeMacro{\mtxtomtx}
% The macro:
% \begin{quote}
% |\mtxtomtx|\marg{source MTX}\marg{destination MTX}
% \end{quote}
% converts the first |.mtx| file to the second, using the current values
% of |\int{x-scale}|, |\int{y-scale}|, |\int{slant-scale}|, and
% |\str{etx-name}|.
%
% NOTE: this doesn't convert arbitrary |.mtx| files, just the
% transformable ones.
%
% \begin{macro}{\mtxtomtx}
% \changes{1.911}{1999/11/19}{\cs{edef}ing \cs{raw_font_name}. (LH)}
% \changes{1.915}{2000/09/09}{Locally redefining \cs{aliased}. (LH)}
% \changes{1.924}{2003/02/08}{Added \cs{directfalse}. (LH)}
% \changes{1.931}{2005/05/13}{Placed ETX processing after
% \cs{needsfontinstversion} had been written, so that ETX commands
% can write data directly to the output MTX file. (LH)}
% \changes{1.931}{2005/05/13}{Copying \cs{declarepsencoding} data to
% generated MTX file as a \cs{setpsencoding} command. (LH)}
% \begin{macrocode}
\def\mtxtomtx#1#2{{
\let\a_macro=\empty_command
\_a_true
\ifnum \int{x-scale}=\int{y-scale}
\ifnum \int{slant-scale}=\z@
\_a_false
\fi \fi
\if_a_
\a_count=\int{x-scale}
\l_inv_scale\a_count{\int{y-scale}}
\b_count=\int{slant-scale}
\l_inv_scale\b_count{\int{y-scale}}
\edef\a_macro{\a_macro
\string\transformfont{\the\a_count}{\the\b_count}
}
\fi
\open_out{\temp_prefix#2.mtx}
\edef\raw_font_name{#2}
\out_line{\percent_char~Filename:~#2.mtx}
\out_line{\percent_char~Created~by:~tex~\jobname}
\out_line{\percent_char~Created~using:~\string\mtxtomtx{#1}{#2}}
\out_line{}
\out_line{\percent_char~This~file~is~used~by~the~fontinst~package.}
\out_line{}
\out_line{\percent_char~THIS~FILE~CAN~BE~DELETED.}
\out_line{}
\out_line{\string\relax}
\out_line{\string\metrics}
\out_line{}
\out_line{\string\needsfontinstversion{\fontinstversion}}
\out_line{}
\ifisstr{etx-name}\then
\def\do_slot{\x_cs\edef{slots-\slot_name}{\the\slot_number}}
\def\declarepsencoding##1##2##3{
\a_toks={{##1}{##2}{##3}}
\out_line{\string\providepsencoding\the\a_toks}
\ifnum \transform_record_file=\closed_stream \else
\pout_line\transform_record_file
{\string\providepsencoding\the\a_toks}
\fi
}
\directfalse
\inputetx{\str{etx-name}}
\edef\a_macro{\a_macro\string\reencodefont{\str{etx-name}}}
\fi
\record_transform{#2}{\string\frommtx{#1}}{\a_macro}\iftrue
\out_line{}
\mtxtomtx_redefinitions
\inputmtx{#1}
\out_line{}
\out_line{\endmetrics_text}
\close_out{Transformed~metrics}
}}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\mtxtomtx_redefinitions}
% This macro serves as a hook. One can make additional commands
% transformable by appending suitable redefenitions of them to this
% macro.
% \changes{1.927}{2003/12/08}{Macro added. The code used to be in
% \cs{mtxtomtx}. (LH)}
% \begin{macrocode}
\def\mtxtomtx_redefinitions{
\let\setint=\mtxtomtx_setint
\let\setdim=\mtxtomtx_setdim
\let\setstr=\mtxtomtx_setstr
\let\setscaledrawglyph=\mtxtomtx_setscaledrawglyph
\let\setscalednotglyph=\mtxtomtx_setscaledrawglyph
\let\setkern=\mtxtomtx_setkern
\let\setglyph=\mtxtomtx_setglyph
\let\glyphpcc=\mtxtomtx_glyphpcc
\let\samesize=\mtxtomtx_samesize
\let\endsetglyph=\mtxtomtx_endsetglyph
\def\aliased{\string\aliased}
}
%</pkg>
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\aliased}
% \changes{1.915}{2000/09/09}{Macro added. (LH)}
% The |\aliased| macro has the syntax
% \begin{quote}
% |\aliased|\marg{font's name}\marg{alias name}
% \end{quote}
% This normally expands to \meta{alias name}, but in |\mtxtomtx| it
% normally expands to
% \begin{quote}
% |\string\aliased|\marg{font's name}\marg{alias name}
% \end{quote}
% and when |\mtxtomtx_setscaledrawglyph| is reencoding it uses
% \meta{font's name} to determine the new slot position.
% \begin{macrocode}
%<pkg|misc>\let\aliased=\second_of_two
%<doc>\let\aliased=\@secondoftwo
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\mtxtomtx_setint}
% \changes{1.917}{2001/03/24}{Redefined to allow an extensible list
% \cs{width_ints_list} of integers that should be transformed as
% widths. (LH)}
% \begin{macro}{\italicslant_name}
% \begin{macro}{\width_ints_list}
% \changes{1.917}{2001/03/24}{Macro added. \cs{verticalstem_name}
% removed. (LH)}
% Most integers are transformed as if they are the $y$-coordinates of
% some points, but |italicslant| and the integers in the
% |\width_ints_list| are treated differently. |italicslant| is
% interpreted as the quotient $\frac{x}{y}$ for a point $(x,y)$, but
% represented as a real number (i.e., the \TeX\ number is really a
% thousand times the actual quotient). The integers in the
% |\width_ints_list| are transformed as if they are the
% $x$-coordinates of some points on the baseline.
%
% The |\width_ints_list| macro is an ordinary |\do|-type list where
% each |\do| has precisely one argument. These arguments are the names
% of the integers which should be transformed as widths. Elements can
% be added to the list using the |\add_to| macro.
%
% The test for whether a specific integer is in the |\width_ints_list|
% exploits that |\if_true| and |\if_false| only matter in |\if|--|\fi|
% matching after they have been expanded, whereas
% |\gobble_one|\,|\iftrue| only matters before it is expanded.
% \begin{macrocode}
%<*pkg>
\def\mtxtomtx_setint#1#2{
\def\a_macro{#1}
\ifx \a_macro\italicslant_name
\eval_expr{#2}
\global\multiply \result \int{x-scale}
\a_count=\int{slant-scale}
\multiply \a_count \one_thousand
\advance \a_count \result
\divide \a_count \int{y-scale}\x_relax
\else
\def\do##1{
\def\b_macro{##1}
\ifx \a_macro\b_macro \expandafter\if_false \fi
}
\gobble_one\iftrue \width_ints_list \if_true
\eval_expr_to\a_count{\scale{#2}{\int{y-scale}}}
\else
\eval_expr_to\a_count{\scale{#2}{\int{x-scale}}}
\fi
\fi
\out_line{\string\setint{#1}{\the\a_count}}
}
\def\italicslant_name{italicslant}
\def\width_ints_list{
\do{interword}\do{stretchword}\do{shrinkword}\do{quad}
\do{extraspace}\do{digitwidth}\do{verticalstem}
}
% \end{macrocode}
% \end{macro}\end{macro}\end{macro}
%
% \begin{macro}{\mtxtomtx_setdim}
% \begin{macro}{\mtxtomtx_setstr}
% Strings and dimens are not affected by the |\mtxtomtx| transforms.
% \begin{macrocode}
\def\mtxtomtx_setdim#1#2{
\out_line{\string\setdim{#1}{#2}}
}
% \end{macrocode}
% \begin{macrocode}
\def\mtxtomtx_setstr#1#2{
\out_line{\string\setstr{#1}{#2}}
}
% \end{macrocode}
% \end{macro} \end{macro}
%
% \begin{macro}{\mtxtomtx_setscaledrawglyph}
% \changes{1.915}{2000/09/09}{Added local redefinition of
% \cs{aliased}. (LH)}
% |#6| (the width) is transformed as the $x$-coordinate of a point on
% the baseline. |#7| and |#8| (the height and depth respectively) are
% transformed as $y$-coordinates. The depth should probably really have
% been transformed as the negative of a $y$-coordinate, but it comes
% out the same in the end anyway. |#9| (the italic correction) is
% transformed as the $x$-coordinate of a point whose $y$-coordinate
% equals the height of the character. |#4| (the scaling) is
% transformed as a $y$-coordinate.
%
% If the italic slant of the font is negative then the italic
% correction should possibly be transformed as the $x$-coordinate of
% a point whose $y$-coordinate equals the negative of the depth
% instead (as that is the part of the box that is sticking out to the
% right), but it is hard to say for sure how that case should be
% treated.
%
% \begin{macrocode}
\def\mtxtomtx_setscaledrawglyph#1#2#3#4#5#6#7#8#9{
\eval_expr_to\a_count{\scale{#6}{\int{x-scale}}}
\eval_expr_to\b_count{\scale{#7}{\int{y-scale}}}
\eval_expr_to\c_count{\scale{#8}{\int{y-scale}}}
\eval_expr_to\d_count{#9} \eval_expr{#7}
\multiply \d_count \int{x-scale}
\global\multiply \result \int{slant-scale}
\global\advance \result \d_count
\rounded_thousandths
\d_count=\result
\eval_expr{\scale{#4}{\int{y-scale}}}
\ifisstr{etx-name}\then
\bgroup
\let\aliased=\first_of_two
\if_undefined{slots-#1}\then
\egroup \e_count=\m@ne
\else
\expandafter\egroup \expandafter\e_count
\csname slots-#1\endcsname
\fi
\else
\e_count=#5
\fi
\out_line{
\ifnum \e_count>\m@ne
\string\setscaledrawglyph
\else
\string\setscalednotglyph
\fi
{#1}{\raw_font_name}{#3}{\the\result}{\the\e_count}
{\the\a_count}{\the\b_count}{\the\c_count}{\the\d_count}
}
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\mtxtomtx_setkern}
% Kerns are transformed as the $x$-coordinate of a point on the
% baseline.
%
% \begin{macrocode}
\def\mtxtomtx_setkern#1#2#3{
\eval_expr{\scale{\int{x-scale}}{#3}}
\out_line{\string\setkern{#1}{#2}{\the\result}}
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\mtxtomtx_setglyph}
% \begin{macro}{\mtxtomtx_samesize}
% \begin{macro}{\mtxtomtx_endsetglyph}
% \begin{macrocode}
\def\mtxtomtx_setglyph#1{\out_line{\string\setglyph{#1}}}
\def\mtxtomtx_samesize#1{\out_lline{\string\samesize{#1}}}
\def\mtxtomtx_endsetglyph{\out_line{\string\endsetglyph}}
% \end{macrocode}
% \end{macro} \end{macro} \end{macro}
%
% \begin{macro}{\mtxtomtx_glyphpcc}
% |#2| is transformed as the $x$-coordinate and |#3| is transformed
% as the $y$-coordinate of a point---the same point for both
% parameters.
%
% \begin{macrocode}
\def\mtxtomtx_glyphpcc#1#2#3{
\eval_expr_to\b_count{\scale{\int{y-scale}}{#3}}
\eval_expr_to\a_count{#2} \eval_expr{#3}
\multiply \a_count \int{x-scale}
\global\multiply \result \int{slant-scale}
\global\advance \result \a_count
\rounded_thousandths
\out_lline{\string\glyphpcc{#1}{\the\result}{\the\b_count}}
}
% \end{macrocode}
% \end{macro}
%
%
% \subsection{Changing glyph names}
% \label{Ssec:Reglyph}
%
% \package{fontinst} uses names to identify glyphs, and if for example
% the font in question is a postscript font, then names will also be used
% to identify glyphs in the printer. Between those two points however,
% and in particular inside \TeX\ itself, glyphs are represented with
% numbers (slots). Therefore there is no real need for the glyph names
% used within \package{fontinst} and the glyph names used in the printer
% (the names gotten from the AFM file) to be equal, but they usually are.
% There are some cases though where the glyph names of a font are
% unsuitable for use with \package{fontinst}---mainly because
% \package{fontinst} can mix glyphs from different printer fonts---and
% therefore \package{fontinst} also offers the ability to automatically
% change the names of glyphs in transformable metric files.
%
% \begin{macro}{\reglyphfonts}
% \changes{1.912}{2000/01/15}{Added local resetting of
% \cs{setsomething_global} to \cs{relax}. It shouldn't be needed,
% since \cs{reglyphfonts} should not occur between \cs{installfonts}
% and \cs{endinstallfonts}, but I bet someone will try. (LH)}
% \begin{macro}{\endreglyphfonts}
% \begin{quote}
% |\reglyphfonts| \meta{reglyphing commands} |\endreglyphfonts|
% \end{quote}
% \begin{macrocode}
\def\reglyphfonts{
\begingroup
\let\setsomething_global=\x_relax
\x_setint{renameweight}{1}
\x_setint{killweight}{-10}
\setcommand\iftokeep##1\then{\ifnum -1<##1}
}
\def\endreglyphfonts{\endgroup}
% \end{macrocode}
% \end{macro} \end{macro}
%
%
% The \meta{reglyphing commands} are
% \begin{quote}
% |\renameglyph|\marg{to}\marg{from}\\
% |\renameglyphweighted|\marg{to}\marg{from}\marg{weight}\\
% |\killglyph|\marg{glyph}\\
% |\killglyphweighted|\marg{glyph}\marg{weight}\\
% |\offmtxcommand|\marg{command}\\
% |\onmtxcommand|\marg{command}\\
% |\reglyphfont|\marg{destination font}\marg{source font}
% \end{quote}
% The only reglyphing command that actually convert the names of any
% glyphs is \DescribeMacro{\reglyphfont}|\reglyph|\-|font|; it reads a font
% \meta{source font} (which may be of type MTX, PL, AFM, or VPL) and
% writes another font \meta{destination font} in which the names of
% glyphs have been converted. All the other commands control \emph{how}
% this conversion should be made, and these settings get cleared at the
% closing |\endreglyphfonts|.
%
% The conversion works in two ways. First of all, the names of the
% glyphs can be changed. This works as a general mapping and is
% controlled by the \DescribeMacro{\renameglyph}|\renameglyph| and
% \DescribeMacro{\renameglyphweighted}|\renameglyphweighted|
% commands. Any mensioning of the glyph \meta{from} in a command will be
% converted to a mensioning of the glyph \meta{to}, if that command
% survives the conversion. The other way the conversion works is that it
% can selectively kill---refrain from including in \meta{destination
% font}---commands in the metric file. This part weighs in several
% factors.
%
% For one thing, one can specify that all metric commands of a certain
% type should be killed, and this is done with the
% \DescribeMacro{\offmtxcommand}|\offmtxcommand| command. For example,
% one can see to that all kerning commands are killed by
% \begin{quote}
% |\offmtxcommand{\setkern}|
% \end{quote}
% The effect is the same as that of saying
% \begin{quote}
% |offkern,|\meta{destination font}|,onkern|
% \end{quote}
% rather than just \meta{destination font} in the second argument to
% |\installfont|, but it is somewhat faster since less text is written
% to and subsequently read from the \meta{destination font}|.mtx| file.
% The effect of a previous |\offmtxcommand| can be canceled by a call to
% \DescribeMacro{\onmtxcommand}|\onmtxcommand|, just like with
% |\offcommand| and |\oncommand|.
%
% The survivance of a command is also affected by the glyphs it refers to.
% Each glyph has a \emph{weight} associated with it and the sum of the
% weights for all glyphs mensioned by a command is also used to decide
% whether that command should survive. The test here is performed by the
% macro \DescribeMacro{\iftokeep}|\iftokeep|, whose parameter text
% must be |#1\then|, where |#1| will be a |\count| register. This
% macro must eventually expand to an if of some sort and that if
% evaluating to true is interpreted as that the command should be kept.
% The default replacement text is |\ifnum -1<#1|, which causes a command
% to be killed (not kept) iff the sum of weights for it is negative.
%
% The weight of a glyph is set by |\rename|\-|glyph|,
% |\rename|\-|glyph|\-|weighted|,
% \DescribeMacro{\killglyph}|\kill|\-|glyph|, and
% \DescribeMacro{\killglyphweighted}|\kill|\-|glyph|\-|weighted|. The
% |\rename|\textellipsis\ commands also set a new name for the glyph if
% it survives, whereas the |\kill|\textellipsis\ commands will keep the
% old name. Since the standard settings are that a
% |\rename|\textellipsis\ weight is small and positive and a
% |\kill|\textellipsis\ weight is large and negative, glyphs for which
% a |\kill|\textellipsis\ has been done will usually not survive.
%
% Any one of |\rename|\-|glyph|, |\rename|\-|glyph|\-|weighted|,
% |\kill|\-|glyph|, and |\kill|\-|glyph|\-|weighted| for a glyph will
% override all previous settings
% by any of these four commands for that glyph. The equivalent of the
% neutral state for a glyph (no settings by any of these commands have
% been made for that glyph) is achieved by the command
% \begin{quote}
% |\killglyphweighted|\marg{glyph}|{0}|
% \end{quote}
%
%
% \begin{macro}{\offmtxcommand}
% \begin{macro}{\onmtxcommand}
% These two are just special forms of |\offcommand| and |\oncommand|.
% \begin{macrocode}
\def\offmtxcommand#1{
\x_cs\offcommand{reglyph_\expandafter\gobble_one\string#1}
}
\def\onmtxcommand#1{
\x_cs\oncommand{reglyph_\expandafter\gobble_one\string#1}
}
% \end{macrocode}
% \end{macro} \end{macro}
%
%
% \describecsfamily{slots-\meta{glyph}}Inside a |\reglyphfonts|
% \textellipsis\ |\endreglyphfonts| block, the family
% |\slots-|\meta{glyph} of control sequences is used to store the
% information about how glyph \meta{glyph} should be converted. These
% control sequences are either undefined or parameterless macros
% whose replacement texts are of one of the forms
% \begin{quote}
% |\rename_glyph|\marg{to}\marg{weight}\\
% |\rename_glyph|\marg{to}|\i-renameweight|\\
% |\kill_glyph|\marg{weight}\\
% |\kill_glyph\i-killweight|
% \end{quote}
% \meta{to} is what the glyph will be renamed to and \meta{weight} is
% the associated weight. These four different forms are generated by
% the four different commands |\renameglyphweighted|, |\renameglyph|,
% |\killglyphweighted|, and |\killglyph| respectively.
%
% \begin{macro}{\renameglyph}
% \begin{macro}{\renameglyphweighted}
% The difference between the commands |\renameglyphweighted| and
% |\renameglyph| is that the former lets one specify the weight exactly
% while the latter will use the value of the integer |renameweight|
% \emph{at the time of conversion}. By changing the value of
% |renameweight| between two conversions, one changes the weights
% used for all glyph renamings declared using |\renameglyph|.
% \begin{macrocode}
\begingroup
\catcode`\-=11
\gdef\renameglyph#1#2{
\x_cs\edef{slots-#2}{
\noexpand\rename_glyph{#1}\noexpand\i-renameweight
}
}
\endgroup
% \end{macrocode}
% \begin{macrocode}
\def\renameglyphweighted#1#2#3{
\eval_expr{#3}
\x_cs\edef{slots-#2}{\noexpand\rename_glyph{#1}{\the\result}}
}
% \end{macrocode}
% \end{macro} \end{macro}
%
% \begin{macro}{\killglyph}
% \begin{macro}{\killglyphweighted}
% The difference between the commands |\killglyphweighted| and
% |\killglyph| is that the former lets one specify the weight exactly
% while the latter will use the value of the integer |killweight|
% \emph{at the time of conversion}. By changing the value of
% |killweight| between two conversions, one changes the weights
% used for all glyph killings declared using |\killglyph|.
% \begin{macrocode}
\begingroup
\catcode`\-=11
\gdef\killglyph#1{
\x_cs\def{slots-#1}{\kill_glyph\i-killweight}
}
\endgroup
% \end{macrocode}
% \begin{macrocode}
\def\killglyphweighted#1#2{
\eval_expr{#2}
\x_cs\edef{slots-#1}{\noexpand\kill_glyph{\the\result}}
}
% \end{macrocode}
% \end{macro} \end{macro}
%
%
% \begin{macro}{\reglyphfont}
% The command
% \begin{quote}
% |\reglyphfont|\marg{destination font}\marg{source font}
% \end{quote}
% reads the font metric file \meta{source font}|.mtx| (which must be
% transformable), \meta{source font}|.pl|, or \meta{source font}|.afm|
% (the possibilities are tried in that order) and writes out a font
% metric file \meta{destination font}|.mtx| that is the converted (as
% described above) form of the source font.
%
% \meta{destination font} and \meta{source font} may not be equal.
% \changes{1.903}{1999/06/01}{Using \cs{fromany} for locating font.
% (LH)}
% \changes{1.904}{1999/06/16}{Added \cs{record_transform}. (LH)}
% \begin{macrocode}
\def\reglyphfont#1#2{
\fromany{#2}
\ifisstr{afm-name}\then
\reglyph_font{#1}{#2}
\else
\fontinsterror{Reglyph}{Could~not~find~font~metrics~for~#2.}
\error_help_a
\fi
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\reglyph_font}
% This macro does the actual conversion.
% \begin{macrocode}
\def\reglyph_font#1#2{{
\open_out{\temp_prefix#1.mtx}
\out_line{\percent_char~Filename:~#1.mtx}
\out_line{\percent_char~Created~by:~tex~\jobname}
\out_line{\percent_char~Created~using:~\string\reglyphfont{#1}{#2}}
\out_line{}
\out_line{\percent_char~This~file~is~used~by~the~fontinst~package.}
\out_line{}
\out_line{\percent_char~THIS~FILE~CAN~BE~DELETED.}
\out_line{}
\out_line{\string\relax}
\out_line{\string\metrics}
\out_line{}
\out_line{\string\needsfontinstversion{\fontinstversion}}
\out_line{}
\record_transform{#1}{\string\frommtx{#2}}{\string\reglyphfont}
\iftrue
\out_line{}
\reglyph_redefinitions
\inputmtx{#2}
\out_line{}
\out_line{\endmetrics_text}
\close_out{Reglyphed~metrics}
}}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\reglyph_redefinitions}
% This macro serves as a hook. One can make additional commands
% transformable by appending suitable redefenitions of them to this
% macro.
% \changes{1.927}{2003/12/08}{Macro added. The code used to be in
% \cs{reglyph_font}. (LH)}
% \begin{macrocode}
\def\reglyph_redefinitions{
\let\setint=\reglyph_setint
\let\setdim=\reglyph_setdim
\let\setstr=\reglyph_setstr
\let\setscaledrawglyph=\reglyph_setscaledrawglyph
\let\setscalednotglyph=\reglyph_setscaledrawglyph
\let\setkern=\reglyph_setkern
\let\setglyph=\reglyph_setglyph
\let\glyphpcc=\reglyph_glyphpcc
\let\samesize=\reglyph_samesize
\let\endsetglyph=\reglyph_endsetglyph
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\reglyph_setint}
% \begin{macro}{\reglyph_setdim}
% \begin{macro}{\reglyph_setstr}
% These are just copied to the file generated.
% \begin{macrocode}
\def\reglyph_setint#1#2{\out_line{\string\setint{#1}{#2}}}
\def\reglyph_setdim#1#2{\out_line{\string\setdim{#1}{#2}}}
\def\reglyph_setstr#1#2{\out_line{\string\setstr{#1}{#2}}}
% \end{macrocode}
% \end{macro} \end{macro} \end{macro}
%
% \begin{macro}{\command_survivance}
% This |\count| register stores the sum of the weights associated
% with the glyphs considered so far. It is updated by |\rename_glyph|
% and |\kill_glyph|.
% \begin{macrocode}
\newcount\command_survivance
% \end{macrocode}
% \end{macro}
%
% The macro \DescribeMacro{\glyphname}|\glyphname| holds the name of
% the glyph currently under consideration. It is altered by
% |\rename_glyph|.
%
% \begin{macro}{\rename_glyph}
% \begin{macro}{\kill_glyph}
% \begin{macrocode}
\def\rename_glyph#1{\def\glyphname{#1}\kill_glyph}
\def\kill_glyph#1{\advance \command_survivance #1\x_relax}
% \end{macrocode}
% \end{macro} \end{macro}
%
%
% \begin{macro}{\reglyph_setscaledrawglyph}
% \changes{1.915}{2000/06/25}{Corrected bug in the \cs{ifnum}: it
% should test argument \#5, not \#4. (LH) Encountered by Thierry
% Bouche.}
% The |\reglyph_|\-|setscaled|\-|rawglyph| macro is straightforward.
% Whether it writes a |\setscaled|\-|rawglyph| or a |\setscaled|\-^^A
% |notglyph| command depends on the fifth parameter, just like with
% |\mtxtomtx_|\-|setscaled|\-|rawglyph|.
% \begin{macrocode}
\def\reglyph_setscaledrawglyph#1#2#3#4#5#6#7#8#9{
\command_survivance=0
\def\glyphname{#1}
\csname slots-#1\endcsname
\iftokeep\command_survivance\then
\out_line{
\ifnum #5<\z@
\string\setscalednotglyph
\else
\string\setscaledrawglyph
\fi
{\glyphname}{#2}{#3}{\number#4}{#5}{#6}{#7}{#8}{#9}
}
\fi
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\reglyph_setkern}
% \begin{macrocode}
\def\reglyph_setkern#1#2#3{
\command_survivance=0
\def\glyphname{#1}
\csname slots-#1\endcsname
\let\a_macro=\glyphname
\def\glyphname{#2}
\csname slots-#2\endcsname
\iftokeep\command_survivance\then
\out_line{\string\setkern{\a_macro}{\glyphname}{#3}}
\fi
}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\reglyph_setglyph}
% \multchanges{\cs{reglyph_glyphpcc}\cs{reglyph_samesize}^^A
% \cs{reglyph_setglyph}}{1.911}{1999/12/10}{\cs{string}
% which should be \cs{noexpand} corrected. (LH) Reported by
% Rolf Lindgren.}
% \begin{macro}{\off-\reglyph_setglyph}
% \begin{macro}{\reglyph_glyphpcc}
% \changes{1.911}{1999/12/10}{Typo corrected. (LH) Spotted by Rolf
% Lindgren.}
% \begin{macro}{\reglyph_samesize}
% \begin{macro}{\reglyph_endsetglyph}
% In |\setglyph| \textellipsis\ |\endsetglyph| constructions (which
% are written for composite characters in AFM files), the decision of
% whether to write a command or not due to glyph weights is done
% only once for the entire construction. This means that the commands
% must be saved until the |\endsetglyph| where the result is finally
% known. The token list register |\a_toks| is used for this purpose.
% \begin{macrocode}
\def\reglyph_setglyph#1{
\command_survivance=0
\def\glyphname{#1}
\csname slots-#1\endcsname
\edef\a_macro{\noexpand\out_line{\string\setglyph{\glyphname}}}
\a_toks=\expandafter{\a_macro}
}
\x_cs\def{off-\string\reglyph_setglyph}#1{\gobble_glyph}
% \end{macrocode}
% \begin{macrocode}
\def\reglyph_glyphpcc#1#2#3{
\def\glyphname{#1}
\csname slots-#1\endcsname
\edef\a_macro{\noexpand\out_lline{
\string\glyphpcc{\glyphname}{#2}{#3}
}}
\a_toks=\expandafter{\the\expandafter\a_toks \a_macro}
}
% \end{macrocode}
% \begin{macrocode}
\def\reglyph_samesize#1{
\def\glyphname{#1}
\csname slots-#1\endcsname
\edef\a_macro{\noexpand\out_lline{
\string\samesize{\glyphname}
}}
\a_toks=\expandafter{\the\expandafter\a_toks \a_macro}
}
% \end{macrocode}
% \begin{macrocode}
\def\reglyph_endsetglyph{
\iftokeep\command_survivance\then
\the\a_toks
\out_line{\string\endsetglyph}
\fi
\a_toks={}
}
%</pkg>
% \end{macrocode}
% \end{macro} \end{macro} \end{macro} \end{macro} \end{macro}
%
%
% \subsubsection*{Three common reglyphing schemes}
%
% As is mensioned elsewhere, the most common reglyphing operation is to
% take a caps and small caps font produced by some major foundry and
% change the glyph names so that they agree with the glyph names used in
% expert fonts. The following code contains the modifying reglyphing
% commands to set up this reglyphing, in two different variants.
%
% The commands are currently based on a comparision of Adobe Garamond
% Small Caps \& Oldstyle Figures (\texttt{padrc8a} in the Berry
% scheme) with Adobe Garamond Regular Expert (\texttt{padr8x} in the
% Berry scheme), so they should be correct for a fair amount of Adobe
% font families, but it is also highly probable that there are lots of
% fonts out there for which it doesn't work quite right. In case you do
% find such a font, please write to tell the \package{fontinst} mailing
% list about it---it would be rather easy to add various alternative
% set-up schemes, controlled by switches, to these files. Just make sure
% first (by checking the newest version of \package{fontinst}) that the
% alternative setting you have found hasn't already been included.
%
% As mentioned, there are two different reglyphing schemes that are set
% up by the code below---one has \package{docstrip} guard \Module{glyphs},
% the other has guard \Module{!glyphs}---but they both change SC names
% to Expert names. The difference lies instead in what information is
% copied from source font to destination font: the \Module{glyphs}
% variant copies everything, whereas the \Module{!glyphs} variant
% doesn't copy |\setrawglyph| commands, |\setnotglyph| commands,
% |\setscaledrawglyph| commands, |\setscalednotglyph| commands or
% |\setglyph| constructions. The \Module{!glyphs} variant also
% suppresses kerns between two glyphs that doesn't change name.
%
% The motive for having such a curious set-up naturally lies in how the
% files are meant to be used. If you have SC fonts, but no Expert
% fonts, then you should definitely use the \Module{glyphs} variant. If
% on the other hand you have both SC and Expert fonts for a family,
% then it is worth considering using the \Module{!glyphs} variant instead.
% The observation this is based on is that within a triad of the
% corresponding regular, expert, and SC fonts, almost all glyphs present
% in the SC font can also be found in either the regular or the expert
% font; furthermore the only missing glyphs were \texttt{FIsmall},
% \texttt{FLsmall}, and \texttt{SSsmall}, which (i) were included in the
% SC font only to complete the \texttt{8a} encoding vector and (ii) are
% identical to \package{fontinst}'s fakes for them.
%
% Thus by constructing the \texttt{sc} shape fonts from the regular and
% expert variants, instead of the SC variant, one can get away with
% using one raw font less, thus reducing the time needed for downloading
% the fonts to the printer and the size of the corresponding postscript
% file. One thing not found in either of the regular or expert font in
% the triad is however the kerns between capitals and small capitals, but
% these can be extracted from the metrics of the SC font, and doing this
% is the primary objective for the \Module{!glyphs} variant.
%
% \bigskip
% \changes{1.906}{1999/08/01}{Reglyphing settings files added. (LH)}
%
% First there is the English alphabet:
% \begin{macrocode}
%<*reglyphletters>
\renameglyph{Asmall}{a}
\renameglyph{Bsmall}{b}
\renameglyph{Csmall}{c}
\renameglyph{Dsmall}{d}
\renameglyph{Esmall}{e}
\renameglyph{Fsmall}{f}
\renameglyph{Gsmall}{g}
\renameglyph{Hsmall}{h}
\renameglyph{Ismall}{i}
\renameglyph{Jsmall}{j}
\renameglyph{Ksmall}{k}
\renameglyph{Lsmall}{l}
\renameglyph{Msmall}{m}
\renameglyph{Nsmall}{n}
\renameglyph{Osmall}{o}
\renameglyph{Psmall}{p}
\renameglyph{Qsmall}{q}
\renameglyph{Rsmall}{r}
\renameglyph{Ssmall}{s}
\renameglyph{Tsmall}{t}
\renameglyph{Usmall}{u}
\renameglyph{Vsmall}{v}
\renameglyph{Wsmall}{w}
\renameglyph{Xsmall}{x}
\renameglyph{Ysmall}{y}
\renameglyph{Zsmall}{z}
%</reglyphletters>
% \end{macrocode}
%
% Then there are the figures:
% \multchanges{\notcs{Reglyphing}}{1.911}{1999/12/10}
% {\texttt{eightoldstyle} typo corrected. (LH) Spotted by
% Rolf Lindgren.}
% \multchanges{\notcs{Reglyphing}}{1.927}{2004/07/12}
% {Placed commands for letters and figures in separate modules,
% so that they can be separated in generation. (LH)}
% \begin{macrocode}
%<*reglyphfigures>
\renameglyph{zerooldstyle}{zero}
\renameglyph{oneoldstyle}{one}
\renameglyph{twooldstyle}{two}
\renameglyph{threeoldstyle}{three}
\renameglyph{fouroldstyle}{four}
\renameglyph{fiveoldstyle}{five}
\renameglyph{sixoldstyle}{six}
\renameglyph{sevenoldstyle}{seven}
\renameglyph{eightoldstyle}{eight}
\renameglyph{nineoldstyle}{nine}
%</reglyphfigures>
% \end{macrocode}
%
% Then there are the accents and a couple of miscellaneous symbols. You
% might want to check these carefully, as there might not always be a
% distinction.
% \changes{1.925}{2003/05/13}{Added \cs{renameglyph} for
% \texttt{Hungarumlautsmall}. Walter Schmidt noticed it was missing.
% (LH)}
% \begin{macrocode}
%<*reglyphletters>
\renameglyph{Acutesmall}{acute}
\renameglyph{Brevesmall}{breve}
\renameglyph{Caronsmall}{caron}
\renameglyph{Cedillasmall}{cedilla}
\renameglyph{Circumflexsmall}{circumflex}
\renameglyph{Dieresissmall}{dieresis}
\renameglyph{Dotaccentsmall}{dotaccent}
\renameglyph{Gravesmall}{grave}
\renameglyph{Hungarumlautsmall}{hungarumlaut}
\renameglyph{Macronsmall}{macron}
\renameglyph{Ogoneksmall}{ogonek}
\renameglyph{Ringsmall}{ring}
\renameglyph{Tildesmall}{tilde}
\renameglyph{ampersandsmall}{ampersand}
\renameglyph{centoldstyle}{cent}
\renameglyph{dollaroldstyle}{dollar}
% \end{macrocode}
%
% There are also all the non-English letters:
% \begin{macrocode}
\renameglyph{AEsmall}{ae}
\renameglyph{Ethsmall}{eth}
\renameglyph{Lslashsmall}{lslash}
\renameglyph{Oslashsmall}{oslash}
\renameglyph{OEsmall}{oe}
\renameglyph{Thornsmall}{thorn}
% \end{macrocode}
% \begin{macrocode}
\renameglyph{Agravesmall}{agrave}
\renameglyph{Egravesmall}{egrave}
\renameglyph{Igravesmall}{igrave}
\renameglyph{Ogravesmall}{ograve}
\renameglyph{Ugravesmall}{ugrave}
% \end{macrocode}
% \begin{macrocode}
\renameglyph{Aacutesmall}{aacute}
\renameglyph{Eacutesmall}{eacute}
\renameglyph{Iacutesmall}{iacute}
\renameglyph{Oacutesmall}{oacute}
\renameglyph{Uacutesmall}{uacute}
\renameglyph{Yacutesmall}{yacute}
% \end{macrocode}
% \begin{macrocode}
\renameglyph{Acircumflexsmall}{acircumflex}
\renameglyph{Ecircumflexsmall}{ecircumflex}
\renameglyph{Icircumflexsmall}{icircumflex}
\renameglyph{Ocircumflexsmall}{ocircumflex}
\renameglyph{Ucircumflexsmall}{ucircumflex}
% \end{macrocode}
% \begin{macrocode}
\renameglyph{Atildesmall}{atilde}
\renameglyph{Ntildesmall}{ntilde}
\renameglyph{Otildesmall}{otilde}
% \end{macrocode}
% \begin{macrocode}
\renameglyph{Adieresissmall}{adieresis}
\renameglyph{Edieresissmall}{edieresis}
\renameglyph{Idieresissmall}{idieresis}
\renameglyph{Odieresissmall}{odieresis}
\renameglyph{Ydieresissmall}{ydieresis}
\renameglyph{Udieresissmall}{udieresis}
% \end{macrocode}
% \begin{macrocode}
\renameglyph{Aringsmall}{aring}
\renameglyph{Ccedillasmall}{ccedilla}
\renameglyph{Scaronsmall}{scaron}
\renameglyph{Zcaronsmall}{zcaron}
% \end{macrocode}
%
% The following four glyphs aren't really necessary, since they are
% usually identical to another glyph or to their fakes.
% \begin{macrocode}
\killglyph{dotlessi}
%<*glyphs>
\renameglyph{FIsmall}{fi}
\renameglyph{FLsmall}{fl}
\renameglyph{SSsmall}{germandbls}
%</glyphs>
%<*!glyphs>
\killglyph{fi}
\killglyph{fl}
\killglyph{germandbls}
%</!glyphs>
%</reglyphletters>
% \end{macrocode}
%
% The \Module{!glyphs} settings have no need for |\setrawglyph|,
% |\setscaledrawglyph|, or |\setglyph| commands, and no need for the
% kerns between capitals either, since these are already known from the
% regular variant. Note that it is pointless to say |\offmtxcommand|^^A
% \penalty0|\setrawglyph| as of v\,1.913 since |\setrawglyph| is now
% simply syntactic sugar for the equivalent |\set|\-|scaled|\-|raw|\-^^A
% |glyph|.
% \begin{macrocode}
%<*(reglyphletters|reglyphfigures)&!glyphs>
\offmtxcommand\setscaledrawglyph
\offmtxcommand\setglyph
\resetcommand\iftokeep#1\then{\ifnum 0<#1}
%</(reglyphletters|reglyphfigures)&!glyphs>
% \end{macrocode}
%
%
% \changes{1.904}{1999/06/13}{Font transformation recordings moved to
% \texttt{fimapgen.dtx}, so that the interface will be specified
% in a single place. (LH)}
%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% \Finale
\endinput