1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
%
% lgberest.mf
%
%% Cyrillic font container with T2 encoding beta-support
%
% This file is future part of lxfonts package
% Version 3.5 // Patchlevel=0
% (c) O.Lapko
%
% This package is freeware product 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 all this package as well) and to save it under the same name.
%
% Content:
%
% font for BERESTa.tex
% (plain TEST.MF changed to input some miscelaneous letters)
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% additional macros for ec compatible mode
%
LHver_check(3,5); % like |version_check| in ec
if unknown cmbase: input cmbase fi %
input lcyrbeg;
string genmode; genmode="cm";
let lhchar=\;
boolean inc_russian, inc_wncyr, non_russian,
inc_cyrupper, inc_cyrlower, inc_unicode,
inc_cyrother, inc_cyrold, inc_accents;
inc_russian := true; % include russian characters
inc_wncyr := true; % include russian characters
non_russian := true; % include nonrussian characters
inc_cyrupper := true; % include upper part from T2
inc_cyrlower := true; % include lower part from T2
inc_unicode := true; % include unicode
inc_cyrother := true; % include cyrillic letters outside T2
inc_cyrold := true; % include old slavonic letters
inc_accents := true; % include accended letters
def LHver_check(expr e,f)= enddef;
autocount:=1;
def cyrchar(suffix $)(expr w_sharp,h_sharp,d_sharp) =
charcode:=charcode+1;
string t; t=str $; message ""; message "|def|CYR_"&(t);
beginchar(charcode,w_sharp,h_sharp,d_sharp); enddef;
input lcyrdefs;
def generate suffix t= enddef;
input cmr10;
mode_setup; font_setup; pseudo_setup;
input lgbersta;
message "";
input lgberstb;
message "";
input lgberstc;
message "";
bye.
%end of file
|