diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf | 142 |
1 files changed, 0 insertions, 142 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf deleted file mode 100644 index 8bafa316954..00000000000 --- a/Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf +++ /dev/null @@ -1,142 +0,0 @@ -%% -%% This is file `sqrclig.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% sqrcaps.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"; - - -cmchar "Closing quotes"; -beginchar(oct"042",2sb#+hstretch*(comma_width#+3dot_size#),7/8asc_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#),7/8asc_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*(8/13x_height#),x_height#,0); -adjust_fit(0,0); -pcshiftx:=sb/2; -numeric alpha; alpha:=w/8; -pickup threequarterquill; -lft x21=pcshiftx+jut; rt x22=w-pcshiftx-jut; y21=y22=1/2h; -z31 = z21 shifted (-jut*pdir); -draw z21--z22; -draw z31--z21; -draw_flatserif(22,21,srad); -penlabels(1,2); -endchar; % end of "-" - - -cmchar "En dash"; -beginchar(oct"173",sb#+hstretch*(10/13x_height#),x_height#,0); -adjust_fit(0,0); -pcshiftx:=sb/2; -numeric alpha; alpha:=w/8; -pickup threequarterquill; -lft x21=pcshiftx+jut; rt x22=w-pcshiftx-jut; y21=y22=1/2h; -z31 = z21 shifted (-jut*pdir); -draw z21--z22; -%%draw_roundserif(21,22,srad); -draw z31--z21; -draw_flatserif(22,21,srad); -penlabels(1,2); -endchar; % end of "--" - - -cmchar "Em dash"; -beginchar(oct"174",sb#+hstretch*(20/13x_height#),x_height#,0); -adjust_fit(0,0); -pcshiftx:=sb/2; -numeric alpha; alpha:=w/8; -pickup threequarterquill; -lft x21=pcshiftx+jut; rt x22=w-pcshiftx-jut; y21=y22=1/2h; -z31 = z21 shifted (-jut*pdir); -draw z21--z22; -%%draw_roundserif(21,22,srad); -draw z31--z21; -draw_flatserif(22,21,srad); -penlabels(1,2); -endchar; % end of "---" - - -cmchar "SQRC ampersand"; -beginchar("&", sb#+caprat*hstretch*(18/13x_height#), - caprat*x_height#, 0); -adjust_fit(0,0); -pcshiftx := sb; -numeric n[]; -path pth[]; -pickup quill; -x100 = 0; -n1 = sqrcjut; -%%%% The E -%% stem -lft x1 = pcshiftx+n1; top y1 = h; -x2 = x1; bot y2=0; -%% bars -lft x3 = pcshiftx; y3 = y1; rt x4 = 9/20w-pcshiftx; y4=y3; -x5=x1; y5 = 6/16[y1,y2]; x6 = x4; y6 = y5; -x7 = x3; y7 = y2; x8 = x4; y8=y7; -%%ductus:=true; -if ductus: - pickup stylus; -fi -draw z1--z2; % stem -draw z3--z4; draw z5--z6; draw z7--z8; -ductus:=false; -%%%%%%%%% The T - -%% bar -lft x11 = rt x4 + 2pcshiftx; rt x12=w-pcshiftx; -top y11 = top y12 = h; -pth1 := z11{pdir}..{pdir}z12; -%% stem -z13 = 1/2[z11,z12]; -x14 = x13; bot y14 = 0; -%%ductus:=true; -if ductus: - pickup stylus; -fi -draw pth1; % bar -draw z13--z14; % stem -ductus:=false; -penlabels(1,2,3,4,5,6,7,8,9,11,12,13,14,17,70,100); -%%% end T -endchar; % end "&" - |