diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bookhands/imajlig.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/bookhands/imajlig.mf | 145 |
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 "&" + |