summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/bookhands/imajlig.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bookhands/imajlig.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/imajlig.mf145
1 files changed, 145 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/imajlig.mf b/Master/texmf-dist/fonts/source/public/bookhands/imajlig.mf
new file mode 100644
index 00000000000..190833a97b1
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/bookhands/imajlig.mf
@@ -0,0 +1,145 @@
+%%
+%% This is file `imajlig.mf',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% inslrmaj.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 "f": "i"=:oct"014";
+
+
+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*(0.8x_height#),x_height#,0);
+adjust_fit(0,0);
+pcshiftx:=sb/2;
+numeric alpha; alpha:=w/8;
+pickup quill;
+lft x1 = pcshiftx; rt x2=w-pcshiftx; y1=y2=h/2;
+x11=lft x1+alpha/2; y11=top y1-0.5thin;
+x12=rt x2; y12=bot y1+0.5thin;
+draw_triangle(11,alpha);
+draw_rutriangle(12,alpha);
+pickup thickstylus;
+lft x21=pcshiftx; rt x22=w-pcshiftx; y21=y22=y1;
+draw z21--z22;
+penlabels(1,2);
+endchar; % end of "-"
+
+
+cmchar "En dash";
+beginchar(oct"173",sb#+hstretch*(x_height#),x_height#,0);
+adjust_fit(0,0);
+pcshiftx:=sb/2;
+numeric alpha; alpha:=w/8;
+pickup quill;
+lft x1 = pcshiftx; rt x2=w-pcshiftx; y1=y2=h/2;
+x11=lft x1+alpha/2; y11=top y1-0.5thin;
+x12=rt x2; y12=bot y1+0.5thin;
+draw_triangle(11,alpha);
+draw_rutriangle(12,alpha);
+pickup thickstylus;
+lft x21=pcshiftx; rt x22=w-pcshiftx; y21=y22=y1;
+draw z21--z22;
+penlabels(1,2);
+endchar; % end of "--"
+
+
+cmchar "Em dash";
+beginchar(oct"174",sb#+hstretch*(2x_height#),x_height#,0);
+adjust_fit(0,0);
+pcshiftx:=sb/2;
+numeric alpha; alpha:=w/8;
+pickup quill;
+lft x1 = pcshiftx; rt x2=w-pcshiftx; y1=y2=h/2;
+x11=lft x1+alpha/2; y11=top y1-0.5thin;
+x12=rt x2; y12=bot y1+0.5thin;
+draw_triangle(11,alpha);
+draw_rutriangle(12,alpha);
+pickup thickstylus;
+lft x21=pcshiftx; rt x22=w-pcshiftx; y21=y22=y1;
+draw z21--z22;
+penlabels(1,2);
+endchar; % end of "---"
+
+
+cmchar "IMAJ ampersand";
+beginchar("&", 2sb#+hstretch*(6/3x_height#), asc_height#, 0);
+adjust_fit(0,0);
+numeric n[];
+path pth[];
+pcshiftx:=sb;
+pickup quill;
+n10 := w-2pcshiftx; % width of character
+%% crossbar
+z1'=(0,h/ascratio);
+rt x2=w-pcshiftx; y2=y1';
+%% main bowl
+n1 := 4/6n10; % width of bowl
+n2 := h; % height of bowl
+z3=(pcshiftx,0);
+obowl(3, n1, n2);
+z2'=(x3obc,y1');
+z1 = (z1'--z2') intersectionpoint obinner;
+z10o = (z2'--z2) intersectionpoint obouter;
+z10i = (z2'--z2) intersectionpoint obinner;
+%% wave
+x4=x2; bot y4=0;
+pth1 := z1{right}..z4{right};
+%% wave/bowl
+z20o = pth1 intersectionpoint subpath (0,2) of obouter;
+z20i = pth1 intersectionpoint subpath (0,2) of obinner;
+%%ductus:=true;
+if ductus:
+ pickup stylus;
+fi
+fill z10o..z3minlo{-pdir}..z3maxlo{-ppdir}..z3minro{pdir}..z20o--
+ z20i..z3minri{-pdir}..z3maxli{ppdir}..z3minli{pdir}..z10i--
+ cycle;
+draw z1--z2; % bar
+draw pth1; % wave
+ductus:=false;
+penlabels(1,2,3,4,5,6,7,8,9,10,16,17,18,31,32,33);
+endchar; % end of "&"
+