summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf142
1 files changed, 142 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf
new file mode 100644
index 00000000000..8bafa316954
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf
@@ -0,0 +1,142 @@
+%%
+%% 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 "&"
+