%%%========================================================================
%%% @TeX-file{
%%%    author              = "Alan Jeffrey",
%%%    version             = "0.14",
%%%    date                = "28 April 1993",
%%%    time                = "14:16:42 BST",
%%%    filename            = "T1ulc.fud",
%%%    address             = "School of Cognitive and Computing Sciences
%%%                           University of Sussex
%%%                           Brighton BN1 9QH
%%%                           UK",
%%%    telephone           = "+44 273 606755 x 3238",
%%%    FAX                 = "+44 273 678188",
%%%    checksum            = "63877 687 1044 15625",
%%%    email               = "alanje@cogs.sussex.ac.uk",
%%%    codetable           = "ISO/ASCII",
%%%    keywords            = "TeX, Cork, fonts, PostScript",
%%%    supported           = "yes",
%%%    abstract            = "This file contains fudges for the Cork
%%%                           fonts, for use with afmtotfm.tex.  It
%%%                           defines the command \codingscheme, and
%%%                           defines some ligatures and instructions
%%%                           on how to fake characters.",
%%%    docstring           = "The checksum field above contains a CRC-16
%%%                           checksum as the first value, followed by the
%%%                           equivalent of the standard UNIX wc (word
%%%                           count) utility output of lines, words, and
%%%                           characters.  This is produced by Robert
%%%                           Solovay's checksum utility.",
%%%    package             = "fontinst",
%%%    dependencies        = "none",
%%% }
%%%========================================================================
%
% Feb 12 1993, v0.01: Created the file.
%
% Feb 16 1993, v0.02: Added the default hardspace character, SS, and the
%   \topaccent's.
%
% Feb 17 1993, v0.03: Renamed space to boundarychar and hardspace to
%   visualspace.  Added the \botaccent's.
%
% Feb 19, 1993, v0.04: Added the \topaccent's and \botaccent's for
%    characters "C0-"FF.  Renamed FOOhacek to FOOcaron.  Renamed
%    boundarychar to compoundwordmark.  Added the \copykern commands.
%
% Feb 23, 1993, v0.05: I changed afmtotfm.tex to set most of the
%    parameters in \character, so I altered this file to fit.
%
% Feb 24, 1993, v0.06: Removed any references to \charic and added
%    \leftbearing and \rightbearing.
%
% Feb 26, 1993, v0.07: Discovered a \copykern instruction for <ss>,
%    which should have been <germandbls}.  Made all the assignments
%    global.  Redefined some of the \fontdimens in terms of \afmunits.
%
% 3 Mar 1993, v0.08: Updated \visualspace because \underlinethickness
%    is now measured in afm units, not points.
%
% 15 Mar 1993, v0.09: Updated for v0.12 of fontinst.tex.
%
% 22 Mar 1993, v0.10: Updated for v0.13 of fontinst.tex.
%
% 29 Mar 1993, v0.11: Updated for v0.15 of fontinst.tex.
%
% 30 Mar 1993, v0.12: Fixed a bug---I'd forgotten to include the
%    character foo itself in each \lrkern{foo}.
%
% 27 Apr 1993, v0.13: Centred the ring accent in <uring>, renamed
%    <compoundwordmark> to <compwordmark> after suggestions by barbara
%    and Yannis.
%
% 28 Apr 1993, v0.14: Corrected the spelling of <ccedialla> (sic), and
%    fixed the !` and ?` ligatures.

\codingscheme{EXTENDED TEX FONT ENCODING - LATIN}
\boundarychar{percent}

\fontdimens{
   \getchar{space}
   \parameter{1}{\itslant}             % slant
   \parameter{2}{\charwd}              % space
   \parameter{5}{\xheight\afmunits}    % xheight
   \parameter{6}{1000\afmunits}        % quad
   \iffixedpitch
      \parameter{3}{0pt}               % stretch
      \parameter{4}{0pt}               % shrink
      \parameter{7}{\charwd}           % extraspace
   \else
      \parameter{3}{.5\charwd}         % stretch
      \parameter{4}{.33333\charwd}     % shrink
      \parameter{7}{.33333\charwd}     % extraspace
   \fi
   \parameter{8}{100\afmunits}         % encoding number
   \parameter{9}{1200\afmunits}        % baselineskip
   \parameter{10}{0pt}                 % accent height THIS NEEDS CHANGED
   \parameter{11}{\capheight\afmunits} % cap height
   \parameter{12}{\ascender\afmunits}  % ascender
   \parameter{13}{\underlinethickness\afmunits} % rule width
}

\ligature{f}{
   \iffixedpitch\else
      \lig{i}{fi}{LIG}
      \lig{f}{ff}{LIG}
      \lig{l}{fl}{LIG}
   \fi
}

\ligature{ff}{
   \iffixedpitch\else
      \lig{i}{ffi}{LIG}
      \lig{l}{ffl}{LIG}
   \fi
}

\ligature{quoteleft}{
   \iffixedpitch\else
      \lig{quoteleft}{quotedblleft}{LIG}
   \fi
}

\ligature{question}{
   \iffixedpitch\else
      \lig{quoteleft}{questiondown}{LIG}
   \fi
}

\ligature{exclam}{
   \iffixedpitch\else
      \lig{quoteleft}{exclamdown}{LIG}
   \fi
}

\ligature{quoteright}{
   \iffixedpitch\else
      \lig{quoteright}{quotedblright}{LIG}
   \fi
}

\ligature{hyphen}{
   \iffixedpitch\else
      \lig{hyphen}{endash}{LIG}
   \fi
}

\ligature{endash}{
   \iffixedpitch\else
      \lig{hyphen}{emdash}{LIG}
   \fi
}

\ligature{less}{
   \iffixedpitch\else
      \lig{less}{guillemotleft}{LIG}
   \fi
}

\ligature{greater}{
   \iffixedpitch\else
      \lig{greater}{guillemotright}{LIG}
   \fi
}

\lrkern{space}{
   \scale{1}{
      \do{percent}
   }
}

\lrkern{A}{
   \scale{1}{
      \do{A}
      \do{Aacute}
      \do{Abreve}
      \do{Acircumflex}
      \do{Adieresis}
      \do{Agrave}
      \do{Aogonek}
      \do{Aring}
      \do{Atilde}
   }
}

\lrkern{C}{
   \scale{1}{
      \do{C}
      \do{Cacute}
      \do{Ccaron}
      \do{Ccedilla}
   }
}

\lrkern{D}{
   \scale{1}{
      \do{D}
      \do{Dcaron}
   }
}

\lrkern{E}{
   \scale{1}{
      \do{E}
      \do{Eacute}
      \do{Ecaron}
      \do{Ecircumflex}
      \do{Edieresis}
      \do{Egrave}
      \do{Eogonek}
   }
}

\lrkern{G}{
   \scale{1}{
      \do{G}
      \do{Gbreve}
   }
}

\lkern{I}{
   \scale{1}{
      \do{I}
      \do{IJ}
      \do{Iacute}
      \do{Icircumflex}
      \do{Idieresis}
      \do{Idotaccent}
      \do{Igrave}
   }
}

\rkern{I}{
   \scale{1}{
      \do{I}
      \do{Iacute}
      \do{Icircumflex}
      \do{Idieresis}
      \do{Idotaccent}
      \do{Igrave}
   }
}

\rkern{J}{
   \scale{1}{
      \do{J}
      \do{IJ}
   }
}

\lrkern{L}{
   \scale{1}{
      \do{L}
      \do{Lacute}
      \do{Lslash}
   }
}

\lrkern{N}{
   \scale{1}{
      \do{N}
      \do{Nacute}
      \do{Ncaron}
      \do{Ntilde}
   }
}

\lrkern{O}{
   \scale{1}{
      \do{O}
      \do{Oacute}
      \do{Ocircumflex}
      \do{Odieresis}
      \do{Ograve}
      \do{Ohungarumlaut}
      \do{Oslash}
      \do{Otilde}
   }
}

\lrkern{R}{
   \scale{1}{
      \do{R}
      \do{Rcaron}
      \do{Racute}
   }
}

\lrkern{S}{
   \scale{1}{
      \do{S}
      \do{SS}
      \do{Sacute}
      \do{Scaron}
      \do{Scedilla}
   }
}

\lrkern{T}{
   \scale{1}{
      \do{T}
      \do{Tcaron}
      \do{Tcedilla}
   }
}

\lrkern{U}{
   \scale{1}{
      \do{U}
      \do{Uacute}
      \do{Ucircumflex}
      \do{Ugrave}
      \do{Uhungarumlaut}
      \do{Uring}
   }
}

\lrkern{Y}{
   \scale{1}{
      \do{Y}
      \do{Yacute}
      \do{Ydieresis}
   }
}

\lrkern{Z}{
   \scale{1}{
      \do{Z}
      \do{Zacute}
      \do{Zcaron}
      \do{Zdotaccent}
   }
}

\lrkern{a}{
   \scale{1}{
      \do{a}
      \do{aacute}
      \do{abreve}
      \do{acircumflex}
      \do{adieresis}
      \do{agrave}
      \do{aogonek}
      \do{aring}
      \do{atidle}
   }
}

\lrkern{c}{
   \scale{1}{
      \do{c}
      \do{cacute}
      \do{ccaron}
      \do{ccedilla}
   }
}

\lrkern{d}{
   \scale{1}{
      \do{d}
      \do{dbar}
      \do{dcaron}
   }
}

\lrkern{e}{
   \scale{1}{
      \do{e}
      \do{eacute}
      \do{ecaron}
      \do{ecircumflex}
      \do{edieresis}
      \do{egrave}
      \do{eogonek}
   }
}

\lkern{f}{
   \scale{1}{
      \do{f}
      \do{ffi}
      \do{ffl}
      \do{ff}
      \do{fi}
      \do{fl}
   }
}

\lrkern{g}{
   \scale{1}{
      \do{g}
      \do{gbreve}
   }
}

\lkern{i}{
   \scale{1}{
      \do{i}
      \do{iacute}
      \do{icircumflex}
      \do{idieresis}
      \do{igrave}
      \do{ij}
   }
}

\rkern{i}{
   \scale{1}{
      \do{i}
      \do{ffi}
      \do{fi}
      \do{iacute}
      \do{icircumflex}
      \do{idieresis}
      \do{igrave}
   }
}

\rkern{j}{
   \scale{1}{
      \do{j}
      \do{ij}
   }
}

\lkern{l}{
   \scale{1}{
      \do{l}
      \do{lacute}
      \do{lslash}
   }
}

\rkern{l}{
   \scale{1}{
      \do{l}
      \do{fl}
      \do{ffl}
      \do{lacute}
      \do{lslash}
   }
}

\lrkern{n}{
   \scale{1}{
      \do{n}
      \do{nacute}
      \do{ncaron}
      \do{ntilde}
   }
}

\lrkern{o}{
   \scale{1}{
      \do{o}
      \do{oacute}
      \do{ocircumflex}
      \do{odieresis}
      \do{oe}
      \do{ograve}
      \do{ohungarumlaut}
      \do{oslash}
      \do{otilde}
   }
}

\lrkern{r}{
   \scale{1}{
      \do{r}
      \do{rcaron}
      \do{racute}
   }
}

\lrkern{s}{
   \scale{1}{
      \do{s}
      \do{sacute}
      \do{scaron}
      \do{scedilla}
   }
}

\lrkern{t}{
   \scale{1}{
      \do{t}
      \do{tcaron}
      \do{tcedilla}
   }
}

\lrkern{u}{
   \scale{1}{
      \do{u}
      \do{uacute}
      \do{ucircumflex}
      \do{udieresis}
      \do{ugrave}
      \do{uhungarumlaut}
      \do{uring}
   }
}

\lrkern{y}{
   \scale{1}{
      \do{y}
      \do{yacute}
      \do{ydieresis}
   }
}

\lrkern{z}{
   \scale{1}{
      \do{z}
      \do{zacute}
      \do{zcaron}
      \do{zdotaccent}
   }
}

\defchar{hyphenchar}{\getchar{hyphen}}

\defchar{visualspace}{
   \getchar{n}
   \global\charht=200\afmunits
   \global\chardp=100\afmunits
   \global\charic=0\afmunits
   \adimen=0.8\charwd
   \bdimen=\underlinethickness\afmunits
   \cdimen=0.1\charwd
   \ddimen=300\afmunits
   \advance\adimen by -2\bdimen
   \settoken\map{
      (MOVERIGHT \vplreal\cdimen)
      (MOVEDOWN \vplreal\chardp)
      (SETRULE \vplreal\ddimen\space\vplreal\bdimen)
      (SETRULE \vplreal\bdimen\space\vplreal\adimen)
      (SETRULE \vplreal\ddimen\space\vplreal\bdimen)
   }
}

\defchar{compwordmark}{
   \global\charht=0pt
   \global\charwd=0pt
   \global\chardp=0pt
   \global\charic=0pt
   \global\map{}
}

\defchar{ff}{\doublechar{f}{f}{0}}
\defchar{fi}{\doublechar{f}{i}{0}}
\defchar{fl}{\doublechar{f}{l}{0}}
\defchar{ffi}{\doublechar{f}{fi}{0}}
\defchar{ffl}{\doublechar{f}{fl}{0}}
\defchar{IJ}{\doublechar{I}{J}{0}}
\defchar{ij}{\doublechar{i}{j}{0}}
\defchar{SS}{\doublechar{S}{S}{0}}

\defchar{Lcaron}{\cramchar{L}{quoteright}{.6}}

\defchar{dcaron}{
   \iffixedpitch \cramchar{d}{quoteright}{.4}
   \else \doublechar{d}{quoteright}{.3}
   \fi
}

\defchar{lcaron}{
   \iffixedpitch \cramchar{l}{quoteright}{.6}
   \else \doublechar{l}{quoteright}{.3}
   \fi
}

\defchar{tcaron}{
   \iffixedpitch \cramchar{t}{quoteright}{.5}
   \else \doublechar{t}{quoteright}{.3}
   \fi
}

\defchar{Abreve}{\topaccent{A}{breve}{0.5}}
\defchar{Cacute}{\topaccent{C}{acute}{0.5}}
\defchar{Ccaron}{\topaccent{C}{caron}{0.5}}
\defchar{Dcaron}{\topaccent{D}{caron}{0.4}}
\defchar{Ecaron}{\topaccent{E}{caron}{0.5}}
\defchar{Gbreve}{\topaccent{G}{breve}{0.5}}
\defchar{Lacute}{\topaccent{L}{acute}{0.3}}
\defchar{Nacute}{\topaccent{N}{acute}{0.5}}
\defchar{Ncaron}{\topaccent{N}{caron}{0.5}}
\defchar{Ohungarumlaut}{\topaccent{O}{hungarumlaut}{0.5}}
\defchar{Racute}{\topaccent{R}{acute}{0.4}}
\defchar{Rcaron}{\topaccent{R}{caron}{0.4}}
\defchar{Sacute}{\topaccent{S}{acute}{0.5}}
\defchar{Scaron}{\topaccent{S}{caron}{0.5}}
\defchar{Tcaron}{\topaccent{T}{caron}{0.5}}
\defchar{Uhungarumlaut}{\topaccent{U}{hungarumlaut}{0.5}}
\defchar{Uring}{\topaccent{U}{ring}{0.5}}
\defchar{Ydieresis}{\topaccent{Y}{dieresis}{0.5}}
\defchar{Zacute}{\topaccent{Z}{acute}{0.5}}
\defchar{Zcaron}{\topaccent{Z}{caron}{0.5}}
\defchar{Zdotaccent}{\topaccent{Z}{dotaccent}{0.5}}
\defchar{Idotaccent}{\topaccent{I}{dotaccent}{0.5}}

\defchar{abreve}{\topaccent{a}{breve}{0.5}}
\defchar{cacute}{\topaccent{c}{acute}{0.5}}
\defchar{ccaron}{\topaccent{c}{caron}{0.5}}
\defchar{ecaron}{\topaccent{e}{caron}{0.5}}
\defchar{gbreve}{\topaccent{g}{breve}{0.5}}
\defchar{lacute}{\topaccent{l}{acute}{0.3}}
\defchar{nacute}{\topaccent{n}{acute}{0.5}}
\defchar{ncaron}{\topaccent{n}{caron}{0.5}}
\defchar{ohungarumlaut}{\topaccent{o}{hungarumlaut}{0.5}}
\defchar{racute}{\topaccent{r}{acute}{0.5}}
\defchar{rcaron}{\topaccent{r}{caron}{0.5}}
\defchar{sacute}{\topaccent{s}{acute}{0.5}}
\defchar{scaron}{\topaccent{s}{caron}{0.5}}
\defchar{uhungarumlaut}{\topaccent{u}{hungarumlaut}{0.4}}
\defchar{uring}{\topaccent{u}{ring}{0.5}}
\defchar{ydieresis}{\topaccent{y}{dieresis}{0.5}}
\defchar{zacute}{\topaccent{z}{acute}{0.5}}
\defchar{zcaron}{\topaccent{z}{caron}{0.5}}
\defchar{zdotaccent}{\topaccent{z}{dotaccent}{0.5}}

\defchar{Aacute}{\topaccent{A}{acute}{0.5}}
\defchar{Agrave}{\topaccent{A}{grave}{0.5}}
\defchar{Acircumflex}{\topaccent{A}{circumflex}{0.5}}
\defchar{Atilde}{\topaccent{A}{tilde}{0.5}}
\defchar{Adieresis}{\topaccent{A}{dieresis}{0.5}}
\defchar{Aring}{\topaccent{A}{ring}{0.5}}
\defchar{Egrave}{\topaccent{E}{grave}{0.5}}
\defchar{Eacute}{\topaccent{E}{acute}{0.5}}
\defchar{Ecircumflex}{\topaccent{E}{circumflex}{0.5}}
\defchar{Edieresis}{\topaccent{E}{dieresis}{0.5}}
\defchar{Igrave}{\topaccent{I}{grave}{0.5}}
\defchar{Iacute}{\topaccent{I}{acute}{0.5}}
\defchar{Icircumflex}{\topaccent{I}{circumflex}{0.5}}
\defchar{Idieresis}{\topaccent{I}{dieresis}{0.5}}
\defchar{Ntilde}{\topaccent{N}{tilde}{0.5}}
\defchar{Ograve}{\topaccent{O}{grave}{0.5}}
\defchar{Oacute}{\topaccent{O}{acute}{0.5}}
\defchar{Ocircumflex}{\topaccent{O}{circumflex}{0.5}}
\defchar{Otilde}{\topaccent{O}{tilde}{0.5}}
\defchar{Odieresis}{\topaccent{O}{dieresis}{0.5}}
\defchar{Ugrave}{\topaccent{U}{grave}{0.5}}
\defchar{Uacute}{\topaccent{U}{acute}{0.5}}
\defchar{Ucircumflex}{\topaccent{U}{circumflex}{0.5}}
\defchar{Udieresis}{\topaccent{U}{dieresis}{0.5}}
\defchar{Yacute}{\topaccent{Y}{acute}{0.5}}

\defchar{aacute}{\topaccent{a}{acute}{0.5}}
\defchar{agrave}{\topaccent{a}{grave}{0.5}}
\defchar{acircumflex}{\topaccent{a}{circumflex}{0.5}}
\defchar{atilde}{\topaccent{a}{tilde}{0.5}}
\defchar{adieresis}{\topaccent{a}{dieresis}{0.5}}
\defchar{aring}{\topaccent{a}{ring}{0.5}}
\defchar{egrave}{\topaccent{e}{grave}{0.5}}
\defchar{eacute}{\topaccent{e}{acute}{0.5}}
\defchar{ecircumflex}{\topaccent{e}{circumflex}{0.5}}
\defchar{edieresis}{\topaccent{e}{dieresis}{0.5}}
\defchar{igrave}{\topaccent{dotlessi}{grave}{0.5}}
\defchar{iacute}{\topaccent{dotlessi}{acute}{0.5}}
\defchar{icircumflex}{\topaccent{dotlessi}{circumflex}{0.5}}
\defchar{idieresis}{\topaccent{dotlessi}{dieresis}{0.5}}
\defchar{ntilde}{\topaccent{n}{tilde}{0.5}}
\defchar{ograve}{\topaccent{o}{grave}{0.5}}
\defchar{oacute}{\topaccent{o}{acute}{0.5}}
\defchar{ocircumflex}{\topaccent{o}{circumflex}{0.5}}
\defchar{otilde}{\topaccent{o}{tilde}{0.5}}
\defchar{odieresis}{\topaccent{o}{dieresis}{0.5}}
\defchar{ugrave}{\topaccent{u}{grave}{0.5}}
\defchar{uacute}{\topaccent{u}{acute}{0.5}}
\defchar{ucircumflex}{\topaccent{u}{circumflex}{0.5}}
\defchar{udieresis}{\topaccent{u}{dieresis}{0.5}}
\defchar{yacute}{\topaccent{y}{acute}{0.5}}

\defchar{Aogonek}{\botaccent{A}{ogonek}{0.8}}
\defchar{Eogonek}{\botaccent{E}{ogonek}{0.8}}
\defchar{Scedilla}{\botaccent{S}{cedilla}{0.5}}
\defchar{Tcedilla}{\botaccent{T}{cedilla}{0.5}}

\defchar{aogonek}{\botaccent{a}{ogonek}{0.8}}
\defchar{eogonek}{\botaccent{e}{ogonek}{0.6}}
\defchar{scedilla}{\botaccent{s}{cedilla}{0.5}}
\defchar{tcedilla}{\botaccent{t}{cedilla}{0.7}}

\defchar{Ccedilla}{\botaccent{C}{cedilla}{0.5}}

\defchar{ccedilla}{\botaccent{c}{cedilla}{0.5}}

\endinput