%
% 91berest.tex
%
%% Cyrillic font container with T2 encoding beta-support
%
% This file is future part of lxfonts package
% Version 3.4 // Patchlevel=0
% (c) O.Lapko
%
% This package belongs to the public domain under conditions similar to
% those of D. E. Knuth specified for the Computer Modern family of fonts.
% In particular, only the authors are entitled to modify this file
% and to save it under the same name.
%
% Content:
%
% TeX file for creation Cyrillic Computer Modern font
%  all non-T2 letters
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% set defaults
\input cfhead
\lhvercheck(3,4)

% Two first font/enc letters:
\def\fonttwoletters{tx}
% Encoding data file:         enc-t2.tex (default)
% Font headers data file:
\def\fontfile{\fntallec}
% Text for ??begin:
\def\defamily{%
autocount:=1;^^J^^J%
def cyrchar(suffix $)(expr w_sharp,h_sharp,d_sharp) =^^J
 iff known CYR_.$:^^J
 beginchar(charcode,w_sharp,h_sharp,d_sharp);^^J
 charcode:=charcode+1;^^J
 if not is_small_cap: CYR_.$:=charcode;^^J
 \|message ""; message "|def|CYR_"&(str $); fi^^J
 def getcharcode(suffix $) =^^J
 \|  CYR_.$:=charcode;^^J
 \|  message ""; message "|def|CYR_"&(str $);^^J
 enddef;^^J%
enddef;^^J%
^^J%
def cyrchar_twice(suffix $)(expr w_sharp,h_sharp,d_sharp) =^^J
 iff known CYR_.$:^^J
 beginchar_twice(charcode,w_sharp,h_sharp,d_sharp);^^J
 charcode:=charcode+1;^^J
 if not is_small_cap: CYR_.$:=charcode;^^J
 %\|if known sharp_calc:
 \|\|message ""; message "|def|CYR_"&(str $); fi^^J
 %\|fi^^J
 def getcharcode(suffix $) =^^J
 \|  CYR_.$:=charcode;^^J
 %\|if known sharp_calc:^^J
 \|  message ""; message "|def|CYR_"&(str $);^^J
 %\|fi;^^J
 enddef;^^J%
enddef;^^J%
^^J^^J%
vfcoding:=true;^^J%
other_cyr:=true;^^J%
old_cyr:=true;^^J%
genmode:="ec";^^J^^J%
}
% Lettercode output:          \char"HEX
\codehatsfalse

\usesetter
\input cod-edt	% creates encoding file
\input rliker	% creates kern&ligature files
\input cfstdedt % creates font headers; batch and mfjob files
\end
