diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bookhands/tgothlig.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/bookhands/tgothlig.mf | 150 |
1 files changed, 0 insertions, 150 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/tgothlig.mf b/Master/texmf-dist/fonts/source/public/bookhands/tgothlig.mf deleted file mode 100644 index e377d6db054..00000000000 --- a/Master/texmf-dist/fonts/source/public/bookhands/tgothlig.mf +++ /dev/null @@ -1,150 +0,0 @@ -%% -%% This is file `tgothlig.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% tgothic.dtx (with options: `lig') -%% -%% Copyright 1999 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. -%% -%% Author: Peter Wilson (CUA) -%% now at: peter.r.wilson@boeing.com -%% - - -ligtable "`": "`"=:oct"134"; -ligtable "'": "'"=:oct"042"; %% , "?" kern 2u#, "!" kern 2u#; - -ligtable "-": "-"=:oct"173"; -ligtable oct"173": "-"=:oct"174"; - -%%%%ligtable "c": "t"=:oct"014"; -ligtable "s": "t"=:oct"015"; - - -cmchar "TGOTH st ligature"; -beginchar(oct"015", 2sb#+hstretch*((1 + narrowd + 3)*stem_width#), - asc_height#, 0); -adjust_fit(0,0); -pcshiftx := sb; -numeric n[]; -numeric st; st := stem_width; -n1 := h/ascratio; % x-height -pickup quill; -%% the S (long) -lft x1 = pcshiftx + narrowd*st; -x2 = x1; y2 = 0; y1 = h - (top y2 - bot y2); -z12 = 1/2[z1,z2]; -draw_updiamondstem(1,12,narrowd, 1/4narrowdmin, diawd, diang); -draw_downdiamondstem(12,2,narrowd, narrowdmin, diawd, diang); -%% the T -%% bar -lft x23 = rt x1 + pcshiftx; top y23 = n1; -rt x24 = w-pcshiftx; y24=y23; -draw z23--z24; -%% stem -lft x21 = rt x23; top y21 = h; -x22 = x21; y22 = 0; -draw_downdiamondstem(21,22,narrowd,narrowdmin,diawd,diang); -%% the ligature -x11=x1; top y11=h; -draw z12--z11--z21; -ductus:=false; -penlabels(1,2,3,4,5,11,21,22,23,24,100); -%% end "t" -endchar; %% end st ligature - - -cmchar "Closing quotes"; -beginchar(oct"042",2sb#+hstretch*(comma_width#+3dot_size#),4/3x_height#,0); -adjust_fit(0,0); -pcshiftx:=sb; -x1=w-pcshiftx-(0.5hstretch*dot_size); y1=y2=h; -x2=x1-(2hstretch*dot_size); -draw_pcomma(1,dot_size,comma_width); % right -draw_pcomma(2,dot_size,comma_width); % left -penlabels(1,2); -endchar; % end of "''" - - -cmchar "Opening quotes"; -beginchar(oct"134",2sb#+hstretch*(comma_width#+3dot_size#),4/3x_height#,0); -adjust_fit(0,0); -pcshiftx:=sb; -x1=pcshiftx+(0.5hstretch*dot_size); y1=y2=h; -x2=x1+(2hstretch*dot_size); -draw_plq(1,dot_size,comma_width); % left -draw_plq(2,dot_size,comma_width); % right -penlabels(1,2); -endchar; % end of "``" - - -cmchar "Hyphen"; -beginchar("-",sb#+hstretch*((2)*stem_width#),x_height#,0); -adjust_fit(0,0); -pcshiftx:=sb/2; -pickup threequarterquill; -lft x21=pcshiftx; rt x22=w-pcshiftx; y21=y22=1/2h; -draw z21--z22; -%%draw_roundserif(21,22,srad); draw_flatserif(22,21,srad); -penlabels(1,2); -endchar; % end of "-" - - -cmchar "En dash"; -beginchar(oct"173",sb#+hstretch*((3)*stem_width#),x_height#,0); -adjust_fit(0,0); -pcshiftx:=sb/2; -pickup threequarterquill; -lft x21=pcshiftx; rt x22=w-pcshiftx; y21=y22=1/2h; -draw z21--z22; -%%draw_roundserif(21,22,srad); draw_flatserif(22,21,srad); -penlabels(1,2); -endchar; % end of "--" - - -cmchar "Em dash"; -beginchar(oct"174",sb#+hstretch*((6)*stem_width#),x_height#,0); -adjust_fit(0,0); -pcshiftx:=sb/2; -pickup threequarterquill; -lft x21=pcshiftx; rt x22=w-pcshiftx; y21=y22=1/2h; -draw z21--z22; -%%draw_roundserif(21,22,srad); draw_flatserif(22,21,srad); -penlabels(1,2); -endchar; % end of "---" - - -cmchar "TGOTH ampersand"; -beginchar("&", 2sb#+hstretch*((7/2)*stem_width#), asc_height#, 0); -adjust_fit(0,0); -pcshiftx := sb; -numeric n[]; -numeric st; st := stem_width; -pickup quill; -%% bar -lft x3 = pcshiftx; top y1 = h; -top y3 = bot y1; -rt x4 = w-pcshiftx; y4=y3; -draw z3--z4; -%% stem -lft x1 = rt x3; -x2 = x1; y2 = 0; -draw_downdiamondstem(1,2,wided,widedmin,diawd,diang); -%% E bars -n1 = 1/2[y3,y2a] + 1/2angdec; -pickup halfquill; -lft x11 = pcshiftx; rt x12 = w-pcshiftx; -y11 = y12 = 1/2h; -x13 = x11; x14=x12; y13 = y14 = n1-angdec; -draw z11--z12; -%%draw z13--z14; -ductus:=false; -penlabels(1,2,3,4,5,6,11,12,13,14,100); -endchar; % end "&" - |