summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/lh/specific/lgrucu.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/lh/specific/lgrucu.mf')
-rw-r--r--Master/texmf-dist/fonts/source/lh/specific/lgrucu.mf16
1 files changed, 9 insertions, 7 deletions
diff --git a/Master/texmf-dist/fonts/source/lh/specific/lgrucu.mf b/Master/texmf-dist/fonts/source/lh/specific/lgrucu.mf
index f287285a838..f5abb52b964 100644
--- a/Master/texmf-dist/fonts/source/lh/specific/lgrucu.mf
+++ b/Master/texmf-dist/fonts/source/lh/specific/lgrucu.mf
@@ -4,13 +4,13 @@
%% Cyrillic font container with T2 encoding beta-support
%
% This file is future part of lxfonts package
-% Version 3.4 // Patchlevel=0
+% Version 3.5 // Patchlevel=1
% (c) O.Lapko
%
-% This package belongs to the public domain under conditions similar to
+% 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 to save it under the same name.
+% (and all this package as well) and to save it under the same name.
%
% Content:
%
@@ -27,7 +27,7 @@
% YA
%
-LHver_check(3,4); % like |version_check| in ec
+LHver_check(3,5); % like |version_check| in ec
begingroup
@@ -61,7 +61,7 @@ z0=whatever[z1r,z2r]=whatever[z3l,z4l];
if serifs:
numeric left_jut; left_jut=cap_jut+left_stem;
pickup tiny.nib; x35r=x3r; top y35=h;
- pos35(alpha*right_stem,0);
+ pos35(max(currentbreadth+eps,alpha*right_stem),0);
fill stroke if is_egyptian: z1e--z2e
else: z1e{(x2+2stem,y2)-z1}...{z2-(x1+.5stem,y1)}z2e fi;
fill stroke z3e--z4e; x4:=x4r;
@@ -222,10 +222,11 @@ if is_small_cap: getcharcode(l); fi
adjust_fit(if serifs: .8(flare#+(cap_stem#-stem#))-.5u#
else: cap_serif_fit# fi,
cap_serif_fit#); %
+% upper_spec_l;
numeric bulb_diam; bulb_diam=flare+(cap_stem-stem);
numeric left_stem,right_stem,outer_jut,alpha;
right_stem=cap_stem-stem_corr;
-left_stem=min(cap_hair if hefty:-3stem_corr fi,right_stem);
+left_stem=max(tiny.breadth+eps,min(cap_hair if hefty:-3stem_corr fi,right_stem));
outer_jut=.8cap_jut; x1l=w-x4r=outer_jut+if serifs:.5 fi u; y1=y4=0; x2-x1=x4-x3;
if serifs: x3l=x2r+((x1r-x4l)*(slab/(h-slab))) %+2apex_corr;
if not is_egyptian:-.25left_stem fi;
@@ -254,7 +255,7 @@ if serifs:
fill stroke z2e{z1e-z6e}.. controls z6e and z7e ..z5e;
{{less_tense; cyrbulb(5',8,9)}}; % arc and bulb
numeric inner_jut,left_jut,fit; pickup tiny.nib;
- x10r=x3r; top y10=h; pos10(alpha*right_stem,0); x4:=x4r;
+ x10r=x3r; top y10=h; pos10(max(currentbreadth+eps,alpha*right_stem),0); x4:=x4r;
left_jut=cap_jut+left_stem;
serif(10,4,c,0,-left_jut); % upper serif
pickup tiny.nib;
@@ -269,6 +270,7 @@ else: z0=whatever[z1r,z2r]=whatever[z3l,z4l];
...{up}z0+.5left--cycle; % left and right diagonals
else: fill z0--diag_end(0,4l,1,1,4r,3r)--diag_end(4r,3r,1,1,2l,1l)
--diag_end(2l,1l,1,1,1r,0)--cycle; fi fi % left and right diagonals
+%%%%%
penlabels(0,2,6,3,4,5,7,8,9,10); endchar;
lhchar "Uppercase Russian letter YA (`concrete' form)";