diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bookhands/tgothdig.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/bookhands/tgothdig.mf | 243 |
1 files changed, 0 insertions, 243 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/tgothdig.mf b/Master/texmf-dist/fonts/source/public/bookhands/tgothdig.mf deleted file mode 100644 index 74565d5117d..00000000000 --- a/Master/texmf-dist/fonts/source/public/bookhands/tgothdig.mf +++ /dev/null @@ -1,243 +0,0 @@ -%% -%% This is file `tgothdig.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% tgothic.dtx (with options: `dig') -%% -%% 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 -%% - -cmchar "TGOTH digit 1"; -beginchar("1", 2u#+fig_width#, fig_height#, 0); -adjust_fit(0,0); -pcshiftx := sb; -pickup quill; -x1 = x2 = 1/2w; y1 = h; y2 = 0; -z12 = 1/2[z1,z2]; -draw_updiamondstem(1,12,1/2,1/2,diawd,diang); -draw_downdiamondstem(12,2,1/2,1/2,diawd,diang); -penlabels(1,2,100); -endchar; % end "1" - -cmchar "TGOTH digit 2"; -beginchar("2", 2u#+fig_width#, fig_height#, 0); -adjust_fit(0,0); -pcshiftx := u; -numeric st; st := stem_width; -numeric n[]; -n1 := 1/2st; -pickup quill; -lft x1=pcshiftx+n1; top y1=h-2n1; -rt x3=w-pcshiftx-n1; y3=3/4h; -x2=1/2[x1,x3]; top y2= h; -x5= lft x1; bot y5=0; -x6= rt x3; y6=y5; -%%ductus:=true; -if ductus: - pickup stylus; -fi -draw_wave(5,6,thin); % foot -draw z1--z2--z3--z5wl; % curve -ductus:=false; -penlabels(1,2,3,4,5,6,100); -endchar; % end "2" - -cmchar "TGOTH digit 3"; -beginchar("3", 2u#+fig_width#, fig_height#, 0); -adjust_fit(0,0); -numeric n[]; -numeric st; st := stem_width; -n1 := st; -pcshiftx := u; -pickup quill; -%% top -lft x1 = pcshiftx + n1; rt x3 = w - pcshiftx - n1; -x2 = 1/2[x1,x3]; x4 = 1/2[x1,x2]; -top y2 = h; y3 = 12/16h; -(z2-z1) = whatever*pdir; -(z3-z4) = whatever*pdir; -%% bottom -x5 = 12/16[x4, rt x4]; x6 = x3; x7 = x2; -x18 = x1-n1; x17 = x7; -bot y7 = thin; -y5 = 12/16[y4, top y4]; -(z5-z6) = whatever*(z2-z3); -bot y18 = 0; bot y17 = 0; - -draw z1--z2--z3--z4; % top -draw_wave(18,17,thin); -draw z5--z6--z18wr; % bottom -ductus:=false; -penlabels(1,2,3,4,5,6,7,8,9,10,17,18,100); -endchar; % end "3" - -cmchar "TGOTH digit 4"; -beginchar("4", 2u#+fig_width#, fig_height#, 0); -adjust_fit(0,0); -numeric st; st := stem_width; -numeric n[]; -pcshiftx := u; -pickup quill; -x1=x2=w-pcshiftx-(wided+widedmin)*st; -y1=h; y2=0; -lft x3=pcshiftx; y3=7/16h; -rt x4=w-pcshiftx; y4=y3; -%%ductus:=true; -if ductus: - pickup stylus; -fi -draw_downdiamondstem(1,2,wided,widedmin,diawd,diang); % stem -draw z3--z4; % horizontal -draw z1--z3; % diagonal -ductus:=false; -penlabels(1,2,3,4,100); -endchar; % end "4" - -cmchar "TGOTH digit 5"; -beginchar("5", 2u#+fig_width#, fig_height#, 0); -adjust_fit(0,0); -pcshiftx := u; -numeric n[]; -numeric st; st := stem_width; -n1 := st; -pickup quill; -rt x1=w-pcshiftx; top y1=h; -lft x2=pcshiftx+n1; y2=y1; -x3=x2; y3=0.5h; -x4=0.5[x1,x3]; y4=0.5[y3,y5]; -rt x5=w-pcshiftx; y5=1/2[thick,y3]; -x6=w/2; bot y6=0; -%%x16 = 12/16[x3,x5]; -x16 = lft x5; -bot y16 = 0; -lft x17=pcshiftx; bot y17=0; -z167 = 1/2[z16,z17]; -%%ductus:=true; -if ductus: - pickup stylus; -fi -draw_wave(2,1,thin); % top squiggle -draw z2wl--z3; % vertical -%%draw_wave(17,16,thin); % foot -draw z17{pdir}..{pdir}z16; % foot -draw z3{pdir}..z5{down}..z16; % curve -ductus:=false; -penlabels(1,2,3,4,5,6,7,100); -endchar; % end "5" - -cmchar "TGOTH digit 6"; -beginchar("6", 2u#+fig_width#, fig_height#, 0); -adjust_fit(0,0); -pcshiftx := sb; -numeric n[]; -numeric st; st := stem_width; -n1 := 24/16st; -pickup quill; -%% bottom left -x1 = x4 = w/2; top y1 = h - thick; bot y4 = 0; -x2 = x3 = x1 + n1; x5 = x6 = x1 - n1; -y2 = y6 = 3/4[y4,y1]; -y3 = y5 = 1/4[y4,y1]; -%% bowl -draw z1--z2--z3--z4--z5--z6--cycle; -%% head -x11 = x5; top y11 = h; -x12 = x2; y12 = y11; -draw_wave(11,12,thin); -x16 = x11; y16 = y11-thin; -draw z6--z16; -penlabels(1,2,3,4,5,6,12,100); -endchar; % end "6" - -cmchar "TGOTH digit 7"; -beginchar("7", 2u#+fig_width#, fig_height#, 0); -adjust_fit(0,0); -pcshiftx := u; -pickup quill; -lft x1=pcshiftx; -rt x2=w-pcshiftx; -top y1=top y2=h; -x4=w/2; bot y4=0; -x3=0.5[x2,x4]-3thin; y3=0.5[y2,y4]; -%%ductus:=true; -if ductus: - pickup stylus; -fi -draw_wave(1,2,thin); % top bar -draw z1wr..z3..z4; -ductus:=false; -penlabels(1,2,3,4,5,6,100); -endchar; % end "7" - -cmchar "TGOTH digit 8"; -beginchar("8", 2u#+fig_width#, fig_height#, 0); -adjust_fit(0,0); -pcshiftx := u; -numeric alpha; alpha:=1; -pickup quill; -lft x1= pcshiftx; rt x3=w-pcshiftx; top y1 = y3 = 3/4h; -rt x2 = lft x4 = w/2; top y2=h; bot y4=0; -x5=x2; y5=h/2+2o; -lft x11=pcshiftx; rt x13=w-pcshiftx; y11 = bot y13 = 1/4h; -%%ductus:=true; -if ductus: - pickup stylus; -fi -%%draw z1..z2..z3..z5..z11..z4..z13..z5..cycle; -draw z1--z2--z3--z11--z4--z13--cycle; -ductus:=false; -penlabels(1,2,3,4,5,11,13,100); -endchar; % end "8" - -cmchar "TGOTH digit 9"; -beginchar("9", 2u#+fig_width#, fig_height#, 0); -adjust_fit(0,0); -pcshiftx := sb; -numeric n[]; -numeric st; st := stem_width; -n1 := 24/16st; -pickup quill; -%% bottom left -x1 = x4 = w/2; top y1 = h; bot y4 = thick; -x2 = x3 = x1 + n1; x5 = x6 = x1 - n1; -y2 = y6 = 3/4[y4,y1]; -y3 = y5 = 1/4[y4,y1]; -%% bowl -draw z1--z2--z3--z4--z5--z6--cycle; -%% foot -x11 = x5; bot y11 = 0; -x12 = x2; y12 = y11; -draw_wave(11,12,thin); -x13 = x12; y13 = y12+thin; -draw z3--z13; -penlabels(1,2,3,4,5,6,12,100); -endchar; % end "9" - -cmchar "TGOTH digit 0"; -beginchar("0", 2u#+fig_width#, fig_height#, 0); -adjust_fit(0,0); -pcshiftx := sb; -numeric n[]; -numeric st; st := stem_width; -n1 := 24/16st; -pickup quill; -%% bottom left -x1 = x4 = w/2; top y1 = h; bot y4 = 0; -x2 = x3 = x1 + n1; x5 = x6 = x1 - n1; -y2 = y6 = 3/4h; -y3 = y5 = 1/4h; - -draw z1--z2--z3--z4--z5--z6--cycle; - -penlabels(1,2,3,4,5,6,12,100); -endchar; % end "0" - |