summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/lh/tex/92check.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/fonts/lh/tex/92check.tex')
-rw-r--r--Master/texmf-dist/doc/fonts/lh/tex/92check.tex107
1 files changed, 107 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/fonts/lh/tex/92check.tex b/Master/texmf-dist/doc/fonts/lh/tex/92check.tex
new file mode 100644
index 00000000000..967583c16f5
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/lh/tex/92check.tex
@@ -0,0 +1,107 @@
+%
+% 92check.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)
+
+\newcount\Test
+\def\itest{\Test=0
+\let\phanfont\undefined%
+\def\charteststart{-1}
+\def\chartestfinish{999}
+\def\fonttwoletters{xx}
+}
+\def\iitest{\Test=1
+\def\phanfont{}%
+\def\charteststart{-1}
+\def\chartestfinish{216}
+\def\fonttwoletters{yy}
+}
+\def\iiitest{\Test=1
+\def\phanfont{}%
+\def\charteststart{215}
+\def\chartestfinish{999}
+\def\fonttwoletters{zz}
+}
+
+% Two first font/enc letters:
+\def\encodingletters{vf}%any encoding
+% Encoding data file: enc-t2.tex (default)
+% Font headers data file:
+\long\def\FontsToBeGenerated{
+ \tablevalues ( 10 )
+
+ \makefont \fonttwoletters r ( 10 )()
+ \makefont \fonttwoletters ti ( 10 )()
+ \makefont \fonttwoletters csc ( 10 )()
+ \makefont \fonttwoletters tt ( 10 )()
+}
+% Text for ??begin:
+\def\defamily{%
+%boolean TFMonly; TFMonly=true;^^J%
+\ifnum\Test=0
+ autocount:=3;^^J^^J%
+\else
+ autocount:=2;^^J^^J%
+\fi
+def cyrchar(suffix $)(expr w_sharp,h_sharp,d_sharp) =^^J
+\ifnum\Test=0
+ if unknown CYR_.$: message "char CYR_."&(str $)&" uncoded"; message ""; fi^^J
+\fi
+ iff known CYR_.$:^^J
+ beginchar(charcode,w_sharp,h_sharp,d_sharp);^^J
+ charcode:=charcode+1; if charcode=255: charcode:=0; fi^^J
+ CYR_.$:=charcode+1;^^J
+ def getcharcode(suffix $) = CYR_.$:=charcode+1; enddef;^^J%
+enddef;^^J%
+^^J%
+def cyrchar_twice(suffix $)(expr w_sharp,h_sharp,d_sharp) =^^J
+\ifnum\Test=0
+ if unknown CYR_.$: message "char CYR_."&(str $)&" uncoded"; message ""; fi^^J
+\fi
+ iff known CYR_.$:^^J
+ beginchar_twice(charcode,w_sharp,h_sharp,d_sharp);^^J
+ charcode:=charcode+1; if charcode=255: charcode:=0; fi^^J
+ CYR_.$:=charcode+1;^^J
+ def getcharcode(suffix $) = CYR_.$:=charcode+1; enddef;^^J%
+enddef;^^J%
+^^J^^J%
+def testchar (suffix $) = if CYR_.$=-1:^^J%
+ \| message "char CYR_."&(str $)&" absent"; fi enddef;^^J^^J%
+^^J^^J%
+vfcoding:=true;^^J%
+other_cyr:=true;^^J%
+unic:=true;^^J%
+more_letters:=true;^^J%
+old_cyr:=true;^^J%
+%genmode:="ec";^^J^^J%
+}
+
+\chartesttrue
+\MakeFontEncfalse % Create TeX encoding files ?
+
+\itest
+\doMFJobtrue % Create MFJob file ?
+\TFMonlytrue % Create tfm-files only ?
+\input cod-edt % creates encoding file
+\input rliker % creates kern&ligature files
+\input cfstdedt % creates font headers; batch and mfjob files
+\end