diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf | 128 |
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#), |