%%%========================================================================
%%% @TeX-file{
%%%    author              = "Alan Jeffrey",
%%%    version             = "0.06",
%%%    date                = "28 April 1993",
%%%    time                = "14:16:31 BST",
%%%    filename            = "T1csc.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            = "38629 685 897 16159",
%%%    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 c&sc, for use with afmtotfm.tex.  It
%%%                           defines the \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",
%%% }
%%%========================================================================
%
% 26 Feb 1993, v0.01: Created the file from T1.fud.
%
% 3 Mar 1993, v0.02: Renamed to pTC1.fud.
%
% 30 Mar 1993, v0.03: Updated for v0.16 of fontinst.tex.
%
% 17 Apr 1993, v0.04: Renamed to T1csc.fud, added lrkerns for some
%    uppercase letters that I missed out before.
%
% 27 Apr 1993, v0.05: renamed <compoundwordmark> to <compwordmark>
%    after suggestions by barbara and Yannis.
%
% 28 Apr 1993, v0.06: fixed a bug with the ?' and !' ligatures.

\codingscheme{EXTENDED TEX FONT ENCODING - LATIN C&SC}
\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}{0.1pt}                % 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{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}{endash}{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}
   }
   \scale{.85}{
      \do{Asmall}
      \do{Aacutesmall}
      \do{Abrevesmall}
      \do{Acircumflexsmall}
      \do{Adieresissmall}
      \do{Agravesmall}
      \do{Aogoneksmall}
      \do{Aringsmall}
      \do{Atildesmall}
   }
}

\lrkern{B}{
   \scale{1}{
      \do{B}
   }
   \scale{.85}{
      \do{Bsmall}
   }
}

\lrkern{C}{
   \scale{1}{
      \do{C}
      \do{Cacute}
      \do{Ccaron}
      \do{Ccedilla}
   }
   \scale{.85}{
      \do{Csmall}
      \do{Cacutesmall}
      \do{Ccaronsmall}
      \do{Ccedillasmall}
   }
}

\lrkern{D}{
   \scale{1}{
      \do{D}
      \do{Dcaron}
   }
   \scale{.85}{
      \do{Dsmall}
      \do{Dcaronsmall}
   }
}

\lrkern{E}{
   \scale{1}{
      \do{E}
      \do{Eacute}
      \do{Ecaron}
      \do{Ecircumflex}
      \do{Edieresis}
      \do{Egrave}
      \do{Eogonek}
   }
   \scale{.85}{
      \do{Esmall}
      \do{Eacutesmall}
      \do{Ecaronsmall}
      \do{Ecircumflexsmall}
      \do{Edieresissmall}
      \do{Egravesmall}
      \do{Eogoneksmall}
   }
}

\lrkern{F}{
   \scale{1}{
      \do{F}
   }
   \scale{.85}{
      \do{Fsmall}
   }
}

\lrkern{G}{
   \scale{1}{
      \do{G}
      \do{Gbreve}
   }
   \scale{.85}{
      \do{Gsmall}
      \do{Gbrevesmall}
   }
}

\lrkern{H}{
   \scale{1}{
      \do{H}
   }
   \scale{.85}{
      \do{Hsmall}
   }
}

\lkern{I}{
   \scale{1}{
      \do{I}
      \do{IJ}
      \do{Iacute}
      \do{Icircumflex}
      \do{Idieresis}
      \do{Idotaccent}
      \do{Igrave}
   }
   \scale{.85}{
      \do{Ismall}
      \do{IJsmall}
      \do{Iacutesmall}
      \do{Icircumflexsmall}
      \do{Idieresissmall}
      \do{Idotaccentsmall}
      \do{Igravesmall}
   }
}

\rkern{I}{
   \scale{1}{
      \do{I}
      \do{Iacute}
      \do{Icircumflex}
      \do{Idieresis}
      \do{Idotaccent}
      \do{Igrave}
   }
   \scale{.85}{
      \do{Ismall}
      \do{Iacutesmall}
      \do{Icircumflexsmall}
      \do{Idieresissmall}
      \do{Idotaccentsmall}
      \do{Igravesmall}
   }
}

\rkern{J}{
   \scale{1}{
      \do{J}
      \do{IJ}
   }
   \scale{.85}{
      \do{Jsmall}
      \do{IJsmall}
   }
}

\lrkern{K}{
   \scale{1}{
      \do{K}
   }
   \scale{.85}{
      \do{Ksmall}
   }
}

\lrkern{L}{
   \scale{1}{
      \do{L}
      \do{Lacute}
      \do{Lslash}
   }
   \scale{.85}{
      \do{Lsmall}
      \do{Lacutesmall}
      \do{Lslashsmall}
   }
}

\lrkern{M}{
   \scale{1}{
      \do{M}
   }
   \scale{.85}{
      \do{Msmall}
   }
}

\lrkern{N}{
   \scale{1}{
      \do{N}
      \do{Nacute}
      \do{Ncaron}
      \do{Ntilde}
   }
   \scale{.85}{
      \do{Nsmall}
      \do{Nacutesmall}
      \do{Ncaronsmall}
      \do{Ntildesmall}
   }
}

\lrkern{O}{
   \scale{1}{
      \do{O}
      \do{Oacute}
      \do{Ocircumflex}
      \do{Odieresis}
      \do{Ograve}
      \do{Ohungarumlaut}
      \do{Oslash}
      \do{Otilde}
   }
   \scale{.85}{
      \do{Osmall}
      \do{Oacutesmall}
      \do{Ocircumflexsmall}
      \do{Odieresissmall}
      \do{Ogravesmall}
      \do{Ohungarumlautsmall}
      \do{Oslashsmall}
      \do{Otildesmall}
   }
}

\lrkern{P}{
   \scale{1}{
      \do{P}
   }
   \scale{.85}{
      \do{Psmall}
   }
}

\lrkern{Q}{
   \scale{1}{
      \do{Q}
   }
   \scale{.85}{
      \do{Qsmall}
   }
}

\lrkern{R}{
   \scale{1}{
      \do{R}
      \do{Rcaron}
      \do{Racute}
   }
   \scale{.85}{
      \do{Rsmall}
      \do{Rcaronsmall}
      \do{Racutesmall}
   }
}

\lrkern{S}{
   \scale{1}{
      \do{S}
      \do{SS}
      \do{Sacute}
      \do{Scaron}
      \do{Scedilla}
   }
   \scale{.85}{
      \do{Ssmall}
      \do{SSsmall}
      \do{Sacutesmall}
      \do{Scaronsmall}
      \do{Scedillasmall}
   }
}

\lrkern{T}{
   \scale{1}{
      \do{T}
      \do{Tcaron}
      \do{Tcedilla}
   }
   \scale{.85}{
      \do{Tsmall}
      \do{Tcaronsmall}
      \do{Tcedillasmall}
   }
}

\lrkern{U}{
   \scale{1}{
      \do{U}
      \do{Uacute}
      \do{Ucircumflex}
      \do{Ugrave}
      \do{Uhungarumlaut}
      \do{Uring}
   }
   \scale{.85}{
      \do{Usmall}
      \do{Uacutesmall}
      \do{Ucircumflexsmall}
      \do{Ugravesmall}
      \do{Uhungarumlautsmall}
      \do{Uringsmall}
   }
}

\lrkern{V}{
   \scale{1}{
      \do{V}
   }
   \scale{.85}{
      \do{Vsmall}
   }
}

\lrkern{W}{
   \scale{1}{
      \do{W}
   }
   \scale{.85}{
      \do{Wsmall}
   }
}

\lrkern{X}{
   \scale{1}{
      \do{X}
   }
   \scale{.85}{
      \do{Xsmall}
   }
}


\lrkern{Y}{
   \scale{1}{
      \do{Y}
      \do{Yacute}
      \do{Ydieresis}
   }
   \scale{.85}{
      \do{Ysmall}
      \do{Yacutesmall}
      \do{Ydieresissmall}
   }
}

\lrkern{Z}{
   \scale{1}{
      \do{Z}
      \do{Zacute}
      \do{Zcaron}
      \do{Zdotaccent}
   }
   \scale{.85}{
      \do{Zsmall}
      \do{Zacutesmall}
      \do{Zcaronsmall}
      \do{Zdotaccentsmall}
   }
}

\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{dotlessIsmall}{\getchar{Ismall}}
\defchar{dotlessJsmall}{\getchar{Jsmall}}

\defchar{FFsmall}{\doublechar{Fsmall}{Fsmall}{0}}
\defchar{FIsmall}{\doublechar{Fsmall}{Ismall}{0}}
\defchar{FLsmall}{\doublechar{Fsmall}{Lsmall}{0}}
\defchar{FFIsmall}{\doublechar{Fsmall}{FIsmall}{0}}
\defchar{FFLsmall}{\doublechar{Fsmall}{FLsmall}{0}}
\defchar{IJ}{\doublechar{I}{J}{0}}
\defchar{IJsmall}{\doublechar{Ismall}{Jsmall}{0}}
\defchar{SS}{\doublechar{S}{S}{0}}
\defchar{SSsmall}{\doublechar{Ssmall}{Ssmall}{0}}

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

\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{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{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{Ccedilla}{\botaccent{C}{cedilla}{0.5}}

\defchar{Asmall}{\shrinkchar{A}}
\defchar{Bsmall}{\shrinkchar{B}}
\defchar{Csmall}{\shrinkchar{C}}
\defchar{Dsmall}{\shrinkchar{D}}
\defchar{Esmall}{\shrinkchar{E}}
\defchar{Fsmall}{\shrinkchar{F}}
\defchar{Gsmall}{\shrinkchar{G}}
\defchar{Hsmall}{\shrinkchar{H}}
\defchar{Ismall}{\shrinkchar{I}}
\defchar{Jsmall}{\shrinkchar{J}}
\defchar{Ksmall}{\shrinkchar{K}}
\defchar{Lsmall}{\shrinkchar{L}}
\defchar{Msmall}{\shrinkchar{M}}
\defchar{Nsmall}{\shrinkchar{N}}
\defchar{Osmall}{\shrinkchar{O}}
\defchar{Psmall}{\shrinkchar{P}}
\defchar{Qsmall}{\shrinkchar{Q}}
\defchar{Rsmall}{\shrinkchar{R}}
\defchar{Ssmall}{\shrinkchar{S}}
\defchar{Tsmall}{\shrinkchar{T}}
\defchar{Usmall}{\shrinkchar{U}}
\defchar{Vsmall}{\shrinkchar{V}}
\defchar{Wsmall}{\shrinkchar{W}}
\defchar{Xsmall}{\shrinkchar{X}}
\defchar{Ysmall}{\shrinkchar{Y}}
\defchar{Zsmall}{\shrinkchar{Z}}

\defchar{Lcaronsmall}{\shrinkchar{Lcaron}}
\defchar{Lslashsmall}{\shrinkchar{Lslash}}
\defchar{AEsmall}{\shrinkchar{AE}}
\defchar{OEsmall}{\shrinkchar{OE}}
\defchar{Oslashsmall}{\shrinkchar{Oslash}}
\defchar{Ethsmall}{\shrinkchar{Eth}}
\defchar{Thornsmall}{\shrinkchar{Thorn}}
\defchar{Ngsmall}{\shrinkchar{Ng}}

\defchar{Abrevesmall}{\shrinkchar{Abreve}}
\defchar{Cacutesmall}{\shrinkchar{Cacute}}
\defchar{Ccaronsmall}{\shrinkchar{Ccaron}}
\defchar{Dcaronsmall}{\shrinkchar{Dcaron}}
\defchar{Ecaronsmall}{\shrinkchar{Ecaron}}
\defchar{Gbrevesmall}{\shrinkchar{Gbreve}}
\defchar{Lacutesmall}{\shrinkchar{Lacute}}
\defchar{Nacutesmall}{\shrinkchar{Nacute}}
\defchar{Ncaronsmall}{\shrinkchar{Ncaron}}
\defchar{Ohungarumlautsmall}{\shrinkchar{Ohungarumlaut}}
\defchar{Racutesmall}{\shrinkchar{Racute}}
\defchar{Rcaronsmall}{\shrinkchar{Rcaron}}
\defchar{Sacutesmall}{\shrinkchar{Sacute}}
\defchar{Scaronsmall}{\shrinkchar{Scaron}}
\defchar{Tcaronsmall}{\shrinkchar{Tcaron}}
\defchar{Uhungarumlautsmall}{\shrinkchar{Uhungarumlaut}}
\defchar{Uringsmall}{\shrinkchar{Uring}}
\defchar{Ydieresissmall}{\shrinkchar{Ydieresis}}
\defchar{Zacutesmall}{\shrinkchar{Zacute}}
\defchar{Zcaronsmall}{\shrinkchar{Zcaron}}
\defchar{Zdotaccentsmall}{\shrinkchar{Zdotaccent}}
\defchar{Idotaccentsmall}{\shrinkchar{Idotaccent}}

\defchar{Aacutesmall}{\shrinkchar{Aacute}}
\defchar{Agravesmall}{\shrinkchar{Agrave}}
\defchar{Acircumflexsmall}{\shrinkchar{Acircumflex}}
\defchar{Atildesmall}{\shrinkchar{Atilde}}
\defchar{Adieresissmall}{\shrinkchar{Adieresis}}
\defchar{Aringsmall}{\shrinkchar{Aring}}
\defchar{Egravesmall}{\shrinkchar{Egrave}}
\defchar{Eacutesmall}{\shrinkchar{Eacute}}
\defchar{Ecircumflexsmall}{\shrinkchar{Ecircumflex}}
\defchar{Edieresissmall}{\shrinkchar{Edieresis}}
\defchar{Igravesmall}{\shrinkchar{Igrave}}
\defchar{Iacutesmall}{\shrinkchar{Iacute}}
\defchar{Icircumflexsmall}{\shrinkchar{Icircumflex}}
\defchar{Idieresissmall}{\shrinkchar{Idieresis}}
\defchar{Ntildesmall}{\shrinkchar{Ntilde}}
\defchar{Ogravesmall}{\shrinkchar{Ograve}}
\defchar{Oacutesmall}{\shrinkchar{Oacute}}
\defchar{Ocircumflexsmall}{\shrinkchar{Ocircumflex}}
\defchar{Otildesmall}{\shrinkchar{Otilde}}
\defchar{Odieresissmall}{\shrinkchar{Odieresis}}
\defchar{Ugravesmall}{\shrinkchar{Ugrave}}
\defchar{Uacutesmall}{\shrinkchar{Uacute}}
\defchar{Ucircumflexsmall}{\shrinkchar{Ucircumflex}}
\defchar{Udieresissmall}{\shrinkchar{Udieresis}}
\defchar{Yacutesmall}{\shrinkchar{Yacute}}

\defchar{Aogoneksmall}{\shrinkchar{Aogonek}}
\defchar{Eogoneksmall}{\shrinkchar{Eogonek}}
\defchar{Scedillasmall}{\shrinkchar{Scedilla}}
\defchar{Tcedillasmall}{\shrinkchar{Tcedilla}}

\defchar{Ccedillasmall}{\shrinkchar{Ccedilla}}

\endinput