summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/vntex/vnr/vnuyr.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/vntex/vnr/vnuyr.mf')
-rw-r--r--Master/texmf-dist/fonts/source/vntex/vnr/vnuyr.mf63
1 files changed, 63 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/vntex/vnr/vnuyr.mf b/Master/texmf-dist/fonts/source/vntex/vnr/vnuyr.mf
new file mode 100644
index 00000000000..9e95ab33773
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/vntex/vnr/vnuyr.mf
@@ -0,0 +1,63 @@
+% Copyright 2003-2005 Han The Thanh <hanthethanh@gmx.net>.
+% This file is part of vntex. License: LPPL, version 1.3 or newer,
+% according to http://www.latex-project.org/lppl.txt
+
+% Computer Modern Roman upper case "Y" precomposed glyphs:
+% Inclusion:
+% Y' Y` Y? Y~ Y.
+
+begin_letter(y);
+ set_letter_dimens(y)(
+ 13u#, cap_height#, 0,
+ cap_height#*slant + .45u#,
+ cap_serif_fit#, cap_serif_fit#
+ );
+ numeric left_stem, right_stem, outer_jut, dy, alpha;
+ left_stem = cap_stem - stem_corr;
+ right_stem = min(cap_hair if hefty: -2stem_corr fi, left_stem);
+ outer_jut = .75cap_jut;
+ x1l = w - x4r = l + letter_fit + outer_jut + .05u;
+ x2l = x5l = hround(.5w - .5left_stem);
+ x3r = x5r;
+ y1 = y4 = h;
+ y2 = y3 = y5 = .4h;
+ dy = y1 - y2;
+ alpha = ((x2l - x1l) ++ dy)/dy;
+ penpos1(alpha*left_stem, 0);
+ penpos2(alpha*left_stem, 0);
+ penpos3(alpha*right_stem, 0);
+ penpos4(alpha*right_stem, 0);
+ penpos5(left_stem, 0);
+ penpos6(left_stem, 0);
+ x5 = x6;
+ y6 = 0;
+ z0 = whatever[z1r, z2r] = whatever[z3l, z4l];
+ if y0 > y2 + cap_notch_cut: y0 := y2 + cap_notch_cut;
+ fill z0 + .5right{up} ... {z4 - z3}diag_end(3l, 4l, 1, 1, 4r, 3r) -- z5r
+ -- diag_end(5r, 6r, 1, 1, 6l, 5l) -- z5l -- diag_end(2l, 1l, 1, 1, 1r, 2r){z2 - z1}
+ ... {down}z0 + .5left -- cycle; % diagonals and stem
+ else: fill z0 -- diag_end(0, 4l, 1, 1, 4r, 3r) -- z5r
+ -- diag_end(5r, 6r, 1, 1, 6l, 5l) -- z5l
+ -- diag_end(2l, 1l, 1, 1, 1r, 0) -- cycle;
+ fi % diagonals and stem
+ if serifs: numeric inner_jut;
+ pickup tiny.nib;
+ prime_points_inside(1, 2);
+ prime_points_inside(4, 3);
+ prime_points_inside(6, 5);
+ if rt x1'r + cap_jut + .5u + 1<=lft x4'l - cap_jut: inner_jut = cap_jut;
+ else: rt x1'r + inner_jut + .5u + 1=lft x4'l - inner_jut;
+ fi
+ dish_serif(1', 2, a, 1/3, outer_jut, b, 1/2, inner_jut); % upper left serif
+ dish_serif(4', 3, c, .6, inner_jut, d, 1/2, outer_jut)(dark); % upper right serif
+ dish_serif(6', 5, e, 1/3, cap_jut, f, 1/3, cap_jut);
+ fi % lower serif
+ math_fit(.5u# - cap_height#*slant, ic# - 4u#);
+ set_letter_join(y, x6 if serifs: + .3max(0, left_stem - right_stem) fi,
+ .5w#);
+ penlabels(0, 1, 2, 3, 4, 5, 6);
+end_letter;
+
+input vnycomp;
+
+endinput;