summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf128
1 files changed, 122 insertions, 6 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf b/Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf
index 5c9b142b31c..8917cf498ca 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `lig')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 Peter R. Wilson
%%
-%% This program is provided under the terms of the
-%% LaTeX Project Public License distributed from CTAN
-%% archives in directory macros/latex/base/lppl.txt.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
@@ -26,6 +34,114 @@ ligtable oct"173": "-"=:oct"174";
ligtable "c": "t"=:oct"014";
ligtable "s": "t"=:oct"015";
+cmchar "HMIN ae conjunction";
+beginchar(oct "032",
+ 2sb#+hstretch*(18/11x_height#),
+ x_height#, 0);
+adjust_fit(0,0);
+pcshiftx := sb;
+numeric n[];
+path pth[];
+pair pr[];
+numeric rta, lfte; % right and left limits of a & e respectively
+pickup quill;
+
+z999=(0,0); n999 = rt x999 - lft x999; % width of vertical stroke
+rta := 1/2w + n999 + pcshiftx;
+
+%%% The "a"
+n1 := rta - 2pcshiftx -jut; % effective letter width
+%% "stem"
+rt x1 = rta - pcshiftx-jut; top y1=h;
+x2 = x1; bot y2=0;
+z16 = 1/6[z2,z1];
+rt x6 = x16; y6=y16;
+lft x4 = pcshiftx; y4 = 1/2h;
+%% stem path
+pth1 := z1{down}..z2;
+pr1 := direction 1 of pth1;
+z20 = z2 shifted -10pr1;
+
+z11 = point 3/13 of pth1; z15 = point 11/13 of pth1;
+lft x13 = pcshiftx; y13=1/4h;
+
+%%% The "e"
+
+lfte = lft x11 - pcshiftx;
+
+n51 := w-pcshiftx - lfte; % actual letter width
+n52 := 7/8n51; % width of bowl
+x51 = lfte + pcshiftx + 5/8n52; top y51=h;
+lft x52 = lfte + pcshiftx; y52 = 1/2h;
+x53 = lfte + pcshiftx + 1/2n52; bot y53 = 0;
+rt x54 = lfte + pcshiftx + n52; y54 = 1/4h;
+z98=(lfte,5/8h); z99=(2w,y98);
+pth51 := z98--z99;
+pth52 := z51{left}..z52{down}..z53{right};
+z57 = pth51 intersectionpoint pth52;
+rt x67 = w; y67=y57;
+rt x58 =lfte + pcshiftx+n52; y58=y52;
+pth53 := z51{right}..z58{down}..z53{left};
+z59 = pth51 intersectionpoint pth53;
+
+%%ductus:=true;
+if ductus:
+ pickup stylus;
+else:
+ % draw the a stem
+ draw pth1;
+ draw_roundserif(1,2,srad);
+%% draw_roundserif(2,20,srad);
+ % draw the a bowl
+ draw z15{-pdir}..z13{up}..z57{right};
+ % draw the e
+ draw z59{up}..z51{left}..z52{down}..z53{right}..z54{pdir};
+ draw z57--z67;
+fi
+ductus:=false;
+penlabels(1,2,3,4,5,6,7,8,11,12,13,14,15,100);
+penlabels(51,52,53,54,55,56,57,58,59,67,70,98,99,100);
+endchar; % end "ae"
+
+cmchar "HMIN AE conjunction";
+beginchar(oct "035",
+%% sb#+caprat*hstretch*(14/18x_height#),
+ sb#+caprat*hstretch*(22/18x_height#),
+ caprat*x_height#, 0);
+adjust_fit(0,0);
+pcshiftx := sb;
+numeric pcshifte;
+numeric n[];
+path pth[];
+pickup quill;
+x100 = 0;
+n1 = rt x100 - lft x100;
+
+%% the E
+%% stem
+pcshifte = 7/16w;
+lft x1 = pcshifte+n1; top y1 = h;
+x2 = x1; bot y2=0;
+%% bars
+lft x3 = pcshifte; y3 = y1; rt x4 = w-pcshiftx; y4=y3;
+x5=x1; y5 = 1/2[y1,y2]; x6 = x4; y6 = y5;
+x7 = x3; y7 = y2; x8 = x4; y8=y7;
+
+%% bottom left A leg
+lft x52 = pcshiftx; bot y52=0;
+z62 = whatever[z52,z1]; y62=y5;
+
+%%ductus:=true;
+if ductus:
+ pickup stylus;
+fi
+draw z1--z2; % stem
+draw z3--z4; draw z5--z6; draw z7--z8;
+draw z52--z1; draw z62--z5; % the A
+ductus:=false;
+penlabels(1,2,3,4,5,6,7,8,9,17,70,100);
+endchar; % end "AE"
+
cmchar "The ct ligature";
beginchar(oct"014", 2sb#+hstretch*(20/11x_height#),