summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/lh/nont2/lgcmodl.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/lh/nont2/lgcmodl.mf')
-rw-r--r--Master/texmf-dist/fonts/source/lh/nont2/lgcmodl.mf16
1 files changed, 9 insertions, 7 deletions
diff --git a/Master/texmf-dist/fonts/source/lh/nont2/lgcmodl.mf b/Master/texmf-dist/fonts/source/lh/nont2/lgcmodl.mf
index dc04fb84654..dc70e66b5e8 100644
--- a/Master/texmf-dist/fonts/source/lh/nont2/lgcmodl.mf
+++ b/Master/texmf-dist/fonts/source/lh/nont2/lgcmodl.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=0
% (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 @@
% Vdzhe
%
-LHver_check(3,4); % like |version_check| in ec
+LHver_check(3,5); % like |version_check| in ec
lhchar "Lowercase Cyrillic letter Vg_hcrs - Variant ghe hcrossed";
cyrchar(Vg_hcrs,8u#-.5width_adj#,x_height#,0);
@@ -115,7 +115,7 @@ if serifs:
w:=w+1.7u;
% tail_part(2);
_zero:=2;
-_one:=6; _two:=7; _three:=8; _four:=9; _five:=10;
+_one:=6; _two:=7; _three:=8; _five:=10;
_six:=11; _seven:=12; _eight:=13; _nine:=14;
%
pickup tiny.nib;
@@ -124,8 +124,10 @@ bulb_diam=max(currentbreadth+eps,min(.82d-1-eps,hround 7/8[hair,flare]));
set_bar_axis; y[_one]r=y[_two]r=y2.bh; y[_one]l=y[_two]l=y1.bh;
penpos[_three](max(currentbreadth+eps,curve if hefty:-3stem_corr fi),0);
y[_three]=.5[y[_one]r,-d];
-x[_two]l=x[_two]r=w-4.75u; x[_one]l=x[_one]r=x[_zero];
-x[_three]r=hround(w-u); x[_two]l:=x[_four]l:=x[_two]r-.25curve;
+x[_two]l=x[_two]r=max(x[_zero]+.25curve,w-4.75u)+eps;
+x[_one]l=x[_one]r=x[_zero]-eps;
+x[_three]r=hround(w-u); x[_two]l:=x[_two]r-.25curve+eps;
+if x[_three]l<tiny.rt x[_zero]r: x[_three]l:=tiny.rt x[_zero]r+eps; fi
{{interim superness:=more_super;
fill stroke super_arc.e([_three],[_two])..z[_one]e}}; % lobe
if serifs: z[_five]=z[_three]; pos[_five](curve if hefty:-3stem_corr fi,0);