% % fikparm.mf % %% Cyrillic font container with T2 encoding beta-support % % This file is future part of lxfonts package % Version 3.5 // Patchlevel=1 % (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: % % File with modified macros for font startup from polish fik_mik.mf % (Bogus\l{}aw Jackowski and Marek Ry\'cko) % and % start of Lig & kerns block from lkligtbl.mf (Alexander Berdnikov) % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Contents: % % |LHver_check| like exbase's |version_check| % If unknown fonteq: def fonteq % If unknown genmode: set genmode % Set param_base (it could be reset in fontbegin file) % Set flags for input glyph files (they could be reset in fontbegin file) % Set flags for letter shapes: not supported by current version (-"-) % Input fontbegin file (if necessary) % Defining boolean altcoding % Input cmbase and lcyrbeg (file with macros for ec param file) % input lkligtbl.mf (ligs & kerns block of A.Berdnikov) % Redefining `generate' macro % Use_driver macro: % input parameter file % set font_identifier (and gensize for ec) % input coding file % input Cyrillic definitions file % input driver file % % FINAL: START FONT -- use_driver(fonteq) % % defining LHver_check 3.5 % lh_maj_ver:=3; lh_min_ver:=5; % version identification def LHver_check(expr e,f)= if e>lh_maj_ver: message "LH font warning: Obsolete base"; elseif elh_min_ver: message "LH font warning: Obsolete base"; elseif f"9") or (ii>=length(param_base)); endfor; % % - input parameter file ii:=ii-1; ss:=substring(length(param_base)-ii,length(param_base)) of param_base; if (genmode="ex") or (genmode="ec"): exbase:=1; %!!! THAT'S TRICK: we don't need exbase at all % added flag for concrete if concrete: gensize:=scantokens(ss); ss:="input eo"& (substring(fonteq+1,length(param_base)) of param_base); elseif cmbright: exbase:=1; %!!! THAT'S TRICK: we don't need exbase at all gensize:=scantokens(ss); ss:="input eb"& (substring(fonteq+1,length(param_base)) of param_base); else: % - set gensize for ec parameter files if (ss="8") or (ss="10"): % for EC slitex fonts gensize:=scantokens(ss); ss:="input "& (substring(0,fonteq-2) of param_base) & "ec" & (substring(fonteq,length(param_base)) of param_base); else: gensize:=scantokens(ss)/100; ss:="input ec" & (substring(fonteq,length(param_base)-ii) of param_base); fi fi else: % - set gensize for cm parameter files gensize:=scantokens(ss); % added flag for concrete if concrete: ss:="input cc"& (substring(fonteq+1,length(param_base)) of param_base); else: % HERE could be cm genmode: vvvvvvv ss:="input "& (substring(0,fonteq-2) of param_base) & genmode & (substring(fonteq,length(param_base)) of param_base); fi fi show gensize,ss; % % - set font_identifier numeric true_pt#; true_pt#=pt#; pt#:=true_pt#; scantokens(ss); pt#:=true_pt#; font_identifier:=substring(0,length(param_base)-ii) of param_base; % % - input encoding file scantokens ("input "& (substring(fonteq-2,fonteq) of param_base) & "codes"); % - input Cyrillic definitions file scantokens "input lcyrdefs"; % % - input driver file scantokens("input "& if genmode="ex": if driver_name= "exroman" : "leroman" % also cmbright&ec (vvv) elseif driver_name= "ebroman" : "lebroman" % cmbright&ec (vvv) elseif driver_name= "extextit": "letextit" elseif driver_name= "excsc" : "lecsc" else: driver_name fi elseif genmode="ec": if driver_name= "exroman" : "ldroman" elseif driver_name= "extextit": "ldtextit" elseif driver_name= "excsc" : "ldcsc" else: driver_name fi else: if driver_name= "roman" : "ldroman" elseif driver_name= "sroman" : "ldroman" % slitex must be true elseif driver_name= "broman" : "ldbroman" % cmbright (vvv) elseif driver_name= "textit" : "ldtextit" elseif driver_name= "title" : "ldtitle" elseif driver_name= "csc" : "ldcsc" elseif driver_name= "texset" : "ldtexset" else: driver_name fi fi); enddef; % START FONT use_driver(fonteq); endinput; %end of file