%% T1fcr.fd
%% Frank Langbein 08-SEP-1994
%% based on sauterdc.fd and fontdef.fc
%
%      Standard test to prevent double loading of this file.
%    \begin{macrocode}
\expandafter\ifx\csname fontdef.T1.fcr\endcsname\relax
\expandafter\def\csname fontdef.T1.fcr\endcsname{}
\else\message{---already loaded}\endinput\fi
%    \end{macrocode}
%
%      Send a message identifying this file.
%    \begin{macrocode}
\def\filename{T1fcr.fd}
\def\fileversion{1.0} \def\filedate{08-SEP-1994}
\immediate\write16{%
`\filename' (\fileversion, \filedate), (FL)}
%    \end{macrocode}
%%% end of file header
%%
%% This file contains the external font information needed to load
%% the extended font in the Cork layout and a design along
%% the computer modern family by Donald. E. Knuth
%%
\def\fcr@family#1#2#3#4{%
\DeclareFontShape{T1}{#1}{#3}{#4}{%
  <5> #25 <6> #26 <7> #27 <8> #28 <9> #29 <10> #210
  <10.95> #211 %             looks ugly, but {#3}11 does not work
  <12> #212 <14.4> #214 <17.28> #217 <20.74> #220 <24.88> #225
  }{}%
}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% New 256 character fcr font families
%	
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% fc roman fontfamily
%
% fc medium
\DeclareFontFamily{T1}{fcr}{}{}
\fcr@family{fcr}{fcr}{m}{n}
\fcr@family{fcr}{fcsl}{m}{sl}
\fcr@family{fcr}{fci}{m}{it}
\fcr@family{fcr}{fcu}{m}{u}
\fcr@family{fcr}{fccsc}{m}{sc}
% fc bold
\fcr@family{fcr}{fcbx}{bx}{n}
\fcr@family{fcr}{fcbxi}{bx}{it}
\fcr@family{fcr}{fcbxu}{bx}{u}
\fcr@family{fcr}{fcbxsl}{bx}{sl}
% fc typewritter
\fcr@family{fcr}{fctt}{tt}{n}
\fcr@family{fcr}{fcitt}{tt}{it}
% \fcr@family{fcr}{fcsltt}{tt}{sl}
%
% fc sans fontfamily
%
% medium
\DeclareFontFamily{T1}{fcss}{}{}
\fcr@family{fcss}{fcss}{m}{n}
\fcr@family{fcss}{fcssi}{m}{it}
% bold
\fcr@family{fcss}{fcssbx}{bx}{n}
\fcr@family{fcss}{fcsibx}{bx}{it}
% typewriter
\fcr@family{fcss}{fcsstt}{tt}{n}
\fcr@family{fcss}{fcsitt}{tt}{it}
%%
%% T1fcr.fd made 940908 by Frank Langbein
\endinput
