summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/gothic
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-09 23:38:21 +0000
committerKarl Berry <karl@freefriends.org>2006-01-09 23:38:21 +0000
commit215012a8d684889983ec2c0629e1c704e6853d9c (patch)
treeebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/gothic
parent1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (diff)
trunk/Master/texmf-dist/fonts/source
git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/gothic')
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/cmfrabase.mf231
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/cmfrak.mf8
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/cmfraklow.mf785
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/cmfrakmis.mf769
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/cmfraknum.mf193
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/cmfrakoth.mf551
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/cmfrakupp.mf1749
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/schwell.mf100
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/su-lig.mf232
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/su-low.mf796
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/su-spec.mf555
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/su-upp.mf849
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/suet14.mf97
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/xxfrak.mf168
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yfrabase.mf73
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yfrak.mf137
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yfraklow.mf593
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yfrakmis.mf574
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yfraknum.mf194
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yfrakoth.mf528
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yfrakupp.mf1342
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/ygotbase.mf79
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/ygoth.mf134
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/ygothgen.mf452
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/ygothlig.mf1578
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/ygothlow.mf768
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/ygothmis.mf177
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/ygothnum.mf229
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/ygothupp.mf2399
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinit.mf110
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitA.mf139
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitB.mf135
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitC.mf122
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitD.mf121
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitE.mf100
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitF.mf109
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitG.mf89
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitH.mf123
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitJ.mf122
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitK.mf125
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitL.mf107
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitM.mf123
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitN.mf109
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitO.mf86
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitP.mf100
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitQ.mf106
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitR.mf120
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitS.mf117
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitT.mf113
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitU.mf120
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitV.mf96
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitW.mf138
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitX.mf126
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitY.mf110
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitZ.mf114
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitas.mf114
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yinitdd.mf109
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yintbase.mf229
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/ysmfrak.mf137
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yswab.mf138
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yswabase.mf103
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yswablow.mf700
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yswabmis.mf1300
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yswabnum.mf288
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf1179
65 files changed, 23617 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/gothic/cmfrabase.mf b/Master/texmf-dist/fonts/source/public/gothic/cmfrabase.mf
new file mode 100644
index 00000000000..b91f6006ef9
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/cmfrabase.mf
@@ -0,0 +1,231 @@
+def n_foot(suffix $) =
+w':=7.806u; penpos$.1(hair,90); penpos$.2(hair,0);
+penpos$.3(hair,-90);
+y$.1=y$.3=0.5foot; y$.2=-apex_o;
+x$.1=x$l-1/20w'; x$.3=x$r+1/20w';
+x$.2=x$;
+filldraw z$.2r{dir75}..z$.3r{dir15}--
+z$.3l{dir165}..z$r{up}--z$l{down}..
+z$.1r{dir195}--z$.1l{dir-15}..z$.2l{dir-65}
+--z$.2r & cycle;
+enddef;
+
+def o_umlaut(suffix $) =
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.1=z$+(0,0.1x_height);
+z$.2=z$.1+(stem,0.1x_height);
+x$.3=x$.2; y$.3=y$.2+0.1x_height;
+x$.4=x$.1; y$.4-y$.3=y$.2-y$.1;
+x$.5+x$.3=2x$.4; y$.5=y$.3;
+x$.6+x$.2=2x$.1; y$.6=y$.2;
+draw z$.1--z$.2--z$.3--z$.4--z$.5--z$.6--z$.1;
+penlabels(z$.1,z$.2,z$.3,z$.4,z$.5,z$.6);
+enddef;
+
+def e_umlaut(suffix $) =
+penpos$.1(2u,45); z$.1=z$;
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.2=z$.1r; z$.3=z$.1l; rt x$.4=rt x$.2; top y$.4=y$;
+draw z$.3--z$.2..z$.3..z$.4;
+enddef;
+
+def cap_e_umlaut(suffix $) =
+penpos$.1(2u,45); z$.1=z$;
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.2=z$.1r; z$.3=z$.1l; rt x$.4=rt x$.2; top y$.4=y$;
+draw z$.3--z$.2..z$.3..z$.4;
+enddef;
+
+def pointpoint =
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+enddef;
+
+
+
+def pointaccent(suffix $) =
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=x$;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o+y$+0.1x_height; y6r=1.1x_height+apex_o+y$;
+penstroke z1e--z2e;
+enddef;
+
+
+
+
+def old_e_umlaut(suffix $) =
+numeric ww;
+ww:=2u; penpos$.1(hair,147);
+penpos$.2(1.5hair,90); penpos$.3(2.5hair,0);
+penpos$.4(1.2hair,-90);
+penpos$.5(hair,-147);
+penpos$.6(hair,-57); penpos$.7(hair,-57);
+z$.1=z$+(0.4ww,-0.2ww);
+z$.2l=z$-(0.111ww,0.556ww);
+z$.3l=z$-(0.5ww,apex_o);
+z$.4l=(x$,y$+0.556ww);
+z$.6-z$=whatever*dir33; x$.6r=x$+0.5ww;
+z$.5l=z$.6l; z$.7=whatever[z$,z$.6];
+x$.7=x$.3;
+penstroke z$.1e..z$.2e{left}..z$.3e{up}
+..z$.4e{right}..z$.5e;
+penstroke z$.7e--z$.6e
+enddef;
+
+def umlaut (suffix $) =
+y0=0; 0.5[x0,x0']=x$-2u;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,y$+0.090x_height);
+z61=(x0+1.522stem,y$+0.387x_height);
+z62=(x0+1.956stem,y$+0.324x_height);
+z60'=(x0'+stem,y$+0.090x_height);
+z61'=(x0'+1.522stem,y$+0.387x_height);
+z62'=(x0'+1.956stem,y$+0.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle
+enddef;
+
+
+def hat (suffix $) =
+z60=(x$-2.5u,0.090x_height+y$);
+z61=(x$+0.3u,0.387x_height+y$);
+x62=x$-0.3u; y62=0.3333*(2y60+y61);
+y60'=y60; x60'+x60=2x$;
+filldraw z60--z61--z60'{left}..z62..{left}cycle;
+enddef;
+
+
+
+def hungarum (suffix $) =
+z60=(x$-2.5u-0.25stem,0.090x_height+y$);
+z63=z60+(0.5stem,0);
+z61=(x$,0.387x_height+y$);
+z62=z61+(stem,0);
+filldraw z60--z61--z62--z63--cycle;
+filldraw z60--z61--z62--z63--cycle shifted (2.5u,0);
+enddef;
+
+def ellbar (suffix $) =
+z60=(x$,y$-0.5u);
+z61=(x$+3.5u,0.5u+y$);
+pickup pensquare scaled 2hair;
+draw z60--z61;
+enddef;
+
+def hacek (suffix $) =
+z60=(x$-2.5u,0.387x_height+y$);
+z61=(x$-0.3u,0.090x_height+y$);
+x62=x$+0.3u; y62=0.3333*(2y60+y61);
+y60'=y60; x60'+x60=2x$;
+filldraw z60--z61--z60'{left}..z62..{left}cycle;
+enddef;
+
+def breve (suffix $) =
+z60=(x$-2.5u,0.387x_height+y$);
+z61=(x$-0.3u,0.090x_height+y$);
+x62=x$+0.3u; y62=0.3333*(2y60+y61);
+y63=y60; x63+x60=2x$;
+z60'=z60+(0,hair);
+z63'=z63+(0,hair);
+filldraw z60..{right}z61{right}..z63--z63'..{left}z62{left}..z60'--cycle;
+enddef;
+
+def tilde (suffix $) =
+z60=(x$-2.1u,0.090x_height+y$);
+z61=(x$-u,0.387x_height+y$);
+z62=(x$+u,0.090x_height+y$);
+z63=(x$+2.1u,0.387x_height+y$);
+pickup pensquare xscaled stem yscaled hair rotated 30;
+draw z60...{right}z61..z62{right}...z63;
+enddef;
+
+
+def cedilla (suffix $) =
+pickup pensquare scaled hair;
+z60=z$;
+z61=(x$+u+0.16w,y$-0.18x_height);
+x62=x$; y62=y61-0.12x_height;
+penpos60(stem,30); penpos61(stem,30); penpos62(stem,-30);
+penstroke z60e{dir-30}..{down}z61e..{left}z62e;
+enddef;
+
+
+def ogonek (suffix $) =
+pickup pensquare scaled hair;
+z60=z$;
+z61=(x$-u-0.16w,y$-0.18x_height);
+x62=x$; y62=y61-0.12x_height;
+penpos60(stem,-30); penpos61(stem,30); penpos62(stem,40);
+penstroke z60e{dir-135}..{down+0.25right}z61e..{right+0.3up}z62e;
+enddef;
+
+def acute (suffix $) =
+y0=0; 0.5[x0,x0']=x$-2u;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,y$+0.090x_height);
+z61=(x0+1.522stem,y$+0.387x_height);
+z62=(x0+1.956stem,y$+0.324x_height);
+z60'=(x0'+stem,y$+0.090x_height);
+z61'=(x0'+1.522stem,y$+0.387x_height);
+z62'=(x0'+1.956stem,y$+0.324x_height);
+penpos60'(hair,145);
+filldraw z60l{dir34}..z62'{up}..z61'{left}
+..z60r{dir259}--z60l & cycle
+enddef;
+
+def grave (suffix $) =
+y0=0; 0.5[x0,x0']=x$-2u;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,y$+0.090x_height);
+z61=(x0+1.522stem,y$+0.387x_height);
+z62=(x0+1.956stem,y$+0.324x_height);
+z60'=(x0'+stem,y$+0.090x_height);
+z61'=(x0'+1.522stem,y$+0.387x_height);
+z62'=(x0'+1.956stem,y$+0.324x_height);
+penpos60'(hair,145);
+filldraw (z60l{dir34}..z62'{up}..z61'{left}
+..z60r{dir259}--z60l & cycle) reflectedabout ((x$,x_height),(x$,0));
+enddef;
+
+
+def cap_grave (suffix $) =
+y0=0; 0.5[x0,x0']=x$-2u;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height-x_height+y$);
+z61=(x0+1.522stem,1.387x_height-x_height+y$);
+z62=(x0+1.956stem,1.324x_height-x_height+y$);
+z60'=(x0'+stem,1.090x_height-x_height+y$);
+z61'=(x0'+1.522stem,1.387x_height-x_height+y$);
+z62'=(x0'+1.956stem,1.324x_height-x_height+y$);
+filldraw (z60l{dir34}..z62'{up}..z61'{left}
+..z60r{dir259}--z60l & cycle) reflectedabout ((x$,x_height),(x$,0));
+enddef;
+
+picture last_char;
diff --git a/Master/texmf-dist/fonts/source/public/gothic/cmfrak.mf b/Master/texmf-dist/fonts/source/public/gothic/cmfrak.mf
new file mode 100644
index 00000000000..88b56d61585
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/cmfrak.mf
@@ -0,0 +1,8 @@
+% yfrak transformed to cmfrak by D. Taupin March 1994
+if unknown cmbase: input cmbase fi
+input cmfrabase; % -sl 15-3-1991 25-3-1994 D.T.
+
+font_identifier:="cmfrak"; font_size 10pt#;
+numeric dc_layout; dc_layout:=0;
+
+input xxfrak.mf
diff --git a/Master/texmf-dist/fonts/source/public/gothic/cmfraklow.mf b/Master/texmf-dist/fonts/source/public/gothic/cmfraklow.mf
new file mode 100644
index 00000000000..abae3b25569
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/cmfraklow.mf
@@ -0,0 +1,785 @@
+picture small_letter_e;
+picture small_letter_a;
+picture small_letter_i;
+picture small_letter_j;
+
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a";
+.beginchar("a",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle;
+small_letter_a:=currentpicture;
+.endchar;
+
+nombre:= 4.722gencoef[1,1.129412];
+
+.cmchar "The Fraktur letter b";
+.beginchar("b",nombre*lower_u#,1.376x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(gencoef[0.241w,0.208w],gencoef[foot,0.322x_height]); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+gencoef[foot,0.9foot]); z3'=(x2r,gencoef[y3,y2r]);
+z3''=(x2l,gencoef[0.633(y3-y2)+y2,y2l]); penpos4(gencoef[hair,2hair],74);
+z4=(gencoef[0.5x2l,0],gencoef[1.259x_height,1.205x_height]);
+penpos5(gencoef[hair,1.5hair],-90); z5l=(x2r+gencoef[0.875stem,0.396w],h);
+penstroke z1e--z2e; filldraw z2l--z3''{up}..z4l--z4r--
+z3{dir45}..z5l{right}--z5r{left} ...z3'{down}--z2r--z2l & cycle;
+penpos5'(gencoef[hair,1.5hair],gencoef[-40,-90]);
+z5'l=(0,gencoef[0.097x_height,0.219x_height]); penpos6(hair,gencoef[-42,-30]);
+penpos7(hair,gencoef[-42,-30]); z6r=(gencoef[0.441w,0.521w],-apex_o);
+z7-z6=whatever*((w,gencoef[0.36x_height,0.479x_height])-z6);
+x7=gencoef[0.653w,0.698w]; z6'=whatever[z6,z7]; y6'=gencoef[y6l+apex_o,y6l];
+penpos8(1.167stem,42); z8r=(w,gencoef[0.545x_height,0.664x_height]);
+penpos11(hair,gencoef[-42,-61]); penpos10(hair,gencoef[-42,-61]);
+z10l=(gencoef[x8l,0.729w],x_height+apex_o);
+z10-z11=whatever*(z7-z6-(0,gencoef[0,0.1x_height])); x11=x1;
+penpos9(5/4stem,angle(z10-z11)); z9=whatever[z11l,z10l];
+y9r=y10l+gencoef[-apex_o,0]; penstroke z11e--z10e; penstroke
+z6e---z7e...z8e{up}.. z9e; filldraw z5'l..z1l{up}--z1r--z7l--
+z6'{dir138}..z5'r--z5'l & cycle; .endchar;
+
+nombre:= 3.639gencoef[1,1.145038];
+
+.cmchar "The Fraktur letter c";
+.beginchar("c",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(gencoef[hair,1.5hair],gencoef[-30,-48]); penpos2(gencoef[hair,1.5hair],
+gencoef[-30,-48]);
+z2-z1=whatever*((w,gencoef[0.78h,0.5h]));
+z1r=(gencoef[0.565w,0.586667w],-apex_o); x2r=w; z1'=whatever[z1,z2];
+y1'=gencoef[y1l+apex_o,y1r]; x1':=gencoef[x1',x1r]; z3=whatever[z1l,z2l];
+x3=gencoef[0.809w,x2l]; z4=(gencoef[2/3w,0.64w],0.176h);
+penpos5(1.083stem,angle((w,gencoef[0.4h,0.452h])));
+z5=(gencoef[0.26w,0.226667w],0.214h); penpos6(stem,0); z6l=(0,0.5h);
+penpos9(gencoef[hair,1.5hair],gencoef[-68,-22]);
+penpos8(gencoef[hair,1.5hair],gencoef[-68,-22]);
+penpos8.5(gencoef[hair,1.5hair],gencoef[-68,-22]);
+z9l=(gencoef[0.832w,0.546667w],h+apex_o);
+z9-z8=whatever*((w,gencoef[0.25h,0.404h])); x8l=gencoef[0.458w,0.2666w];
+z7=whatever[z8l,z9l]; x7=gencoef[0.145w,x8l];
+penpos10(gencoef[stem,1.3stem],angle((w,gencoef[0.25h,0.883562h])));
+z10r=whatever[z9l,z9r]; x10r=w+gencoef[0,apex_o]; z10l-z8.5=whatever*(z10r-z9);
+z8.5=whatever[z8,z9]; penstroke z1e--z2e; filldraw z1'..z5l..z6l{up}--z6r{down}
+..z5r..z4..z3{z2-z1}--z2l--z2r--z1' & cycle; filldraw z6l{up}..z7 &
+z7--z9l--z10r-- z10l--z8.5r & z8.5r{z8-z9}..(x6r,0.738h)..z6r{down}-- z6l &
+cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter c cedilla";
+.beginchar(oct"347",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.4*w,0); cedilla(100);
+endchar;
+
+
+.cmchar "The Fraktur letter c hacek";
+.beginchar(oct"243",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5*w,x_height); hacek(100);
+endchar;
+
+.cmchar "The Fraktur letter c acute";
+.beginchar(oct"242",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+.endchar;
+
+nombre:= 4.944gencoef[1,1.073034];
+
+.cmchar "The Fraktur letter d";
+.beginchar("d",nombre*lower_u#,gencoef[1.269x_height#,1.37x_height#],0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(gencoef[0.227w,0.2094w],gencoef[foot,0.274x_height]); z1'=(x1r,foot);
+z2=(x1,gencoef[0.817x_height,0.795x_height]); penpos4(hair,-90);
+z4=(gencoef[0.5x1l,0],gencoef[0.11x_height,0.188x_height]); penpos5(hair,-38);
+z5r=(gencoef[x1r+0.7stem,0.6073w],-apex_o);
+penpos6(whatever,gencoef[-18,-38]);
+z6l-z5l=whatever*((w,gencoef[0.356x_height,x_height]));
+z6r-z5r=whatever*((w,gencoef[0.356x_height,x_height]));
+z6-z1'=whatever*((w,gencoef[-0.2x_height,-0.1x_height]));
+penpos7(gencoef[1.271stem,0.65stem],gencoef[50,39]); z7r=(w,0.579x_height);
+penpos8(stem,angle((w,1.04h))); z8=(gencoef[0.545w,0.52w],0.959x_height);
+penpos9(gencoef[0.946stem,0.8stem],25);
+z9l=(gencoef[0,-2apex_o],gencoef[1.093x_height,1.178x_height]);
+z10=(gencoef[0.303w,0.209w],h); penpos11(hair,-90);
+z11l=gencoef[(0.416w,h-apex_o),z10]; penpos3(hair,-57);
+z3=z8;
+%z3l-z2l=whatever*((w,gencoef[0.39x_height,0.198x_height]));
+%y3l=x_height-gencoef[2apex_o,0.075x_height];
+%y3l=x_height-2apex_o;
+penstroke z1e--z2e; penstroke
+z5e---z6e...z7e{up}..z8e ..z9e{up}; filldraw z2l--z3l--z3r{z2l-z3l}..
+z2r{down}--z2l & cycle; filldraw z4r..{z5r-z5l}z5r--z6--z1'--z1r--
+z1l{down}..z4l--z4r & cycle; filldraw z9l{up}..z10{right}..z11l
+--z11r{left}..z9r{down}--z9l & cycle;
+last_char:=currentpicture; .endchar;
+
+.cmchar "The Fraktur letter d (\eth)";
+.beginchar(oct"360",nombre*lower_u#,gencoef[1.269x_height#,1.37x_height#],0);
+currentpicture:=last_char; z100=(0,1.15x_height); ellbar(100);
+.endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e";
+.beginchar("e",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e;
+small_letter_e:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur ligature ae";
+.beginchar(oct"346",2*nombre*lower_u#,x_height#,0);
+currentpicture:=small_letter_a;
+addto currentpicture also small_letter_e shifted (4u,0);
+.endchar;
+
+.cmchar "The Fraktur ligature ae";
+.beginchar(ae_ligature,2*nombre*lower_u#,x_height#,0);
+currentpicture:=small_letter_a;
+addto currentpicture also small_letter_e shifted (4u,0);
+.endchar;
+
+.cmchar "The Fraktur letter f";
+.beginchar("f",4.539lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=w; penpos1.1(hair,0); z1.1=(0.318w',-d); penpos1.2(1.313stem,0); z1.2=(x1.1,0.795x_height);
+penpos1.4(3/4stem,-90); z1.4r=(0.857w',y1.2); z1.3=(0,y1.2); z1.12=whatever[z1.1l,z1.2l];
+z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height; z1.12'=z1.12-(0.5apex_o,0);
+z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4; penpos1.5(0.917stem,0);
+z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112; z1.6l-z1.5l=whatever*dir72;
+penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22); penpos1.11(hair,-22);
+z1.11r=(w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'; penpos1.8(whatever,68);
+z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w',1.366x_height); filldraw z1.1r..z1.13'..z1.2r...
+z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle; filldraw
+z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle;
+.endchar;
+
+nombre:= 5.611gencoef[1,1.168317];
+
+.cmchar "The Fraktur letter g";
+.beginchar("g",nombre*lower_u#,x_height#,gencoef[2.389lower_u#,3.4446lower_u#]);
+.adjust_fit(usual_left#-gencoef[0.315u#,0.3u#],usual_right#);
+penpos1(hair,gencoef[0,30]); penpos2(gencoef[hair,1.2hair],gencoef[90,110]);
+z1l=(gencoef[0,0.1w],gencoef[0.059h,-0.532d]); z2l=(gencoef[0.426w,0.568w],-d);
+z3=gencoef[(0.743w,0),(0.78w,-0.42d)];
+z4=(w-gencoef[apex_o,0],gencoef[0.107h,-0.161d]); penpos5(whatever,0);
+z5=gencoef[(0.733w,0.455h),(0.763w,0.199h)]; x5r=gencoef[0.8627w,0.86w];
+penpos6(hair,gencoef[-57,-20]); z6r=(gencoef[w,0.932w],0.845h);
+penpos7(4/3stem,gencoef[46,50]); z7r=gencoef[(0.673w,h+apex_o),(0.466w,h)];
+penpos8(hair,gencoef[-24,angle(z6-z7r)]); z8l=z7l; z8'=whatever[z8l,z8r];
+x8'=gencoef[0.688w,0.67w]; penpos9(gencoef[1.292stem,1.1stem],36);
+z9=(gencoef[0.228w,0.186441w],0.462h); penpos10(gencoef[hair,1.25hair],-50);
+z10r=gencoef[(0.277w,-0.239d),(0.339w,0)]; penpos11(gencoef[hair,1.25hair],-50);
+z11-z10=whatever*dir(gencoef[40,32]); x11=gencoef[0.8w,0.763w];
+z13=whatever[z10l,z11l]; x13=gencoef[0.488w,0.466w]; penstroke
+z2e{left}..z1e{gencoef[up,dir135]}; filldraw z2l{right}..z4 & flex(z4,z5r,z6r) &
+z6r--z6l{left}.. {z6l-z6r}z7r---z7l...z9l{down}..z10r--z13 &
+z13..z9r{up}..z8r{z7r-z7l} & z8r--z8' & z8'..z5l{down}
+..z3{down}..z2r{left}--z2l & cycle; penstroke z10e--z11e;
+last_char:=currentpicture;
+ .endchar;
+
+
+.cmchar "The Fraktur letter g with breve";
+.beginchar(oct"247",nombre*lower_u#,x_height#,gencoef[2.389lower_u#,3.4446lower_u#]);
+currentpicture:=last_char; z100=(0.5w,x_height); breve(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter h";
+.beginchar("h",5.472lower_u#,1.376x_height#,2.556lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; filldraw
+z2l---z3''...z4l--z4r-- z3{dir45}..z5l{right}--z5r{left} ...z3'---z2r--z2l &
+cycle; penpos5'(hair,-40); z5'l=(0,0.097x_height); penpos6(hair,-37);
+penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.6w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; penpos8(1.292stem,39);
+z8r=(w,0.478x_height); penpos11(hair,-50); penpos10(hair,-50); x10r=x8l;
+y10l=x_height+apex_o; z10-z11=whatever*((w,0.559x_height)); x11=x1;
+penpos9(1.229stem,angle((w,0.559x_height))); z9=whatever[z11,z10];
+y9r=y10r-apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z11e--z10e; penstroke z6e---z7e; penpos7'(1.2hair,-40); z7'r=(0.426w,-d);
+penstroke z7'e{dir50}...z8e{up}.. z9e; filldraw z5'l..z1l{up}--z1r-- z15--z7l--
+z6'{dir138}..z5'r--z5'l & cycle; .endchar;
+
+.cmchar "The Fraktur letter i";
+.beginchar("i",2.889lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,-44); penpos2(hair,-44); penpos3(hair,-44); z1l=(0,0.834h);
+z2-z1=whatever*((w,0.37h)); y2l=h+apex_o; z3=whatever[z2l,z2r]; x3r=x5r+0.5stem;
+z4=(0.606w,0.931h); penpos5(stem,0); z5=(0.433w,0.759h); z6=(x5,0.238h);
+penpos6(stem,0); z7=(x6l,0.079h); z8-z7=whatever*dir-40; y8=-apex_o;
+penpos9(hair,-38); z9r-z8=whatever*dir52; x9r=w; z10=(0.788w,0.152h);
+z5'=whatever[z1,z2]; x5'=x5l; penstroke z5e--z6e; penstroke z1e--z2e; filldraw
+z5r{up}..z3r--z2--z5'--z5l{down} --z5r & cycle; filldraw z8--z9r--z9l{z8-z9r}
+..z6r{up}--z6l{down}..{z8-z7}z8 & cycle; penpos11(hair,0); z11r=(x2l,1.076h);
+z12=(0.56w,1.279h); z13=(0.73w,1.238h); filldraw z11l{up}..z12{right}..
+z13{down}..{z1-z2}z11r--z11l & cycle;
+small_letter_i:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter j";
+.beginchar("j",2.944lower_u#,x_height#,1.611lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,47); penpos2(1.3hair,-90); z2r=(0.16w,-d); penpos5(stem,0);
+z5=(0.523w,0.124h); penpos3(2/3stem,0); z3l=(x5l,0.048h); penpos6(stem,0);
+z6=(x5,0.824h); penpos7(hair,-90); z7=(0.906w,0.91h); penpos8(hair,-48);
+penpos9(hair,-48); z8l=(0.481w,h+apex_o); z8-z9=whatever*((w,0.3448h)); x9l=0;
+z9'=whatever[z9r,z8r]; y9'=y9l+apex_o; z1r=(x5r+0.5stem,-0.207d);penstroke
+z2e..z3e{up}; penstroke z5e--z6e; filldraw z1r{dir137}..z5r{up}--z5l
+--z3l--z3r..z1l{dir-43}--z1r & cycle; filldraw z6r{up}..z7r{right}--z7l...
+z8r---z8l--z9l--z9r--z9'.. z6l{down}--z6r & cycle; penpos11(hair,0);
+z11r=(x8l,1.076h); z12=(0.571w,1.279h); z13=(0.744w,1.238h); filldraw
+z11l{up}..z12{right}..z13{down} ..{z9-z8}z11r--z11l & cycle;
+last_char:=currentpicture;
+small_letter_j:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter ij";
+.beginchar(oct"274",5.5lower_u#,x_height#,1.611lower_u#);
+currentpicture:=small_letter_i;
+addto currentpicture also last_char shifted (5.5u-2.944u,0);
+.endchar;
+
+
+.cmchar "The Fraktur letter k";
+.beginchar("k",3.861lower_u#,1.366x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=1.223w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); filldraw z2l---z3''...z4l--z4r--
+z3{dir45}..z5l{right}..z5''l--z5''r..z5r{left} ...z3'---z2r--z2l & cycle;
+penpos5'(hair,-40); z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37);
+y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.8w; z6'=whatever[z6,z7];
+y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l &
+cycle; penpos1.4(3/4stem,-90); z1.4=(0.928w,.859x_height); z1.3=(0,y1.4r);
+z1.35=(x2l,y1.4l); filldraw z1.3--z1.35--z1.4l--z1.4r-- z1.3 & cycle;
+penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43);
+z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(w,0.579[y1.4l,y5l]); penstroke z1.6e--z1.6'e; penstroke
+z1.5e{dir72}..z1.8e{up}..z1.7e{left}; filldraw z1.6r--z1.7l--z1.7r--z1.6l
+--z1.6r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter l";
+.beginchar("l",3lower_u#,1.366x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=1.574w; penpos1(stem,0); z1=(0.241w',foot); penpos5'(hair,-40);
+z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e; filldraw
+z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle; penpos2(stem,0);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x7,h); penstroke z1e--z2e; filldraw
+z2l---z3''...z4l--z4r-- z3{dir50}..z5l{right}--z5r{left} ...z3'---z2r--z2l &
+cycle; last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter l with bar";
+.beginchar(oct"252",3lower_u#,1.366x_height#,0);
+currentpicture:=last_char; z100=(0,0.5cap_height); ellbar(100);
+.endchar;
+
+.cmchar "The Fraktur letter l with acute";
+.beginchar(oct"250",3lower_u#,cap_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+nombre:=7.806gencoef[1,1.227586];
+
+.cmchar "The Fraktur letter m";
+.beginchar("m",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+boolean itsm; itsm:=true;
+w':=w; if itsm: z0=(0.356w',0) else: z0=(0,0) fi; penpos1(stem,0);
+penpos2(stem,0); penpos3(stem,0); penpos4(stem,0); penpos5(stem,0);
+penpos6(stem,0); z1=(0.135w',foot); z3=(0.491w',foot); n_foot(1);
+z2=(x1,0.846h); z4=(x3,y2); z5=z3+z0; z6=z4+z0; penpos10(hair,-54);
+penpos11(hair,-54); penpos12(hair,-54); penpos13(hair,-54);
+z2r-z10l=whatever*dir36; x10r=x2r; z11-z10=whatever*dir36; y11l=h+apex_o;
+z14=whatever[z10r,z11r]; y14=0.881h; penpos16(2/3hair,-90);
+z16=(x6r+1/20w',y14); penstroke z1e--z2e; penstroke z5e--z6e; if itsm: penstroke
+z3e--z4e; n_foot(3); fi z12=z10+z0; z13=z11+z0; z15=z14+z0; x14'=x4l;
+z14'-z14=whatever*(z4r-z11); z15'=z14'+z0; if itsm: filldraw
+z14--z14'--z4l--z4r-- z11l--z10l--z10r--z14 & cycle; fi filldraw
+z12l--z13l---z13r...z16l{right} --z16r{left}..z6r--z6l--z15'--z15-- z12r--z12l &
+cycle; penpos18(hair,-37); penpos17(hair,-37); z17=(0.354[x5l,x5r],-apex_o);
+x18r=x5+0.157w'; y18l=foot; z20'=whatever[z17l,z18l]; x20'=x5r;
+z20=0.5[z20',z18l]; z19=(x5l,2/3foot); z17'=whatever[z17,z18]; y17'=0; filldraw
+z17'--z19--z5l--z5r{down} ..z20{z18r-z18l}--z17' & cycle; penstroke z17e--z18e;
+z8=(0,y2); z9=(x2,h+apex_o); z7=(x1l,0.194[y2,y1]); filldraw
+z7{up}..z8--z9..z2r{down} --z7 & cycle;
+.endchar;
+
+nombre:=5.028gencoef[1,1.227586];
+
+.cmchar "The Fraktur letter n";
+.beginchar("n",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+boolean itsm; itsm:=false;
+w':=1.553w; if itsm: z0=(0.356w',0) else: z0=(0,0) fi; penpos1(stem,0);
+penpos2(stem,0); penpos3(stem,0); penpos4(stem,0); penpos5(stem,0);
+penpos6(stem,0); z1=(0.135w',foot); z3=(0.491w',foot); n_foot(1);
+z2=(x1,0.846h); z4=(x3,y2); z5=z3+z0; z6=z4+z0; penpos10(hair,-54);
+penpos11(hair,-54); penpos12(hair,-54); penpos13(hair,-54);
+z2r-z10l=whatever*dir36; x10r=x2r; z11-z10=whatever*dir36; y11l=h+apex_o;
+z14=whatever[z10r,z11r]; y14=0.881h; penpos16(2/3hair,-90);
+z16=(x6r+1/20w',y14); penstroke z1e--z2e; penstroke z5e--z6e; if itsm: penstroke
+z3e--z4e; n_foot(3); fi z12=z10+z0; z13=z11+z0; z15=z14+z0; x14'=x4l;
+z14'-z14=whatever*(z4r-z11); z15'=z14'+z0; if itsm: filldraw
+z14--z14'--z4l--z4r-- z11l--z10l--z10r--z14 & cycle; fi filldraw
+z12l--z13l---z13r...z16l{right} --z16r{left}..z6r--z6l--z15'--z15-- z12r--z12l &
+cycle; penpos18(hair,-37); penpos17(hair,-37); z17=(0.354[x5l,x5r],-apex_o);
+x18r=x5+0.157w'; y18l=foot; z20'=whatever[z17l,z18l]; x20'=x5r;
+z20=0.5[z20',z18l]; z19=(x5l,2/3foot); z17'=whatever[z17,z18]; y17'=0; filldraw
+z17'--z19--z5l--z5r{down} ..z20{z18r-z18l}--z17' & cycle; penstroke z17e--z18e;
+z8=(0,y2); z9=(x2,h+apex_o); z7=(x1l,0.194[y2,y1]); filldraw
+z7{up}..z8--z9..z2r{down} --z7 & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter n tilde";
+.beginchar(oct"361",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char; z100=(0.5w,x_height); tilde(100);
+.endchar;
+
+.cmchar "The Fraktur letter n tilde";
+.beginchar(oct"253",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char; z100=(0.5w,x_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter n hacek";
+.beginchar(oct"254",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char; z100=(0.5w,x_height); hacek(100);
+.endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o";
+.beginchar("o",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur ligature oe";
+if (dc_layout>0): xchar_code:=oct"367";
+ else: xchar_code:=oct"033";
+ fi;
+.beginchar(xchar_code,1.7*nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+addto currentpicture also small_letter_e shifted (4u,0);
+.endchar;
+nombre:=5.056gencoef[1,1.131868];
+
+.cmchar "The Fraktur letter p";
+.beginchar("p",nombre*lower_u#,x_height#,3.361lower_u#);
+.adjust_fit(usual_left#+gencoef[0,0.5u#],usual_right#);
+penpos1(stem,0); z1=(gencoef[0.242w,0.223w],foot); penpos2(stem,0);
+z2=(x1,0.834h); penpos3(hair,-27); z3=(x2l,1.05h);
+penpos4(stem,53); z4l=(-apex_o,0.86h); penpos5(hair,0);
+z5=(x1,-d); penstroke z5e--z1e--z2e; z6=(x1l,0.69h); filldraw z6{up}..
+z4l{up}--z4r{down}..{dir-45}z2r--z6 & cycle; penstroke
+z4e{up}..z3e{dir53};
+penpos8(hair,-49); penpos7(hair,-49);
+z8l=(gencoef[0.714w,0.7w],h+gencoef[apex_o,0]);
+z8-z7=whatever*dir(gencoef[41,35]); x7=x1; penstroke z7e--z8e;
+z11=(-0.5u,0.15h); z9-z11=whatever*dir-20; x9=gencoef[0.527w,0.592w];
+penpos9(hair,-20); penpos10(hair,-20); z10-z9=whatever*dir57.5;
+y10r=gencoef[0.1h,0.12h]; z12-z10=whatever*(z11-z9); z12-z11=whatever*(z10-z9);
+penpos13(stem,33); penpos14(5/4stem,41); z13r=(w,gencoef[0.5h,0.548h]);
+z14r=z8l; penstroke z9e---z10e...z13e...z14e {dir131}; filldraw
+z11--z12--z10r--z9r--z11 & cycle; .endchar;
+
+nombre:=4.639gencoef[1,1.269461];
+
+.cmchar "The Fraktur letter q";
+.beginchar("q",nombre*lower_u#,x_height#,3.361lower_u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,0); z1=(0.745w,-d); penpos2(stem,0); z2=(x1,foot); z3=(x2r,0.728h);
+z4=(w,0.879h); penpos5(hair,-33); penpos6(hair,-33); z5l=(0.485w,h+apex_o);
+z5-z6=whatever*dir52; x6=0.335w; penpos7(1.542stem,62); z7l=(0,0.445h);
+penpos8(1.125stem,45); z8l=(0.388w,-2apex_o); penpos9(hair,-45);
+penpos10(hair,-45); z9r=z8; z10-z9=whatever*dir45; x10=x2; penstroke z1e--z2e;
+z3'-z6=whatever*(z5r-z5l); x3'=x2l; filldraw z2r---z3...z4 & z4...z5r---z5l
+--z6l--z3'--z2l--z2r & cycle; penstroke z8e{(0,0.552h)-z8}..z7e{up}... z6e---z5e;
+penstroke z9e--z10e;
+.endchar;
+
+nombre:=3.944gencoef[1,1.281690];
+
+.cmchar "The Fraktur letter r";
+.beginchar("r",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+w':=1.197w;
+penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90);
+z5l=(x2r+0.875stem,h); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r;
+z7-z6=whatever*dir48; x7=0.817w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*dir40;
+x11=x1; penpos9(1.229stem,40); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6{dir138}..z5'r--z5'l & cycle; penpos22(stem,0); z22=(x1,0.841h);
+z29=(x22,h+apex_o); z28=(0,y22); z27=(x22l,0.721h); filldraw
+z1l---z27...z28--z29... z22r---z1r--z1l & cycle; penpos30(hair,-70);
+penpos32(hair,-70); penpos31(1.083stem,45); z22r-z32l=whatever*dir45; x32r=x22r;
+z30-z32=whatever*dir45; y30l=h+apex_o; z31r=(w,y32);
+z33-z31l=whatever*(z30-z31r); z33=whatever[z32,z30]; penstroke z32e--z30e;
+filldraw z30--z31r--z31l--z33-- z30 & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter r acute";
+.beginchar(oct"257",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char; z100=(0.5w,x_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter r hacek";
+.beginchar(oct"260",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char; z100=(0.5w,x_height); hacek(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter long s";
+.beginchar("s",4.539lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-1.932lower_u#);
+w':=w; penpos1.1(hair,0); z1.1=(0.318w',-d); penpos1.2(1.313stem,0); z1.2=(x1.1,0.795x_height);
+penpos1.4(3/4stem,-90); z1.4r=(0.857w',y1.2); z1.3=(0,y1.2); z1.12=whatever[z1.1l,z1.2l];
+z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height; z1.12'=z1.12-(0.5apex_o,0);
+z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4; penpos1.5(0.917stem,0);
+z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112; z1.6l-z1.5l=whatever*dir72;
+penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22); penpos1.11(hair,-22);
+z1.11r=(w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'; penpos1.8(whatever,68);
+z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w',1.366x_height); filldraw z1.1r..z1.13'..z1.2r...
+z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle; filldraw
+z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e;
+.endchar;
+
+nombre:=5.039gencoef[1,1.168688];
+
+.cmchar "The Fraktur letter short s";
+.beginchar(s_final,nombre*lower_u#,1.286x_height#,0);
+.adjust_fit(usual_left#,usual_right#); penpos0(hair,angle((w,x_height))-90);
+penpos0'(hair,angle((w,x_height))-90); z0l=(0,0.103x_height); x0'r=0.86w;
+z0'-z0=whatever*((w,x_height)); penstroke z0e--z0'e;
+penpos5(1.083stem,angle((w,gencoef[0.797x_height,0.63x_height])));
+penpos6(1.083stem,angle(z0'-z0)); z5l=(0.54w,-apex_o); z6l=z0r; penstroke z5e{dir142}..z6e;
+penpos1(hair,angle((w,0.797x_height))-90); penpos2(hair,angle((w,0.797x_height))-90);
+penpos3(1.083stem,39); z3r=(w,0.441x_height); z1r=z5l; z2r=z5r; z4=whatever[z0r,z0'r]; x4=0.595w;
+penpos4(5/4stem,angle(z0'-z0)); penstroke z1e--z2e{z2-z1}..z3e..z4e{dir(angle(z0'-z0)+90)};
+penpos7(hair,angle(z0'-z0)-90); z7r=z6; penpos8(1.125stem,angle((w,0.5x_height)));
+z8r=whatever[z0,z0']; x8r=0.433w; penpos9(1.292stem,54); z9l=(0,0.69x_height); filldraw
+z7--z8r--z8l{down}..z7l{z0-z0'}--z7 & cycle; penstroke z8e{up}..z9e{dir144}; penpos10(hair,-36);
+z10l=z9; z11=whatever[z9l,z9r]; y11=x_height+apex_o; penpos12(1.083stem,54); z12r=z11;
+penpos14(hair,-36); z14l=z12; penstroke z10e--z14e; z13-z12l=whatever*dir-21;
+z13=whatever[z0l,z0'l]; penpos15(0.538stem,-29); z15r=whatever[z0,z0']; y15r=y11; penpos16(hair,90);
+penpos17(hair,144); z16r=(0.568w,h); z17=(0.198w,1.124x_height); penstroke
+z15e{up}..z16e{left}..z17e; filldraw z12l--z13--z0'r & z0'r{z0'-z0}..z15r{up}--z15l{down}
+..z11{z12-z13}--z12l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter short s acute";
+.beginchar(oct"261",nombre*lower_u#,1.286x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter short s hacek";
+.beginchar(oct"262",nombre*lower_u#,1.286x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hacek(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter short s cedilla";
+.beginchar(oct"263",nombre*lower_u#,1.286x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,0); cedilla(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter t";
+.beginchar("t",3.444lower_u#,1.186x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#-0.3u#);
+w':=1.371w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,0.828x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74);
+z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(0.928w,.859x_height); z1.3=(0,y1.4r); z1.35=(x2l,y1.4l); filldraw
+z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)];
+penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,h); filldraw z1.3--z30l--z30r..z2r{down}
+--(x2r,y1.3)--z1.3 & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter t ogonek";
+.beginchar(oct"265",3.444lower_u#,1.186x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,0); ogonek(100);
+.endchar;
+
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u";
+.beginchar("u",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle;
+.endchar;
+
+nombre:=5.444gencoef[1,1.122449];
+
+.cmchar "The Fraktur letter v";
+.beginchar("v",nombre*lower_u#,1.203x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.334w,1.05foot); penpos2(stem,0); z2=(x1,0.561x_height);
+penpos3(stem,50); z3=(0.158w,0.897x_height); penpos3'(1.042stem,37);
+z3'l=(0,0.928x_height); penpos4(hair,-44); z4l=(0.265w,h); penstroke
+z1e---z2e...z3e{dir140}.. z3'e{up}..z4e{dir46}; penpos5(hair,-90);
+penpos6(hair,0); penpos7(hair,-11); z5=(0.133w,0.11x_height);
+z6=(0.582w,-apex_o); z7r-z6r=whatever*dir58; z7-z1r=whatever*dir-11;
+z7'=whatever[z6l,z7l]; x7'=0.7w; filldraw z1l{down}..z5l--z5r{z1r-z5r}
+..z6l--z6r--z7r--z7l--z7'..{left}z1r--z1l & cycle; penpos8(1.125stem,44);
+z8r=(w,0.576x_height); penpos11(hair,-44); penpos12(hair,-44);
+z11=(0.735w,gencoef[1.055x_height,x_height]); z11-z12=whatever*dir46; x12=0.3w;
+penstroke z12e--z11e; penpos10(1.521stem,46); z10r=z11; penpos9(1.042stem,46);
+z9=(0.648w,0.928x_height); penstroke z6e---z7e...z8e..z9e; filldraw
+z9r{z10-z9}..z10r{z11-z12} --z10l{z11-z12}..z9l{z9-z10}-- z9r & cycle;
+.endchar;
+
+nombre:=7.111gencoef[1,1.2];
+
+.cmchar "The Fraktur letter w";
+.beginchar("w",nombre*lower_u#,1.083x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.154w,foot); n_foot(1); penpos2(stem,0);
+z2=(x1,0.831x_height); penstroke z1e--z2e; penpos3(hair,-53); penpos4(hair,-54);
+z3r=z2r; z4-z3=whatever*dir37; y4l=x_height+apex_o; z3'=whatever[z3l,z4l];
+x3'=x1r; penpos5(stem,40); z5l=(0,0.955x_height); penpos6(hair,-50);
+z6l=(0.145w,h); penstroke z3e--z4e; filldraw
+z2r--z3'..z5r-(0,2apex_o){up}..z6r{dir60} --z6l{z5l-z5r}..z5l{down}..z2l--z2r &
+cycle; penpos7(stem,0); penpos8(stem,0); z7=(0.531w,foot); z8=(x7,y2);
+penpos9(hair,-35); penpos10(hair,-35);
+z10-z7r=whatever*((0,0.621x_height)-(w,0)); z9r=(0.668w,-apex_o);
+z10-z9=whatever*((w,0.359x_height)-z9); z9-z11=whatever*(z10-z7r); x11=0.402w;
+filldraw z11..z7l{up}--z7r--z10r-- z9r--z11 & cycle; penstroke z7e--z8e;
+penpos14(1.083stem,47); z14r=(w,gencoef[0.462x_height,0.685x_height]);
+penpos11'(hair,-53); penpos12(hair,-53); z11'r=z8r; z12-z11'=whatever*dir37;
+y12l=x_height+apex_o; penstroke z11'e--z12e; penpos13(1.083stem,37); z13r=z12;
+penstroke z9e---z10e... z14e..z13e{dir(gencoef[110,130])};
+z11.5=whatever[z11'l,z12l]; x11.5=x8r; z8'=whatever[z3r,z4r];
+z8l-z8'=whatever*(z11.5-z4); filldraw z8'--z4--z11.5--z8r--z8l --z8' & cycle;
+.endchar;
+
+nombre:=3.944gencoef[1,1.194030];
+
+.cmchar "The Fraktur letter x";
+.beginchar("x",nombre*lower_u#,x_height#,0.5x_height#);
+.adjust_fit(usual_left#+u#,usual_right#); w':=1.197w;
+penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90);
+z5l=(x2r+0.875stem,h); penpos5'(hair,-40); z5'l=(x1l,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r;
+z7-z6=whatever*dir48; x7=0.817w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*dir40;
+x11=x1; penpos9(1.229stem,40); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6{dir138}..z5'r--z5'l & cycle; penpos22(stem,0); z22=(x1,0.841h);
+z29=(x22,h+apex_o); z28=(0,y22); z27=(x22l,0.721h); filldraw
+z1l---z27...z28--z29... z22r---z1r--z1l & cycle; penpos30(hair,-70);
+penpos32(hair,-70); penpos31(1.083stem,45); z22r-z32l=whatever*dir45;
+x32r=x22r; z30-z32=whatever*dir45; y30l=h+apex_o; z31r=(w,y32);
+z33-z31l=whatever*(z30-z31r); z33=whatever[z32,z30]; penstroke z32e--z30e;
+filldraw z30--z31r--z31l--z33-- z30 & cycle;
+z40=(x1l,1.5foot); z40'=(x1r,1/3foot);
+penpos41(0.8stem,180); penpos42(1.5hair,-120); penpos43(hair,-142);
+ z41l=(apex_o,-0.129d); z42l=(x1r,-0.557143d); x43l=w; y43r=-d;
+filldraw z40{down}..z41r{down}--z41l{up}..z40'{right}--z40 & cycle;
+penstroke z41e{down}..z42e..z43e{dir-60}; .endchar;
+
+
+nombre:=5.472gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter y";
+.beginchar("y",nombre*lower_u#,x_height#,2.556lower_u#);
+.adjust_fit(usual_left#,usual_right#);
+w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,0.846x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; z2.8=(0,y2);
+z2.9=(x2,h+apex_o); z2.7=(x1l,0.194[y2,y1]); filldraw
+z2.7{up}..z2.8--z2.9..z2r{down} --z2.7 & cycle; penpos5'(hair,-40);
+z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=0.6w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o;
+z10-z11=whatever*((w,0.559x_height)); x11=x1; penpos9(1.229stem,40);
+z9=whatever[z11,z10]; y9r=y10r-apex_o; z15=whatever[z6l,z7l];
+z15-z1r=whatever*dir-30; penstroke z11e--z10e; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); penstroke z7'e{dir50}...z8e{up}.. z9e;
+filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6'{dir138}..z5'r--z5'l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter y acute";
+.beginchar(oct"375",nombre*lower_u#,x_height#,2.556lower_u#);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter y Umlaut";
+if (dc_layout>0): xchar_code:=oct"270";
+ else: xchar_code:=oct"377";
+ fi;
+.beginchar(xchar_code,nombre*lower_u#,x_height#,2.556lower_u#);
+currentpicture:=last_char;
+z100=(0.5w,x_height); umlaut(100);
+.endchar;
+
+
+
+nombre:=3.444gencoef[1,1.330645];
+
+.cmchar "The Fraktur letter z";
+.beginchar("z",nombre*lower_u#,x_height#,gencoef[2.15lower_u#,3.07lower_u#]);
+.adjust_fit(usual_left#,usual_right#); penpos1(hair,122);
+penpos2(gencoef[hair,1.5hair],180); penpos3(0.625stem,-42);
+penpos4(1.313stem,37); z1l=gencoef[(w,0.524h),(0.945w,0.459h)]; z2r=(0,-0.1d);
+z3r=(gencoef[0.548w,0.509w],-d); z4r=(w,gencoef[0.103h,0]); penstroke
+z1e..z2e{down}..z3e{right}..z4e{up}; penpos5(hair,-90);
+z5=gencoef[(0,0.414h),(0.145w,0.390h)]; z6-z5=whatever*dir38;
+x6=gencoef[0.484w,0.454w]; filldraw z5r{right}..z4l{down}-- z4r{up}..z6--z5r &
+cycle; penpos7(4/3stem,43); z7=gencoef[(0.629w,0.734h),(0.618w,0.699h)];
+z8=(gencoef[0.532w,0.4w],h+apex_o); z9=(gencoef[0.081w,0.107782w],0.793h);
+penpos9'(hair,-90); z9'l=z9; penstroke z5e{z6-z5r}..z7e{up}; filldraw
+z7l{up}..z9'r{z9-z8}--z9--z8.. z7r{down}--z7l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter z with point";
+.beginchar(oct"273",nombre*lower_u#,x_height#,gencoef[2.15lower_u#,3.07lower_u#]);
+currentpicture:=last_char;
+z100=(0.5w,x_height); pointaccent(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter z with acute";
+.beginchar(oct"271",nombre*lower_u#,x_height#,gencoef[2.15lower_u#,3.07lower_u#]);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter z with hacek";
+.beginchar(oct"272",nombre*lower_u#,x_height#,gencoef[2.15lower_u#,3.07lower_u#]);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hacek(100);
+.endchar;
+
+
+
+
+
+
+
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/cmfrakmis.mf b/Master/texmf-dist/fonts/source/public/gothic/cmfrakmis.mf
new file mode 100644
index 00000000000..12195b7d90a
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/cmfrakmis.mf
@@ -0,0 +1,769 @@
+.cmchar "The Fraktur ligature ch";
+.beginchar(ch_ligature,3.639lower_u#+4.772lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w:=3.639u; penpos101(hair,-30); penpos102(hair,-30); z102l=(w+0.438u-0.5stem,foot);
+z101r=(0.565w,-apex_o); z101'=whatever[z101,z102]; y101'=y101l+apex_o; z103=whatever[z101l,z102l];
+x103=0.809w; z104=(2/3w,0.176h); penpos105(1.083stem,angle((w,0.4h))); z105=(0.26w,0.214h);
+penpos106(stem,0); z106l=(0,0.5h); penpos109(hair,-68); penpos108(hair,-68); penpos108.5(hair,-68);
+z109l=(0.832w,h+apex_o); z109-z108=whatever*((w,0.25h)); x108l=0.458w; z107=whatever[z108l,z109l];
+x107=0.145w; penpos110(stem,angle((w,0.25h))); z110r=whatever[z109l,z109r]; x110r=w;
+z110l-z108.5=whatever*(z110r-z109); z108.5=whatever[z108,z109]; penstroke z101e--z102e; filldraw
+z101'..z105l..z106l{up}--z106r{down} ..z105r...z103---z102l--z102r--z101' & cycle; filldraw
+z106l{up}..z107 & z107--z109l--z110r-- z110l--z108.5r &
+z108.5r{z108-z109}..(x106r,0.738h)..z106r{down}-- z106l & cycle; z0=(w-0.7u,0); w:=5.472u;
+h:=1.376x_height; d:=2.556u; w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1l=z102l;
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5[x0,x2l],1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h);
+penstroke z1e--z2e; filldraw z2l---z3''...z4l--z4r-- z3{dir45}..z5l{right}--z5r{left}
+...z3'---z2r--z2l & cycle; penpos5'(hair,-40); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=0.6w+x0; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z5'=whatever[z101,z102]; z8r=(w,0.478x_height)+z0; penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*((w,0.559x_height)); x11=x1;
+penpos9(1.229stem,angle((w,0.559x_height))); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; z5'r-z6'=whatever*(z1r-z15); penstroke z11e--z10e;
+penstroke z6e---z7e; penpos7'(1.2hair,-40); z7'r=(0.426w,-d)+z0; penstroke z7'e{dir50}...z8e{up}..
+z9e; filldraw z5'l--z1l--z1r-- z15--z7l--
+z6'--z5'r--z5'l & cycle; .endchar;
+
+.cmchar "The Fraktur ligature ck";
+.beginchar(ck_ligature,3.639lower_u#+3.161lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w:=3.639u; penpos101(hair,-30); penpos102(hair,-30); z102l=(w+0.438u-0.5stem,foot);
+z101r=(0.565w,-apex_o); z101'=whatever[z101,z102]; y101'=y101l+apex_o; z103=whatever[z101l,z102l];
+x103=0.809w; z104=(2/3w,0.176h); penpos105(1.083stem,angle((w,0.4h))); z105=(0.26w,0.214h);
+penpos106(stem,0); z106l=(0,0.5h); penpos109(hair,-68); penpos108(hair,-68); penpos108.5(hair,-68);
+z109l=(0.832w,h+apex_o); z109-z108=whatever*((w,0.25h)); x108l=0.458w; z107=whatever[z108l,z109l];
+x107=0.145w; penpos110(stem,angle((w,0.25h))); z110r=whatever[z109l,z109r]; x110r=w;
+z110l-z108.5=whatever*(z110r-z109); z108.5=whatever[z108,z109]; penstroke z101e--z102e; filldraw
+z101'..z105l..z106l{up}--z106r{down} ..z105r...z103---z102l--z102r--z101' & cycle; filldraw
+z106l{up}..z107 & z107--z109l--z110r-- z110l--z108.5r &
+z108.5r{z108-z109}..(x106r,0.738h)..z106r{down}-- z106l & cycle; z0=(w-0.7u,0);
+w:=3.861u; h:=1.366x_height; w':=1.223w; penpos1(stem,0); penpos2(stem,0); z1l=z102l;
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5[x0,x2l],1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h);
+penstroke z1e--z2e; penpos5''(hair,-90); z5''=z5+(hair,-eps); filldraw z2l---z3''...z4l--z4r--
+z3{dir45}..z5l{right}..z5''l--z5''r..z5r{left} ...z3'---z2r--z2l & cycle; penpos5'(hair,-40);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.8w+x0;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; z5'r-z6'=whatever*(z1r-z15); z5'=whatever[z101,z102]; filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6r---z6l...z5'r--z5'l & cycle; penpos1.4(3/4stem,-90); z1.4=(x0+0.928w,.859x_height);
+z1.3=(x0,y1.4r); z1.35=(x2l,y1.4l); filldraw z1.3--z1.35--z1.4l--z1.4r-- z1.3 & cycle;
+penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43);
+z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(x0+w,0.579[y1.4l,y5l]); penstroke z1.6e--z1.6'e; penstroke
+z1.5e{dir72}..z1.8e{up}..z1.7e{left}; filldraw z1.6r--z1.7l--z1.7r--z1.6l --z1.6r & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature st";
+.beginchar(st_ligature,6.5lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#);
+w':=0.698w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+w':=0.726w; z100=(x0.14,0); penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot)+z100;
+z2=(x1,0.828x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke
+z1e--z2e; penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height)+z100;
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=x100+0.53w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(0.928x100+0.4916w,.859x_height); z1.3=(x100,y1.4r);
+z1.35=(x2l,y1.4l); filldraw z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0);
+z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]);
+penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47; x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43);
+z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(x100+0.529w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,1.186x_height); filldraw
+z1.3--z30l--z30r..z2r{down} --(x2r,y1.3)--z1.3 & cycle; penpos30'(hair,180); z30'=z30;
+penpos30''(hair,-90); z30''r=(x30l,h); penstroke z0.11e{z0.11-z0.9}.. z30''e..z30'e{z1.3-z30l};
+.endchar;
+
+.cmchar "The Fraktur ligature ss";
+.beginchar(ss_ligature,6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-1.932u#);
+w':=0.655w;
+penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0); z0.2=(x0.1,0.795x_height);
+penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l];
+z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0);
+z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4; penpos0.5(0.917stem,0);
+z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72;
+penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22);
+z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w'; penpos0.8(whatever,68);
+z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r...
+z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw
+z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e;
+.endchar;
+
+.cmchar "The Fraktur ligature sf";
+.beginchar(sf_ligature,6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=0.655w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature ff";
+.beginchar(ff_ligature,6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=0.655w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle; filldraw z0.5--z0.4l--z0.4r--z0.2--z0.5 & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature sz";
+.beginchar(eszet,5.444lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#+0.5u#); w':=0.834w;
+penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2);
+z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r];
+y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0);
+z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68);
+z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0);
+z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22);
+z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r;
+z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r... z0.5r---z0.6l &
+z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw
+z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw
+z0.6l{dir72}..z0.14{right}.. z0.8r{dir-22}--z0.8l{dir158}..
+z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r-hair,hair); w':=0.633w; d':=0.679w; penpos1(hair,122);
+penpos2(hair,180); penpos3(0.625stem,-42); penpos4(1.313stem,37);
+z1l=(w',0.524h)+z100; z2r=(x0.2,-0.1d'+y100); z3r=(0.548w',-0.8d')+z100;
+z4r=(w'+u,0.103x_height)+z100; penstroke z2e{down}..z3e{right} ..z4e{up};
+penpos5(hair,-90); z5=(0,0.414x_height)+z100; z6-z5=whatever*dir38;
+x6=0.484w'+x100; filldraw z5r{right}..z4l{down}-- z4r{up}..z6--z5r &
+cycle; penpos7(4/3stem,43); z7=(0.629w',0.734x_height)+z100;
+z8=(0.532w',x_height+apex_o)+z100; z9=(0.081w',0.793x_height)+z100;
+penpos9'(hair,-90); z9'l=z9; penstroke z5e{z6-z5r}..z7e{up}; filldraw
+z7l{up}..z9'r{z9-z8}--z9--z8.. z7r{down}--z7l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+
+.cmchar "The Fraktur ligature sz";
+if (dc_layout>0): xchar_code:=oct"377";
+ else: xchar_code:=oct"337";
+ beginchar(xchar_code,5.444lower_u#,1.366x_height#,3.167lower_u#);
+ currentpicture:=last_char;
+ endchar;
+fi;
+
+.cmchar "The Fraktur ligature tz";
+.beginchar(tz_ligature,4.75lower_u#,1.186x_height#,3.167lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#+u#);
+w':=0.994w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,0.828x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74);
+z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.632w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(x1r,.859x_height); z1.3=(0,y1.4r); z1.35=(x2l,y1.4l); filldraw
+z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)];
+penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r;
+penpos1.8(stem,60); z1.8r=(w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,h); filldraw
+z1.3--z30l--z30r..z2r{down} --(x2r,y1.3)--z1.3 & cycle; z100=(x1r-hair,hair); w':=0.725w;
+d':=0.679d; penpos0.1(hair,122); penpos0.2(hair,180); penpos0.3(0.625stem,-42);
+penpos0.4(1.313stem,37); z0.1l=(w',0.524h)+z100; z0.2r=(0,-0.1d')+z100; z0.3r=(0.548w',-d')+z100;
+z0.4r=(w'+u,0.103x_height)+z100; penstroke z0.2e{down}..z0.3e{right} ..z0.4e{up};
+penpos0.5(hair,-90); z0.5=(0,0.414x_height)+z100; z0.6-z0.5=whatever*dir38; x0.6=0.484w'+x100;
+filldraw z0.5r{right}..z0.4l{down}-- z0.4r{up}..z0.6--z0.5r & cycle; penpos0.7(4/3stem,43);
+z0.7=(0.629w',0.734x_height)+z100; z0.8=(0.532w',x_height+apex_o)+z100;
+z0.9=(0.081w',0.793x_height)+z100; penpos0.9'(hair,-90); z0.9'l=z0.9; penstroke
+z0.5e{z0.6-z0.5r}..z0.7e{up}; filldraw z0.7l{up}..z0.9'r{z0.9-z0.8}--z0.9--z0.8..
+z0.7r{down}--z0.7l & cycle; filldraw (x1r,y1.4l){right}.. z0.8{z0.8-z0.9}--z0.9--(x1r,y1.4l) &
+cycle;
+.endchar;
+
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a with little-e Umlaut";
+.beginchar(oct"211",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle; z100=(x9l,1.214x_height);
+e_umlaut(100);.endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e with little-e Umlaut";
+.beginchar(oct"220",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e; z100=(0.569w,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o with little-e Umlaut";
+.beginchar(oct"231",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle; z100=(x4,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u with little-e Umlaut";
+.beginchar(oct"236",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle; z100=(x2l-hair,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a with Umlaut";
+.beginchar(oct"344",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle;
+ % z100=(x9l,1.214x_height);
+last_char:=currentpicture;
+z100=(0.5w,x_height);
+umlaut(100);.endchar;
+
+
+.cmchar "The Fraktur letter a with acute";
+.beginchar(oct"341",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+endchar;
+
+.cmchar "The Fraktur letter a with breve";
+.beginchar(oct"240",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); breve(100);
+endchar;
+
+.cmchar "The Fraktur letter a with ogonek";
+.beginchar(oct"241",nombre*lower_u#,x_height#,0.2x_height#);
+currentpicture:=last_char;
+z100=(0.8w,0); ogonek(100);
+endchar;
+
+.cmchar "The Fraktur letter a with tilde";
+.beginchar(oct"343",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); tilde(100);
+endchar;
+
+.cmchar "The Fraktur letter a with scandinavian circle";
+.beginchar(oct"345",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); o_umlaut(100);
+endchar;
+
+.cmchar "The Fraktur letter a with grave";
+.beginchar(oct"340",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); grave(100);
+endchar;
+
+.cmchar "The Fraktur letter a with hat";
+.beginchar(oct"342",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hat(100);
+endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e with Umlaut";
+.beginchar(oct"353",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e;
+z100=(0.6w,x_height);
+last_char:=currentpicture;
+umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter e with acute";
+.beginchar(oct"351",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+endchar;
+
+.cmchar "The Fraktur letter e with grave";
+.beginchar(oct"350",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); grave(100);
+endchar;
+
+.cmchar "The Fraktur letter e with hacek";
+.beginchar(oct"245",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hacek(100);
+endchar;
+
+.cmchar "The Fraktur letter e with hat";
+.beginchar(oct"352",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hat(100);
+endchar;
+
+.cmchar "The Fraktur letter e with ogonek";
+.beginchar(oct"246",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.6w,0); ogonek(100);
+endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o with Umlaut";
+.beginchar(oct"366",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle; z100=(x4,x_height);
+last_char:=currentpicture;
+umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter o with acute";
+.beginchar(oct"363",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+endchar;
+
+.cmchar "The Fraktur letter o with Hungarian umlaut";
+.beginchar(oct"256",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hungarum(100);
+endchar;
+
+.cmchar "The Fraktur letter o with tilde";
+.beginchar(oct"365",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); tilde(100);
+endchar;
+
+.cmchar "The Fraktur letter o with slash";
+.beginchar(oct"370",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+pickup penrazor xscaled 0.5stem yscaled hair rotated 30;
+draw (0,0)--(w,x_height);
+endchar;
+
+.cmchar "The Fraktur letter o with slash";
+if (dc_layout>0): xchar_code:=oct"370";
+ else: xchar_code:=oct"034";
+ fi;
+.beginchar(xchar_code,nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+pickup penrazor xscaled 0.5stem yscaled hair rotated 30;
+draw (0,0)--(w,x_height);
+endchar;
+
+.cmchar "The Fraktur letter o with grave";
+.beginchar(oct"362",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); grave(100);
+endchar;
+
+.cmchar "The Fraktur letter o with hat";
+.beginchar(oct"364",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hat(100);
+endchar;
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u with Umlaut";
+.beginchar(oct"374",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle; % z100=(x2l-hair,1.214x_height);
+last_char:=currentpicture;
+z100=(0.5w,x_height);
+umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter u with acute";
+.beginchar(oct"372",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+endchar;
+
+.cmchar "The Fraktur letter u with Hungarian umlaut";
+.beginchar(oct"266",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hungarum(100);
+endchar;
+
+.cmchar "The Fraktur letter u with grave";
+.beginchar(oct"371",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); grave(100);
+endchar;
+
+.cmchar "The Fraktur letter u with hat";
+.beginchar(oct"373",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hat(100);
+endchar;
+
+
+.cmchar "The Fraktur letter u with scandinavian circle";
+.beginchar(oct"267",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); o_umlaut(100);
+endchar;
+
+.cmchar "The Fraktur hyphen";
+.beginchar(oct"055",4u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.5stem,-90);
+penpos2(0.5stem,-90);
+penpos3(0.5stem,-90);
+penpos4(0.5stem,-90); penpos5(stem,-90);
+z2-z1=whatever*dir35;
+z4-z3=whatever*dir35;
+z3r=z5l; z5r=z1l; x1=0;
+x2=x4=w;
+y1r=foot;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+.endchar;
+
+def par_s(suffix $) =
+h':=cap_height; w':=0.379h';
+z$.1=z$+(0.5w',0.5h');
+penpos$.1(stem,30);
+penpos$.2(2hair,0);
+penpos$.3(hair,-90);
+penpos$.4(hair,180);
+penpos$.5(hair,90);
+z$.2l=z$+(0,0.8h'); z$.3l=(x$.1,y$+h');
+z$.4=z$+(0.84w',0.886h');
+z$.5=(x$.4r,y$+0.826h');
+penstroke z$.2e{up}..z$.3e
+{right} if panw: ..z$.4e{down}..z$.5e{left} fi;
+penpos$.6(2hair,90); z$.6l=z$.5l;
+if panw:
+filldraw z$.6r..z$.6l..z$.6r & cycle;
+fi
+penpos$.1'(stem,-150);
+penpos$.2'(2hair,180);
+penpos$.3'(hair,90);
+penpos$.4'(hair,0);
+penpos$.5'(hair,-90);
+z$.1=z$.1';
+z$.2'r=z$+(w',0.2h'); z$.3'r=(x$.1,y$);
+z$.4'=z$+(0.16w',0.114h');
+z$.5'=(x$.4'r,y$+0.174h');
+penpos$.2''(2hair,0); z$.2''=z$.2';
+z$.25=(z$.2''{up}..z$.2{up})
+intersectionpoint (z$+(0,0.5h')--
+z$+(w',0.5h'));
+penpos$.25(stem,30);
+penstroke z$.2''e{up}..z$.25e..
+z$.2e{up};
+penstroke z$.2'e{down}..z$.3'e
+{left} if katw: ..z$.4'e{up}..z$.5'e{right} fi;
+penpos$.6'(2hair,-90); z$.6'l=z$.5'l;
+if katw:
+filldraw z$.6'r..z$.6'l..z$.6'r & cycle;
+fi
+enddef;
+
+.cmchar "The Fraktur paragraph sign";
+.beginchar(oct"237",7.4u#,cap_height#,3.167u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+boolean panw, katw;
+panw:=true; katw:=false;
+z0=(0.17h,0); par_s(0);
+panw:=false; katw:=true;
+z1=(0,-0.3h); par_s(1);
+.endchar;
+
+.cmchar "The Fraktur Mitlaut J proposed by Sanders in 1879";
+.beginchar("$",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28); penpos2(cap_hair,-17.5); penpos3(0.889cap_stem,-116); penpos4(cap_stem,-126);
+penpos5(cap_hair,-44); penpos6(1.056cap_stem,53); penpos7(1.056cap_stem,21); penpos8(cap_hair,-90);
+penpos9(cap_hair,180); z1=(0.115w,-0.886d); z2r=(x1,-0.519d); z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h); z7=(0.636w,0.56h); z8=(0.808w,0.683h); z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right} ..z4e{right}..z5e..z6e{up}..z7e{up} ..z8e{right}..z9e{down};
+penpos10(1.037cap_stem,50); penpos11(cap_hair,-45); penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146); penpos14(0.741cap_stem,-119); penpos15(cap_hair,0);
+penpos16(cap_hair,28); z10l=z11r=(0.1w,0.515h); z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h); z15r=(w,0.875h); z16=(x15l,0.924h); filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle; penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118}; penpos20(hair,-41); penpos21(hair,-41);
+penpos22(2/3cap_stem,-90); penpos23(0.593cap_stem,-113); z20l=(0,0.235h); z21=(x8,0.48y8);
+z22=(0.261w,0.328h); z23=(0.586w,0.251h); penstroke z20e..z22e{right}..z23e{right} ..z21e;
+.endchar;
+
+% 311 --> 100 by D. Taupin
+.cmchar "The Fraktur symbol for etc"; .beginchar(oct"100",8.194lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(hair,-52);
+penpos2(hair,-52); penpos3(stem,48); penpos4(stem,48); penpos5(hair,-42); penpos6(1.2stem,34);
+penpos8(hair,-49); z1r=(0.22w,-apex_o); z2-z1=whatever*dir38; x2=0.458w; z3l=z1r;
+z4l-z1r=whatever*dir140; x4l=0; z5l=z4; y6=0.707h; x6r=x2r; z7=(0.231w,h+apex_o);
+z9=(0.163w,0.841h); z8l=(0,0.793h); penstroke z1e--z2e; penstroke z3e--z4e; penstroke
+z5e{z4r-z4l}..z6e{up}; filldraw z6r{up}..z7{dir160} & z7-- z8l--z8r{z7-z8l}..z9{right}..z6l{down}
+--z6r & cycle; penpos10(hair,-59); penpos11(hair,-59); penpos12(whatever,50); penpos13(1.2stem,30);
+penpos14(stem,11.5); penpos15(hair,-75); penpos16(0.857stem,14); penpos17(0.857stem,14);
+z11r=(0.695w,-apex_o); z10-z11=whatever*dir31; x10r=w; z12l=z11r; z12r=whatever[z11l,z10l];
+z13=(0.631w,0.49h); z14=(0.678w,0.859h); z16r=(w,y8l); z15-z16r=whatever*dir105; y15l=h+apex_o;
+z17r=z15; penstroke z11e--z10e; penstroke z12e..z13e{up}..z14e.. z15e{z16r-z16l}; penstroke
+z16e--z17e;
+.endchar;
+
+.cmchar "Scandinavian circle accent";
+if (dc_layout>0): xchar_code:=oct"006";
+ else: xchar_code:=oct"027";
+ fi;
+.beginchar(xchar_code,9u#,cap_height#,0);
+z100=(0.5w,x_height); o_umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter dotless j";
+if (dc_layout>0): xchar_code:=oct"032";
+ else: xchar_code:=oct"021";
+ fi;
+.beginchar(xchar_code,2.944lower_u#,x_height#,1.611lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,47); penpos2(1.3hair,-90); z2r=(0.16w,-d); penpos5(stem,0);
+z5=(0.523w,0.124h); penpos3(2/3stem,0); z3l=(x5l,0.048h); penpos6(stem,0);
+z6=(x5,0.824h); penpos7(hair,-90); z7=(0.906w,0.91h); penpos8(hair,-48);
+penpos9(hair,-48); z8l=(0.481w,h+apex_o); z8-z9=whatever*((w,0.3448h)); x9l=0;
+z9'=whatever[z9r,z8r]; y9'=y9l+apex_o; z1r=(x5r+0.5stem,-0.207d);penstroke
+z2e..z3e{up}; penstroke z5e--z6e; filldraw z1r{dir137}..z5r{up}--z5l
+--z3l--z3r..z1l{dir-43}--z1r & cycle; filldraw z6r{up}..z7r{right}--z7l...
+z8r---z8l--z9l--z9r--z9'.. z6l{down}--z6r & cycle; penpos11(hair,0);
+z11r=(x8l,1.076h); z12=(0.571w,1.279h); z13=(0.744w,1.238h);
+.endchar;
+
+.cmchar "The Fraktur letter dotless i";
+if (dc_layout>0): xchar_code:=oct"031";
+ else: xchar_code:=oct"020";
+ fi;
+.beginchar(xchar_code,2.889lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,-44); penpos2(hair,-44); penpos3(hair,-44); z1l=(0,0.834h);
+z2-z1=whatever*((w,0.37h)); y2l=h+apex_o; z3=whatever[z2l,z2r]; x3r=x5r+0.5stem;
+z4=(0.606w,0.931h); penpos5(stem,0); z5=(0.433w,0.759h); z6=(x5,0.238h);
+penpos6(stem,0); z7=(x6l,0.079h); z8-z7=whatever*dir-40; y8=-apex_o;
+penpos9(hair,-38); z9r-z8=whatever*dir52; x9r=w; z10=(0.788w,0.152h);
+z5'=whatever[z1,z2]; x5'=x5l; penstroke z5e--z6e; penstroke z1e--z2e; filldraw
+z5r{up}..z3r--z2--z5'--z5l{down} --z5r & cycle; filldraw z8--z9r--z9l{z8-z9r}
+..z6r{up}--z6l{down}..{z8-z7}z8 & cycle; penpos11(hair,0); z11r=(x2l,1.076h);
+z12=(0.56w,1.279h); z13=(0.73w,1.238h);
+last_char:=currentpicture;
+.endchar;
+
+
+
+.cmchar "The Fraktur letter i with Umlaut";
+.beginchar(oct"357",2.889*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); umlaut(100);
+endchar;
+
+.cmchar "The Fraktur letter i with acute";
+.beginchar(oct"355",2.889*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+endchar;
+
+.cmchar "The Fraktur letter i with grave";
+.beginchar(oct"354",2.889*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); grave(100);
+endchar;
+
+.cmchar "The Fraktur letter i with hat";
+.beginchar(oct"356",2.889*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hat(100);
+endchar;
+
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/cmfraknum.mf b/Master/texmf-dist/fonts/source/public/gothic/cmfraknum.mf
new file mode 100644
index 00000000000..cb54c36b184
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/cmfraknum.mf
@@ -0,0 +1,193 @@
+.cmchar "The Fraktur numeral 1";
+.beginchar("1",2.778u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos2(w,0); z2=(0.5w,0);
+penpos1(stem,0); z1=(0.5w,foot);
+penpos3(hair,90); penpos4(hair,90);
+z3l=z2l; z4l=z2r; penpos5(stem,0);
+z5=(x1,0.79h); penpos6(hair,0);
+z6r=(x5r,h); penpos7(1.5hair,90);
+z7=(0,0.9h);
+filldraw z4l--z4r...z1r---z6r--
+z6l..z7r{left}--z7l{right}...
+z5l---z1l...z3r--z2l--z4l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 2";
+.beginchar("2",5.694u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.625stem,-90); penpos2(stem,-90);
+penpos3(4/3stem,-115);
+z1r=(0,0); z2r=(0.722w,0.026h);
+x3l=w; y3r=-apex_o;
+penstroke z1e..z2e{right}..z3e;
+penpos4(0.917stem,20);
+z4r=(0.966w,0.721h);
+z5=(0.478w,0.848h);
+z6=(0.244w,h+apex_o);
+z7=(0.093w,0.822h);
+penpos8(hair,13); z8=(0.146w,3/4h);
+penstroke z1e{dir44}..z4e{up};
+filldraw z8r..z5{right}..z4l{down}
+--z4r{up}..z6{dir173} & z6--z7--z8l--z8r &
+cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 3";
+.beginchar("3",5.5u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.5hair,-90); penpos2(stem,18);
+penpos3(1.833stem,35);
+penpos4(hair,-90); penpos5(0.625stem,0);
+z1r=(0,-apex_o); z2=(0.788w,0.353h);
+z4r=(0.167w,0.489h); z5r=(w,h);
+z3l=z4r;
+penstroke z1e{dir12}..z2e{up}..z3e{left};
+penstroke z4e{dir30}..z5e{up};
+penpos7(0.917stem,-90);
+penpos8(0.417stem,-17);
+penpos9(hair,0);
+z8l=(0,0.796h); z9l-z8l=whatever*dir73;
+y9=h+apex_o; z7l=(0.273w,h-apex_o);
+z6=(z4l{dir30}..z5l{up}) intersectionpoint
+((0,y7r+apex_o)--(w,y7r+apex_o));
+filldraw z8l--z9l--z9r..z7l{right}...
+z5l---z5r--z6..z7r{left}..z8r{z8l-z9l}
+--z8l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 4";
+.beginchar("4",7.361u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(0.619w,foot); z2=(x1,0.831h);
+z3=(x1,h); z4=(0,0.444h);
+penpos6(0.521stem,90); z6=(0.796w,0.45h);
+y5=y6l; (x2r,h)-z5=whatever*dir50;
+z4'=(1/45w,y6r); z3'-z4'=whatever*dir50;
+x3'=x2l; penpos9(hair,90);
+penpos10(hair,-90); z9l=(x1-stem,0);
+z10r=(x1+stem,0);
+z8=(w,0.521h); z7=(0.921w,0.376h);
+filldraw z9l--z9r...z1l---z2l--
+z2r---z1r...z10l--z10r--z9l & cycle;
+z3''=whatever[z5,(x2r,h)]; x3''=x2l;
+filldraw z2l--z3''--z5--z4'---z3'...
+z3{right}..{down}z2r--z2l & cycle;
+filldraw z6l---z5...z4{up}..z4'{z3'-z4'}
+& z4'---z6r...z8{right}--z7..
+z6l{left} & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 5";
+.beginchar("5",5.528u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.458stem,-60); penpos2(1.125stem,25);
+penpos3(1.125stem,65); penpos4(1.167stem,53);
+penpos5(1.5hair,-25); penpos6(0.958stem,-77);
+z1=(0.221w,-apex_o); z2=(0.729w,0.417h);
+z3=(0.462w,0.578h); z4l=(0,0.618h);
+z5=(0.161w,0.814h); z6l=(0.349w,h);
+z7=(0.673w,0.98h); z8=(w,h);
+z9=(0.851w,0.828h);
+penstroke z1e{dir30}..z2e{up}..
+z3e{dir169}..z4e{up}..z5e{dir65}..z6e{right};
+filldraw z6l{right}..z7..z8 & z8--z9 &
+z9..{left}z6r--z6l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 6";
+.beginchar("6",6.056u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.4hair,-42); penpos2(1.208stem,40);
+penpos3(1.125stem,54); penpos4(1.2hair,-36);
+penpos5(stem,30); penpos7(hair,-45);
+z1l=(0.716w,h+apex_o); z2l=(0,0.342h);
+z3l=(0.674w,-apex_o);
+penstroke z3e..z2e{up}..z1e{dir48};
+z4r=z3; z5r=(w,0.362h); z6=(0.573w,0.753h);
+z6-z7l=whatever*dir45; y7l=0.555h;
+z8=(0.477w,0.566h);
+filldraw z4r---z3r...z5r{up}..z6{dir135}
+--z7l--z7r{z6-z7l}..z8{right}..z5l{down}
+..z4l{z3l-z3r}--z4r & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 7";
+.beginchar("7",5.906u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.417stem,0); z1=(0.466w,0);
+penpos2(hair,-57); y2l=h; x2r=w;
+penstroke z1e{up}..z2e{dir64};
+penpos3(hair,-20); penpos5(stem,-90);
+z3l=(0,0.776h); z5l=(0.24w,h);
+z4-z3l=whatever*dir70; y4=h+apex_o;
+z6=(z5r--(w,y5r)) intersectionpoint
+(z1{up}..z2{dir64});
+filldraw z3r{z4-z3l}...z5r---z6--
+z2--z2l---z5l...z4 & z4--z3l--z3r &
+cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 8";
+.beginchar("8",6.722u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.042stem,61.5);
+penpos2(hair,110);
+z1=z2=(0.5w,0.51h);
+penpos3(0.917stem,24);
+z3l=(0.083w,0.721h);
+penpos5(0.917stem,-204);
+z5l=(w-x3l,y3l);
+penpos4(hair,-90); z4l=(0.5w,h+apex_o);
+penpos6(stem,180); z6r=(0,0.245h);
+penpos7(2hair,-90); z7r=(0.5w,-apex_o);
+penpos8(stem,0); z8r=(w,y6);
+penstroke z1e{dir151.5}..z3e{up}..
+z4e{right}..z5e{down}..z2e{dir200}..
+z6e{down}..z7e{right}..z8e{up}..
+z1e{dir151.5};
+.endchar;
+
+.cmchar "The Fraktur numeral 9";
+.beginchar("9",6.056u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.4hair,-42); penpos2(1.208stem,40);
+penpos3(1.125stem,54); penpos4(1.2hair,-36);
+penpos5(stem,30); penpos7(hair,-45);
+z1l=(0.716w,h+apex_o); z2l=(0,0.342h);
+z3l=(0.674w,-apex_o);
+penstroke z3e..z2e{up}..z1e{dir48};
+z4r=z3; z5r=(w,0.362h); z6=(0.573w,0.753h);
+z6-z7l=whatever*dir45; y7l=0.555h;
+z8=(0.477w,0.566h);
+filldraw z4r---z3r...z5r{up}..z6{dir135}
+--z7l--z7r{z6-z7l}..z8{right}..z5l{down}
+..z4l{z3l-z3r}--z4r & cycle;
+transform gurisma;
+gurisma=identity
+rotatedaround ((0.5w,0.5h),180);
+picture krufo;
+krufo:= currentpicture transformed
+gurisma;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The Fraktur numeral 0";
+.beginchar("0",7.332u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.059stem,-143);
+penpos2(stem,-140);
+penpos3(1.05stem,-136);
+penpos4(1.1stem,-142);
+penpos5(hair,128);
+penpos6(hair,127);
+z1l=(0.535w,h+apex_o); z4r=(w-x1l,-apex_o);
+z2l=(w,0.528h); x3r=0; y3=y2l+apex_o;
+z5l=z4; z6r=z1;
+penstroke z1e{dir-25}..z2e{down}..
+z5e{z4r-z4l};
+penstroke z6e{z1r-z1l}..z3e{down}..
+z4e{dir-31};
+.endchar;
diff --git a/Master/texmf-dist/fonts/source/public/gothic/cmfrakoth.mf b/Master/texmf-dist/fonts/source/public/gothic/cmfrakoth.mf
new file mode 100644
index 00000000000..b799ccd04d2
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/cmfrakoth.mf
@@ -0,0 +1,551 @@
+.cmchar "The Fraktur comma";
+.beginchar(",",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+%penstroke z1e--z2e;
+penpos10(0.11785*(x_height+2apex_o),-30);
+z10l=(x2l-apex_o,-1.3y2r);
+filldraw z10l--z2l+(2hair,0){up}..{down}
+z1r--z10r--z10l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "Apostrophe";
+.beginchar("'",3.5u#,asc_height#,0);
+currentpicture:=last_char
+ shifted (0,1.2x_height);
+.endchar;
+
+.cmchar "Opening Gaensefuesschen";
+.beginchar(open_gaens,9u#,x_height#,0);
+currentpicture:=last_char;
+addto currentpicture also last_char shifted (4u,0);
+.endchar;
+
+.cmchar "Closing Gaensefuesschen";
+.beginchar(oct"042",9u#,asc_height#,0);
+currentpicture:=(last_char rotatedaround((3u,0),180))
+ shifted (0,1.2x_height);
+addto currentpicture also (last_char rotatedaround((3u,0),180))
+ shifted (4u,1.2x_height);
+.endchar;
+
+.cmchar "Reverse apostrophe";
+.beginchar("`",5u#,asc_height#,0);
+currentpicture:=(last_char rotatedaround((3u,0),180))
+ shifted (0,1.2x_height);
+.endchar;
+
+.cmchar "The Fraktur colon";
+.beginchar(":",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+penstroke z5e--z6e;
+.endchar;
+
+.cmchar "The Fraktur semicolon";
+.beginchar(";",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+penstroke z5e--z6e;
+penpos10(hair,-30); z10l=(x2l,-y2r);
+filldraw z10l{z1r-z10r}..z2l{z2-z1}
+& z2l--z1r--z10r--z10l & cycle;
+.endchar;
+
+.cmchar "The Fraktur point";
+.beginchar(".",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+pointpoint;
+.endchar;
+
+
+.cmchar "Hachek (check) accent";
+if (dc_layout>0): xchar_code:=oct"007";
+ else: xchar_code:=oct"024";
+ fi;
+.beginchar(xchar_code,9u#,.75[x_height#,min(asc_height#,2x_height#)],0);
+z100=(0.5w,x_height); hacek(100);
+.endchar;
+
+.cmchar "Breve accent";
+if (dc_layout>0): xchar_code:=oct"010";
+ else: xchar_code:=oct"025";
+ fi;
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w,x_height); breve(100);
+.endchar;
+
+.cmchar "Macron (bar) accent";
+if (dc_layout>0): xchar_code:=oct"011";
+ else: xchar_code:=oct"026";
+ fi;
+numeric macron_breadth#; macron_breadth#=.2[vair#,stem#];
+.beginchar(xchar_code,6u#,.4[x_height#,asc_height#]+macron_breadth#,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric macron_breadth; macron_breadth:=Vround .2[vair,stem];
+pickup if serifs: crisp.nib else: fine.nib fi;
+pos1(2/3stem,70); pos2(2/3stem,70);
+top y1r=top y2r=h+o; lft x1r=w-rt x2l=hround 1.25u;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Cedilla accent";
+if (dc_layout>0): xchar_code:=oct"013";
+ else: xchar_code:=oct"030";
+ fi;
+.beginchar(xchar_code,9u#,0,.875desc_depth#);
+z100=(0.5w,0); cedilla(100);
+.endchar;
+
+.cmchar "Ogonek accent";
+if (dc_layout>0): xchar_code:=oct"014";
+beginchar(xchar_code,9u#,0,.875desc_depth#);
+z100=(0.5w,0); ogonek(100);
+endchar;
+fi;
+
+.cmchar "L-bar accent";
+if unknown l_width#:
+ l_width#:=3lower_u#; fi % nominal width of `l'
+ligtable oct"040": "l" kern -l_width#,
+ "L" kern -l_width#;
+.beginchar(oct"040",l_width#,x_height#,0);
+z100=(0,0.5cap_height); ellbar(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"012";
+ else: xchar_code:=oct"137";
+ fi;
+iff ligs>0: .cmchar "Dot accent";
+.beginchar(xchar_code,5u#,2x_height#,0);
+z100=(0.5w,x_height);
+pointaccent(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"005";
+ else: xchar_code:=oct"175";
+ fi;
+iff ligs>0: .cmchar "Long Hungarian umlaut accent";
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w,x_height); hungarum(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"004";
+ else: xchar_code:=oct"177";
+ fi;
+iff ligs>0: .cmchar "umlaut accent";
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w, x_height);
+umlaut(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"000";
+ else: xchar_code:=oct"022";
+ fi;
+iff ligs>0: .cmchar "grave accent";
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w, x_height);
+grave(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"001";
+ else: xchar_code:=oct"023";
+ fi;
+iff ligs>0: .cmchar "acute accent";
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w, x_height);
+acute(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"002";
+ else: xchar_code:=oct"136";
+ fi;
+iff ligs>0: .cmchar "hat accent";
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w, x_height);
+hat(100);
+.endchar;
+
+.cmchar "Tilde (squiggle) accent";
+if (dc_layout>0): xchar_code:=oct"003";
+ else: xchar_code:=oct"176";
+ fi;
+.beginchar(xchar_code,9u#,min(asc_height#,10/7x_height#+.5dot_size#),0);
+z100=(0.5w,x_height); tilde(100);
+.endchar;
+
+
+
+.cmchar "En dash";
+.beginchar(en_dash,9u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(0,0);
+pickup rule.nib;
+ pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Em dash";
+.beginchar(em_dash,18u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(letter_fit#,letter_fit#);
+pickup rule.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Hash mark (number sign)";
+if monospace: compute_spread(.6x_height#,.7x_height#);
+else: compute_spread(.45x_height#,.55x_height#); fi
+.beginchar("#",15u#,asc_height#,asc_depth#);
+italcorr (math_axis#+.5(spread#+rule_thickness#))*slant-.5u#;
+.adjust_fit(0,0);
+pickup rule.nib; lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+lft x6=hround 3u; rt x7=hround(w-3u); x5-x6=x7-x8;
+x8=good.x if monospace: .6 else: .5 fi\\w;
+top y5=top y7=h+eps; bot y6=bot y8=-d-eps;
+y15=y1; z15=whatever[z5,z6]; y36=y3; z36=whatever[z5,z6];
+y27=y2; z27=whatever[z7,z8]; y48=y4; z48=whatever[z7,z8];
+draw z5--if x5>x6+1:(good.x(x15+.5),y1)--(good.x(x15-.5),y1)
+ --(good.x(x36+.5),y3)--(good.x(x36-.5),y3)--fi\\z6; % left diagonal
+draw z7--if x7>x8+1:(good.x(x27+.5),y2)--(good.x(x27-.5),y2)
+ --(good.x(x48+.5),y4)--(good.x(x48-.5),y4)--fi\\z8; % right diagonal
+labels(1,2,3,4,5,6,7,8,15,27,36,48); .endchar;
+
+.cmchar "Per cent sign";
+.beginchar("%",15u#,
+ body_height#,body_height#-asc_height#);
+italcorr if hefty: .4asc_height#*slant-.5u# else: h#*slant-u# fi;
+.adjust_fit(0,0); pickup fine.nib;
+numeric left_curve,right_curve;
+left_curve=hround 5/6[fudged.hair,fudged.stem];
+right_curve=max(fine.breadth,hround(fudged.hair if hefty:-2stem_corr fi));
+pos1(vair,90); pos2(left_curve,180); pos3(vair,270); pos4(right_curve,360);
+top y1r=h; lft x2r=hround u; rt x4r=hround(.5w-1.5u);
+bot y3r=floor(if monospace: .7 else: .5 fi\\ asc_height);
+x1=x3=.5[x2,x4]; y2=y4=.5[y1,y3];
+filldraw stroke pulled_super_arc.e(1,2)(superpull)
+ & pulled_super_arc.e(2,3)(superpull); % left half of upper bowl
+filldraw stroke super_arc.e(3,4) & super_arc.e(4,1); % right half of upper bowl
+pos5(vair,90); pos6(left_curve,180); pos7(vair,270); pos8(right_curve,360);
+bot y7r=-d; rt x8r=hround(w-u); lft x6r=hround(.5w+1.5u);
+top y5r=vround(if monospace: .3 else: .5 fi\\ asc_height);
+x5=x7=.5[x6,x8]; y6=y8=.5[y5,y7];
+filldraw stroke pulled_super_arc.e(5,6)(superpull)
+ & pulled_super_arc.e(6,7)(superpull); % left half of lower bowl
+filldraw stroke super_arc.e(7,8) & super_arc.e(8,5); % right half of lower bowl
+pickup rule.nib; top y9=h; bot y10=-d;
+if hefty: x9=good.x(x5-eps); x10=good.x(x1+eps);
+ draw z9--z10; % diagonal
+else: rt x9=hround(w-2.5u); lft x10=hround 2.5u; draw z9--z10; % diagonal
+ pickup fine.nib; pos9(rule_thickness,angle(z9-z10)+90);
+ pos11(vair,angle(z1r-z4r)-90); pos12(vair,angle(z9-z10)+90);
+ path p; p=super_arc.r(1,4); z11r=point 2/3 of p; z12r=z9r;
+ filldraw stroke z11e{direction 2/3 of p}...{z9-z10}z12e; fi % link
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12); .endchar;
+
+.cmchar "Left parenthesis";
+.beginchar("(",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+rt x1r=rt x3r=hround(w-u); lft x2l=hround(x1-4u if monospace: +4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Right parenthesis";
+.beginchar(")",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr math_axis#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+lft x1l=lft x3l=hround u; rt x2r=hround(x1+4u if monospace: -4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Asterisk";
+.beginchar("*",9u#,
+ if low_asterisk:math_axis#+.5x_height# else: body_height# fi,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric ast_flare; ast_flare=hround .7[thin_join,stem];
+x0=.5w; y0=h-.5x_height;
+for d=-150 step 60 until 150: z[d]=z0+.5dir d xscaled 7.5u yscaled x_height;
+ numeric theta; theta=angle(z[d]-z0);
+ fill z0+.5(0,-thin_join)rotated theta
+ ---z[d]+.5(-ast_flare,-ast_flare)rotated theta
+ ..z[d]..z[d]+.5(-ast_flare,ast_flare)rotated theta
+ ---z0+.5(0,thin_join)rotated theta--cycle; endfor % diagonal at angle |d|
+labels(0,[-150],[-90],[-30],30,90,150); .endchar;
+
+.cmchar "Plus sign";
+beginarithchar("+"); pickup rule.nib;
+x1=x2=good.x .5w; top y1=h+eps; .5[y1,y2]=math_axis;
+lft x3=hround u-eps; x4=w-x3; y3=y4=math_axis;
+draw z1--z2; % stem
+draw z3--z4; % crossbar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Virgule (slash)";
+.beginchar("/",9u#,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+rt x1=hround(w-u)+eps; top y1=h+eps;
+lft x2=hround u-eps; bot y2=-d-eps;
+draw z1--z2; % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Backslash";
+.beginchar("\",9u#,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+rt x1=hround(w-u)+eps; top y1=h+eps;
+lft x2=hround u-eps; bot y2=-d-eps;
+draw (z1--z2) reflectedabout ((4.5u,0),(4.5u,u)); % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Equals sign";
+compute_spread(.45x_height#,.55x_height#);
+.beginchar("=",14u#,v_center(spread#+rule_thickness#));
+italcorr h#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Left bracket";
+numeric wd#; wd#=max(5u#,6u#);
+.beginchar("[",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; lft x1l=lft x2l=hround(2.5u-.5side_thickness)-1-eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1l; rt x4=rt x6=ceiling(w-.4u)+eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+.cmchar "Right bracket";
+numeric wd#; wd#=max(5u#,6u#);
+.beginchar("]",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant-2u#+.5if hefty:stem# else:rule_thickness# fi;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; rt x1r=rt x2r=hround(w-2.5u+.5side_thickness)+1+eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1r; lft x4=lft x6=floor .4u-eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+
+cmchar "Exclamation point";
+beginchar("!",5u#,asc_height#,0);
+italcorr asc_height#*slant-2u#-.5width_adj#+.5dot_size#;
+adjust_fit(0,0);
+pointpoint;
+pickup tiny.nib; pos103(dot_size,0); pos104(dot_size,90);
+lft x103l=hround(.5w-.5dot_size); bot y104l=0; z103=z104; % dot
+numeric bot_width;
+bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
+pickup fine.nib; pos101(dot_size,0); pos102(bot_width,0);
+x101=x102=x103; bot y102=.25[top y104r,x_height]+1;
+if square_dots: top y101=h;
+ filldraw stroke z101e--z102e; % stem
+else: top z100=(x101,h+o); y101+.5dot_size=h+o;
+ filldraw z101r...z100...z101l---z102l--z102r---cycle; fi % stem and bulb
+penlabels(0,1,2,3,4); endchar;
+
+cmchar "Question mark";
+beginchar("?",8.5u#,asc_height#,0);
+italcorr .8asc_height#*slant;
+adjust_fit(0,0);
+pointpoint;
+pickup tiny.nib; pos107(dot_size,0); pos108(dot_size,90);
+lft x107l=hround(.5w-.25u-.5dot_size); bot y108l=0; z107=z108; % dot
+numeric bot_width;
+bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
+pickup fine.nib; pos102(vair,90); pos103(curve,0);
+pos104(vair,-90); pos105(bot_width,0); pos106(bot_width,0);
+x102=x104=x105=x106=x107; rt x103r=hround(w-u); bot y106=1+.25[top y108r,x_height];
+top y102r=h+oo; y103=.75[y106,y102]; y104=.5[y106,y102]; y105=.1[y106,y102];
+{{interim superness:=more_super;
+filldraw stroke pulled_super_arc.e(102,103)(superpull)
+ & subpath (0,1) of super_arc.e(103,104) .. z105e---z106e\\}}; % arc and stem
+if serifs: pos101(hair,180); pos100(flare,180);
+ lft x101r=hround u; y101=y103; bulb(102,101,100); % bulb
+else: pos101(Vround 5/7[vair,flare],110);
+ lft x101r=hround u; top y101r=vround .9[y106,top y102r];
+ filldraw stroke term.e(102,101,left,101,104); fi % terminal
+penlabels(0,1,2,3,4,5,6,7,8); endchar;
+
+
+cmchar "Ampersand";
+beginchar("&",14u#,asc_height#,0);
+italcorr x_height#*slant-serif_fit# - if serifs: .4u# else: 1.5u# fi;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos2(slab,-90); x2=4u; bot y2r=-o;
+if not hefty:(x,y2l)=whatever[z2r,(w-5u,x_height)]; x2l:=x; fi
+if serifs: pos0(fudged.hair,0);
+ rt x0r+jut=hround(w-.9u); top y0=x_height;
+ pos1(fudged.hair,0); z1=whatever[z0,(.6[x0,x2],0)];
+ y1=max(y0-1.5bracket-.2x_height,2/3x_height);
+ filldraw stroke z0e---z1e...{left}z2e; % short diagonal
+else: pickup fine.nib; pos1(.25[slab,flare],-15); rt x1r=hround(w-2u);
+ y1r=good.y .75[bar_height,x_height]; x1l:=good.x x1l; y1l:=good.y y1l;
+ top z2'l=(x2l,tiny.top y2l); bot z2'r=(x2r,tiny.bot y2r);
+ filldraw stroke term.e(2',1,right,1,4); fi % short diagonal and terminal
+pickup tiny.nib; numeric slope,theta,reduced_hair;
+slope=(h-2vair-slab)/10.5u; theta=angle(-slope,1);
+reduced_hair=max(tiny.breadth,hround(fudged.hair if hefty:-2stem_corr fi));
+lft x3r=hround .75u; x5=.5[x3r,x6l]; lft x6r=hround .5(w-u);
+x3l-x3r=curve-tiny; pos6(reduced_hair,180);
+pos5(vair,theta); y5=.5h;
+ellipse_set(2l,3l,4l,5l); ellipse_set(2r,3r,4r,5r);
+pos7(vair,270); top y7l=h+o; x7=.45[x6r,x8r];
+pos8(fudged.stem,30); x8l=good.x(x8l+3.5u-x8); y8r=y6;
+ellipse_set(7l,6l,5',5l);
+filldraw stroke z2e{left}...z3e{up}...z4e---z5e...{up}z6e
+ ...z7e{left}...z8e{down}; % bowls
+pos10(slab,90); x10=w-3.5u; bot y10l=-o;
+pos9(fudged.stem,angle(z8-z10)-90);
+z9=.5[z8,z10]+(1.75u,0) rotated(angle(z8-z10)+90);
+filldraw stroke z8e{down}...z9e{z10-z8}...{right}z10e; % long diagonal
+if serifs: pickup crisp.nib; pos10'(slab,90); z10'=z10;
+ pos11(fudged.hair,180); rt x11l=hround(w-u); y11=.5bar_height;
+ filldraw stroke z10'e{right}...{up}z11e; % terminal
+ numeric inner_jut; if rt x6l+.5u<lft x0l-1.5jut: inner_jut=1.5jut;
+ else: rt x6l+.5u=lft x0l-inner_jut; fi
+ dish_serif(0,1,a,.6,inner_jut,b,.5,jut)(dark); % serif
+else: pickup fine.nib; pos10'(slab,90); z10'=z10;
+ pos11(Vround .5[slab,flare],90);
+ rt x11=hround(r-letter_fit-u); bot y11l=vround .07bar_height-o;
+ filldraw stroke term.e(10',11,right,1,4); fi % terminal
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;
+
+
+cmchar "Left curly brace";
+beginchar(oct"173",9u#,body_height#,paren_depth#);
+italcorr body_height#*slant+.5vair#-u#;
+adjust_fit(0,0); pickup fine.nib;
+forsuffixes $=1,1',4,4',7,7': pos$(vair,0); endfor
+forsuffixes $=2,3,5,6: pos$(stem,0); endfor
+x2=x3=x5=x6; x1=x1'=x7=x7'=w-x4=w-x4';
+lft x4l=hround(1.5u-.5vair); lft x2l=hround(.5w-.5stem);
+top y1=h; bot y7=-d; .5[y4,y4']=.5[y1,y7]=.5[y2,y6]=.5[y3,y5];
+y1-y2=y3-y4=(y1-y4)/4; y1-y1'=y4-y4'=y7'-y7=vair-fine;
+filldraw z1l{left}...z2l---z3l...{left}z4l
+ --z4'l{right}...z5l---z6l...{right}z7l
+ --z7r--z7'r{left}...z6r---z5r...{left}.5[z4r,z4'r]{right}
+ ...z3r---z2r...{right}z1'r--z1r--cycle; % stroke
+penlabels(1,2,3,4,5,6,7); endchar;
+
+
+cmchar "Right curly brace";
+beginchar(oct"175",9u#,body_height#,paren_depth#);
+italcorr math_axis#*slant+.5vair#-u#;
+adjust_fit(0,0); pickup fine.nib;
+forsuffixes $=1,1',4,4',7,7': pos$(vair,0); endfor
+forsuffixes $=2,3,5,6: pos$(stem,0); endfor
+x2=x3=x5=x6; x1=x1'=x7=x7'=w-x4=w-x4';
+rt x4r=hround(w-1.5u+.5vair); rt x2r=hround(.5w+.5stem);
+top y1=h; bot y7=-d; .5[y4,y4']=.5[y1,y7]=.5[y2,y6]=.5[y3,y5];
+y1-y2=y3-y4=(y1-y4)/4; y1-y1'=y4-y4'=y7'-y7=vair-fine;
+filldraw z1r{right}...z2r---z3r...{right}z4r
+ --z4'r{left}...z5r---z6r...{left}z7r
+ --z7l--z7'l{right}...z6l---z5l...{right}.5[z4l,z4'l]{left}
+ ...z3l---z2l...{left}z1'l--z1l--cycle; % stroke
+penlabels(1,2,3,4,5,6,7); endchar;
+
+
+cmchar "Vertical line";
+beginchar(oct"174",5u#,body_height#,paren_depth#);
+italcorr body_height#*slant+.5rule_thickness#-2u#;
+adjust_fit(0,0); pickup rule.nib;
+x1=x2=good.x .5w; top y1=h+eps; bot y2=-d-eps;
+draw z1--z2; % stem
+labels(1,2); endchar;
+
+
+
+cmchar "Sterling sign";
+beginchar(oct"277",12u#,asc_height#,0);
+adjust_fit(0,.75asc_height#*slant-.5u#); pickup fine.nib;
+pos0(flare,0); pos1(hair,0); pos2(vair,90); pos3(stem,180);
+pos4(stem,180); pos4'(stem,0); pos5(vair,-90); z4'=z4;
+x2=2/3w-.5u; rt x3l=rt x4l=hround(.5w-u+.5stem); x5=2.5u;
+y1=y3=.75h; top y2=h+oo; y4=.25h; bot y5r=-oo;
+rt x1r=hround(w-1.5u); bulb(2,1,0); % bulb
+filldraw stroke pulled_arc.e(2,3)..z4e; % stem
+numeric light_stem; light_stem=2/3[vair,vstem];
+pos6(.5[hair,light_stem],-180); pos7(light_stem,-300);
+pos8(light_stem,-300); pos9(hair,-180);
+lft x6r=hround u; x7=3u; x8=w-3.5u; rt x9r=hround(w-u);
+y6=.4[y5,y7]; top y7r=vround .2h; bot y8l=-oo; y9=good.y .2h;
+filldraw stroke pulled_arc.e(4',5)...z6e{up}...z7e{right}
+ ..{right}z8e...{up}z9e; % loop and arm
+pos10(bar,90); pos11(bar,90); x10=3u; x11=w-4.5u;
+top y10r=top y11r=vround(.5h+.5bar); filldraw stroke z10e--z11e; % bar
+penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar;
+
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/cmfrakupp.mf b/Master/texmf-dist/fonts/source/public/gothic/cmfrakupp.mf
new file mode 100644
index 00000000000..7f4a5bf8e5f
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/cmfrakupp.mf
@@ -0,0 +1,1749 @@
+
+.cmchar "The Fraktur letter A";
+.beginchar("A",9.522u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+% made in Athens, Greece on Friday July 27, 1990
+penpos1(cap_hair,-51);
+penpos2(cap_hair,-51);
+z2-z1=whatever*dir39;
+x2r=w; z1r=(0.722w,-apex_o);
+penpos4'(cap_hair,39); z4'l=z1l;
+z4'r=z4;
+penpos5(cap_stem,0);
+z5=(x1r,0.223h);
+penpos13(cap_hair,-62); z13r=z5r;
+z13l-z14=whatever*dir26;
+z13r-z14'=whatever*dir26;
+y14=0; y14'=-apex_o;
+z6=whatever[z14',z13r]; x6=x5l;
+filldraw z14--z13l--z13r{down}..
+z2l{z2-z1}--z2r--z1r--z1l--z4--
+z6--z14'--z14 & cycle;
+filldraw z5l--z6--z5r--z5l & cycle;
+z1.1=whatever[z6,z4]; y1.1=y4+cap_hair;
+filldraw z1l{z2-z1}..z1.1{z6-z4}--
+z2--z1r--z1l & cycle;
+%
+%
+%
+penpos7(cap_stem,0); z7=(x5,0.862h);
+penpos8(cap_hair,-57);
+penpos9(cap_hair,-57);
+z8l=z7l; z9-z8=whatever*dir33;
+y9=h; z10=(0.937w,h+apex_o);
+z11=(0.99w,0.981h); z12=(0.953w,0.955h);
+z9'=whatever[z8r,z9r];
+x9'=0.4[x7r,x9r];
+penstroke z5e--z7e;
+filldraw z7r{up}..z9'{z9-z8}--
+z9r..z12{right}..z11{up}..z10{left}
+...z9l---z8l--z7r & cycle;
+%
+%
+%
+penpos15(cap_hair,-90); z15=(0,0.213h);
+z15r-z16=whatever*dir137;
+x16=0.936x14; z17=whatever[z14,z13l];
+x17=0.392w;
+penpos18(cap_hair,-43);
+z18-z17=whatever*dir133;
+y18r=y15l; penpos19(0.815cap_stem,0);
+x19=0.5w; y19=0.521h;
+z14''=(x14'-cap_hair,0);
+filldraw z15l{right}..z18l..z19l{up}
+--z19r{down}..z18r{dir-162}--
+z17--z14''{dir72}...z16---z15r--
+z15l & cycle;
+%
+%
+%
+penpos20'(1.037cap_stem,29.5);
+z20'=(0.405w,0.846h);
+penpos20(0.889cap_stem,50);
+z20=(x18r,0.904h);
+penpos21(1.25cap_hair,180);
+z21r=(0,3/4h);
+penpos22(1.148cap_stem,-162);
+z22l=(x20,0.678h);
+penpos23(cap_hair,180);
+z23=(0.284w,0.535h);
+penpos24(0.685cap_stem,66.6);
+z24l=(x22,0.367h);
+z25=(0.027w,0.426h); z26=(0.079w,0.473h);
+penstroke z19e{up}..z20'e{dir135}..
+z20e{left}..z21e{down}..z22e{dir-45}
+..z23e{down}..z24e{left};
+filldraw z24l{left}..z25{up}..z26{right}
+..z24r{right}--z24l & cycle;
+ last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter A ogonek";
+.beginchar(oct"201",9.522u#,cap_height#,0.2x_height#);
+currentpicture:=last_char;
+z100=(0.9w,0); ogonek(100);
+.endchar;
+
+.cmchar "The Fraktur letter A Umlaut";
+.beginchar(oct"304",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter A breve";
+.beginchar(oct"200",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); breve(100);
+.endchar;
+
+.cmchar "The Fraktur letter A tilde";
+.beginchar(oct"303",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); tilde(100);
+.endchar;
+
+.cmchar "The Fraktur letter A o-Umlaut";
+.beginchar(oct"305",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); o_umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter A acute";
+.beginchar(oct"301",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter A grave";
+.beginchar(oct"300",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); cap_grave(100);
+.endchar;
+
+.cmchar "The Fraktur letter A hat";
+.beginchar(oct"302",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hat(100);
+.endchar;
+
+
+.cmchar "The Fraktur ligature Ae";
+.beginchar(oct"306",9.522u#+3u#,cap_height#,0)
+currentpicture:=last_char;
+addto currentpicture also small_letter_e shifted (8u,0);
+.endchar;
+
+
+.cmchar "The Fraktur ligature Ae";
+if (dc_layout>0): xchar_code:=oct"306";
+ else: xchar_code:=oct"035";
+ fi;
+.beginchar(xchar_code,9.522u#+3u#,cap_height#,0)
+currentpicture:=last_char;
+addto currentpicture also small_letter_e shifted (8u,0);
+.endchar;
+
+.cmchar "The Fraktur letter B";
+.beginchar("B",12.415u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.045w,0.096h); z2=(0.081w,0.141h);
+z3=(0,0.165h); z4=(x1,0.213h);
+penpos5(cap_stem,-142);
+z5=(0.179w,0.301h);
+penpos6(1.259cap_stem,-147);
+z6r=(0.538w,-apex_o);
+penpos7(cap_hair,-65);
+z7=(0.775w,0.103h);
+penpos8(0.907cap_stem,30);
+z8r=(w,0.4h);
+penpos9(1.741cap_stem,27);
+z9l=(x6r,0.6h);
+filldraw z1{right}..z2{up}..z4 &
+z4..z5r{right}..z6r{right} &
+z6r---z7r...z8r{up}..z9r{left}--
+z9l{right}..z8l{down}..z7l..z6l{left}
+..z5l{left}..z3{down}..z1{right} &
+cycle;
+%
+%
+%
+penpos10(1.222cap_stem,-153);
+z10r=0.883[z9l,z9r];
+penpos11(2/3cap_hair,-63);
+z11r=whatever[z9,z10]; x11=x10l+cap_hair;
+penpos13(1.056cap_stem,-125);
+z13l=(0.691w,h);
+z12=(z13l{right}..z10l{dir-63})
+intersectionpoint ((x10l-1.5hair,0)--
+(x10l-1.5hair,h));
+penpos14(cap_hair,0);
+penpos16(0.889cap_stem,17); z16r=z9l;
+z14=(x16,0.686h);
+filldraw z14l{dir78}..z13l{right}..z12..
+z11l{z10-z9}--z11r--z10r{dir117}..
+z13r{left}..{dir258}z14r--z14l & cycle;
+%
+%
+%
+penpos15'(cap_hair,-90);
+z15'l=z5l;
+penpos15(0.889cap_stem,0);
+z14-z15=whatever*dir85; y15=y5l+2cap_hair;
+penpos17(cap_stem,76);
+z17r=(0.256w,h+apex_o);
+penpos18(cap_hair,180);
+z18=(0.055w,0.745h);
+penpos19(1.185cap_stem,-145);
+z19=(0.148w,0.644h);
+penpos20(cap_hair,197);
+z20=(0.246w,0.548h);
+penpos21(cap_hair,118);
+z21=whatever[(0,0),z17]; x21=0.108w;
+penstroke z15'e{right}
+..z15e..z16e{up}..z17e{left}
+..z18e{down}..z19e{dir-45}..z20e{z20l-z19l}..
+z21e{dir202};
+.endchar;
+
+.cmchar "The Fraktur letter C";
+.beginchar("C",10.406u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.157w,0.08h); z2=(0.211w,0.138h);
+z3=(0.084w,0.141h);
+z5=(0.113w,0.209h); z4=0.4[z3,z5];
+penpos6(cap_hair,180);
+z6r=(0,0.117h); penpos7(cap_hair,-118);
+z7r=(0.189w,-apex_o);
+penpos8(cap_hair,-48);
+z8=(0.469w,0.136h);
+penpos9(1.074cap_stem,36);
+z9=(0.623w,0.367h); z10=(0.5w,0.721h);
+penpos10(0.889cap_stem,30);
+z11'=(0.736w,0.931h);
+z13=(0.803w,0.729h);
+z14=(w,0.777h); penpos11(cap_hair,
+angle(z13-z11'));
+z11l=z11'; z12-z11l=whatever*dir7;
+x12=0.912w; z16'-z12=whatever*(z13-z11);
+z16'=whatever[z13,z14];
+penpos15(cap_hair,angle(z13-z11));
+z15r=z14; z15l-z16=whatever*(z14-z13);
+z16=whatever[z12,z16'];
+penstroke z6e{down}..z7e{right}..
+z8e..z9e{up}..z10e{up}..z11e{z12-z11l};
+filldraw z11l--z12--z16--z15l--z15r
+--z13--z11l & cycle;
+filldraw z6l{up}..z4{right} &
+z4..z3{down}..z1{right}..z2{up}..
+z5{left}..z6r{down}--z6l & cycle;
+%
+%
+%
+penpos17(1.037cap_stem,90);
+z17l=(0.738w,-apex_o);
+penpos18(1.093cap_stem,38);
+z18=(0.17w,0.58h);
+penpos19(1.5cap_hair,-57);
+z19l=(0.45w,h+apex_o);
+penpos20(1.2cap_hair,-197);
+z20=(0.692w,0.824h);
+penpos21(cap_hair,-219);
+z21=(3/4[x9l,x9r],y10);
+penstroke z17e{left}..z18e{up}..
+z19e..z20e{down}..z21e;
+penpos22(cap_hair,-44);
+z22r-z17l=whatever*dir46;
+x22r=w;
+filldraw z17r{right}..z22l{z22r-z17l}
+--z22r--z17l--z17r & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter C cedilla";
+.beginchar(oct"307",10.406u#,cap_height#,0.2x_height#);
+currentpicture:=last_char;
+z100=(0.6w,0); cedilla(100);
+endchar;
+
+.cmchar "The Fraktur letter C acute";
+.beginchar(oct"202",10.406u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+endchar;
+
+
+.cmchar "The Fraktur letter C hacek";
+.beginchar(oct"203",10.406u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hacek(100);
+endchar;
+
+.cmchar "The Fraktur letter D";
+.beginchar("D",12.168u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.073w,-apex_o);
+penpos2(0.6cap_stem,0);
+z2=(x1,0.04h); penpos4(1.204cap_stem,-148);
+z4=(0.229w,0.190h);
+penpos5(1.185cap_stem,-144);
+z5r=(0.545w,-apex_o);
+penpos6(cap_hair,-65); x6=0.787w;
+z6r-z5r=whatever*dir25;
+penpos7(0.815cap_stem,38);
+z7r=(w,0.418h); penpos8(0.926cap_stem,67.5);
+z8r=(0.41w,h+apex_o);
+penpos9(0.537cap_stem,-173);
+z9r=(0,0.685h); penpos10(2/3cap_hair,-90);
+z10=(0.242w,0.53h);
+penstroke z2e{up}..z4e{right}..z5e{right};
+penstroke z6e{dir25}..z7e{up}..z8e{left}
+..z9e{down}..z10e{right};
+filldraw z2l{down}..z1..z2r{up}--z2l
+& cycle;
+filldraw z5l{right}..z6l{dir25}--
+z6r--z5r--z5l & cycle;
+%
+%
+%
+z11=(0.171w,0.389h); z12=(0.197w,0.427h);
+penpos13(cap_hair,-90);
+z13=(x4l,0.3h); penpos14(cap_stem,0);
+z14=(0.462w,0.5[y11,y12]);
+penpos15(1.074cap_stem,34);
+z15=(0.353w,0.655h); z16=(0.488w,0.78h);
+penpos16(cap_hair,-90);
+penstroke z13e{right}..z14e{up}..
+z15e{up}..z16e{right};
+filldraw z11{up}..z12{right}..z13l{right}
+--z13r{left}..z11{up} & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter D with bar (\eth)";
+.beginchar(oct"320",12.168u#,cap_height#,0);
+currentpicture:=last_char; z0=(0,0.45cap_height-0.3u);
+z1=(0.6w,0.45cap_height+0.3u); pickup pensquare scaled 0.7stem;
+draw z0--z1;
+.endchar;
+
+.cmchar "The Fraktur letter D with hacek";
+.beginchar(oct"204",12.168u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+hacek(100);
+.endchar;
+
+.cmchar "The Fraktur letter E";
+.beginchar("E",8.508u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.074cap_stem,62.5);
+z1l=(0.623w,-apex_o);
+penpos2(0.796cap_stem,16);
+z2l=(0,0.485h); penpos3(4/3cap_hair,-90);
+z3l=(0.485w,h+apex_o);
+penpos6(cap_stem,-151.5);
+penpos5(cap_stem,-151.5);
+x6l=w; y5l=h; z6-z5=whatever*dir-37;
+x5l=0.808w;
+penstroke z5e--z6e;
+penpos4(cap_hair,-151.5);
+z4r=z5r; penstroke z3e{right}..
+z4e{z6-z5};
+penpos16(cap_hair,-90);
+z16=(w,0.149h);
+filldraw z1l--z16r--z16l..z1r{left}
+--z1l & cycle;
+penstroke z1e{left}..z2e{up}..z3e{right};
+%
+%
+%
+penpos7(cap_hair,-164); z7=whatever[z2l,z2r];
+x7=0.31w;
+penpos8(0.444cap_stem,-51.5);
+z8=(0.492w,0.393h);
+penpos9(0.796cap_stem,6.5);
+z9=(x1l,y2-eps);
+penpos10(0.963cap_stem,34);
+z10=(0.441w,0.767h);
+penpos11(cap_hair,-37); z11l=z4r;
+penstroke z7e{dir-74}..z8e{right}..
+z9e{up}..z10e{up}..z11e{z5l-z5r};
+%
+%
+%
+penpos12(cap_hair,-55.5);
+z12l=(z9{up}..z10{up})
+intersectionpoint (z9l--(x9l,h));
+z13-z12l=whatever*dir31.5;
+x13=0.854w; penpos14(whatever,0);
+z15=(x13,0.53h); z14r=(w,0.639h);
+z14l-z12r=whatever*(z13-z12l);
+filldraw z12l--z13--z14r--z15--
+z14l--z12r--z12l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter E ogonek";
+.beginchar(oct"206",8.508u#,cap_height#,0.2x_height#);
+currentpicture:=last_char; z100=(0.8w,0);
+ogonek(100);
+.endchar;
+
+.cmchar "The Fraktur letter E Umlaut";
+.beginchar(oct"313",8.508u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter E acute";
+.beginchar(oct"311",8.508u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+acute(100);
+endchar;
+
+.cmchar "The Fraktur letter E grave";
+.beginchar(oct"310",8.508u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+cap_grave(100);
+endchar;
+
+.cmchar "The Fraktur letter E hat";
+.beginchar(oct"312",8.508u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+hat(100);
+endchar;
+
+.cmchar "The Fraktur letter E hacek";
+.beginchar(oct"205",8.508u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+hacek(100);
+endchar;
+
+
+.cmchar "The Fraktur letter F";
+.beginchar("F",8.213u#,cap_height#,3.010u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(2/3cap_hair,68);
+z1=(0.34w,0.535h); penpos2(cap_hair,0);
+z2l=(0.036w,0.739h);
+penpos3(4/3cap_stem,-150);
+z3l=(0.614w,h+apex_o);
+penpos4(cap_stem,-128); z4l-z3l=whatever*dir-37;
+x4l=w; penpos5(cap_hair,-38);
+x5l=w; z5r=whatever[z4r,z4l];
+penstroke z1e{dir158}..z2e{up}..
+z3e{right};
+z5'=whatever[z3l,z4l]; z5'-z5l=whatever*(z4-z5r);
+filldraw z3l--z5'--z5l--z5r--z4r
+{z3l-z4l}...z3r{left}--z3l & cycle;
+%
+%
+%
+penpos6(cap_hair,-23); penpos7(cap_hair,-90);
+penpos8(0.778cap_stem,-219);
+penpos9(0.741cap_stem,-203);
+penpos10(cap_hair,-90);
+penpos11(cap_stem,17);
+penpos12(1.111cap_stem,30);
+penpos13(eps,-63);
+z6l=(0,0.351h); z7=(x2r+cap_hair,0.44h);
+x8l=x1; y8=0.339h; z9r=(x2l,0);
+z10r=(0.462w,-d); z11l=(0.709w,0);
+z12=(0.542w,0.652h);
+z13=(0.789w,0.821h);
+penstroke z6e{dir67}..z7e{right}..z8e{down}
+..z9e{down}..z10e{right}..z11e{up}..
+z12e{up}..z13e{dir27};
+%
+%
+%
+penpos14(cap_hair,-47);
+penpos15(cap_hair,-47);
+z14=(z11{up}..z12{up}) intersectionpoint
+((0,0.476h)--(w,0.476h));
+z15-z14=whatever*dir43;
+x15l=x4r; penpos16(0.833cap_stem,-137);
+z16l=z15l; penpos17(0.833cap_stem,-137);
+x17l=w; z17-z16=whatever*dir-47;
+penstroke z14e--z15e;
+penstroke z16e--z17e;
+.endchar;
+
+.cmchar "The Fraktur letter G";
+.beginchar("G",10.638u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,0);
+penpos2(0.5cap_stem,90);
+penpos3(cap_stem,180);
+penpos4(cap_hair,-90);
+penpos5(0.926cap_stem,14);
+penpos7(cap_hair,-51);
+penpos9(cap_hair,-51);
+z1=(0.595w,0.739h); z2r=(0.385w,h+apex_o);
+z3r=(0,0.517h); z4r=(0.537w,-apex_o);
+z5r=(w,0.392h); z6=(0.686w,0.628h);
+z7=(x4,0.566h); z9-z7=whatever*dir39;
+x9=0.963w; z8=whatever[z7r,z9r];
+x8=0.817w;
+penstroke z1e{up}..z2e{left}..z3e{down}
+..z4e{right}..z5e{up};
+filldraw z7r{z9-z7}..z6{right}..
+z5l{down}--z5r{up}..z8--z9r--z9l--
+z7l--z7r & cycle;
+%
+%
+%
+penpos11(1.148cap_stem,39);
+penpos12(1.148cap_stem,39);
+z11=whatever[z7l,z9l]; x11=0.856w;
+penpos10(cap_hair,-51);
+z10=whatever[z9l,z9r]; y10l=h+apex_o;
+z12-z11=whatever*dir129;
+z10l-z12=whatever*dir39;
+penpos13(cap_hair,-51); z13l=z12l;
+penstroke z11e--z12e;
+penstroke z13e--z10e;
+%
+%
+%
+penpos14(cap_hair,180); penpos15(0.5cap_stem,-45);
+penpos16(0.796cap_stem,21.5);
+penpos17(0.926cap_stem,43);
+penpos18(cap_hair,-37);
+penpos19(cap_hair,-37);
+z14=(0.3w,0.58h); z15=(0.441w,0.385h);
+z16=(0.5[x7,x1],0.507h);
+z17=(0.385w,0.776h); z18=(0.442w,0.873h);
+z19-z18=whatever*dir53; y19=1.032h;
+penstroke z14e{down}..z15e{right}..
+z16e{up}..z17e{up}...z18e---z19e;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter G with breve";
+.beginchar(oct"207",10.638u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height); breve(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter H";
+.beginchar("H",10.275u#,cap_height#,1.996u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,111);
+penpos2(cap_hair,90);
+penpos3(cap_hair,0);
+penpos8(cap_hair,-45);
+penpos7(cap_hair,-45);
+penpos9(0.889cap_stem,0);
+penpos10(1.222cap_stem,48.5);
+penpos11(cap_hair,132);
+z1=(0.57w,-0.679d);
+z2l=(0.452w,-d); z3=(0.354w,-0.23d);
+z4=(0.503w,0.082h); z5=(0.621w,0.217h);
+z6=(0.71w,0.12h); z8l=(0.592w,-apex_o);
+z7r-z8r=whatever*dir45;
+x7r=0.809w; z9r=(w,0.429h);
+z10=(0.624w,3/4h); %z11=whatever[z1l,z1r];
+z11=(0.28w,0.543h);
+penstroke z1e..z2e{left}..z3e{up};
+filldraw z3r{up}..z4{right}..
+z8l{z8r-z7r}--z8r---z7r...z9r{up}--
+z9l{down}..z7l{z8r-z7r}..z6{left}..
+z5{dir123} & z5{dir211}..z3l{down}--
+z3r & cycle;
+penstroke z9e{up}..z10e{left}..
+z11e{dir222};
+%
+%
+%
+penpos12(1.259cap_stem,-131);
+penpos13(1.2cap_hair,-41);
+penpos14(1.074cap_stem,25);
+penpos15(cap_hair,-41);
+penpos18(cap_hair,-36);
+z12r=(0,0.141h); y13=0.2h; x13l=x11;
+z14=z11; z15=(x11,0.845h);
+z16=(0.478w,h); z17=(0.516w,0.837h);
+z18r-z17=whatever*dir54;
+y18r=h+apex_o;
+penstroke z12e{dir-41}..z13e{dir49}
+..z14e..z15e{dir49};
+filldraw z15r{dir49}..z17--z18r--
+z18l{z17-z18r}..z16{left}..z15l
+{dir229}--z15r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter I";
+.beginchar("I",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28);
+penpos2(cap_hair,-17.5);
+penpos3(0.889cap_stem,-116);
+penpos4(cap_stem,-126);
+penpos5(cap_hair,-44);
+penpos6(1.056cap_stem,53);
+penpos7(1.056cap_stem,21);
+penpos8(cap_hair,-90);
+penpos9(cap_hair,180);
+z1=(0.115w,-0.886d); z2r=(x1,-0.519d);
+z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h);
+z7=(0.636w,0.56h); z8=(0.808w,0.683h);
+z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right}
+..z4e{right}..z5e..z6e{up}..z7e{up}
+..z8e{right}..z9e{down};
+%
+%
+%
+penpos10(1.037cap_stem,50);
+penpos11(cap_hair,-45);
+penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146);
+penpos14(0.741cap_stem,-119);
+penpos15(cap_hair,0);
+penpos16(cap_hair,28);
+z10l=z11r=(0.1w,0.515h);
+z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h);
+z15r=(w,0.875h); z16=(x15l,0.924h);
+filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118};
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter Ij";
+.beginchar(oct"234",8.541u#+2.944lower_u#,cap_height#,2.497u#);
+currentpicture:=last_char;
+addto currentpicture also small_letter_j shifted (8.541u,-0.1x_height);
+endchar;
+
+
+.cmchar "The Fraktur letter I Umlaut";
+.beginchar(oct"317",8.541u#,cap_height#+0.3x_height#,2.497u#);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+umlaut(100);
+endchar;
+
+.cmchar "The Fraktur letter I dot";
+.beginchar(oct"235",8.541u#,cap_height#+0.3x_height#,2.497u#);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+pointaccent(100);
+endchar;
+
+.cmchar "The Fraktur letter I grave";
+.beginchar(oct"314",8.541u#,cap_height#+0.3x_height#,2.497u#);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+cap_grave(100);
+endchar;
+
+.cmchar "The Fraktur letter I hat";
+.beginchar(oct"316",8.541u#,cap_height#+0.3x_height#,2.497u#);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+hat(100);
+endchar;
+
+.cmchar "The Fraktur letter I acute";
+.beginchar(oct"315",8.541u#,cap_height#+0.3x_height#,2.497u#);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+acute(100);
+endchar;
+
+.cmchar "The Fraktur letter J";
+.beginchar("J",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28);
+penpos2(cap_hair,-17.5);
+penpos3(0.889cap_stem,-116);
+penpos4(cap_stem,-126);
+penpos5(cap_hair,-44);
+penpos6(1.056cap_stem,53);
+penpos7(1.056cap_stem,21);
+penpos8(cap_hair,-90);
+penpos9(cap_hair,180);
+z1=(0.115w,-0.886d); z2r=(x1,-0.519d);
+z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h);
+z7=(0.636w,0.56h); z8=(0.808w,0.683h);
+z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right}
+..z4e{right}..z5e..z6e{up}..z7e{up}
+..z8e{right}..z9e{down};
+%
+%
+%
+penpos10(1.037cap_stem,50);
+penpos11(cap_hair,-45);
+penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146);
+penpos14(0.741cap_stem,-119);
+penpos15(cap_hair,0);
+penpos16(cap_hair,28);
+z10l=z11r=(0.1w,0.515h);
+z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h);
+z15r=(w,0.875h); z16=(x15l,0.924h);
+filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118};
+.endchar;
+
+.cmchar "The Fraktur letter K";
+.beginchar("K",9.478u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+cap_stem:=0.95cap_stem;
+%cap_hair:=0.95cap_hair;
+z1=(0,0.182h); z2=(0.177w,0.207h);
+z3=(0.033w,-apex_o);
+penpos4(cap_hair,-90);
+z4=(0.282w,0.045h); penpos5(cap_hair,0);
+z5=(0.4w,0.136h); z7=(0.434w,0.227h);
+z7'=(0.328w,0.556h);
+z8=(0.197w,0.732h); z6=(0.052w,0.566h);
+penpos9(1.25cap_hair,-90);
+z9l=(0.561w,h+apex_o);
+penpos9'(cap_hair,180);
+z9'l=(w-apex_o,0.707h);
+penpos10(cap_hair,140); z10=(0.813w,0.492h);
+filldraw z1--z3{dir30}..z4r{right}
+..z5r..z7{up}..z7'..z8{up}..z9r{right}
+--z9l{left}..z6{down} & z6{dir-52}
+..z5l..z4l{left}..z2{up}--z1 & cycle;
+penstroke z9e{right}..z9'e{down}..
+z10e;
+%
+%
+%
+penpos12(cap_hair,-78);
+penpos11(cap_hair,-78);
+z12l-z7'=whatever*dir12;
+z7'-z11l=whatever*dir12;
+x12=x10; x11=0.243w;
+penstroke z11e--z12e;
+penpos13(cap_hair,12); z13r=z7';
+penpos14(0.463cap_stem,-116);
+z14=(0.492w,0.8h);
+penpos16(1.074cap_stem,-168);
+z16=whatever[z11l,z12l]; x16l=x12-cap_hair;
+z12-z15=whatever*dir-78;
+penpos15(cap_hair,-78);
+y15=0.823h; z17-z15r=whatever*(z12-z11);
+z16l-z17=whatever*(z12-z15);
+filldraw z13r{dir102}..z14r{right}
+..z16r{dir-78}--z16l--z17--z15r--
+z15l{z13-z12}..z14l{left}..z13l{dir-78}
+--z13r & cycle;
+%
+%
+%
+penpos18(1.053cap_stem,-168);
+z18=0.5[z12r,z11r];
+penpos18'(1.053cap_stem,-168);
+z19=(0.767w,-apex_o); penpos21(cap_hair,-90);
+z21r-z19=whatever*dir45; x21=w;
+z20=(0.869w,0.149h);
+z18'-z18=whatever*dir-70; x18'l=x15;
+filldraw z18r---z18'r...z19--z21r--
+z21l{z19-z21r}..z20{left}...z18'l
+---z18l--z18r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter L";
+.beginchar("L",6.131u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+cap_stem:=1.022cap_stem;
+penpos1(cap_hair,0); penpos2(cap_hair,-60);
+penpos3(1.056cap_stem,30);
+penpos4(cap_stem,23); penpos5(0.481cap_stem,-67);
+penpos6(cap_hair,-149);
+penpos7(whatever,-140);
+penpos8(cap_hair,-147);
+penpos9(cap_hair,-90); penpos10(cap_hair,0);
+z1l=(0,0.082h); z2=(0.15w,0.207h);
+z3=(0.453w,0.37h); z4l=(0,0.731h);
+z5l=(0.539w,h+apex_o);
+z6=(0.829w,0.886h); z7l=(0.933w,0.739h);
+x7r=x3r;
+z8=(0.658w,0.53h); z9=(x6,0.476h);
+z10=(x7l,0.543h);
+penstroke z1e{up}..z2e..z3e{up}..
+z4e{up}..z5e{right}..z6e..z7e{down}
+..z8e..z9e{right}..z10e{up};
+%
+%
+%
+z11=(0.109w,0.111h); z13=(0.539w,-apex_o);
+z12=(0.731w,y11); penpos14(cap_hair,-21);
+z14r=(w,0.223h);
+z15'-z11=whatever*(z12-z13); x15'=w;
+z15=(z1{up}..z2..z3{up}) intersectionpoint
+((0.238w,0)--(0.238w,h));
+filldraw z1r{up}..z11{right}..z13{dir-25}
+& z13{dir25}..z14r{dir69}--z14l{dir249}
+..z12{left}..z15{left}& z15..z2..
+z1{down}--z1r & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter L with bar";
+.beginchar(oct"212",6.131u#,cap_height#,0);
+currentpicture:=last_char; z100=(0,0.40cap_height); ellbar(100);
+.endchar;
+
+.cmchar "The Fraktur letter L with acute";
+.beginchar(oct"210",6.131u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter M";
+.beginchar("M",13.432u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,-40); penpos2(cap_hair,-40);
+z1=(0.067w,0.035h); z2-z1=whatever*dir50;
+x2=0.176w; z3=(1/5w,-apex_o);
+penpos4(cap_hair,-41.5);
+z4r-z3=whatever*dir48.5;
+z4=whatever[z2l,z2r];
+penpos5(1.3cap_stem,48);
+% ant'i 1.111 pou j'aprepe n'anai
+z5=(0.4w,0.394h); penpos6(0.778cap_stem,44);
+z6=(0.148w,0.915h); penpos7(cap_hair,180);
+z7r=(0,0.782h); penpos8(1.111cap_stem,-147);
+z8l=(x6,0.649h); penpos9(2.2cap_hair,-171.5);
+penpos10(cap_hair,90); z9r=(x2l,0.46h);
+z10=(0.122w,0.378h); penpos11(cap_hair,58);
+z11=(0.047w,0.418h);
+z1'=whatever[z1r,z2r]; x1'=x1r+0.014117w;
+filldraw z1l--z2l--z4r--z3--z1'--z1r
+--z1l & cycle;
+penstroke z4e{z4r-z3}..z5e{up}..
+z6e{left}..z7e{down}..z8e..z9e{down}
+..z10e{left}..z11e;
+%
+%
+%
+penpos12(cap_hair,-40); penpos13(cap_hair,-40);
+z12=(0.329w,0.024h); z13-z12=whatever*dir50;
+x13=x5r; z13'=(0.466w,-apex_o);
+penpos14(cap_hair,-40); z14r-z13'=whatever*dir48;
+z14=whatever[z13l,z13r];
+penpos15(1.5cap_stem,-50);
+penpos16(0.741cap_stem,48);
+penpos17(cap_hair,180);
+z15=(0.647w,0.548h);
+x16=0.424w; y16r=h+apex_o;
+z17=(0.306w,0.843h);
+penstroke z12e--z13e;
+z12'=whatever[z12r,z13r]; x12'=x12r+0.014117w;
+filldraw z12'--z13'--z14r--z13l--
+z12' & cycle;
+penstroke z14e{z14r-z13'}..z15e{up}
+..z16e{left}..z17e{dir251};
+%
+%
+%
+penpos18(cap_hair,-46); penpos19(cap_hair,-46);
+penpos20(1.13cap_stem,37);
+penpos21(0.852cap_stem,-15);
+penpos22(cap_hair,-72);
+z18r=(0.814w,-apex_o);
+z19-z18=whatever*dir44;
+x19r=w; z20=(x18-eps,0.34h);
+z21=(x18r+eps,0.556h);
+z22=(0.906w,0.609h);
+z20'=0.7[z18l,z19l];
+penstroke z18e--z19e;
+filldraw z18l{up}..z20l{up}..z21l--
+z22l--z22r{z21l-z22l}..z21r..
+z20r{down}..z20'{dir-35}--z18l
+& cycle;
+%
+%
+%
+penpos23(1.148cap_stem,53);
+penpos24(0.944cap_stem,12);
+penpos27(2/3cap_hair,90);
+z23r=(w,0.670h); z24=(0.871w,0.84h);
+z25=(0.715w,0.947h); z26=(x25,0.87h);
+z27=(0.621w,0.824h);
+filldraw z23r{dir124}..z24r%{dir124}
+...z25---z27r--z27l{z25-z27r}..
+z26{right}..z24l%{dir-56}
+..z23l{dir-56}
+--z23r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter N";
+.beginchar("N",11.662u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,-45); penpos3(cap_hair,-45);
+penpos4(cap_hair,-90);
+penpos5(0.944cap_stem,0);
+penpos6(0.811cap_stem,64);
+penpos7(cap_hair,180);
+penpos8(1.094cap_stem,-132);
+penpos9(cap_hair,180); penpos10(cap_hair,90);
+penpos11(cap_hair,21);
+z1=(0.123w,0); z3-z1=whatever*dir52;
+x3=0.239w; 0.5[z1,z3]-z2=whatever*dir-45;
+x2=x1l-eps; z4r=(0.325w,-apex_o);
+z5=(0.55w,0.371h); z6=(x3,0.932h);
+z7r=(0,0.751h); z8=(0.197w,0.553h);
+z9=(x4,0.428h); z10=(x3,0.317h);
+z11=(0.125w,0.423h);
+penpos2(1/3cap_hair,52);
+filldraw z1l{dir71}..z2l--z2r
+..{dir31}z3l--z3r{z1-z3}..z4l{right}
+--z4r{left}..z1r{z1-z3}--z1l{z3-z1}
+& cycle;
+penstroke z4e{right}..z5e{up}..
+z6e{left}..z7e{down}..z8e{dir-22}..
+z9e{down}..z10e{left}..z11e;
+%
+%
+%
+penpos12(2/3cap_hair,0); penpos13(0.778cap_stem,-126);
+penpos14(0.944cap_stem,-162);
+penpos15(0.944cap_stem,-90);
+penpos16(cap_hair,0);
+penpos17(cap_hair,-32);
+penpos19(0.981cap_stem,0);
+penpos20(0.793cap_stem,0);
+penpos21(cap_hair,-90);
+z12=(0.516w,0.745h); y13l=h+apex_o;
+z14=(0.886w,0.751h);
+z15=(w,0.669h);
+z19=(0.769w,y5); x13=x19l;
+z16=(x19r,-apex_o);
+z17r-z16r=whatever*dir58;
+x17r=0.977w; z20=(0.798w,0.537h);
+z21r=z15r;
+filldraw z16r--z17r--z17l{z16r-z17r}
+..z19r{up}..z20r..z21r{dir18}--
+z21l{dir198}..z20l..z19l{down}..
+z16l--z16r & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{dir-71}..z15e{right};
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter N tilde";
+.beginchar(oct"321",11.662u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); tilde(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter N acute";
+.beginchar(oct"213",11.662u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter N hacek";
+.beginchar(oct"214",11.662u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hacek(100);
+.endchar;
+
+.cmchar "The Fraktur letter O";
+.beginchar("O",12.01u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(cap_hair,-59);
+penpos5(1.037cap_stem,24);
+penpos6(1.074cap_stem,38);
+penpos7(cap_hair,-47); penpos8(2/3cap_hair,0);
+penpos4(1.315cap_stem,-146);
+penpos10(1.111cap_stem,70);
+penpos11(0.704cap_stem,22);
+penpos14(cap_hair,-46);
+z1r=(0.084w,0); z2l=(0,0.09h);
+z3=(0.234w,0.298h); z4=(0.184w,0.197h);
+z5=(0.332w,0.412h); z6=(0.179w,0.71h);
+z7=(0.263w,0.843h); z8=(0.389w,h+apex_o);
+z9=(x8,0.787h); z10=(0.595w,0.864h);
+z11r=(w,0.484h); z12=(0.637w,0.144h);
+z13=(2x10-x12,-apex_o);
+z14=(0.858w,0.227h);
+penstroke z1e..z2e{up}..z3e..z5e{up}
+..z6e{up}..z7e{dir43};
+penstroke z1e..z2e{up}..z4e{dir-19};
+filldraw z4r{dir-19}..{z13-(x4r,0.5y4r)}z13 &
+z13{dir27}..z14r..z11r{up}..z10r{left}..
+z8r{dir100}--z8l{down}..z7l{dir223}--
+z7r..z9..z10l{right}..z11l{down}..
+z14l..z12{left}..z4l{dir161}--z4r &
+cycle; last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter O Umlaut";
+.beginchar(oct"326",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter O tilde";
+.beginchar(oct"325",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); tilde(100);
+.endchar;
+
+.cmchar "The Fraktur letter O with Hungarian umlaut";
+.beginchar(oct"216",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hungarum(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter O slash";
+.beginchar(oct"330",12.01u#,cap_height#,0);
+currentpicture:=last_char;
+pickup penrazor xscaled stem yscaled hair rotated 30;
+draw (0,0)--(w,cap_height);
+.endchar;
+
+.cmchar "The Fraktur letter O slash";
+if (dc_layout>0): xchar_code:=oct"330";
+ else: xchar_code:=oct"037";
+beginchar(xchar_code,12.01u#,cap_height#,0);
+currentpicture:=last_char;
+pickup penrazor xscaled stem yscaled hair rotated 30;
+draw (0,0)--(w,cap_height);
+endchar;
+fi;
+
+.cmchar "The Fraktur letter O acute";
+.beginchar(oct"323",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter O grave";
+.beginchar(oct"322",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); cap_grave(100);
+.endchar;
+
+.cmchar "The Fraktur letter O hat";
+.beginchar(oct"324",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hat(100);
+.endchar;
+
+
+.cmchar "The Fraktur ligature Oe";
+if (dc_layout>0): xchar_code:=oct"327";
+ else: xchar_code:=oct"036";
+ fi;
+.beginchar(xchar_code,12.01u#+5.5u#,cap_height#,0)
+currentpicture:=last_char;
+addto currentpicture also small_letter_e shifted (11.5u,0);
+.endchar;
+
+.cmchar "The Fraktur letter P";
+.beginchar("P",9.482u#,cap_height#,2.651u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,0); penpos2(cap_stem,0);
+penpos3(cap_stem,0);
+penpos4(0.926cap_stem,58);
+penpos5(cap_hair,180);
+penpos8(1.5cap_hair,-145);
+penpos9(cap_hair,114);
+z1=(0.427w,-d); z2=(0.453w,0.09h);
+z3=(x2,0.7h); z4r=(0.227w,h+apex_o);
+z5r=(0,0.778h); z6=(0.173w,0.67h);
+z7=(0.083w,0.564h); z8=(0.275w,0.524h);
+z9r=(x7,0.4h);
+penstroke z1e...z2e---z3e..z4e{left}
+..z5e{down};
+penstroke z8e{down}..z9e;
+filldraw z5r{down}..z7 & z7{right}..
+z8r{down}--z8l{up}..z6..z5l{up}--
+z5r & cycle;
+%
+%
+%
+penpos18(cap_hair,0); penpos19(cap_hair,-80);
+penpos16(1.037cap_stem,23);
+penpos15(cap_stem,35);
+penpos14(cap_hair,-56);
+z18r=z3r; z19=(0.74w,0.931h);
+z16=(0.793w,0.782h);
+z15r=(w,0.42h); z14=(0.687w,0.059h);
+penstroke z14e{dir33}..z15e{up}..
+z16e{up};
+penstroke z18e{up}..z19e{dir22.5};
+z17'=(0.917w,h-apex_o);
+filldraw z16l{up}..z19l & z19l{dir22.5}
+..z17'{right} & z17'..z16r{down}--
+z16l & cycle;
+%
+%
+%
+penpos10(cap_stem,64); penpos11(cap_stem,71);
+penpos12(cap_hair,-36);
+penpos13(cap_hair,-23);
+z10=(0.713w,0.027h); z11=(0.387w,0.16h);
+z12=(x6,0.059h); z13l=(x8,0.266h);
+filldraw z10r..z11r...z13r---z13l
+& z13l..z12l{dir234}--z12r{dir54}...
+z11l---z10l--z10r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter Q";
+.beginchar("Q",13.559u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=12.01u;
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(cap_hair,-59);
+penpos5(1.037cap_stem,24);
+penpos6(1.074cap_stem,38);
+penpos7(cap_hair,-47); penpos8(2/3cap_hair,0);
+penpos4(1.315cap_stem,-146);
+penpos10(1.111cap_stem,70);
+penpos11(0.704cap_stem,22);
+penpos14(cap_hair,-46);
+penpos16(1.074cap_stem,-127);
+penpos17(cap_hair,-45);
+z1r=(0.084w',0); z2l=(0,0.09h);
+z3=(0.234w',0.298h); z4=(0.184w',0.197h);
+z5=(0.332w',0.412h); z6=(0.179w',0.71h);
+z7=(0.263w',0.843h); z8=(0.389w',h+apex_o);
+z9=(x8,0.787h); z10=(0.595w',0.864h);
+z11r=(0.925w,0.503h); z12=(0.637w',0.144h);
+z13=(2x10-x12,-apex_o);
+z14=(0.884w',0.227h);
+penpos15(1.3cap_stem,angle(z13-z14));
+z15l=z14; z16r=(0.825w,-apex_o);
+z17r=(w,0.144h);
+penstroke z1e..z2e{up}..z3e..z5e{up}
+..z6e{up}..z7e{dir43};
+penstroke z1e..z2e{up}..z4e{dir-19};
+filldraw z4r{dir-19}..{z13-(x4r,0.5y4r)}z13 &
+z13{dir27}..z14r..z11r{up}..z10r{left}..
+z8r{dir100}--z8l{down}..z7l{dir223}--
+z7r..z9..z10l{right}..z11l{down}..
+z14l..z12{left}..z4l{dir161}--z4r &
+cycle;
+penstroke z15e..z16e{dir-10} & z16e..z17e
+{dir45};
+.endchar;
+
+.cmchar "The Fraktur letter R";
+.beginchar("R",10.493u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#+0.3u#);
+penpos1(cap_hair,-49); penpos2(cap_hair,-49);
+penpos4(cap_hair,-90);
+z1l=(0,0.056h); z2=(0.253w,0.234h);
+z3=(apex_o,0.202h); z7=(0.036w,0.128h);
+z4r=(0.3w,-apex_o);
+z5=(0.181w,0.128h); z6=(0.084w,0.051h);
+filldraw z1l..z7..z3 & z3{dir-10}..
+z2l--z2r..z5..z4l{right}--z4r{left}
+..z6..z1r--z1l & cycle;
+penpos8(0.963cap_stem,19);
+penpos9(cap_stem,60); penpos10(cap_hair,180);
+penpos13(0.574cap_stem,-153);
+penpos14(cap_hair,90); penpos15(cap_hair,0);
+z8=(0.53w,0.375h); z9r=(0.247w,h+apex_o);
+z10r=(0,0.771h); z11=(0,0.614h);
+z12=(0.169w,0.641h); z13=(0.247w,0.481h);
+z14=(0.117w,0.348h); z15l=(0,0.468h);
+penstroke z4e{right}..z8e{up}..z9e
+{left}..z10e{down};
+penstroke z13e{down}..z14e{left}..
+z15e{up};
+filldraw z10r---z11..z13r{down}--
+z13l{up}..z12..z10l{up}--z10r &
+cycle;
+%
+%
+%
+penpos16(cap_hair,-90); penpos17(cap_hair,-90);
+penpos21(cap_hair,0); z16=(x8,0.585h);
+z17-z16=whatever*dir30;
+x17=0.934w; z21=(0.488w,3/4h);
+z20=(0.578w,0.936h); z22=(0.651w,0.91h);
+z19=(0.768w,h+apex_o);
+z23=whatever[z16l,z17l]; x23=x19;
+z18=(0.895w,0.867h);
+penstroke z16e--z17e;
+filldraw z21r{up}..z22{right}..
+z23{dir-76}--z17l{left}..z18..
+z19 & z19{z22-z19}..z20..z21l{down}
+--z21r & cycle;
+%
+%
+%
+penpos25(0.926cap_stem,-153);
+penpos26(1.074cap_stem,-174);
+penpos27(cap_hair,-32);
+z24=whatever[z16r,z17r]; x24=x23+0.18cap_stem;
+z25=(3/4w,0.612h); z26=(0.825w,0.205h);
+penpos26'(0.926cap_stem,-153); z26'r=z26r;
+y27r=0.189h; x27l=w; z28=(0.849w,-apex_o);
+z27'-z27l=whatever*(z28-z27r);
+x27'=w-cap_hair;
+filldraw z16r{z17-z16}...z25r
+---z26'r...z28 & z28--z27r--z27l &
+z27l---z27'...z26'l---
+z25l..z24--z16r & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter R acute";
+.beginchar(oct"217",10.493u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter R hacek";
+.beginchar(oct"220",10.493u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hacek(100);
+.endchar;
+
+
+
+.cmchar "The Fraktur letter S";
+.beginchar("S",12.813u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos0(0.032067w,-27); penpos0'(0.032067w,24);
+z0'r=z0l=(0.715w,0.745h);
+penpos1(1.5cap_hair,-156);
+penpos2(cap_hair,114);
+penpos7(cap_hair,114);
+penpos8(1.2cap_stem,-142);
+penpos9(cap_stem,-107);
+penpos10(0.926cap_stem,-123);
+penpos11(cap_hair,0);
+penpos16(0.722cap_stem,40);
+penpos17(cap_hair,-58);
+penpos18(cap_hair,-118);
+z1l=(w,0.952h); x2=0.93w;
+z3=(0.8w,0.859h); z5-z3=whatever*dir153;
+y5=h+apex_o; z4=z0r; z2l-z4=whatever*dir24;
+z6=whatever[z0r,z0l]; x6=0.462w;
+z7=(0.291w,0.931h); z8r=(0,0.505h);
+z9r=(0.562w,-apex_o);
+z10r=(0.76w,0.077h); z11=(0.933w,0.364h);
+z13=z0'l; z15-z13=whatever*dir204;
+x15=x14=0.407w; z12=(x9l,0.512h);
+z14-z12=whatever*(z15-z13);
+z16=(0.258w,0.649h);
+z17=(0.324w,0.782h); z18=(0.508w,0.739h);
+penstroke z7e{dir204}..z8e{down}..
+z9e{right}..z11e{up};
+penstroke z16e{up}..z17e{dir24}..
+z18e{dir-27};
+filldraw z1r{down}..z2r{z4-z2l}...
+z3---z5 & z5..z7r{dir204}--z7l
+{dir24}...z6---z4---z2l...z1l{up}
+& z1l--z1r & cycle;
+filldraw z11r{up}..z13{z6-z4} &
+z13---z15...z16r{up}--z16l{down}
+..z14{dir-27} & z14---z12...
+z11l{down}--z11r & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter S acute";
+.beginchar(oct"221",12.813u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter S hacek";
+.beginchar(oct"222",12.813u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hacek(100);
+.endchar;
+
+.cmchar "The Fraktur letter S cedilla";
+.beginchar(oct"223",12.813u#,cap_height#,0.2x_height#);
+currentpicture:=last_char;
+z100=(0.5w,0); cedilla(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter T";
+.beginchar("T",10.386u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.041w,0.053h); z2=(0,0.104h);
+z3=(0.078w,y2); penpos4(1.037cap_stem,-133);
+z4=(0.165w,0.253h); z5=(0.592w,-apex_o);
+z6=(0.731w,0.123h); penpos7(cap_hair,0);
+z7r=(w,0.303h); penpos8(0.5cap_hair,-90);
+z8=(0.29w,0.271h); penpos9(1.185cap_stem,10);
+penpos10(1.148cap_stem,19);
+z9=(x5,0.415h); z10=(0.381w,0.691h);
+penpos11(0.5cap_hair,-90); z11=(0.677w,0.83h);
+penpos12(cap_hair,-112);
+penpos13(cap_hair,180);
+penpos14(1.111cap_stem,31);
+penpos14'(1.037cap_stem,57);
+z14'=(0.562w,0.939h);
+penpos15(1.185cap_stem,72);
+penpos16(cap_hair,-37.5);
+penpos17(cap_hair,-48);
+z12=(0.236w,0.6h); z13=(0.072w,0.761h);
+z14r=(0.436w,h+apex_o);
+z15=(0.858w,0.755h); z16=z15l;
+penpos15'(1.5cap_stem,72); z15'l=z15l;
+z17l=whatever[z16,z15r]; x17=0.956w;
+filldraw z1{right}..z3{up}..z4r{right}
+..z5{dir-29} & z5{dir22}..z7r{up}--
+z7l{down}..z6{left}..z4l{left}..
+z2{down}..z1{right} & cycle;
+penstroke z8e{right}..z9e{up}..z10e
+{up}..z11e{right};
+penstroke z15e{dir142.5}..z14'e..z14e{left}..z13e{down}
+..z12e{dir-22};
+penstroke z16e{z15r-z15l}..z17e
+{dir42};
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter T hacek";
+.beginchar(oct"224",10.386u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hacek(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter T ogonek";
+.beginchar(oct"225",10.386u#,cap_height#,0.2x_height#);
+currentpicture:=last_char;
+z100=(0.5w,0); ogonek(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter U";
+.beginchar("U",10.608u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_stem,0); penpos2(whatever,39);
+penpos3(1.176cap_stem,48);
+penpos4(cap_hair,-42); penpos5(cap_hair,-42);
+penpos10(cap_hair,-47);
+penpos11(cap_hair,-47);
+penpos13(cap_stem,0);
+penpos14(cap_stem,0);
+penpos15(cap_hair,-90);
+penpos19(cap_hair,-41);
+z1=(0.258w,0.162h); z2r=(x1r,0.853h);
+x2l=x1l;
+z4l=(0,0.822h); z5-z4=whatever*dir48;
+y5l=h+apex_o; z3=whatever[z4r,z5r]; y3r=y5r-apex_o;
+z7=(x1l,0.26h); z8=(0.111w,y1);
+z9=(x1r,-apex_o); z8'=(0.278w,0.082h);
+z11r-z9=whatever*dir43; x11=0.737w;
+z12-z11l=whatever*(z9-z11r);
+x12=0.472w; z6-z12=whatever*(z8-z9);
+x6=x1r;
+penstroke z1e---z2e...z3e{dir138};
+penstroke z4e--z5e;
+filldraw z9--z11r--z11l--z12--z6--
+z7{down}..z8{dir231} &
+flex(z8,z8',z9) & cycle;
+%
+%
+%
+z13=(x11,y7); z14=(x13,y2r-cap_hair);
+z15=(0.573w,0.898h); z16=(0.737w,h+apex_o);
+z17=(0.886w,0.915h); z18=(x17,y1);
+z20=(0.786w,-apex_o);
+z21=(x13l,y1); x19r=w;
+z19r-z20=whatever*dir49;
+penstroke z13e--z14e;
+filldraw z15r{z16-z15l}..z14l{down}
+--z14r{up}..z17{right} & z17
+..z16 & z16..z15l--z15r & cycle;
+filldraw z20--z19r--z19l{z20-z19r}
+..z18{left}..z13r{up}--z13l--z21--
+z20 & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter U Umlaut";
+.beginchar(oct"334",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter U with Hungarian umlaut";
+.beginchar(oct"226",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hungarum(100);
+.endchar;
+
+.cmchar "The Fraktur letter U acute";
+.beginchar(oct"332",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter U grave";
+.beginchar(oct"331",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); cap_grave(100);
+.endchar;
+
+.cmchar "The Fraktur letter U hat";
+.beginchar(oct"333",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hat(100);
+.endchar;
+
+.cmchar "The Fraktur letter U with scandinavian circle";
+.beginchar(oct"227",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); o_umlaut(100);
+endchar;
+
+.cmchar "The Fraktur letter V";
+.beginchar("V",10.303u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(0.926cap_stem,-117);
+penpos6(cap_hair,-63);
+penpos7(0.704cap_stem,30);
+penpos8(cap_stem,44);penpos9(cap_hair,-65);
+penpos10(cap_hair,-65);
+penpos11(0.852cap_stem,-138);
+penpos12(2/3cap_hair,-55);
+penpos13(cap_hair,-48); penpos14(0.907cap_stem,-12);
+penpos15(1.037cap_stem,35);
+penpos16(0.889cap_stem,46);
+penpos17(cap_hair,155);
+penpos17'(0.489cap_stem,-123);
+penpos18(0.889cap_stem,-118);
+penpos20(0.537cap_stem,-147);
+penpos21(cap_hair,90);
+penpos22(cap_hair,44);
+z1=(0.115w,0.046h); z2=(0.072w,0.117h);
+z3=(0.209w,0.228h); z4=(0.613w,-apex_o);
+z5=(0.755w,0.103h); z5'=(x4,0.172h);
+z6=(0.853w,0.114h);
+z7r=(w,0.293h); z8=(0.742w,0.543h);
+z9=(0.822w,0.655h);
+z10r=(w,3/4h); z10'=(x7,0.788h);
+z11l=(0.75w,h+apex_o);
+z15=(0.414w,0.875h); z13=(0.288w,0.242h);
+z14=(0.534w,0.527h); z12=z15+(0.1w,-0.1h);
+z16r=(0.252w,h+apex_o);
+z17=(0.044w,0.859h);
+z17'r=(0,0.742h); z19=(0.043w,0.628h);
+z18=(0.096w,0.674h);
+z20=(0.267w,0.549h); z21l=(0.173w,0.435h);
+z22=(x19,0.516h);
+penstroke z1e..z2e{up}..z3e{right};
+filldraw z3r{right}..z4{dir-44} &
+z4---z6r...z7r{up}--z7l{down}..
+z6l..z5{left}..z5'..z3l{left}--z3r &
+cycle;
+penstroke z7e{up}..z8e{up}..z9e..
+z10e;
+penstroke z13e{dir42}..z14e{up}..
+z15e..z16e{left}..z17e..z17'e{down};
+filldraw z17'r{down}..z19{z3-z19} & z19---
+z18r...z20r{down}--z20l{up}..z18l..
+z17'l{up}--z17'r & cycle;
+penstroke z20e{down}..z21e{left}..
+z22e;
+filldraw z12r{up}..z11r{right}..
+1/10[z9,z10]{right} & 1/10[z9,z10]--z10--z10l &
+z10l{left}..z10'..z11l{left}..z12l{down}
+--z12r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter W";
+.beginchar("W",13.812u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,44); penpos2(cap_hair,22);
+penpos3(1.074cap_stem,-133);
+z1=(0.095w,0); z2=(0.055w,0.09h);
+z3=(0.16w,0.213h); z4=(0.366w,-apex_o);
+z5=(0.435w,0.118h); penpos6(cap_hair,-56);
+penpos7(4/3cap_stem,45);
+z6=(0.508w,0.126h); z7=(0.645w,0.41h);
+penpos9(1.222cap_stem,52);
+penpos10(cap_hair,0);
+z9=(0.532w,0.733h); z10=(0.604w,h+2apex_o);
+penstroke z1e..z2e..z3e{right};
+filldraw z3r{right}..z4{dir-30} &
+z4---z6r...z7r{dir72} & z7r{dir120}..
+z9r{up}..z10r--z10l..z9l{down}..
+z7l{down}..z6l{z4-z6r}...z3l{left}
+--z3r & cycle;
+%
+%
+%
+penpos11(cap_hair,-37); penpos12(0.778cap_stem,-140);
+penpos13(1.056cap_stem,-133);
+z11=(0.561w,0.865h); z12l=(0.735w,h+apex_o);
+z13l=(0.982w,0.756h);
+penstroke z11e{dir53}..z12e{right}..
+z13e{dir-60};
+%
+%
+%
+penpos14(cap_hair,-60); z14r=z13l+(apex_o,apex_o);
+penpos15(cap_stem,43); penpos16(0.741cap_stem,37.5);
+penpos17(cap_hair,-64); penpos18(1.222cap_stem,26);
+penpos17'(cap_hair,-64);
+z15=(0.808w,0.537h); z16r=(w,0.303h);
+z18l=(0.716w,-apex_o); z17r=z18; z17'r=z18r;
+z18.1-z18l=whatever*dir146;
+z18.2-z18r=whatever*dir146; x18.2=x18.1=0;
+z18'=(z6{z6r-z4}..z7{up}) intersectionpoint
+(z18l--z18.1);
+z18''=(z6{z6r-z4}..z7{up}) intersectionpoint
+(z18r--z18.2);
+filldraw z18l--z18'--z18''--z18r--z18l & cycle;
+penpos16'(whatever,54); z16'l=z16l; x16'r=w;
+penstroke z17e---z17'e...z16'e{up}..z15e{up}..
+z14e{dir36};
+%
+%
+%
+penpos19(cap_hair,-58); penpos22'(1.111cap_stem,44);
+penpos22(1.037cap_stem,41.5);
+penpos23(1.2cap_hair,-139);
+penpos24(cap_stem,-90); penpos25(0.556cap_stem,-140);
+penpos26(cap_hair,90); penpos27(cap_hair,37);
+z19=(0.224w,0.213h); x20=x5; z20-z19r=whatever*dir32;
+z21=(0.339w,0.483h); z22'=(0.326w,0.84h);
+z22r=(0.2w,h+apex_o); z23r=(0,0.767h);
+z24=(0.114w,0.654h); z25=(0.197w,0.551h);
+z26=(0.119w,0.437h); z27=(0.025w,0.5h);
+filldraw z19r--z20 & z20{up}..z22'r
+{dir129.5}--z22'l{dir-50.5}..z21{down}
+..z19l{z19r-z20}--z19r & cycle;
+penstroke z22'e{dir129.5}..z22e{left}
+..z23e{down}..z24e{right}..z25e{down}
+..z26e{left}..z27e{dir127};
+%
+%
+%
+penpos28(cap_hair,-32); penpos29(cap_hair,-90);
+penpos30(cap_hair,-141.5);
+z28=(0.357w,0.848h); z30=z11;
+z29=(0.5[x28,x30],0.958h);
+penstroke z28e..z29e..z30e;
+.endchar;
+
+.cmchar "The Fraktur letter X";
+.beginchar("X",9.418u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos0(cap_stem,0); z0=(0.5w,0.537h);
+z1=z0l; penpos5(cap_stem,-90); z5l=z0r;
+penpos2(cap_hair,0); z2r=(x0r,0.697h);
+penpos3(cap_hair,0); z3l=(x0l,0.253h);
+penpos6(cap_hair,-40); penpos7(cap_hair,-40);
+z6r=(0.758w,-apex_o); z7-z6=whatever*dir50;
+x7r=w; z7'=whatever[z6l,z7l];
+z6'=whatever[z6,z7]; y6'=apex_o;
+x7'=0.893w;
+penstroke z6e--z7e;
+filldraw z6'{left}...z3l---z1--z5l
+---z5r...z7'---z7l--z7--z6' & cycle;
+penpos12(cap_hair,-45); penpos13(cap_hair,-45);
+z13l=(0.289w,h+apex_o); z13-z12=whatever*dir45;
+x12l=apex_o; z13'=whatever[z12,z13];
+y13'=h-2apex_o;
+penstroke z12e--z13e;
+filldraw z12r{z13-z12}..z1{down}--
+z5l---z2r...z13'{dir148}--z12--z12r & cycle;
+%
+%
+%
+penpos15(0.852cap_stem,-116);
+penpos16(cap_hair,-21);
+penpos14(cap_hair,-21);
+z16=(0.852w,0.723h); z14-z16=whatever*dir69;
+y14=y15l+apex_o; z15=(0.77w,0.91h);
+penstroke z2e{up}..z15e{right};
+filldraw z15r{right}..z16l{z16-z14}
+--z16r--z14r--z14l{z1-z14l}
+..z15l{left}--z15r & cycle;
+%
+%
+%
+penpos9(cap_hair,-35); penpos10(cap_hair,-35);
+z9l=(0,0.069h); z10-z9=whatever*dir55;
+y10=0.229h; z8=(0.221w,-apex_o);
+z11=(0.297w,0.1h);
+filldraw z9r{dir20}..z8{right}..
+z3r{up}--z3l{down}..z11{left}..
+z10r{z10-z9}--z10l--z9l--z9r &
+cycle;
+%
+%
+%
+penpos20(cap_hair,0); penpos21(cap_hair,0);
+penpos22(cap_hair,0); penpos23(cap_hair,0);
+z21-z20=whatever*dir74;
+z23-z22=whatever*dir74;
+y22=y5r; y21=y5l; x22=0.772w;
+x21=0.235w; y23=y21+0.072h;
+y20=y22-0.072h;
+z20'=whatever[z20,z21]; z23'=whatever[z22,z23];
+y20'=y22; y23'=y21;
+penstroke z20e--z21e;
+penstroke z22e--z23e;
+filldraw z20'--z22--z23'--z21--z20' &
+cycle;
+z20''=whatever[z20',z22]; x20''=x20'+2cap_hair;
+z23''=whatever[z21,z23']; x23''=x23'-2cap_hair;
+filldraw z20r{z21-z20}..z20''{right}
+--z21--z20--z20r & cycle;
+filldraw z23''{right}..z23l{z23-z22}
+--z23--z22--z23'' & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter Y";
+.beginchar("Y",10.556u#,cap_height#,2.181u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0,0); z2=(0.079w,0.089h);
+z3=(2x2,0.025h); penpos4(0.611cap_stem,-35);
+penpos5(1.074cap_stem,13);
+penpos7'(1.111cap_stem,39);
+z4r=(0.338w,-d); z5r=(w,0.513h);
+z7'r=(0.778w,h); z6'=(0.656w,0.864h);
+penpos7(cap_hair,-51); penpos8(cap_hair,-51);
+z8=whatever[z7'l,z7'r]; y8r=h;
+z7=whatever[z7'l,z7'r]; y7=0.787h;
+filldraw z1{up}..z2{right}..z3{down}
+..z4l{right}--z4r{left}..z1{up} &
+cycle;
+penstroke z4e{right}..z5e{up}..z7'e
+{dir129};
+z6=(z5l{up}..z7'l{dir129}) intersectionpoint
+((0,0.8h)--(w,0.8h));
+filldraw z5l{up}..z6..z6'..z7r{z7-z8}--
+z7--z7'{dir-51}..z5{down}--z5l &
+cycle;
+penstroke z7e--z8e;
+%
+%
+%
+penpos11(cap_hair,-90); penpos9(cap_hair,-42);
+penpos10(cap_hair,-42); penpos22(1.148cap_stem,48);
+z9r=(0.359w,-apex_o); z10-z9=whatever*dir48;
+x10=0.719w; z22=whatever[z9,z10]; x22=0.479w;
+z11=(0.126w,0.215h); penpos12(2/3cap_hair,-42);
+z12-z22r=whatever*dir-42;
+x12=0.371w; penpos13(whatever,19);
+x13l=0.5w-0.5cap_stem; x13r=0.5w+0.5cap_stem;
+y13=0.585h;
+penstroke z9e--z10e;
+filldraw z11r{right}..z22l{dir-42}--
+z22r{dir138}--z12r{dir23}..z13r{up}
+--z13l{down}..z12l..z11l{left}--
+z11r & cycle;
+%
+%
+%
+penpos14(1.037cap_stem,32); penpos15(0.889cap_stem,42);
+penpos16(cap_hair,150); penpos17(0.389cap_stem,-134);
+penpos18(0.759cap_stem,-90);
+penpos19(cap_hair,180);
+penpos20(cap_hair,90);
+penpos21(1.5cap_hair,45);
+z14=(x13l,0.904h); z15r=(0.281w,h+apex_o);
+z16=(0.066w,0.883h); z17=(0.051w,0.822h);
+z18=(0.159w,0.713h); z19=(0.275w,0.606h);
+z20r=(0.189w,0.532h); z21=(0.087w,0.561h);
+penstroke z13e{up}..z14e{dir136}..
+z15e{left}..z16e..z17e{down}..z18e
+{right}..z19e{down}..z20e{left}..
+z21e{dir135};
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter Y with acute";
+.beginchar(oct"335",10.556u#,cap_height#+0.3x_height#,2.181u#);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter Y with umlaut";
+.beginchar(oct"230",10.556u#,cap_height#+0.3x_height#,2.181u#);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter Z";
+.beginchar("Z",8.407u#,cap_height#,2.528u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.704cap_stem,0); z1l=(0.038w,0.213h);
+penpos2(0.815cap_stem,-147);
+penpos3(1.148cap_stem,-152.5);
+penpos4(cap_hair,90);
+penpos1'(cap_hair,-66);
+z2=(0.395w,0.4h); z3l=(w-x1l,0.096h);
+z4l=(0.586w,-0.763d); z1'=(0.237w,0.372h);
+penstroke z1e{up}..z1'e..z2e..
+z3e{down}..z4e{left};
+z5=(0.368w,-0.525d); z6=(0.305w,-0.575d);
+z7=(0.338w,-0.15d); z8=(0.523w,0.077h);
+z9=(0.406w,0.061h); penpos10(cap_hair,90);
+z10r=(0.248w,0.077h);
+z8'=(x8,-0.288d);
+penpos11(cap_hair,180); z11=(0.068w,-0.3d);
+penpos12(1.5cap_hair,-90); z12r=(0.218w,-d);
+filldraw z4l{left}..z5{left}..z6 &
+z6..z7{up}..z10l{left}--z10r{right}
+..z9{right}..z8 & z8---z8'...z4r{right}
+--z4l & cycle;
+penstroke z10e{left}..z11e{down}
+..z12e{right};
+%
+%
+%
+penpos14(cap_hair,-90); penpos15(0.778cap_stem,25);
+penpos16(cap_stem,90); penpos17(0.5cap_stem,159);
+z15r=(w,0.7h); z16r=(0.5w,h+apex_o);
+z17r=(0,x15r); z14=(0.5w,0.415h);
+penstroke z15e{up}..z16e{left}..
+z17e{down}..z14e{right}..z15e{up};
+%
+%
+%
+z0=(x16,y17r); z18-z0=whatever*dir201;
+z13-z0=whatever*dir221;
+x18=x13=0;
+unfilldraw z18--z0--z13--z18 &
+cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter Z acute";
+.beginchar(oct"231",8.407u#,cap_height#+0.3x_height#,2.528u#);
+currentpicture:=last_char; z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter Z hacek";
+.beginchar(oct"232",8.407u#,cap_height#+0.3x_height#,2.528u#);
+currentpicture:=last_char; z100=(0.5w,cap_height); hacek(100);
+.endchar;
+
+.cmchar "The Fraktur letter Z point";
+.beginchar(oct"233",8.407u#,cap_height#+0.3x_height#,2.528u#);
+currentpicture:=last_char; z100=(0.5w,cap_height); pointaccent(100);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/schwell.mf b/Master/texmf-dist/fonts/source/public/gothic/schwell.mf
new file mode 100644
index 00000000000..37dcba9a1c4
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/schwell.mf
@@ -0,0 +1,100 @@
+% SUET Zeichensatz in schraeggestellter Form
+%
+%
+% ---------------------
+%
+% Wuensche, Fehler und Anregungen bitte an:
+%
+% B. Ludewig, Uni Siegen, HRZ, Hoelderlinstr. 3, 5900 Siegen.
+%
+% Ludewig@hrz.uni-siegen.dbp.de
+% oder
+% GZ006@DSIHRZ51.BITNET
+%
+% plain
+
+font_identifier "SCHWELL"; font_size 14pt#;
+font_coding_scheme:="SUETTERLIN Text";
+
+mode_setup;
+boolean serifs,monospace;
+%
+xpt#:=pt#;
+monospace:=false;
+serifs:=true;
+%
+ut#:=0.5;
+ut=ut#*hppp;
+% % <-----hier kann gedreht werden
+numeric top,mid,base,bot,an_top,an_mid,an_bot,ang;
+numeric Z_anf,I_anf,o_bogen,L_o,U_bogen,g_bogen,G_bogen,z_bogen;
+numeric alpha,beta,gamma,delta,mi_alpha,mi_beta,mi_gamma,mi_delta;
+ang:=20;
+alpha=-45-ang;mi_alpha=-45+180-ang;
+beta=85-ang;mi_beta=85+180-ang;
+gamma=50-ang;mi_gamma=50+180-ang;
+delta=30-ang;mi_delta=30+180-ang;
+%
+%
+top:=21ut; mid:=8ut; bas:=0ut; bot:=-14ut;
+%
+an_top=7ut; an_mid=4ut; an_bot=1ut;
+%
+Z_anf=17ut; I_anf=18ut; O_bogen=5ut; L_o=4.5ut; U_bogen=3ut;
+g_bogen=-12ut; G_bogen=-11ut;z_bogen=-10ut;
+%
+pen su_pen;
+su_pen := pencircle xscaled .151ut yscaled 2.5ut rotated -45;
+
+pen su_pen_small;
+%su_pen_small := pencircle scaled 1.51ut;
+su_pen_small := pencircle scaled 2.01ut;
+
+pen su_pen_big;
+su_pen_big := pencircle scaled 4.51ut;
+
+def makex(suffix i)(expr xnull,ang,yy)=
+ if yy=0: wi:=x.i:=xnull;
+ else: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull; fi
+enddef;
+def makewi(suffix i)(expr xnull,ang,yy)=
+ if yy=0: wi:=x.i:=xnull;
+ else: if yy=mid: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull-1.2*hppp;
+ else: if yy=an_top: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull-1.0*hppp;
+ else: if yy=an_mid: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull-0.5*hppp;
+ else: if yy=an_bot: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull-0.1*hppp;
+ fi fi fi fi fi
+enddef;
+
+def makebox (text r) =
+ for y=-7ut step 1ut until 21ut: r((0,y),(28ut,y)); endfor;
+ for x=-2ut step 1ut until 28ut: r((x,-7ut),(x,21ut)); endfor;
+ for y=bas+.5,bas-.5,an_bot+.5,an_mid+.5,an_top+.5,mid-.5,mid+.5,
+ Z_anf,Z_anf+.5,I_anf,I_anf+.5,O_bogen,O_bogen+.5,L_o,L_o+.5,
+ U_bogen,U_bogen+.5,g_bogen,g_bogen+.5,G_bogen,G_bogen+.5,
+ z_bogen,z_bogen+.5: r((0,y),(28ut,y)); endfor;
+ z90=(32ut,mid);makelabel("mid",z90);makelabel("top",(32ut,top));
+ makelabel("an_mid",(32ut,an_mid));makelabel("an_bot",(32ut,an_bot));
+ makelabel("an_top",(32ut,an_top));makelabel("bot",(32ut,bot));
+ makelabel("Z_anf",(32ut,Z_anf)); makelabel("I_anf",(32ut,I_anf));
+ makelabel("O_bo",(32ut,O_bogen)); makelabel("L_o",(32ut,L_o));
+ makelabel("U_bo",(32ut,U_bogen)); makelabel("g_bo",(32ut,g_bogen));
+ makelabel("G_bo",(32ut,G_bogen)); makelabel("z_bo",(32ut,z_bogen));
+ makelabel("0",(0,24ut)); makelabel("5",(5ut,24ut)); makelabel("10",(10ut,24ut));
+ makelabel("15",(15ut,24ut)); makelabel("20",(20ut,24ut));
+ makelabel("25",(25ut,24ut));
+ makelabel(str[w],(w,-10ut));
+enddef;
+
+%
+input su-low;
+input su-spec;
+input su-upp;
+%
+font_quad 33pt#;
+font_normal_space 6.6pt#;
+font_normal_stretch 3pt#;
+font_normal_shrink 1pt#;
+%
+input su-lig;
+end.
diff --git a/Master/texmf-dist/fonts/source/public/gothic/su-lig.mf b/Master/texmf-dist/fonts/source/public/gothic/su-lig.mf
new file mode 100644
index 00000000000..6fb1647dcf4
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/su-lig.mf
@@ -0,0 +1,232 @@
+
+boundarychar:=oct"040";
+
+ligtable "c":
+ "h" =:| 30; % ch - Ligatur
+
+ligtable "Z": "k": "f": "E": "T": 29: %ST=29!
+ "a" |=:| 130,
+ "b" |=:| 130,
+ "c" |=:| 130,
+ 30 |=:| 130,
+ "d" |=:| 130,
+ "e" |=:| 130,
+ "f" |=:| 130,
+ "g" |=:| 130,
+ "h" |=:| 130,
+ "i" |=:| 130,
+ "j" |=:| 130,
+ "k" |=:| 130,
+ "l" |=:| 130,
+ "m" |=:| 130,
+ "n" |=:| 130,
+ "o" |=:| 130,
+ "p" |=:| 130,
+ "q" |=:| 130,
+ "r" |=:| 130,
+ "s" |=:| 130,
+ "t" |=:| 130,
+ "u" |=:| 130,
+ "v" |=:| 130,
+ "w" |=:| 130,
+ "x" |=:| 130,
+ "y" |=:| 130,
+ "z" |=:| 135,
+ 228 |=:| 130, %ae
+ 246 |=:| 130, %oe
+ 252 |=:| 130, %ue
+ 255 |=:| 130, %sz
+ 027 |=:| 130, %tz
+ 028 |=:| 130; % s am Ende
+
+ligtable "t":
+ "a" |=:| 130,
+ "b" |=:| 130,
+ "c" |=:| 130,
+ 30 |=:| 130,
+ "d" |=:| 130,
+ "e" |=:| 130,
+ "f" |=:| 130,
+ "g" |=:| 130,
+ "h" |=:| 130,
+ "i" |=:| 130,
+ "j" |=:| 130,
+ "k" |=:| 130,
+ "l" |=:| 130,
+ "m" |=:| 130,
+ "n" |=:| 130,
+ "o" |=:| 130,
+ "p" |=:| 130,
+ "q" |=:| 130,
+ "r" |=:| 130,
+ "s" |=:| 130,
+ "t" |=:| 130,
+ "u" |=:| 130,
+ "v" |=:| 130,
+ "w" |=:| 130,
+ "x" |=:| 130,
+ "y" |=:| 130,
+ "z" =: 27,
+ 228 |=:| 130, %ae
+ 246 |=:| 130, %oe
+ 252 |=:| 130, %ue
+ 255 |=:| 130, %sz
+ 027 |=:| 130, %tz
+ 028 |=:| 130; % s am Ende
+
+ligtable "a": 228: 255: 28: "A": "C": "D": "F": "H": "I": "J": "K": "L": "M":
+ 196: 220: 214: % AE, UE, OE
+ "N": "O": "P": "Q": "R": "U": "V": "W": "X": "Y":
+ % a,sz,s am Ende,A,C,D,F,H,I,....
+ "a" |=:| 128,
+ 228 |=:| 128,
+ "b" |=:| 128,
+ "c" |=:| 128,
+ 30 |=:| 128,
+ "d" |=:| 128,
+ "e" |=:| 128,
+ "f" |=:| 128,
+ "g" |=:| 128,
+ "h" |=:| 128,
+ "i" |=:| 128,
+ "j" |=:| 128,
+ "k" |=:| 128,
+ "l" |=:| 128,
+ "m" |=:| 128,
+ "n" |=:| 128,
+ "o" |=:| 128,
+ 246 |=:| 128,
+ "p" |=:| 128,
+ "q" |=:| 128,
+ "r" |=:| 128,
+ "s" |=:| 128,
+ "t" |=:| 128,
+ "u" |=:| 128,
+ 252 |=:| 128,
+ "v" |=:| 128,
+ "w" |=:| 128,
+ "x" |=:| 128,
+ "y" |=:| 128,
+ "z" |=:| 133,
+ 255 |=:| 128, %sz
+ 027 |=:| 128, %tz
+ 028 |=:| 128; % s am Ende
+
+ligtable "S": % wegen St-Ligatur
+ "a" |=:| 128,
+ "b" |=:| 128,
+ "c" |=:| 128,
+ 30 |=:| 128,
+ "d" |=:| 128,
+ "e" |=:| 128,
+ "f" |=:| 128,
+ "g" |=:| 128,
+ "h" |=:| 128,
+ "i" |=:| 128,
+ "j" |=:| 128,
+ "k" |=:| 128,
+ "l" |=:| 128,
+ "m" |=:| 128,
+ "n" |=:| 128,
+ "o" |=:| 128,
+ "p" |=:| 128,
+ "q" |=:| 128,
+ "r" |=:| 128,
+ "s" |=:| 128,
+ "t" =: 29,
+ "u" |=:| 128,
+ "v" |=:| 128,
+ "w" |=:| 128,
+ "x" |=:| 128,
+ "y" |=:| 128,
+ "z" |=:| 133,
+ 228 |=:| 128, %ae
+ 246 |=:| 128, %oe
+ 252 |=:| 128, %ue
+ 255 |=:| 128, %sz
+ 027 |=:| 128, %tz
+ 028 |=:| 128; % s am Ende
+
+ligtable "b": "B": "o": "r": 246: % b, s am Ende, sz, o und oe,
+ "a" |=:| 129,
+ "b" |=:| 129,
+ "c" |=:| 129,
+ 30 |=:| 129,
+ "d" |=:| 129,
+ "e" |=:| 129,
+ "f" |=:| 129,
+ "g" |=:| 129,
+ "h" |=:| 129,
+ "i" |=:| 129,
+ "j" |=:| 129,
+ "k" |=:| 129,
+ "l" |=:| 129,
+ "m" |=:| 129,
+ "n" |=:| 129,
+ "o" |=:| 129,
+ "p" |=:| 129,
+ "q" |=:| 129,
+ "r" |=:| 129,
+ "s" |=:| 129,
+ "t" |=:| 129,
+ "u" |=:| 129,
+ "v" |=:| 129,
+ "w" |=:| 129,
+ "x" |=:| 129,
+ "y" |=:| 129,
+ "z" |=:| 132,
+ 246 |=:| 129, %oe
+ 252 |=:| 129, %ue
+ 228 |=:| 129, %ae
+ 255 |=:| 129, %sz
+ 027 |=:| 129, %tz
+ 028 |=:| 129; % s am Ende
+
+ligtable "s":
+ " " =:| 28, % s gefolgt von Blanc
+ "." =:| 28,
+ "," =:| 28,
+ ";" =:| 28,
+ "!" =:| 28,
+ ")" =:| 28,
+ "/" =:| 28,
+ "?" =:| 28,
+ "+" =:| 28,
+ "-" =:| 28,
+ "=" =:| 28,
+ ":" =:| 28;
+%
+ligtable ||: "(": % Blanc, ( gefolgt von ..
+ "a" |=:| 128,
+ "b" |=:| 128,
+ "c" |=:| 128,
+ 30 |=:| 128,
+ "d" |=:| 128,
+ "e" |=:| 128,
+ "f" |=:| 128,
+ "g" |=:| 128,
+ "h" |=:| 128,
+ "i" |=:| 128,
+ "j" |=:| 128,
+ "k" |=:| 128,
+ "l" |=:| 128,
+ "m" |=:| 128,
+ "n" |=:| 128,
+ "o" |=:| 128,
+ "p" |=:| 128,
+ "q" |=:| 128,
+ "r" |=:| 128,
+ "s" |=:| 128,
+ "t" |=:| 128,
+ "u" |=:| 128,
+ "v" |=:| 128,
+ "w" |=:| 128,
+ "x" |=:| 128,
+ "y" |=:| 128,
+ "z" |=:| 133,
+ 246 |=:| 128, %oe
+ 252 |=:| 128, %ue
+ 228 |=:| 128, %ae
+ 255 |=:| 128, %sz
+ 027 |=:| 128, %tz
+ 028 |=:| 128; % s am Ende
diff --git a/Master/texmf-dist/fonts/source/public/gothic/su-low.mf b/Master/texmf-dist/fonts/source/public/gothic/su-low.mf
new file mode 100644
index 00000000000..f7703700123
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/su-low.mf
@@ -0,0 +1,796 @@
+ % su-low.mf -Input-File Zeichensatz
+
+
+% a
+makewi(7,10ut,ang,an_bot);
+beginchar("a",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y4=mid;
+y2=y6=bas;
+y5=y7=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3, 5ut,ang,y3);
+makex(4,7.5ut,ang,y4);
+makex(5,5.5ut,ang,y5);
+makex(6,7ut,ang,y6);
+makex(7, 10ut,ang,y7);
+%
+draw z1{dir mi_gamma}..z2{right}..z3{dir beta};
+draw z3{z5-z4}..z4{z4-z5};
+draw z4{z5-z4}..z5..z6{right}..{dir gamma}z7;
+labels(range 1 thru 7);
+endchar;
+
+
+% a-Umlaut
+makewi(7,10ut,ang,an_bot);
+beginchar(228,wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y3=y4=mid;
+y2=y6=bas;
+y5=y7=an_bot;
+y8=y9=3/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3, 5ut,ang,y3);
+makex(4,7.5ut,ang,y4);
+makex(5,5.5ut,ang,y5);
+makex(6,7ut,ang,y6);
+makex(7, 10ut,ang,y7);
+makex(8,2ut,ang,y8);
+makex(9,5.5ut,ang,y9);
+%
+draw z1{dir mi_gamma}..z2{right}..z3{dir beta};
+draw z3{z5-z4}..z4{z4-z5};
+draw z4{z5-z4}..z5..z6{right}..{dir gamma}z7;
+draw z8..z8+(1ut,3ut);draw z9..z9+(1ut,3ut);
+labels(range 1 thru 9);
+endchar;
+
+% b
+makewi(10,7.5ut,ang,an_bot);
+beginchar("b",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y9=y11=mid;
+y2=Z_anf;
+y3=y5=I_anf;
+y4=top;
+y6=y8=an_mid;
+y7=bas;
+y10=an_top;
+
+makex(1, 0ut,ang,y1);
+makex(2, 2.7ut,ang,y2);
+makex(3, 3.5ut,ang,y3);
+makex(4, 2ut,ang,y4);
+makex(5, -.8ut,ang,y5);
+makex(6,-2.5ut,ang,y6);
+makex(7, 2ut,ang,y7);
+makex(8, 5.6ut,ang,y8);
+makex(9, 5ut,ang,y9);
+makex(10, 7.5ut,ang,y10);
+%
+draw z1{dir gamma}..z3{up}..z4{left}..z5{dir mi_beta}..z6{dir mi_beta}..z7{right}..z8{up}..z9;
+draw z9..z10{right};
+labels(range 1 thru 10);
+endchar;
+
+% c
+makewi(5,8.5ut,ang,an_bot);
+beginchar("c",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=an_top;
+y4=bas;
+makex(1,0ut,ang,y1);
+makex(2,2.0ut,ang,y2);
+makex(3, 4ut,ang,y3);
+makex(4,-2ut,ang,y4);
+makex(5,8.5ut,ang,y5);
+%
+draw z1..z2{right}..z3{up};
+draw z1{z4-z1}..z4;
+draw z4..z5;
+labels(range 1 thru 5);
+endchar;
+
+
+% % c fuer ch-Ligatur c
+makewi(5,8.5ut,ang,an_bot);
+beginchar(30,wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=an_top;
+y4=bas;
+makex(1,0ut,ang,y1);
+makex(2,2.0ut,ang,y2);
+makex(3, 4ut,ang,y3);
+makex(4,-2ut,ang,y4);
+makex(5,8.5ut,ang,y5);
+%
+%draw z1..z2{right}..z3{up};
+draw z1{z4-z1}..z4;
+draw z4..z5;
+labels(range 1 thru 5);
+endchar;
+
+
+% d
+makewi(5,10ut,ang,an_bot);
+beginchar("d",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y5=mid;
+y34=I_anf;
+y2=bas;
+y3=13/14*mid;
+y4=top;
+makex(1,0ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3,5ut,ang,y3);
+makex(34,.5ut,ang,y34);
+makex(4,2.3ut,ang,y4);
+makex(5,10ut,ang,y5);
+%
+draw z1{dir mi_gamma}..z2{right}..z3..z4{left}..z34..{right}z3..z5;
+labels(range 1 thru 7,34);
+endchar;
+
+% e
+makewi(5,10.5ut,ang,mid);
+beginchar("e",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=y4=bas;
+makex(1,0ut,ang,y1);
+makex(2,-2ut,ang,y2);
+makex(3,2.7ut,ang,y3);
+makex(4,0.5ut,ang,y4);
+makex(5,10.5ut,ang,y5);
+%
+draw z1..z2;
+draw z3..z4;
+draw z4..z5;
+labels(range 1 thru 7);
+endchar;
+
+% f
+makewi(8,4ut,ang,an_mid);
+beginchar("f",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=mid;
+y2=Z_anf;
+y3=y5=I_anf;
+y4=top;
+y6=bot;
+y7=an_mid+1/7(mid-an_mid);
+y8=an_mid;
+makex(1,0ut,ang,y1);
+makex(2, 2ut,ang,y2);
+makex(3,3.3ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,0ut,ang,y5);
+makex(6,-4.5ut,ang,y6);
+makex(7,-3.5ut,ang,y7);
+makex(8,4ut,ang,y8);
+%
+draw z1{dir gamma}..z3{up}..z4{left}..z5{z6-z5}..z6;
+draw z7..z8{dir delta};
+labels(range 1 thru 8);
+endchar;
+
+% g
+makewi(8,14ut,ang,mid);
+beginchar("g",wi/hppp,14ut#,7ut#);
+pickup su_pen;
+y1=y3=y4=y8=mid;
+y2=bas;
+y5=g_bogen;
+y6=bot;
+y7=1/2z_bogen;
+y23=5/7mid;
+makex(1,0ut,ang,y1);
+makex(2,.5ut,ang,y2);
+makex(3, 5 ut,ang,y3);
+makex(4,7.7 ut,ang,y4);
+makex(5, 4.3ut,ang,y5);
+makex(6, 2.2 ut,ang,y6);
+makex(7, 2 ut,ang,y7);
+makex(8, 14 ut,ang,y8);
+makex(23,4.7ut,ang,y23);
+%
+draw z1{dir mi_gamma}..z2{right}..z23..z3{up};
+draw z3{down}..z4{dir beta};
+draw z4{dir mi_beta}..z5{dir mi_beta}..z6{left}..z7{dir gamma}..z8;
+labels(range 1 thru 8,23);
+endchar;
+
+
+% h
+makewi(9,6.5ut,ang,mid);
+beginchar("h",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y9=mid;
+y2=Z_anf;
+y3=y5=I_anf;
+y4=top;
+y6=G_bogen;
+y8=bas;
+y7=bot;
+makex(1,0ut,ang,y1);
+makex(2,2 ut,ang,y2);
+makex(3,3ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,-.4ut,ang,y5);
+makex(6,-3.7ut,ang,y6);
+makex(7,-6ut,ang,y7);
+makex(8, -5.7ut,ang,y8);
+makex(9, 6.5ut,ang,y9);
+%
+draw z1{dir gamma}..z3{dir beta}..z4{left}..z5{dir mi_beta}..z6{dir mi_beta}..
+ z7{left}..z8{dir gamma}..z9{dir gamma};
+ makelabel("T",z9);
+labels(range 1 thru 9);
+endchar;
+
+% i
+makewi(3,8ut,ang,mid);
+beginchar("i",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y3=mid;
+y2=bas;
+y4=4/7(top-mid)+mid;
+y5=6/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,-2.7ut,ang,y2);
+makex(3,8ut,ang,y3);
+makex(4,1ut,ang,y4);
+makex(5,1.5ut,ang,y5);
+%
+draw z1..z2 ;
+draw z2..z3;
+draw z4{dir gamma}..z5{dir beta};
+labels(range 1 thru 7);
+endchar;
+
+% j
+makewi(5,7ut,ang,mid);
+beginchar("j",wi/hppp,21ut#,7ut#);
+% makelabel(str[w/hppp],(w/hppp,-10ut));
+pickup su_pen;
+y1=y5=mid;
+y2=g_bogen;
+y4=1/2z_bogen;
+y3=bot;
+y6=4/7(top-mid)+mid;
+y7=6/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,-3.2ut,ang,y2);
+makex(3,-5.5ut,ang,y3);
+makex(4,-5ut,ang,y4);
+makex(5,7ut,ang,y5);
+makex(6,.8ut,ang,y6);
+makex(7,1.3ut,ang,y7);
+%
+draw z1{dir mi_beta}..z2{dir mi_beta}..z3{left}..z4{dir gamma}..z5{dir gamma};
+draw z6{dir gamma}..z7{dir beta};
+labels(range 1 thru 7);
+endchar;
+
+% k
+makewi(7,5ut,ang,an_mid);
+beginchar("k",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=mid;
+y2=y8=top;
+y3=Z_anf;
+y4=y6=an_mid+(3/14 an_mid);
+y5=bas;
+y7=an_mid;
+y9=I_anf;
+makex(1,0ut,ang,y1);
+makex(2,3.7 ut,ang,y2);
+makex(3,3ut,ang,y3);
+makex(4,1.3ut,ang,y4);
+makex(5,0ut,ang,y5);
+makex(6,-3ut,ang,y6);
+makex(7,5ut,ang,y7);
+makex(8,7.2ut,ang,y8);
+makex(9,7.8ut,ang,y9);
+%
+draw z1{dir gamma}..z2{dir beta};
+draw z2{dir mi_beta}..z5;
+draw z3{dir beta+dir 10}..z8{right}..z9..z4;
+draw z6..z7{dir delta};
+labels(range 1 thru 9);
+endchar;
+
+% l
+makewi(9,10ut,ang,an_bot);
+beginchar("l",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y9=mid;
+y2=Z_anf;
+y3=y5=I_anf;
+y4=top;
+y6=1/2 an_bot+an_bot;
+y7=bas;
+y8=an_bot-3/14 an_bot;
+makex(1,0ut,ang,y1);
+makex(2,2ut,ang,y2);
+makex(3,3.3ut,ang,y3);
+makex(4,1.8ut,ang,y4);
+makex(5,0ut,ang,y5);
+makex(6,-2.5ut,ang,y6);
+makex(7,-1.3ut,ang,y7);
+makex(8,1ut,ang,y8);
+makex(9,10ut,ang,y9);
+%
+draw z1{dir gamma}..z3{up}..z4{left}..z5{dir mi_beta}..z6{dir mi_beta}..
+ z7{right}..z8{dir gamma}..z9{dir gamma};
+labels(range 1 thru 9);
+endchar;
+
+% m
+makewi(7,24ut,ang,mid);
+beginchar("m",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y5=y7=mid;
+y2=y4=y6=bas;
+makex(1,0ut,ang,y1);
+makex(2,-2ut,ang,y2);
+makex(3,8ut,ang,y3);
+makex(4,5.7ut,ang,y4);
+makex(5,16ut,ang,y5);
+makex(6,13.7ut,ang,y6);
+makex(7,24ut,ang,y7);
+%
+draw z1..z2 ; draw z2..z3; draw z3..z4; draw z3..z4; draw z4..z5;
+draw z5..z6; draw z6..z7;
+labels(range 1 thru 7);
+endchar;
+
+% n
+makewi(5,16.2ut,ang,mid);
+beginchar("n",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=y4=bas;
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,8.2ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,16.2ut,ang,y5);
+%
+draw z1..z2;
+draw z2..z3;
+draw z3..z4;
+draw z4..z5;
+labels(range 1 thru 5);
+endchar;
+
+
+% o
+makewi(6,8ut,ang,an_top);
+beginchar("o",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y5=mid;
+y6=an_top;
+y2=y4=2an_bot;
+y3=bas;
+makex(1,0ut,ang,y1);
+makex(2,-3.8ut,ang,y2);
+makex(3,-.5ut,ang,y3);
+makex(4,4ut,ang,y4);
+makex(5,3.3ut,ang,y5);
+makex(6,8ut,ang,y6);
+%
+draw z1{dir mi_gamma}..z2{dir mi_beta}..z3{right}..z4{dir beta}..z5;
+draw z5..z6{right};
+labels(range 1 thru 8);
+endchar;
+
+
+% o-Umlaut
+makewi(6,8ut,ang,an_top);
+beginchar(246,wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y5=mid;
+y6=an_top;
+y2=y4=2an_bot;
+y3=bas;
+y7=y8=3/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,-3.8ut,ang,y2);
+makex(3,-.5ut,ang,y3);
+makex(4,4ut,ang,y4);
+makex(5,3.3ut,ang,y5);
+makex(6,8ut,ang,y6);
+makex(7,1.5ut,ang,y7);
+makex(8,4ut,ang,y8);
+%
+draw z1{dir mi_gamma}..z2{dir mi_beta}..z3{right}..z4{dir beta}..z5;
+draw z5..z6{right};
+draw z7..z7+(1ut,3ut);draw z8..z8+(1ut,3ut);
+labels(range 1 thru 8);
+endchar;
+
+% p
+makewi(9,13ut,ang,mid);
+beginchar("p",wi/hppp,14ut#,7ut#);
+pickup su_pen;
+y1=y4=y9=mid;
+y2=mid-2/7(mid);
+y5=mid-3/14(mid);
+y6=y8=3/2an_bot;
+y7=bas;
+y3=bot;
+makex(1,0ut,ang,y1);
+makex(2,-.7ut,ang,y2);
+makex(3,-3.5ut,ang,y3);
+makex(4,3ut,ang,y4);
+makex(5,5.5ut,ang,y5);
+makex(6,-.4ut,ang,y6);
+makex(7,1.7ut,ang,y7);
+makex(8,3.8ut,ang,y8);
+makex(9,13ut,ang,y9);
+%
+draw z1..z3;
+draw z2{dir beta}..z4{right}..z5{dir mi_beta}..z6;
+draw z6{right}..z7{right}..z8{dir gamma}..z9{dir gamma};
+labels(range 1 thru 9);
+endchar;
+
+% q
+makewi(7,16.1ut,ang,mid);
+beginchar("q",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y4=y7=mid;
+y2=y6=bas;
+y5=bot;
+makex(1,0ut,ang,y1);
+makex(2,1ut,ang,y2);
+makex(3,5.3ut,ang,y3);
+makex(4,8.5ut,ang,y4);
+makex(5,5.0ut,ang,y5);
+makex(6,6.1ut,ang,y6);
+makex(7,16.1ut,ang,y7);
+%
+draw z1{dir mi_gamma}..z2{right}..z3{dir beta};
+draw z3..z4{dir gamma};
+draw z4..z5;
+draw z6..z7;
+labels(range 1 thru 7);
+endchar;
+
+% r
+makewi(5,10.3ut,ang,an_top);
+beginchar("r",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y4=mid;
+y5=an_top;
+y2=y3=bas;
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,4.5ut,ang,y3);
+makex(4,5.7ut,ang,y4);
+makex(5,10.3ut,ang,y5);
+%
+draw z1..z2{dir mi_gamma};
+draw z2{dir gamma}..z3{dir mi_beta};
+draw z3{dir mi_alpha}..z4{dir beta};
+draw z4..z5{right};
+labels(range 1 thru 5);
+endchar;
+
+% s-am Ende
+makewi(4,2ut,ang,an_bot); % rundes s
+beginchar(28,wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=an_top;
+y2=mid;
+y3=an_top-1/14 mid;
+y4=y6=an_bot;
+y5=bas;
+y7=I_anf;
+y8=top;
+y9=Z_anf;
+%
+makex(1,-.5ut,ang,y1);
+makex(2,2ut,ang,y2);
+makex(3,4.1ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,-.5ut,ang,y5);
+makex(6,-2.2ut,ang,y6);
+makex(8,3.2ut,ang,y8);
+makex(7,0ut,ang,y7);
+makex(9,4.5ut,ang,y9);
+%
+draw z1{dir gamma}..z2{right}..z3{dir mi_beta}..z4..z5{left}..z6{dir beta}..
+ z7{dir beta}..z8{right}..z9{dir mi_beta};
+labels(range 1 thru 9);
+endchar;
+
+% s
+makewi(5,9.2ut,ang,an_bot);
+beginchar("s",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y5=mid;
+y2=top;
+y3=bot;
+y4=bas;
+makex(1,0ut,ang,y1);
+makex(2,3.3ut,ang,y2);
+makex(3,-1.5ut,ang,y3);
+makex(4,0ut,ang,y4);
+makex(5,9.2ut,ang,y5);
+%
+draw z1{dir gamma}..z2{dir beta};
+draw z2{dir mi_beta}..z3;
+draw z4..z5;
+labels(range 1 thru 5);
+endchar;
+
+
+% sz
+makewi(10,6ut,ang,an_bot);
+beginchar(255,wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=mid;
+y2=top;
+y3=bot;
+y4=y6=Z_anf;
+y5=15/14I_anf;
+y7=mid;
+y8=an_mid;
+y9=1/2an_bot;
+y10=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,3.3ut,ang,y2);
+makex(3,-1.5ut,ang,y3);
+makex(4,2.7ut,ang,y4);
+makex(5,5.5ut,ang,y5);
+makex(6,8ut,ang,y6);
+makex(7,4ut,ang,y7);
+makex(8,8ut,ang,y8);
+makex(9,1.5ut,ang,y9);
+makex(10,6ut,ang,y10);
+%
+draw z1{dir gamma}..z2{dir beta};
+draw z2{dir mi_beta}..z3;
+draw z4{dir beta}..z5{right}..z6{dir mi_beta}..z7{left};
+draw z7{right}..z8{dir mi_beta}..z9;
+labels(range 1 thru 10);
+endchar;
+
+% t
+makewi(5,4ut,ang,an_mid);
+beginchar("t",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=mid;
+y2=top;
+y3=bas;
+y4=an_mid+1/14an_mid;
+y5=an_mid;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,-.7ut,ang,y3);
+makex(4,-3ut,ang,y4);
+makex(5,4ut,ang,y5);
+%
+draw z1{dir gamma}..z2{dir beta};
+draw z2..z3;
+draw z4..z5{dir delta};
+labels(range 1 thru 5);
+endchar;
+
+% u
+makewi(5,16.2ut,ang,mid);
+beginchar("u",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=y4=bas;
+y6=5/7(top-mid)+mid;
+y7=4/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,8.2ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,16.2ut,ang,y5);
+makex(6,2.2ut,ang,y6);
+makex(7,8.5ut,ang,y7);
+%
+draw z1..z2;
+draw z2..z3;
+draw z3..z4;
+draw z4..z5;
+draw z6..z7{dir gamma};
+labels(range 1 thru 7);
+endchar;
+
+
+% u-Umlaut
+makewi(5,16.2ut,ang,mid);
+beginchar(252,wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=y4=bas;
+y6=3/7(top-mid)+mid;
+y7=3/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,8.2ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,16.2ut,ang,y5);
+makex(6,2.5ut,ang,y6);
+makex(7,6.5ut,ang,y7);
+%
+draw z1..z2;
+draw z2..z3;
+draw z3..z4;
+draw z4..z5;
+draw z6..z6+(1ut,3ut);draw z7..z7+(1ut,3ut);
+labels(range 1 thru 7);
+endchar;
+% v
+makewi(6,15.5ut,ang,an_bot);
+beginchar("v",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y4=y6=mid;
+y2=y7=bas;
+y3=5/6an_top;
+y5=an_mid+1/7an_mid;
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,2.9ut,ang,y3);
+makex(4,6.3ut,ang,y4);
+makex(5,8ut,ang,y5);
+makex(6,15.5ut,ang,y6);
+makex(7,4.3ut,ang,y7);
+%
+draw z1..z2{dir mi_gamma};
+draw z2{dir gamma}..z7;
+draw z7..z3{dir beta}..z4{right}..z5{dir mi_beta}..z7;
+draw z7..z6;
+labels(range 1 thru 7);
+endchar;
+
+% w
+makewi(9,22ut,ang,mid);
+beginchar("w",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y7=y9=mid;
+y2=y4=y5=bas;
+y6=y8=an_mid+2/7(mid-an_mid);
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,8ut,ang,y3);
+makex(4,5.5ut,ang,y4);
+makex(5,12ut,ang,y5);
+makex(6,10.5ut,ang,y6);
+makex(7,14.2ut,ang,y7);
+makex(8,15.7ut,ang,y8);
+makex(9,22ut,ang,y9);
+%
+draw z1..z2;
+draw z2..z3;
+draw z3..z4{dir mi_gamma};
+draw z4{dir gamma}..z5;
+draw z5..z6{dir beta}..z7{right}..z8{dir mi_beta}..z5;
+draw z5..z9;
+labels(range 1 thru 9);
+endchar;
+
+% x
+makewi(12,15.3ut,ang,mid);
+beginchar("x",wi/hppp,14ut#,7ut#);
+pickup su_pen;
+y1=y7=y12=mid;
+y2=y6=y8=an_mid;
+y3=y5=an_bot;
+y4=bas;
+y9=y11=g_bogen;
+y10=bot;
+makex(1,0ut,ang,y1);
+makex(2,0.8ut,ang,y2);
+makex(3,2.2ut,ang,y3);
+makex(4,4.2ut,ang,y4);
+makex(5,6.2ut,ang,y5);
+makex(6,7.3ut,ang,y6);
+makex(7,4.8ut,ang,y7);
+makex(8,0ut,ang,y8);
+makex(9,-0.9ut,ang,y9);
+makex(10,2ut,ang,y10);
+makex(11,4.8ut,ang,y11);
+makex(12,15.3ut,ang,y12);
+%
+draw z1{down}..z2..z3..z4{right}..z5..z6{dir beta}..z7{left}..
+ z8..z9..z10{right}..z11;
+draw z5..z12;
+labels(range 1 thru 12);
+endchar;
+
+% y
+makewi(10,17ut,ang,mid);
+beginchar("y",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y5=y10=mid;
+y2=y3=bas;
+y4=y6=an_mid+2/7(mid-an_mid);
+y7=G_bogen;
+y8=bot;
+y9=z_bogen;
+makex(1,0ut,ang,y1);
+makex(2,-2.6ut,ang,y2);
+makex(3,3.5ut,ang,y3);
+makex(4,2.8ut,ang,y4);
+makex(5,6.2ut,ang,y5);
+makex(6,8ut,ang,y6);
+makex(7,7ut,ang,y7);
+makex(8,5ut,ang,y8);
+makex(9,4.3ut,ang,y9);
+makex(10,17ut,ang,y10);
+%
+draw z1..z2{dir mi_gamma};
+draw z2{dir gamma}..z3;
+draw z3..z4{up}..z5{right}..z7{dir mi_beta}..z8{left}..z9{dir gamma}..z10;
+labels(range 1 thru 10);
+endchar;
+
+% z
+makewi(8,13.5ut,ang,mid);
+beginchar("z",wi/hppp,14ut#,7ut#);
+pickup su_pen;
+y1=y8=mid;
+y2=an_top-2/5(an_top-an_mid);
+y3=an_mid;
+y4=bas;
+y5=bot;
+y6=g_bogen;
+y7=z_bogen;
+makex(1,0ut,ang,y1);
+makex(2,5ut,ang,y2);
+makex(3,1ut,ang,y3);
+makex(4,5ut,ang,y4);
+makex(5,1.3ut,ang,y5);
+makex(6,-.6ut,ang,y6);
+makex(8,13.5ut,ang,y8);
+makex(7,1ut,ang,y7);
+%
+draw z1{right}..z2{dir mi_beta}..z3{left};
+draw z3{right}..z4{dir mi_beta}..z5{left}..z7{dir gamma}..z8;
+labels(range 1 thru 8);
+endchar;
+
+% tz
+makewi(12,18ut,ang,mid);
+beginchar(27,wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y5=y12=mid;
+y2=top;
+y3=bas;
+y4=an_mid;
+y6=an_mid+3/14(mid-an_mid);
+y7=an_mid-3/10(an_mid-an_bot);
+y8=an_bot;
+y9=y11=G_bogen;
+y10=bot;
+makex(1,0ut,ang,y1);
+makex(2,3.3ut,ang,y2);
+makex(3,-.4ut,ang,y3);
+makex(4,0ut,ang,y4);
+makex(5,7.5ut,ang,y5);
+makex(6,10ut,ang,y6);
+makex(7,6.5ut,ang,y7);
+makex(8,9.6ut,ang,y8);
+makex(9,9ut,ang,y9);
+makex(10,6ut,ang,y10);
+makex(11,4.5ut,ang,y11);
+makex(12,18ut,ang,y12);
+%
+draw z1{dir gamma}..z2{dir beta};
+draw z2..z3;
+draw z4{dir gamma}..z5{right}..z6{dir mi_beta}..z7{left};
+draw z7{right}..z8..z9{dir mi_beta}..z10{left}..z11{dir gamma}..z12;
+labels(range 1 thru 12);
+endchar;
diff --git a/Master/texmf-dist/fonts/source/public/gothic/su-spec.mf b/Master/texmf-dist/fonts/source/public/gothic/su-spec.mf
new file mode 100644
index 00000000000..347f81b9db0
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/su-spec.mf
@@ -0,0 +1,555 @@
+% su-spec.mf -Input-File Zeichensatz
+
+makewi(8,13ut,ang,top);
+beginchar("0",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=an_bot;
+y4=bas;
+makex(1,7ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3,1ut,ang,y3);
+makex(4,4ut,ang,y4);
+makex(5,6.5ut,ang,y5);
+makex(6,9ut,ang,y6);
+makex(7,8ut,ang,y7);
+makex(8,12ut,ang,y8);
+%
+draw z1{dir gamma-dir 10}..z2..z3..z4{right}..z5..z6..z7;
+draw z7..z8{dir gamma};
+labels(range 1 thru 8);
+endchar;
+
+
+makewi(2,8ut,ang,mid);
+beginchar("1",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=mid;
+y3=bas;
+y2=top;
+makex(1,0ut,ang,y1);
+makex(2,7ut,ang,y2);
+makex(3,3ut,ang,y3);
+%
+draw z1..z2;
+draw z2..z3;
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("2",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=Z_anf;
+y2=top;
+y3=mid;
+y4=an_mid;
+y5=y6=bas;
+y7=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,3.3ut,ang,y4);
+makex(5,-2ut,ang,y5);
+makex(6,4.5ut,ang,y6);
+makex(7,7.3ut,ang,y7);
+%
+draw z1..z2{right}..z3..z4..z5{dir mi_beta};
+draw z5{dir gamma}..z6{right}..z7;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar("3",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=an_bot;
+y2=bas;
+y3=an_mid;
+y4=an_top;
+y5=y7=Z_anf;
+y6=top;
+makex(1,-2ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3,6ut,ang,y3);
+makex(4,3ut,ang,y4);
+makex(5,8ut,ang,y5);
+makex(6,5ut,ang,y6);
+makex(7,0ut,ang,y7);
+%
+draw z7..z6{right}..z5..z4{left};
+draw z4{right}..z3..z2{left}..z1;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("4",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=an_mid;
+y3=1/2(mid-an_top)+an_top;
+y4=mid;
+y5=bas;
+makex(1,7ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3,12ut,ang,y3);
+makex(4,8.3ut,ang,y4);
+makex(5,3.5ut,ang,y5);
+%
+draw z1..z2;
+draw z2{right}..z3;
+draw z4..{dir mi_beta}z5;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,11ut,ang,mid);
+beginchar("5",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y6=top;
+y2=y3=an_top;
+y4=bas;
+y5=an_bot;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+makex(3,8ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,-1ut,ang,y5);
+makex(6,10ut,ang,y6);
+%
+draw z1..z2;
+draw z2{dir gamma}..z3..z4{left}..z5;
+draw z1..z6{dir gamma};
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(1,12ut,ang,mid);
+beginchar("6",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=I_anf;
+y2=top;
+y3=O_bogen;
+y4=bas;
+y5=an_mid;
+y6=an_top;
+makex(1,11ut,ang,y1);
+makex(2,8.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,3ut,ang,y4);
+makex(5,8ut,ang,y5);
+makex(6,6ut,ang,y6);
+%
+draw z1..z2{left}..z3{dir mi_beta}..z4{right}..z5..
+ z6{left}..z3{dir mi_beta};
+labels(range 1 thru 6);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("7",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=I_anf;
+y2=top;
+y3=bas;
+y4=an_top=y5;
+makex(1,0ut,ang,y1);
+makex(2,9ut,ang,y2);
+makex(3,3.5ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,8ut,ang,y5);
+%
+draw z1{dir beta}..z2{dir beta};
+draw z2..z3;
+draw z4..z5{dir beta-dir 90};
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(9,13ut,ang,mid);
+beginchar("8",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y8=y9=top;
+y2=y7=mid;
+y3=an_top;
+y4=y6=an_mid;
+y5=bas;
+makex(1,7ut,ang,y1);
+makex(2,3.4ut,ang,y2);
+makex(3,5ut,ang,y3);
+makex(4,7.5ut,ang,y4);
+makex(5,4ut,ang,y5);
+makex(6,0ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,9ut,ang,y8);
+makex(9,12ut,ang,y9);
+%
+draw z1{left}..z2..z3..z4..z5{left}..z6..z3..z7..z8;
+draw z8..z9{dir beta};
+labels(range 1 thru 9);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("9",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y3=mid;
+y4=top;
+y2=an_top;
+y5=y7=an_bot;
+y6=bas;
+makex(1,7.5ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,1.2ut,ang,y3);
+makex(4,5.2ut,ang,y4);
+makex(5,4.5ut,ang,y5);
+makex(6,1.3ut,ang,y6);
+makex(7,-1.5ut,ang,y7);
+%
+draw z1{dir mi_beta}..z2{left}..z3..z4{right}..z1{dir mi_beta}..
+ z5..z6{left}..z7;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,4ut,ang,mid);
+beginchar(131,wi/hppp,14ut#,0ut); % uebergang an_top{gamma} -> z
+pickup su_pen;
+y1=an_top;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+%
+draw z1{dir gamma}..z2{right};
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,4ut,ang,mid);
+beginchar(132,wi/hppp,14ut#,0ut); % uebergang an_top{right} -> z
+pickup su_pen;
+y1=an_top;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+%
+draw z1{right}..z2{right};
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(3,12ut,ang,mid);
+beginchar(133,wi/hppp,14ut#,0ut); % uberggang blank -> z
+pickup su_pen;
+y1=bas;
+y2=an_top;
+y3=mid;
+makex(1,0ut,ang,y1);
+makex(2,8.5ut,ang,y2);
+makex(3,12ut,ang,y3);
+%
+draw z1..z2..z3{right};
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(3,7ut,ang,mid);
+beginchar(135,wi/hppp,14ut#,0ut); % uberggang an_mid -> z
+pickup su_pen;
+y1=an_mid;
+y2=an_top;
+y3=mid;
+makex(1,0ut,ang,y1);
+makex(2,3.5ut,ang,y2);
+makex(3,7ut,ang,y3);
+%
+draw z1..z2..z3{right};
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar(128,wi/hppp,14ut#,0ut); %uebergang an_bot -> mid
+pickup su_pen;
+y1=an_bot;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,9ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 7);
+endchar;
+
+makewi(2,4ut,ang,mid);
+beginchar(129,wi/hppp,14ut#,0ut); % uebergang an_top -> mid
+pickup su_pen;
+y1=an_top;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+%
+draw z1{right}..{dir gamma}z2;
+labels(range 1 thru 7);
+endchar;
+
+makewi(2,7ut,ang,mid);
+beginchar(130,wi/hppp,14ut#,0ut); % uebergang an_mid -> mid
+pickup su_pen;
+y1=an_mid;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,7ut,ang,y2);
+%
+draw z1{dir delta}..{dir gamma}z2;
+labels(range 1 thru 7);
+endchar;
+
+makewi(4,9ut,ang,mid);
+beginchar("+",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=an_top;
+y2=an_bot;
+y3=y4=an_mid;
+makex(1,5.3ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,8.8ut,ang,y4);
+%
+draw z1..z2;
+draw z3..z4;
+labels(range 1 thru 4);
+endchar;
+
+
+makewi(4,9ut,ang,mid);
+beginchar("*",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=an_top;
+y2=an_bot;
+y3=y4=an_mid;
+y5=y6=6/7y1;
+y7=y8=9/7y2;
+makex(1,5.3ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,8.8ut,ang,y4);
+makex(5,2ut,ang,y5);
+makex(6,8ut,ang,y6);
+makex(7,1ut,ang,y7);
+makex(8,6.8ut,ang,y8);
+%
+draw z1..z2;
+draw z3..z4;
+draw z5..z8;
+draw z6..z7;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,8ut,ang,mid);
+beginchar("-",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y2=an_mid;
+makex(1,0ut,ang,y1);
+makex(2,8ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,12.5ut,ang,mid);
+beginchar(134,wi/hppp,14ut#,0ut); % --
+pickup su_pen;
+y1=y2=an_mid;
+makex(1,0ut,ang,y1);
+makex(2,12.5ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar(";",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=an_mid;
+y2=an_bot;
+y3=1/7bot;
+makex(1,2.5ut,ang,y1);
+makex(2,2.5ut,ang,y2);
+makex(3,1.5ut,ang,y3);
+%
+draw z2{dir mi_beta+dir 10}..z3{dir mi_beta};
+pickup su_pen_small;
+drawdot z1;
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar(",",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y2=an_bot;
+y3=1/7bot;
+makex(2,2.5ut,ang,y2);
+makex(3,1.5ut,ang,y3);
+%
+draw z2{dir mi_beta+dir 10}..z3{dir mi_beta};
+pickup su_pen_small;
+drawdot z2;
+labels(range 2 thru 3);
+endchar;
+
+
+makewi(2,3ut,ang,mid);
+beginchar(".",wi/hppp,14ut#,0ut);
+y2=bas;
+makex(2,2ut,ang,y2);
+%
+pickup su_pen_small;
+drawdot z2;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,9ut,ang,top);
+beginchar("!",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=Z_anf;
+y2=an_mid;
+y3=bas;
+makex(1,4ut,ang,y1);
+makex(2,1ut,ang,y2);
+makex(3,0.5ut,ang,y3);
+%
+draw z1..z2;
+pickup su_pen_small;
+drawdot z3;
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,4ut,ang,mid);
+beginchar(":",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=6/7an_top;;
+y2=an_bot;
+makex(1,1.5ut,ang,y1);
+makex(2,.3ut,ang,y2);
+%
+pickup su_pen_small;
+drawdot z1; drawdot z2;
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,8ut,ang,top);
+beginchar("?",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=Z_anf;
+y2=top;
+y3=mid;
+y4=an_mid;
+y5=1/2an_bot;
+makex(1,1ut,ang,y1);
+makex(2,5.5ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,3.3ut,ang,y4);
+makex(5,3ut,ang,y5);
+%
+draw z1..z2{right}..z3..z4{dir mi_beta};
+pickup su_pen_small;
+drawdot z5;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,7ut,ang,mid);
+beginchar("=",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=4/3an_mid=y2;
+y3=y4=2/3an_mid;
+makex(1,0ut,ang,y1);
+makex(2,6.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,6.5ut,ang,y4);
+%
+draw z1..z2{dir 5};
+draw z3..z4{dir 5};
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar("(",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=bas;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+%
+draw z1{dir mi_gamma}..z2;
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar(")",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=bas;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+%
+draw z1..z2{dir mi_gamma};
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar("/",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=bas;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar(16,wi/hppp,21ut#,0ut); % einleitende Anfuehrungszeichen
+pickup su_pen;
+y1=an_bot;
+y2=an_bot;
+y3=y4=bas-1.5ut;
+makex(1,1ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,1ut,ang,y3);
+makex(4,3ut,ang,y4);
+%
+draw z1{dir mi_gamma+dir 20}..z3{dir mi_gamma};
+draw z2{dir mi_gamma+dir 20}..z4{dir mi_gamma};
+labels(range 1 thru 4);
+endchar;
+
+makewi(2,6ut,ang,mid);
+beginchar(17,wi/hppp,21ut#,0ut); %schliessendes Anfuehrungszeichen
+pickup su_pen;
+y1=y2=top;
+y3=top-1/2(top-mid)=y4;
+makex(1,1ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,1ut,ang,y3);
+makex(4,3ut,ang,y4);
+%
+draw z1{dir mi_gamma+dir 20}..z3{dir mi_gamma};
+draw z2{dir mi_gamma+dir 20}..z4{dir mi_gamma};
+labels(range 1 thru 4);
+endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/su-upp.mf b/Master/texmf-dist/fonts/source/public/gothic/su-upp.mf
new file mode 100644
index 00000000000..6eeed919fb8
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/su-upp.mf
@@ -0,0 +1,849 @@
+
+% su-upp.mf -Input-File Zeichensatz
+
+
+
+makewi(11,16ut,ang,an_bot); %A
+beginchar("A",wi/hppp,21ut#,0ut#); %A
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=O_bogen;
+y4=y10=bas;
+y9=y11=an_bot;
+makex(1,7.5ut,ang,y1);
+makex(2,.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.5ut,ang,y4);
+makex(5,10.2ut,ang,y5);
+makex(6,12ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,12ut,ang,y9);
+makex(10,13.5ut,ang,y10);
+makex(11,16ut,ang,y11);
+%
+draw z1{left}..z2..z3..z4{right}..z5..z6..z7;
+draw z7..z8{dir gamma};
+draw z8..z9{dir mi_beta}..z10..z11{dir gamma};
+labels(range 1 thru 11);
+endchar;
+
+
+makewi(11,16ut,ang,an_bot); %A
+beginchar(196,wi/hppp,27ut#,0ut#); %AE
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=O_bogen;
+y4=y10=bas;
+y9=y11=an_bot;
+makex(1,7.5ut,ang,y1);
+makex(2,.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.5ut,ang,y4);
+makex(5,10.2ut,ang,y5);
+makex(6,12ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,12ut,ang,y9);
+makex(10,13.5ut,ang,y10);
+makex(11,16ut,ang,y11);
+%
+draw z1{left}..z2..z3..z4{right}..z5..z6..z7;
+draw z7..z8{dir gamma};
+draw z8..z9{dir mi_beta}..z10..z11{dir gamma};
+y12=y13=top+6ut;
+makex(12,6ut,ang,y12);
+makex(13,10ut,ang,y13);
+draw z12..z12+(-.5ut,-3ut);
+draw z13..z13+(-.5ut,-3ut);
+labels(range 1 thru 13);
+endchar;
+
+
+
+makewi(13,16ut,ang,an_top); %B
+beginchar("B",wi/hppp,21ut#,0ut#); %B
+pickup su_pen;
+y1=Z_anf;
+y2=y12=mid;
+y3=y5=I_anf;
+y4=top;
+y6=y8=an_bot;
+y7=y10=bas;
+y9=L_o;
+y11=an_mid;
+y13=an_top;
+makex(1,2.5ut,ang,y1);
+makex(2,6.6ut,ang,y2);
+makex(3,10.4ut,ang,y3);
+makex(4,8.2ut,ang,y4);
+makex(5,6.7ut,ang,y5);
+makex(6,4ut,ang,y6);
+makex(7,1.7ut,ang,y7);
+makex(8,0ut,ang,y8);
+makex(9,2ut,ang,y9);
+makex(10,9ut,ang,y10);
+makex(11,13.2ut,ang,y11);
+makex(12,12.5ut,ang,y12);
+makex(13,16ut,ang,y13);
+%
+draw z1..z2{right}..z3..z4{left}..z5{dir mi_beta}..z6..z7{left}..
+ z8..z9{right}..z10{right}..z11..z12;
+draw z12..z13{right};
+labels(range 1 thru 13);
+endchar;
+
+makewi(9,13ut,ang,an_bot); %C
+beginchar("C",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=y2=top;
+y3=mid;
+y4=y6=y9=an_bot;
+y5=y8=bas;
+y7=L_o;
+makex(1,13ut,ang,y1);
+makex(2,8ut,ang,y2);
+makex(3,5ut,ang,y3);
+makex(4,4ut,ang,y4);
+makex(5,1.9ut,ang,y5);
+makex(6,0ut,ang,y6);
+makex(7,2.3ut,ang,y7);
+makex(8,9ut,ang,y8);
+makex(9,13ut,ang,y9);
+%
+draw z1{dir mi_gamma}..z2{left}..z3{dir mi_beta}..z4{dir mi_beta}..
+ z5{left}..z6..z7{right}..z8{right}..z9{dir gamma};
+labels(range 1 thru 9);
+endchar;
+
+
+makewi(12,18ut,ang,an_bot); %D
+beginchar("D",wi/hppp,14ut#,0ut#); %D
+pickup su_pen;
+y1=y5=bas;
+y2=y4=y6=an_mid;
+y3=y11=mid;
+y7=I_anf;
+y8=top;
+y9=Z_anf;
+y10=13/14mid;
+y12=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,1.3ut,ang,y2);
+makex(3,7.4ut,ang,y3);
+makex(4,9.1ut,ang,y4);
+makex(5,13.5ut,ang,y5);
+makex(6,17ut,ang,y6);
+makex(7,17.4ut,ang,y7);
+makex(8,15.2ut,ang,y8);
+makex(9,12.2ut,ang,y9);
+makex(10,16ut,ang,y10);
+makex(11,20ut,ang,y11);
+makex(12,18ut,ang,y12);
+%
+draw z1..z2{dir beta}..z3{right}..z4..z5{right}..z6{dir beta}..z7..
+ z8{left}..z9..z10{right}..z11;
+labels(range 1 thru 12);
+endchar;
+
+
+
+makewi(10,7.5ut,ang,an_mid); %E
+beginchar("E",wi/hppp,21ut#,7ut#); %E
+pickup su_pen;
+y1=y3=Z_anf;
+y2=mid;
+y5=I_anf;
+y4=top;
+y6=y8=G_bogen;
+y7=bot;
+y9=15/14an_mid;
+y10=an_mid;
+makex(1,1.9ut,ang,y1);
+makex(2,7ut,ang,y2);
+makex(3,10.6ut,ang,y3);
+makex(4,8.8ut,ang,y4);
+makex(5,6.5ut,ang,y5);
+makex(6,3.3ut,ang,y6);
+makex(7,6ut,ang,y7);
+makex(8,9.6ut,ang,y8);
+makex(9,.5ut,ang,y9);
+makex(10,7.5ut,ang,y10);
+%
+draw z1..z2{right}..z3..z4{left}..z5..z6..z7{right}..z8{dir beta};
+draw z9..z10{dir delta};
+labels(range 1 thru 10);
+endchar;
+
+
+
+makewi(9,9ut,ang,an_bot); %F
+beginchar("F",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=y2=top;
+y3=I_anf;
+y4=an_bot;
+y5=bas;
+y6=1/2an_bot;
+y7=mid-3/28mid;
+y8=mid;
+y9=an_bot;
+makex(1,17ut,ang,y1);
+makex(2,11.8ut,ang,y2);
+makex(3,9.3ut,ang,y3);
+makex(4,5.5ut,ang,y4);
+makex(5,3ut,ang,y5);
+makex(6,0ut,ang,y6);
+makex(7,5ut,ang,y7);
+makex(8,12ut,ang,y8);
+makex(9,9ut,ang,y9);
+%
+draw z1{dir mi_beta}..z2{left}..z3{dir mi_beta}..z4..z5{left}..z6;
+draw z7{right}..z8{dir beta-dir 90};
+labels(range 1 thru 9);
+endchar;
+
+
+makewi(12,21ut,ang,mid); %G
+beginchar("G",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=y12=mid;
+y3=y5=O_bogen;
+y4=bas;
+y9=y11=G_bogen;
+y10=bot;
+makex(1,7.4ut,ang,y1);
+makex(2,1.4ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.6ut,ang,y4);
+makex(5,10ut,ang,y5);
+makex(6,12ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,11ut,ang,y9);
+makex(10,8.3ut,ang,y10);
+makex(11,7ut,ang,y11);
+makex(12,21ut,ang,y12);
+%
+draw z1..z2{z3-z2}..z3..z4{right}..z5{z6-z5}..z6..z7;
+draw z7..z8{dir gamma};
+draw z8{dir mi_beta}..z9{dir mi_beta}..z10{left}..z11{dir gamma}..z12{dir gamma};
+labels(range 1 thru 12);
+endchar;
+
+makewi(13,14ut,ang,an_bot); %H
+beginchar("H",wi/hppp,21ut#,7ut#); %H
+pickup su_pen;
+y3=y1=Z_anf;
+y8=mid;
+y2=mid+5/14(top-mid);
+y5=I_anf;
+y4=top;
+y6=y7=bas;
+y9=an_top;
+y10=y12=g_bogen;
+y11=bot;
+y13=an_bot;
+makex(1,2ut,ang,y1);
+makex(2,6.8ut,ang,y2);
+makex(3,10ut,ang,y3);
+makex(4,8.2ut,ang,y4);
+makex(5,6.2ut,ang,y5);
+makex(6,2.3ut,ang,y6);
+makex(7,9.3ut,ang,y7);
+makex(8,11.2ut,ang,y8);
+makex(9,13.5ut,ang,y9);
+makex(10,12ut,ang,y10);
+makex(11,9.8ut,ang,y11);
+makex(12,8.2ut,ang,y12);
+makex(13,14ut,ang,y13);
+%
+draw z1..z2{right}..z3..z4{left}..z5..z6{dir mi_beta};
+draw z6{dir beta}..z7;
+draw z7{dir mi_alpha}..z8{right}..z9..z10..z11{left}..z12..z13{dir gamma};
+labels(range 1 thru 12);
+endchar;
+
+
+makewi(7,6.5ut,ang,an_bot); %I
+beginchar("I",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=I_anf;
+y2=y3=top;
+y4=U_bogen;
+y5=bas;
+y6=1/2an_bot;
+y7=an_bot;
+makex(1,1ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,9ut,ang,y3);
+makex(4,6.7ut,ang,y4);
+makex(5,3.5ut,ang,y5);
+makex(6,0ut,ang,y6);
+makex(7,6.5ut,ang,y7);
+%
+draw z1{dir beta}..z2{right}..z3{dir gamma};
+draw z3{dir mi_beta}..z4{dir mi_beta}..z5{left}..z6;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(7,7.3ut,ang,an_bot); %J
+beginchar("J",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=I_anf;
+y2=y3=top;
+y4=y6=g_bogen;
+y5=bot;
+y7=an_bot;
+makex(1,1ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,9.5ut,ang,y3);
+makex(4,5.7ut,ang,y4);
+makex(5,3.6ut,ang,y5);
+makex(6,2.4ut,ang,y6);
+makex(7,7.3ut,ang,y7);
+%
+draw z1{dir beta}..z2{right}..z3{dir gamma};
+draw z3{dir mi_beta}..z4{dir mi_beta}..z5{left}..z6{dir beta}..z7{dir gamma};
+labels(range 1 thru 7);
+endchar;
+
+makewi(14,18ut,ang,an_bot); %K
+beginchar("K",wi/hppp,21ut#,0ut#); %K
+pickup su_pen;
+y1=y2=top;
+y3=I_anf;
+y4=y6=y12=y14=an_bot;
+y5=y13=bas;
+y7=y11=an_mid;
+y8=Z_anf;
+y9=mid;
+y10=1/2(mid-an_mid)+an_mid;
+makex(1,16.5ut,ang,y1);
+makex(2,11.5ut,ang,y2);
+makex(3,9ut,ang,y3);
+makex(4,5ut,ang,y4);
+makex(5,2.7ut,ang,y5);
+makex(6,.4ut,ang,y6);
+makex(7,0ut,ang,y7);
+makex(8,13ut,ang,y8);
+makex(9,14.3ut,ang,y9);
+makex(10,10ut,ang,y10);
+makex(11,12.7ut,ang,y11);
+makex(12,13.8ut,ang,y12);
+makex(13,15.9ut,ang,y13);
+makex(14,18ut,ang,y14);
+%
+draw z1{dir mi_beta}..z2{left}..z3{dir mi_beta}..z4..z5{left}..z6..z7{dir beta}..
+ z8{dir beta-dir 90}..z9{dir mi_beta}..z10{left};
+draw z10{right}..z11..z12..z13{right}..z14{dir gamma};
+labels(range 1 thru 14);
+endchar;
+
+makewi(11,13ut,ang,an_bot); %L
+beginchar("L",wi/hppp,21ut#,0ut#); %L
+pickup su_pen;
+y1=Z_anf;
+y2=mid;
+y3=y5=I_anf;
+y4=top;
+y6=y8=y11=an_bot;
+y7=y10=bas;
+y9=L_o;
+makex(1,2.4ut,ang,y1);
+makex(2,6.5ut,ang,y2);
+makex(3,10.2ut,ang,y3);
+makex(4,8.1ut,ang,y4);
+makex(5,6.5ut,ang,y5);
+makex(6,4ut,ang,y6);
+makex(7,1.7ut,ang,y7);
+makex(8,0ut,ang,y8);
+makex(9,2.4ut,ang,y9);
+makex(10,9ut,ang,y10);
+makex(11,13ut,ang,y11);
+%
+draw z1..z2{right}..z3..z4{left}..z5{dir mi_beta}..z6..
+ z7{left}..z8..z9{right}..z10{right}..z11{dir gamma};
+labels(range 1 thru 11);
+endchar;
+
+
+
+makewi(18,28ut,ang,an_bot); %M
+beginchar("M",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y8=y14=y15=top;
+y3=y7=y9=y13=I_anf;
+y4=y6=y10=y18=an_bot;
+y12=3/2an_bot;
+y5=y11=y17=bas;
+y16=U_bogen;
+makex(1,1ut,ang,y1);
+makex(2,5.2ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,4.1ut,ang,y5);
+makex(6,2ut,ang,y6);
+makex(7,6.3ut,ang,y7);
+makex(8,12.2ut,ang,y8);
+makex(9,16.1ut,ang,y9);
+makex(10,16.5ut,ang,y10);
+makex(11,13.8ut,ang,y11);
+makex(12,11.6ut,ang,y12);
+makex(13,17.2ut,ang,y13);
+makex(14,20.5ut,ang,y14);
+makex(15,26.7ut,ang,y15);
+makex(16,23.5ut,ang,y16);
+makex(17,25.0ut,ang,y17);
+makex(18,28ut,ang,y18);
+%
+draw z1..z2{right}..z3..z4{dir mi_beta}..z5{left}..z6..z7..z8{right}..
+ z9..z10..z11{left}..z12..z13..z14{right}..z15{dir gamma};
+draw z15{dir mi_beta}..z16{dir mi_beta}..z17{right}..z18{dir gamma};
+labels(range 1 thru 18);
+endchar;
+
+
+makewi(12,16ut,ang,an_bot); %N
+beginchar("N",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y8=y9=top;
+y3=y7=I_anf;
+y4=y6=y12=an_bot;
+y5=y11=bas;
+y10=U_bogen;
+makex(1,1ut,ang,y1);
+makex(2,5.2ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,6.3ut,ang,y4);
+makex(5,4.2ut,ang,y5);
+makex(6,1.5ut,ang,y6);
+makex(7,6ut,ang,y7);
+makex(8,10.3ut,ang,y8);
+makex(9,15.4ut,ang,y9);
+makex(10,12.3ut,ang,y10);
+makex(11,13.5ut,ang,y11);
+makex(12,16ut,ang,y12);
+%
+draw z1..z2{right}..z3..z4{dir mi_beta}..z5{left}
+ ..z6..z7{dir gamma}..z8{right}..z9{dir gamma};
+draw z9{dir mi_beta}..z10{dir mi_beta}..z11{right}..z12{dir gamma};
+labels(range 1 thru 12);
+endchar;
+
+
+makewi(5,11ut,ang,an_bot); %O
+beginchar("O",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=O_bogen;
+y4=bas;
+makex(1,7.5ut,ang,y1);
+makex(2,1.3ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.5ut,ang,y4);
+makex(5,11ut,ang,y5);
+makex(6,11.8ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,17ut,ang,y8);
+%
+draw z1{dir mi_gamma-dir 10}..z2..z3..z4{right}..z5..z6..z7;
+draw z7..z8{dir gamma};
+labels(range 1 thru 8);
+endchar;
+
+
+makewi(5,11ut,ang,an_bot); %OE
+beginchar(214,wi/hppp,27ut#,0ut#);
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=O_bogen;
+y4=bas;
+makex(1,7.5ut,ang,y1);
+makex(2,1.3ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.5ut,ang,y4);
+makex(5,11ut,ang,y5);
+makex(6,11.8ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,17ut,ang,y8);
+%
+draw z1{dir mi_gamma-dir 10}..z2..z3..z4{right}..z5..z6..z7;
+draw z7..z8{dir gamma};
+y12=y13=top+6ut;
+makex(12,6ut,ang,y12);
+makex(13,10ut,ang,y13);
+draw z12..z12+(-.5ut,-3ut);
+draw z13..z13+(-.5ut,-3ut);
+labels(range 1 thru 8,12,13);
+endchar;
+
+makewi(11,10.3ut,ang,an_bot); %P
+beginchar("P",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=I_anf;
+y2=y4=y7=top;
+y5=bot;
+y6=mid;
+y8=Z_anf;
+y9=y10=3/2an_bot;
+y11=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,2ut,ang,y2);
+makex(4,9ut,ang,y4);
+makex(5,4.6ut,ang,y5);
+makex(6,8ut,ang,y6);
+makex(7,14.7ut,ang,y7);
+makex(8,17.4ut,ang,y8);
+makex(9,6.2ut,ang,y9);
+makex(10,3ut,ang,y10);
+makex(11,10.3ut,ang,y11);
+%
+draw z1{dir beta}..z2{right}..z4{dir gamma};
+draw z4{dir mi_beta}..z5;
+draw z6{dir beta}..z7{right}..z8{dir mi_beta}..z9;
+draw z10..z11{dir gamma};
+labels(range 1 thru 11);
+endchar;
+
+
+makewi(10,13ut,ang,an_bot); %Q
+beginchar("Q",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=O_bogen;
+y4=bas;
+y9=bot;
+makex(1,7.5ut,ang,y1);
+makex(2,1.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.6ut,ang,y4);
+makex(5,11ut,ang,y5);
+makex(6,11.8ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,11.5ut,ang,y9);
+%
+draw z1{dir mi_gamma-dir 10}..z2..z3..z4{right}..z5..z6{z6-z5}..z7;
+draw z7..z8{dir gamma};
+draw z8..z9;
+labels(range 1 thru 10);
+endchar;
+
+makewi(13,17.5ut,ang,an_bot); %R
+beginchar("R",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y7=top;
+y3=y5=y11=y13=an_bot;
+y4=y12=bas;
+y6=y23=y8=I_anf;
+y9=mid;
+y10=an_top;
+makex(1,1ut,ang,y1);
+makex(2,4.8ut,ang,y2);
+makex(23,7ut,ang,y23);
+makex(3,6.3ut,ang,y3);
+makex(4,4ut,ang,y4);
+makex(5,1.7ut,ang,y5);
+makex(6,5.8ut,ang,y6);
+makex(7,10.5ut,ang,y7);
+makex(8,14.3ut,ang,y8);
+makex(9,8ut,ang,y9);
+makex(10,10.7ut,ang,y10);
+makex(11,13.5ut,ang,y11);
+makex(12,15.5ut,ang,y12);
+makex(13,17.5ut,ang,y13);
+%
+draw z1{dir beta}..z2{right}..z23..z3{dir mi_beta}..z4{left}..z5..z6..
+ z7{right}..z8{dir mi_beta}..z9{left};
+draw z9{right}..z10{z11-z10}..z11..z12{right}..z13{dir gamma};
+labels(range 1 thru 13,23);
+endchar;
+
+
+makewi(10,8ut,ang,an_bot); %S
+beginchar("S",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y8=y9=top;
+y3=y7=I_anf;
+y4=y6=an_bot;
+y5=y10=bas;
+y11=5/7an_mid;
+y12=an_mid;
+makex(1,1ut,ang,y1);
+makex(2,5ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,4.ut,ang,y5);
+makex(6,1.3ut,ang,y6);
+makex(7,6ut,ang,y7);
+makex(8,10.2ut,ang,y8);
+makex(9,15.7ut,ang,y9);
+makex(10,12ut,ang,y10);
+makex(11,10ut,ang,y11);
+makex(12,17ut,ang,y12);
+%
+draw z1{dir beta}..z2{right}..z3..z4{dir mi_beta}..z5{left}..z6..z7..z8{right}..z9{dir gamma};
+labels(range 1 thru 9);
+endchar;
+
+
+makewi(6,13ut,ang,an_mid); %T
+beginchar("T",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=I_anf;
+y2=y3=top;
+y4=bas;
+y5=6/7an_mid;
+y6=an_mid;
+makex(1,1.3ut,ang,y1);
+makex(2,3.5ut,ang,y2);
+makex(3,9.5ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,4ut,ang,y5);
+makex(6,13ut,ang,y6);
+%
+draw z1{dir beta}..z2{right}..z3{dir gamma};
+draw z3..z4;
+draw z5..z6{dir delta};
+labels(range 1 thru 6);
+endchar;
+
+
+makewi(12,17ut,ang,an_bot); %ST
+beginchar(29,wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y8=y9=top;
+y3=y7=I_anf;
+y4=y6=an_bot;
+y5=y10=bas;
+y11=5/7an_mid;
+y12=an_mid;
+makex(1,1ut,ang,y1);
+makex(2,5ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,4.ut,ang,y5);
+makex(6,1.3ut,ang,y6);
+makex(7,6ut,ang,y7);
+makex(8,10.2ut,ang,y8);
+makex(9,15.7ut,ang,y9);
+makex(10,12ut,ang,y10);
+makex(11,10ut,ang,y11);
+makex(12,17ut,ang,y12);
+%
+draw z1{dir beta}..z2{right}..z3..z4{dir mi_beta}..z5{left}..z6..z7..z8{right}..z9{dir gamma};
+draw z9..z10;
+draw z11..z12{dir delta};
+labels(range 1 thru 12);
+endchar;
+
+
+
+makewi(11,16ut,ang,an_bot); %U
+beginchar("U",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=y3=Z_anf;
+y2=y7=y8=top;
+y4=y6=y9=U_bogen;
+y5=y10=bas;
+y11=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,4.2ut,ang,y3);
+makex(4,1.2ut,ang,y4);
+makex(5,4ut,ang,y5);
+makex(6,9ut,ang,y6);
+makex(7,12ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,12.6ut,ang,y9);
+makex(10,14ut,ang,y10);
+makex(11,16ut,ang,y11);
+%
+draw z1{dir beta}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta}..z5{right}..z6..z7{dir beta};
+draw z7..z8{dir beta};
+draw z8{dir mi_beta}..z9{dir mi_beta}..z10{right}..z11{dir gamma};
+labels(range 1 thru 11);
+endchar;
+
+makewi(11,16ut,ang,an_bot); %UE
+beginchar(220,wi/hppp,27ut#,0ut#);
+pickup su_pen;
+y1=y3=Z_anf;
+y2=y7=y8=top;
+y4=y6=y9=U_bogen;
+y5=y10=bas;
+y11=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,4.2ut,ang,y3);
+makex(4,1.2ut,ang,y4);
+makex(5,4ut,ang,y5);
+makex(6,9ut,ang,y6);
+makex(7,12ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,12.6ut,ang,y9);
+makex(10,14ut,ang,y10);
+makex(11,16ut,ang,y11);
+%
+draw z1{dir beta}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta}..z5{right}..z6..z7{dir beta};
+draw z7..z8{dir beta};
+draw z8{dir mi_beta}..z9{dir mi_beta}..z10{right}..z11{dir gamma};
+y12=y13=top+6ut;
+makex(12,6ut,ang,y12);
+makex(13,10ut,ang,y13);
+draw z12..z12+(-.5ut,-3ut);
+draw z13..z13+(-.5ut,-3ut);
+labels(range 1 thru 13);
+endchar;
+
+
+
+makewi(9,12ut,ang,an_bot); %V
+beginchar("V",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=y3=y6=y8=Z_anf;
+y2=y7=top;
+y4=y5=bas;
+makex(1,0ut,ang,y1);
+makex(2,4.3ut,ang,y2);
+makex(3,6.3ut,ang,y3);
+makex(4,3ut,ang,y4);
+makex(5,10.2ut,ang,y5);
+makex(6,9ut,ang,y6);
+makex(7,11.7ut,ang,y7);
+makex(8,14ut,ang,y8);
+%
+draw z1{dir gamma}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta};
+draw z4{dir beta}..z5{z5-z3};
+draw z5{z3-z5}..z6{dir beta}..z7{right}..z8..z5;
+labels(range 1 thru 8);
+endchar;
+
+
+makewi(11,18ut,ang,bas); %W
+beginchar("W",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf; y67=y112=mid;
+y2=y8=y13=top;
+y3=y7=y9=y12=y14=I_anf;
+y4=y6=an_bot;
+y5=y10=y11=bas;
+makex(1,1ut,ang,y1); makex(67,2.5ut,ang,y67);
+makex(2,5ut,ang,y2); makex(112,15.5ut,ang,y112);
+makex(3,7.5ut,ang,y3);
+makex(4,6.4ut,ang,y4);
+makex(5,4ut,ang,y5);
+makex(6,1.7ut,ang,y6);
+makex(7,5.2ut,ang,y7);
+makex(8,10.5ut,ang,y8);
+makex(9,13.4ut,ang,y9);
+makex(10,10ut,ang,y10);
+makex(11,16ut,ang,y11);
+makex(12,15.9ut,ang,y12);
+makex(13,19ut,ang,y13);
+makex(14,21.5ut,ang,y14);
+%
+draw z1..z2{right}..z3..z4..z5{left}..z6..z67..z7..z8{right}..z9..z10{dir mi_beta};
+draw z10{dir beta}..z11;
+draw z11..z112..z12..z13{right}..z14..z11;
+labels(range 1 thru 14,67,112);
+endchar;
+
+
+
+makewi(14,13ut,ang,an_bot); %X
+beginchar("X",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y3=Z_anf;
+y2=y10=top;
+y4=y6=y12=U_bogen;
+y5=y13=bas;
+y7=an_mid;
+y8=mid;
+y9=y11=I_anf;
+y14=an_bot;
+makex(1,2.7ut,ang,y1);
+makex(2,6ut,ang,y2);
+makex(3,8ut,ang,y3);
+makex(4,5.7ut,ang,y4);
+makex(5,3.7ut,ang,y5);
+makex(6,1.3ut,ang,y6);
+makex(7,1ut,ang,y7);
+makex(8,9.2ut,ang,y8);
+makex(9,15ut,ang,y9);
+makex(10,13ut,ang,y10);
+makex(11,10.2ut,ang,y11);
+makex(12,8ut,ang,y12);
+makex(13,10ut,ang,y13);
+makex(14,13ut,ang,y14);
+%
+draw z1{dir beta}..z2{right}..z3{z4-z3}..z4..z5{left}..z6..z7{dir beta}
+ ..z8..z9{dir beta}..z10{left}..z11{dir mi_beta}..z12{dir mi_beta}..z13{right}..z14{dir gamma};
+labels(range 1 thru 14);
+endchar;
+
+
+makewi(12,15.8ut,ang,an_bot); %Y
+beginchar("Y",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y7=top;
+y3=y6=y8=I_anf;
+y4=y5=bas;
+y9=y11=g_bogen;
+y10=bot;
+y12=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,5.5ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,3.2ut,ang,y4);
+makex(5,9.8ut,ang,y5);
+makex(6,9ut,ang,y6);
+makex(7,11.8ut,ang,y7);
+makex(8,14.3ut,ang,y8);
+makex(9,13.3ut,ang,y9);
+makex(10,11.2ut,ang,y10);
+makex(11,10ut,ang,y11);
+makex(12,15.8ut,ang,y12);
+%
+draw z1{dir beta}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta};
+draw z4{dir beta}..z5;
+draw z5..z6{dir beta}..z7{right}..z8..z9{dir mi_beta}..z10{left}..z11{dir beta}..z12{dir gamma};
+labels(range 1 thru 12);
+endchar;
+
+makewi(7,10.5ut,ang,an_mid); %Z
+beginchar("Z",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=top;
+y3=11/14*mid;
+y4=y6=g_bogen;
+y5=bot;
+y7=an_mid;
+makex(1,1ut,ang,y1);
+makex(2,5.5ut,ang,y2);
+makex(3,3.5ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,3.5ut,ang,y5);
+makex(6,6.3ut,ang,y6);
+makex(7,10.5ut,ang,y7);
+%
+draw z1{dir beta}..z2{right}..z3{left};
+draw z3{right}..z6..z5{left}..z4..{dir delta}z7;
+labels(range 1 thru 7);
+endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/suet14.mf b/Master/texmf-dist/fonts/source/public/gothic/suet14.mf
new file mode 100644
index 00000000000..b0ab5d24cd3
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/suet14.mf
@@ -0,0 +1,97 @@
+% SUET Zeichensatz
+%
+%
+% ---------------------
+%
+% Wuensche, Fehler und Anregungen bitte an:
+%
+% B. Ludewig, Uni Siegen, HRZ, Hoelderlinstr. 3, 5900 Siegen.
+%
+% Ludewig@hrz.uni-siegen.dbp.de
+% oder
+% GZ006@DSIHRZ51.BITNET
+%
+% plain
+
+font_identifier "SUET14"; font_size 14pt#;
+font_coding_scheme:="SUETTERLIN Text";
+
+mode_setup;
+boolean serifs,monospace;
+%
+xpt#:=pt#;
+monospace:=false;
+serifs:=true;
+%
+ut#:=0.4;
+ut=ut#*hppp;
+% % <-----hier kann gedreht werden
+numeric top,mid,base,bot,an_top,an_mid,an_bot,ang;
+numeric Z_anf,I_anf,o_bogen,L_o,U_bogen,g_bogen,G_bogen,z_bogen;
+numeric alpha,beta,gamma,delta,mi_alpha,mi_beta,mi_gamma,mi_delta;
+ang:=0;
+alpha=-45-ang;mi_alpha=-45+180-ang;
+beta=80-ang;mi_beta=80+180-ang;
+gamma=50-ang;mi_gamma=50+180-ang;
+delta=30-ang;mi_delta=30+180-ang;
+%
+%
+top:=21ut; mid:=14ut; bas:=0ut; bot:=-7ut;
+%
+an_top=12ut; an_mid=7ut; an_bot=2ut;
+%
+Z_anf=17ut; I_anf=18ut; O_bogen=5ut; L_o=4.5ut; U_bogen=3ut;
+g_bogen=-5ut; G_bogen=-4ut;z_bogen=-3ut;
+%
+pen su_pen;
+su_pen := pencircle xscaled 1.2ut yscaled 1.2ut;
+
+pen su_pen_small;
+%su_pen_small := pencircle scaled 1.51ut;
+su_pen_small := pencircle scaled 1.31ut;
+
+pen su_pen_big;
+su_pen_big := pencircle scaled 4.51ut;
+
+def makex(suffix i)(expr xnull,ang,yy)=
+ if yy=0: wi:=x.i:=xnull;
+ else: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull; fi
+enddef;
+
+def makewi(suffix i)(expr xnull,ang,yy)=
+ if yy=0: wi:=x.i:=xnull;
+ else: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull; fi
+enddef;
+
+def makebox (text r) =
+ for y=-7ut step 1ut until 21ut: r((0,y),(28ut,y)); endfor;
+ for x=-2ut step 1ut until 28ut: r((x,-7ut),(x,21ut)); endfor;
+ for y=bas+.5,bas-.5,an_bot+.5,an_mid+.5,an_top+.5,mid-.5,mid+.5,
+ Z_anf,Z_anf+.5,I_anf,I_anf+.5,O_bogen,O_bogen+.5,L_o,L_o+.5,
+ U_bogen,U_bogen+.5,g_bogen,g_bogen+.5,G_bogen,G_bogen+.5,
+ z_bogen,z_bogen+.5: r((0,y),(28ut,y)); endfor;
+ z90=(32ut,mid);makelabel("mid",z90);makelabel("top",(32ut,top));
+ makelabel("an_mid",(32ut,an_mid));makelabel("an_bot",(32ut,an_bot));
+ makelabel("an_top",(32ut,an_top));makelabel("bot",(32ut,bot));
+ makelabel("Z_anf",(32ut,Z_anf)); makelabel("I_anf",(32ut,I_anf));
+ makelabel("O_bo",(32ut,O_bogen)); makelabel("L_o",(32ut,L_o));
+ makelabel("U_bo",(32ut,U_bogen)); makelabel("g_bo",(32ut,g_bogen));
+ makelabel("G_bo",(32ut,G_bogen)); makelabel("z_bo",(32ut,z_bogen));
+ makelabel("0",(0,24ut)); makelabel("5",(5ut,24ut)); makelabel("10",(10ut,24ut));
+ makelabel("15",(15ut,24ut)); makelabel("20",(20ut,24ut));
+ makelabel("25",(25ut,24ut));
+ makelabel(str[w],(w,-10ut));
+enddef;
+
+%
+input su-low;
+input su-spec;
+input su-upp;
+%
+font_quad 33pt#;
+font_normal_space 6.6pt#;
+font_normal_stretch 3pt#;
+font_normal_shrink 1pt#;
+%
+input su-lig;
+end.
diff --git a/Master/texmf-dist/fonts/source/public/gothic/xxfrak.mf b/Master/texmf-dist/fonts/source/public/gothic/xxfrak.mf
new file mode 100644
index 00000000000..b90eda26dad
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/xxfrak.mf
@@ -0,0 +1,168 @@
+u#:=20/36pt#; % unit width
+lower_u#:=20/36pt#;
+
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=167/36pt#; % height of lowercase without ascenders
+%x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=7/36pt#; % lowercase hairline breadth
+%hair#:=9/36pt#; % lowercase hairline breadth
+%stem#:=25/36pt#; % lowercase stem breadth
+stem#:=24/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+%cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_hair#:=8/36pt#;
+cap_amount#:=8/36pt#;
+%cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_stem#:=32/36pt#;
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=5/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+numeric usual_right, usual_left;
+usual_right#:=0.5u#;
+usual_left#:=0.3u#;
+
+granularity:=1.01;
+%aspect_ratio:=2/3aspect_ratio;
+
+mode_setup;
+font_setup;
+cap_amount:=8/36pt;
+foot:=0.207x_height;
+num_height:=1.242x_height;
+cap_kern:=4/36pt;
+boolean ligature; ligature:=false;
+numeric alpha; alpha:=0;
+numeric coef, gencoef; gencoef:=1;
+
+% The positions of characters depending on cm or dc layouts
+
+if dc_layout>0:
+ ae_ligature:=oct"346";
+ Ae_ligature:=oct"306";
+ ff_ligature:=oct"033";
+ ss_ligature:=oct"034";
+ st_ligature:=oct"035";
+ sf_ligature:=oct"036";
+ tz_ligature:=oct"037";
+ ch_ligature:=oct"027";
+ ck_ligature:=oct"275";
+ s_final:=oct"276";
+ en_dash:=oct"025";
+ em_dash:=oct"026";
+ eszet:=oct"377";
+ open_gaens:=oct"022";
+else:
+ ae_ligature:=oct"032";
+ Ae_ligature:=oct"035";
+ ff_ligature:=oct"013";
+ ss_ligature:=oct"014";
+ st_ligature:=oct"015";
+ sf_ligature:=oct"016";
+ tz_ligature:=oct"017";
+ ch_ligature:=oct"012";
+ ck_ligature:=oct"275";
+ s_final:=oct"276";
+ en_dash:=oct"173";
+ em_dash:=oct"174";
+ eszet:=oct"031";
+ open_gaens:=oct"134";
+fi;
+
+%granularity:=1.01;
+
+%readfrom("yfrakbase"); % -sl 15-3-1991
+
+%if proofing>1: generate ycurrent; fi % switch to the driver file%
+
+generate cmfrakmis; % -sl 15-3-1991 / 24-3-1994 DT
+
+generate cmfraklow; % -sl 15-3-1991 / 25-3-94 DT
+
+generate cmfrakupp; % -sl 15-3-1991 / 24-3-1994 DT
+
+generate cmfraknum;
+
+generate cmfrakoth; % -sl 15-3-1991 / 24-3-1994 DT
+
+font_slant slant; font_x_height x_height#;
+font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+
+ligtable "c": "h"=:ch_ligature, "k"=:ck_ligature;
+ligtable "f": "f"=:ff_ligature;
+ligtable "s": "z"=:eszet,
+ ":"=:s_final, "s"=:ss_ligature, "t"=:st_ligature,
+"f"=:sf_ligature, "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#,
+"l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+ %, " "=:s_final " ";
+ligtable "t": "z"=:tz_ligature;
+ligtable oct"042": "a"=:oct"344", "e"=:oct"353", "o"=:oct"366", "u"=:oct"374",
+ "s"=:eszet;
+% ligtable "*": "a"=:oct"211", "e"=:oct"220", "o"=:oct"231", "u"=:oct"236";
+ligtable "`": "`"=:open_gaens;
+ligtable "'": "'"=:oct"042";
+ligtable "-": "-"=:en_dash;
+ligtable en_dash: "-"=:em_dash;
+ligtable ss_ligature: "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#
+, "l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+
+end.
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yfrabase.mf b/Master/texmf-dist/fonts/source/public/gothic/yfrabase.mf
new file mode 100644
index 00000000000..d7a84eebc2d
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yfrabase.mf
@@ -0,0 +1,73 @@
+def n_foot(suffix $) =
+w':=7.806u; penpos$.1(hair,90); penpos$.2(hair,0);
+penpos$.3(hair,-90);
+y$.1=y$.3=0.5foot; y$.2=-apex_o;
+x$.1=x$l-1/20w'; x$.3=x$r+1/20w';
+x$.2=x$;
+filldraw z$.2r{dir75}..z$.3r{dir15}--
+z$.3l{dir165}..z$r{up}--z$l{down}..
+z$.1r{dir195}--z$.1l{dir-15}..z$.2l{dir-65}
+--z$.2r & cycle;
+enddef;
+
+def e_umlaut(suffix $) =
+penpos$.1(2u,45); z$.1=z$;
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.2=z$.1r; z$.3=z$.1l; rt x$.4=rt x$.2; top y$.4=y$;
+draw z$.3--z$.2..z$.3..z$.4;
+enddef;
+
+def pointpoint =
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+enddef;
+
+
+
+
+def old_e_umlaut(suffix $) =
+numeric ww;
+ww:=2u; penpos$.1(hair,147);
+penpos$.2(1.5hair,90); penpos$.3(2.5hair,0);
+penpos$.4(1.2hair,-90);
+penpos$.5(hair,-147);
+penpos$.6(hair,-57); penpos$.7(hair,-57);
+z$.1=z$+(0.4ww,-0.2ww);
+z$.2l=z$-(0.111ww,0.556ww);
+z$.3l=z$-(0.5ww,apex_o);
+z$.4l=(x$,y$+0.556ww);
+z$.6-z$=whatever*dir33; x$.6r=x$+0.5ww;
+z$.5l=z$.6l; z$.7=whatever[z$,z$.6];
+x$.7=x$.3;
+penstroke z$.1e..z$.2e{left}..z$.3e{up}
+..z$.4e{right}..z$.5e;
+penstroke z$.7e--z$.6e
+enddef;
+
+def umlaut (suffix $) =
+y0=0; 0.5[x0,x0']=x$-2u;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle
+enddef;
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yfrak.mf b/Master/texmf-dist/fonts/source/public/gothic/yfrak.mf
new file mode 100644
index 00000000000..eac47e0b304
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yfrak.mf
@@ -0,0 +1,137 @@
+if unknown cmbase: input cmbase fi
+input yfrabase; % -sl 15-3-1991
+
+font_identifier:="yfrak"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+lower_u#:=20/36pt#;
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=167/36pt#; % height of lowercase without ascenders
+%x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=7/36pt#; % lowercase hairline breadth
+%hair#:=9/36pt#; % lowercase hairline breadth
+%stem#:=25/36pt#; % lowercase stem breadth
+stem#:=24/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+%cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_hair#:=8/36pt#;
+cap_amount#:=8/36pt#;
+%cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_stem#:=32/36pt#;
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=5/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+numeric usual_right, usual_left;
+usual_right#:=0.5u#;
+usual_left#:=0.3u#;
+
+granularity:=1.01;
+%aspect_ratio:=2/3aspect_ratio;
+
+mode_setup;
+font_setup;
+cap_amount:=8/36pt;
+foot:=0.207x_height;
+num_height:=1.242x_height;
+cap_kern:=4/36pt;
+boolean ligature; ligature:=false;
+numeric alpha; alpha:=0;
+numeric coef, gencoef; gencoef:=1;
+
+%granularity:=1.01;
+
+%readfrom("yfrakbase"); % -sl 15-3-1991
+%currenttransform:=identity xscaled 1.1;
+if proofing>1: generate ycurrent; fi % switch to the driver file%
+%generate yfrakmisc;
+generate yfrakmis; % -sl 15-3-1991
+%generate yfraklower;
+generate yfraklow; % -sl 15-3-1991
+%generate yfrakupper; % switch to the driver file
+generate yfrakupp; % -sl 15-3-1991
+generate yfraknum;
+%currenttransform:=identity;
+%generate yfrakother;
+generate yfrakoth; % -sl 15-3-1991
+
+font_slant slant; font_x_height x_height#;
+font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+
+%ligtable "a": "e"=:oct"032";
+ligtable "c": "h"=:oct"205", "k"=:oct"206";
+ligtable "f": "f"=:oct"204";
+ligtable "s": ":"=:oct"215", "s"=:oct"201", "t"=:oct"202", "z"=:oct"032",
+"f"=:oct"203", "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#,
+"l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+ligtable "t": "z"=:oct"213";
+ligtable oct"042": "a"=:oct"212", "e"=:oct"221", "o"=:oct"232", "u"=:oct"237",
+"s"=:oct"032";
+ligtable "*": "a"=:oct"211", "e"=:oct"220", "o"=:oct"231", "u"=:oct"236";
+ligtable "`": "`"=:oct"134";
+ligtable "'": "'"=:oct"042";
+ligtable "-": "-"=:oct"173";
+ligtable oct"173": "-"=:oct"174";
+ligtable oct"201": "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#
+, "l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+
+end.
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yfraklow.mf b/Master/texmf-dist/fonts/source/public/gothic/yfraklow.mf
new file mode 100644
index 00000000000..4039ed91c90
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yfraklow.mf
@@ -0,0 +1,593 @@
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a";
+.beginchar("a",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle; .endchar;
+
+nombre:= 4.722gencoef[1,1.129412];
+
+.cmchar "The Fraktur letter b";
+.beginchar("b",nombre*lower_u#,1.376x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(gencoef[0.241w,0.208w],gencoef[foot,0.322x_height]); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+gencoef[foot,0.9foot]); z3'=(x2r,gencoef[y3,y2r]);
+z3''=(x2l,gencoef[0.633(y3-y2)+y2,y2l]); penpos4(gencoef[hair,2hair],74);
+z4=(gencoef[0.5x2l,0],gencoef[1.259x_height,1.205x_height]);
+penpos5(gencoef[hair,1.5hair],-90); z5l=(x2r+gencoef[0.875stem,0.396w],h);
+penstroke z1e--z2e; filldraw z2l--z3''{up}..z4l--z4r--
+z3{dir45}..z5l{right}--z5r{left} ...z3'{down}--z2r--z2l & cycle;
+penpos5'(gencoef[hair,1.5hair],gencoef[-40,-90]);
+z5'l=(0,gencoef[0.097x_height,0.219x_height]); penpos6(hair,gencoef[-42,-30]);
+penpos7(hair,gencoef[-42,-30]); z6r=(gencoef[0.441w,0.521w],-apex_o);
+z7-z6=whatever*((w,gencoef[0.36x_height,0.479x_height])-z6);
+x7=gencoef[0.653w,0.698w]; z6'=whatever[z6,z7]; y6'=gencoef[y6l+apex_o,y6l];
+penpos8(1.167stem,42); z8r=(w,gencoef[0.545x_height,0.664x_height]);
+penpos11(hair,gencoef[-42,-61]); penpos10(hair,gencoef[-42,-61]);
+z10l=(gencoef[x8l,0.729w],x_height+apex_o);
+z10-z11=whatever*(z7-z6-(0,gencoef[0,0.1x_height])); x11=x1;
+penpos9(5/4stem,angle(z10-z11)); z9=whatever[z11l,z10l];
+y9r=y10l+gencoef[-apex_o,0]; penstroke z11e--z10e; penstroke
+z6e---z7e...z8e{up}.. z9e; filldraw z5'l..z1l{up}--z1r--z7l--
+z6'{dir138}..z5'r--z5'l & cycle; .endchar;
+
+nombre:= 3.639gencoef[1,1.145038];
+
+.cmchar "The Fraktur letter c";
+.beginchar("c",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(gencoef[hair,1.5hair],gencoef[-30,-48]); penpos2(gencoef[hair,1.5hair],
+gencoef[-30,-48]);
+z2-z1=whatever*((w,gencoef[0.78h,0.5h]));
+z1r=(gencoef[0.565w,0.586667w],-apex_o); x2r=w; z1'=whatever[z1,z2];
+y1'=gencoef[y1l+apex_o,y1r]; x1':=gencoef[x1',x1r]; z3=whatever[z1l,z2l];
+x3=gencoef[0.809w,x2l]; z4=(gencoef[2/3w,0.64w],0.176h);
+penpos5(1.083stem,angle((w,gencoef[0.4h,0.452h])));
+z5=(gencoef[0.26w,0.226667w],0.214h); penpos6(stem,0); z6l=(0,0.5h);
+penpos9(gencoef[hair,1.5hair],gencoef[-68,-22]);
+penpos8(gencoef[hair,1.5hair],gencoef[-68,-22]);
+penpos8.5(gencoef[hair,1.5hair],gencoef[-68,-22]);
+z9l=(gencoef[0.832w,0.546667w],h+apex_o);
+z9-z8=whatever*((w,gencoef[0.25h,0.404h])); x8l=gencoef[0.458w,0.2666w];
+z7=whatever[z8l,z9l]; x7=gencoef[0.145w,x8l];
+penpos10(gencoef[stem,1.3stem],angle((w,gencoef[0.25h,0.883562h])));
+z10r=whatever[z9l,z9r]; x10r=w+gencoef[0,apex_o]; z10l-z8.5=whatever*(z10r-z9);
+z8.5=whatever[z8,z9]; penstroke z1e--z2e; filldraw z1'..z5l..z6l{up}--z6r{down}
+..z5r..z4..z3{z2-z1}--z2l--z2r--z1' & cycle; filldraw z6l{up}..z7 &
+z7--z9l--z10r-- z10l--z8.5r & z8.5r{z8-z9}..(x6r,0.738h)..z6r{down}-- z6l &
+cycle; .endchar;
+
+nombre:= 4.944gencoef[1,1.073034];
+
+.cmchar "The Fraktur letter d";
+.beginchar("d",nombre*lower_u#,gencoef[1.269x_height#,1.37x_height#],0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(gencoef[0.227w,0.2094w],gencoef[foot,0.274x_height]); z1'=(x1r,foot);
+z2=(x1,gencoef[0.817x_height,0.795x_height]); penpos4(hair,-90);
+z4=(gencoef[0.5x1l,0],gencoef[0.11x_height,0.188x_height]); penpos5(hair,-38);
+z5r=(gencoef[x1r+0.7stem,0.6073w],-apex_o);
+penpos6(whatever,gencoef[-18,-38]);
+z6l-z5l=whatever*((w,gencoef[0.356x_height,x_height]));
+z6r-z5r=whatever*((w,gencoef[0.356x_height,x_height]));
+z6-z1'=whatever*((w,gencoef[-0.2x_height,-0.1x_height]));
+penpos7(gencoef[1.271stem,0.65stem],gencoef[50,39]); z7r=(w,0.579x_height);
+penpos8(stem,angle((w,1.04h))); z8=(gencoef[0.545w,0.52w],0.959x_height);
+penpos9(gencoef[0.946stem,0.8stem],25);
+z9l=(gencoef[0,-2apex_o],gencoef[1.093x_height,1.178x_height]);
+z10=(gencoef[0.303w,0.209w],h); penpos11(hair,-90);
+z11l=gencoef[(0.416w,h-apex_o),z10]; penpos3(hair,-57);
+z3=z8;
+%z3l-z2l=whatever*((w,gencoef[0.39x_height,0.198x_height]));
+%y3l=x_height-gencoef[2apex_o,0.075x_height];
+%y3l=x_height-2apex_o;
+penstroke z1e--z2e; penstroke
+z5e---z6e...z7e{up}..z8e ..z9e{up}; filldraw z2l--z3l--z3r{z2l-z3l}..
+z2r{down}--z2l & cycle; filldraw z4r..{z5r-z5l}z5r--z6--z1'--z1r--
+z1l{down}..z4l--z4r & cycle; filldraw z9l{up}..z10{right}..z11l
+--z11r{left}..z9r{down}--z9l & cycle; .endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e";
+.beginchar("e",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e; .endchar;
+
+.cmchar "The Fraktur letter f";
+.beginchar("f",4.539lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=w; penpos1.1(hair,0); z1.1=(0.318w',-d); penpos1.2(1.313stem,0); z1.2=(x1.1,0.795x_height);
+penpos1.4(3/4stem,-90); z1.4r=(0.857w',y1.2); z1.3=(0,y1.2); z1.12=whatever[z1.1l,z1.2l];
+z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height; z1.12'=z1.12-(0.5apex_o,0);
+z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4; penpos1.5(0.917stem,0);
+z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112; z1.6l-z1.5l=whatever*dir72;
+penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22); penpos1.11(hair,-22);
+z1.11r=(w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'; penpos1.8(whatever,68);
+z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w',1.366x_height); filldraw z1.1r..z1.13'..z1.2r...
+z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle; filldraw
+z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle;
+.endchar;
+
+nombre:= 5.611gencoef[1,1.168317];
+
+.cmchar "The Fraktur letter g";
+.beginchar("g",nombre*lower_u#,x_height#,gencoef[2.389lower_u#,3.4446lower_u#]);
+.adjust_fit(usual_left#-gencoef[0.315u#,0.3u#],usual_right#);
+penpos1(hair,gencoef[0,30]); penpos2(gencoef[hair,1.2hair],gencoef[90,110]);
+z1l=(gencoef[0,0.1w],gencoef[0.059h,-0.532d]); z2l=(gencoef[0.426w,0.568w],-d);
+z3=gencoef[(0.743w,0),(0.78w,-0.42d)];
+z4=(w-gencoef[apex_o,0],gencoef[0.107h,-0.161d]); penpos5(whatever,0);
+z5=gencoef[(0.733w,0.455h),(0.763w,0.199h)]; x5r=gencoef[0.8627w,0.86w];
+penpos6(hair,gencoef[-57,-20]); z6r=(gencoef[w,0.932w],0.845h);
+penpos7(4/3stem,gencoef[46,50]); z7r=gencoef[(0.673w,h+apex_o),(0.466w,h)];
+penpos8(hair,gencoef[-24,angle(z6-z7r)]); z8l=z7l; z8'=whatever[z8l,z8r];
+x8'=gencoef[0.688w,0.67w]; penpos9(gencoef[1.292stem,1.1stem],36);
+z9=(gencoef[0.228w,0.186441w],0.462h); penpos10(gencoef[hair,1.25hair],-50);
+z10r=gencoef[(0.277w,-0.239d),(0.339w,0)]; penpos11(gencoef[hair,1.25hair],-50);
+z11-z10=whatever*dir(gencoef[40,32]); x11=gencoef[0.8w,0.763w];
+z13=whatever[z10l,z11l]; x13=gencoef[0.488w,0.466w]; penstroke
+z2e{left}..z1e{gencoef[up,dir135]}; filldraw z2l{right}..z4 & flex(z4,z5r,z6r) &
+z6r--z6l{left}.. {z6l-z6r}z7r---z7l...z9l{down}..z10r--z13 &
+z13..z9r{up}..z8r{z7r-z7l} & z8r--z8' & z8'..z5l{down}
+..z3{down}..z2r{left}--z2l & cycle; penstroke z10e--z11e; .endchar;
+
+.cmchar "The Fraktur letter h";
+.beginchar("h",5.472lower_u#,1.376x_height#,2.556lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; filldraw
+z2l---z3''...z4l--z4r-- z3{dir45}..z5l{right}--z5r{left} ...z3'---z2r--z2l &
+cycle; penpos5'(hair,-40); z5'l=(0,0.097x_height); penpos6(hair,-37);
+penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.6w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; penpos8(1.292stem,39);
+z8r=(w,0.478x_height); penpos11(hair,-50); penpos10(hair,-50); x10r=x8l;
+y10l=x_height+apex_o; z10-z11=whatever*((w,0.559x_height)); x11=x1;
+penpos9(1.229stem,angle((w,0.559x_height))); z9=whatever[z11,z10];
+y9r=y10r-apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z11e--z10e; penstroke z6e---z7e; penpos7'(1.2hair,-40); z7'r=(0.426w,-d);
+penstroke z7'e{dir50}...z8e{up}.. z9e; filldraw z5'l..z1l{up}--z1r-- z15--z7l--
+z6'{dir138}..z5'r--z5'l & cycle; .endchar;
+
+.cmchar "The Fraktur letter i";
+.beginchar("i",2.889lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,-44); penpos2(hair,-44); penpos3(hair,-44); z1l=(0,0.834h);
+z2-z1=whatever*((w,0.37h)); y2l=h+apex_o; z3=whatever[z2l,z2r]; x3r=x5r+0.5stem;
+z4=(0.606w,0.931h); penpos5(stem,0); z5=(0.433w,0.759h); z6=(x5,0.238h);
+penpos6(stem,0); z7=(x6l,0.079h); z8-z7=whatever*dir-40; y8=-apex_o;
+penpos9(hair,-38); z9r-z8=whatever*dir52; x9r=w; z10=(0.788w,0.152h);
+z5'=whatever[z1,z2]; x5'=x5l; penstroke z5e--z6e; penstroke z1e--z2e; filldraw
+z5r{up}..z3r--z2--z5'--z5l{down} --z5r & cycle; filldraw z8--z9r--z9l{z8-z9r}
+..z6r{up}--z6l{down}..{z8-z7}z8 & cycle; penpos11(hair,0); z11r=(x2l,1.076h);
+z12=(0.56w,1.279h); z13=(0.73w,1.238h); filldraw z11l{up}..z12{right}..
+z13{down}..{z1-z2}z11r--z11l & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter j";
+.beginchar("j",2.944lower_u#,x_height#,1.611lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,47); penpos2(1.3hair,-90); z2r=(0.16w,-d); penpos5(stem,0);
+z5=(0.523w,0.124h); penpos3(2/3stem,0); z3l=(x5l,0.048h); penpos6(stem,0);
+z6=(x5,0.824h); penpos7(hair,-90); z7=(0.906w,0.91h); penpos8(hair,-48);
+penpos9(hair,-48); z8l=(0.481w,h+apex_o); z8-z9=whatever*((w,0.3448h)); x9l=0;
+z9'=whatever[z9r,z8r]; y9'=y9l+apex_o; z1r=(x5r+0.5stem,-0.207d);penstroke
+z2e..z3e{up}; penstroke z5e--z6e; filldraw z1r{dir137}..z5r{up}--z5l
+--z3l--z3r..z1l{dir-43}--z1r & cycle; filldraw z6r{up}..z7r{right}--z7l...
+z8r---z8l--z9l--z9r--z9'.. z6l{down}--z6r & cycle; penpos11(hair,0);
+z11r=(x8l,1.076h); z12=(0.571w,1.279h); z13=(0.744w,1.238h); filldraw
+z11l{up}..z12{right}..z13{down} ..{z9-z8}z11r--z11l & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter k";
+.beginchar("k",3.861lower_u#,1.366x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=1.223w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); filldraw z2l---z3''...z4l--z4r--
+z3{dir45}..z5l{right}..z5''l--z5''r..z5r{left} ...z3'---z2r--z2l & cycle;
+penpos5'(hair,-40); z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37);
+y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.8w; z6'=whatever[z6,z7];
+y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l &
+cycle; penpos1.4(3/4stem,-90); z1.4=(0.928w,.859x_height); z1.3=(0,y1.4r);
+z1.35=(x2l,y1.4l); filldraw z1.3--z1.35--z1.4l--z1.4r-- z1.3 & cycle;
+penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43);
+z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(w,0.579[y1.4l,y5l]); penstroke z1.6e--z1.6'e; penstroke
+z1.5e{dir72}..z1.8e{up}..z1.7e{left}; filldraw z1.6r--z1.7l--z1.7r--z1.6l
+--z1.6r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter l";
+.beginchar("l",3lower_u#,1.366x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=1.574w; penpos1(stem,0); z1=(0.241w',foot); penpos5'(hair,-40);
+z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e; filldraw
+z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle; penpos2(stem,0);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x7,h); penstroke z1e--z2e; filldraw
+z2l---z3''...z4l--z4r-- z3{dir50}..z5l{right}--z5r{left} ...z3'---z2r--z2l &
+cycle;
+.endchar;
+
+nombre:=7.806gencoef[1,1.227586];
+
+.cmchar "The Fraktur letter m";
+.beginchar("m",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+boolean itsm; itsm:=true;
+w':=w; if itsm: z0=(0.356w',0) else: z0=(0,0) fi; penpos1(stem,0);
+penpos2(stem,0); penpos3(stem,0); penpos4(stem,0); penpos5(stem,0);
+penpos6(stem,0); z1=(0.135w',foot); z3=(0.491w',foot); n_foot(1);
+z2=(x1,0.846h); z4=(x3,y2); z5=z3+z0; z6=z4+z0; penpos10(hair,-54);
+penpos11(hair,-54); penpos12(hair,-54); penpos13(hair,-54);
+z2r-z10l=whatever*dir36; x10r=x2r; z11-z10=whatever*dir36; y11l=h+apex_o;
+z14=whatever[z10r,z11r]; y14=0.881h; penpos16(2/3hair,-90);
+z16=(x6r+1/20w',y14); penstroke z1e--z2e; penstroke z5e--z6e; if itsm: penstroke
+z3e--z4e; n_foot(3); fi z12=z10+z0; z13=z11+z0; z15=z14+z0; x14'=x4l;
+z14'-z14=whatever*(z4r-z11); z15'=z14'+z0; if itsm: filldraw
+z14--z14'--z4l--z4r-- z11l--z10l--z10r--z14 & cycle; fi filldraw
+z12l--z13l---z13r...z16l{right} --z16r{left}..z6r--z6l--z15'--z15-- z12r--z12l &
+cycle; penpos18(hair,-37); penpos17(hair,-37); z17=(0.354[x5l,x5r],-apex_o);
+x18r=x5+0.157w'; y18l=foot; z20'=whatever[z17l,z18l]; x20'=x5r;
+z20=0.5[z20',z18l]; z19=(x5l,2/3foot); z17'=whatever[z17,z18]; y17'=0; filldraw
+z17'--z19--z5l--z5r{down} ..z20{z18r-z18l}--z17' & cycle; penstroke z17e--z18e;
+z8=(0,y2); z9=(x2,h+apex_o); z7=(x1l,0.194[y2,y1]); filldraw
+z7{up}..z8--z9..z2r{down} --z7 & cycle;
+.endchar;
+
+nombre:=5.028gencoef[1,1.227586];
+
+.cmchar "The Fraktur letter n";
+.beginchar("n",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+boolean itsm; itsm:=false;
+w':=1.553w; if itsm: z0=(0.356w',0) else: z0=(0,0) fi; penpos1(stem,0);
+penpos2(stem,0); penpos3(stem,0); penpos4(stem,0); penpos5(stem,0);
+penpos6(stem,0); z1=(0.135w',foot); z3=(0.491w',foot); n_foot(1);
+z2=(x1,0.846h); z4=(x3,y2); z5=z3+z0; z6=z4+z0; penpos10(hair,-54);
+penpos11(hair,-54); penpos12(hair,-54); penpos13(hair,-54);
+z2r-z10l=whatever*dir36; x10r=x2r; z11-z10=whatever*dir36; y11l=h+apex_o;
+z14=whatever[z10r,z11r]; y14=0.881h; penpos16(2/3hair,-90);
+z16=(x6r+1/20w',y14); penstroke z1e--z2e; penstroke z5e--z6e; if itsm: penstroke
+z3e--z4e; n_foot(3); fi z12=z10+z0; z13=z11+z0; z15=z14+z0; x14'=x4l;
+z14'-z14=whatever*(z4r-z11); z15'=z14'+z0; if itsm: filldraw
+z14--z14'--z4l--z4r-- z11l--z10l--z10r--z14 & cycle; fi filldraw
+z12l--z13l---z13r...z16l{right} --z16r{left}..z6r--z6l--z15'--z15-- z12r--z12l &
+cycle; penpos18(hair,-37); penpos17(hair,-37); z17=(0.354[x5l,x5r],-apex_o);
+x18r=x5+0.157w'; y18l=foot; z20'=whatever[z17l,z18l]; x20'=x5r;
+z20=0.5[z20',z18l]; z19=(x5l,2/3foot); z17'=whatever[z17,z18]; y17'=0; filldraw
+z17'--z19--z5l--z5r{down} ..z20{z18r-z18l}--z17' & cycle; penstroke z17e--z18e;
+z8=(0,y2); z9=(x2,h+apex_o); z7=(x1l,0.194[y2,y1]); filldraw
+z7{up}..z8--z9..z2r{down} --z7 & cycle; .endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o";
+.beginchar("o",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle; .endchar;
+
+nombre:=5.056gencoef[1,1.131868];
+
+.cmchar "The Fraktur letter p";
+.beginchar("p",nombre*lower_u#,x_height#,3.361lower_u#);
+.adjust_fit(usual_left#+gencoef[0,0.5u#],usual_right#);
+penpos1(stem,0); z1=(gencoef[0.242w,0.223w],foot); penpos2(stem,0);
+z2=(x1,0.834h); penpos3(hair,-27); z3=(x2l,1.05h);
+penpos4(stem,53); z4l=(-apex_o,0.86h); penpos5(hair,0);
+z5=(x1,-d); penstroke z5e--z1e--z2e; z6=(x1l,0.69h); filldraw z6{up}..
+z4l{up}--z4r{down}..{dir-45}z2r--z6 & cycle; penstroke
+z4e{up}..z3e{dir53};
+penpos8(hair,-49); penpos7(hair,-49);
+z8l=(gencoef[0.714w,0.7w],h+gencoef[apex_o,0]);
+z8-z7=whatever*dir(gencoef[41,35]); x7=x1; penstroke z7e--z8e;
+z11=(-0.5u,0.15h); z9-z11=whatever*dir-20; x9=gencoef[0.527w,0.592w];
+penpos9(hair,-20); penpos10(hair,-20); z10-z9=whatever*dir57.5;
+y10r=gencoef[0.1h,0.12h]; z12-z10=whatever*(z11-z9); z12-z11=whatever*(z10-z9);
+penpos13(stem,33); penpos14(5/4stem,41); z13r=(w,gencoef[0.5h,0.548h]);
+z14r=z8l; penstroke z9e---z10e...z13e...z14e {dir131}; filldraw
+z11--z12--z10r--z9r--z11 & cycle; .endchar;
+
+nombre:=4.639gencoef[1,1.269461];
+
+.cmchar "The Fraktur letter q";
+.beginchar("q",nombre*lower_u#,x_height#,3.361lower_u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,0); z1=(0.745w,-d); penpos2(stem,0); z2=(x1,foot); z3=(x2r,0.728h);
+z4=(w,0.879h); penpos5(hair,-33); penpos6(hair,-33); z5l=(0.485w,h+apex_o);
+z5-z6=whatever*dir52; x6=0.335w; penpos7(1.542stem,62); z7l=(0,0.445h);
+penpos8(1.125stem,45); z8l=(0.388w,-2apex_o); penpos9(hair,-45);
+penpos10(hair,-45); z9r=z8; z10-z9=whatever*dir45; x10=x2; penstroke z1e--z2e;
+z3'-z6=whatever*(z5r-z5l); x3'=x2l; filldraw z2r---z3...z4 & z4...z5r---z5l
+--z6l--z3'--z2l--z2r & cycle; penstroke z8e{(0,0.552h)-z8}..z7e{up}... z6e---z5e;
+penstroke z9e--z10e;
+.endchar;
+
+nombre:=3.944gencoef[1,1.281690];
+
+.cmchar "The Fraktur letter r";
+.beginchar("r",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+w':=1.197w;
+penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90);
+z5l=(x2r+0.875stem,h); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r;
+z7-z6=whatever*dir48; x7=0.817w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*dir40;
+x11=x1; penpos9(1.229stem,40); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6{dir138}..z5'r--z5'l & cycle; penpos22(stem,0); z22=(x1,0.841h);
+z29=(x22,h+apex_o); z28=(0,y22); z27=(x22l,0.721h); filldraw
+z1l---z27...z28--z29... z22r---z1r--z1l & cycle; penpos30(hair,-70);
+penpos32(hair,-70); penpos31(1.083stem,45); z22r-z32l=whatever*dir45; x32r=x22r;
+z30-z32=whatever*dir45; y30l=h+apex_o; z31r=(w,y32);
+z33-z31l=whatever*(z30-z31r); z33=whatever[z32,z30]; penstroke z32e--z30e;
+filldraw z30--z31r--z31l--z33-- z30 & cycle; .endchar;
+
+.cmchar "The Fraktur letter long s";
+.beginchar("s",4.539lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-1.932lower_u#);
+w':=w; penpos1.1(hair,0); z1.1=(0.318w',-d); penpos1.2(1.313stem,0); z1.2=(x1.1,0.795x_height);
+penpos1.4(3/4stem,-90); z1.4r=(0.857w',y1.2); z1.3=(0,y1.2); z1.12=whatever[z1.1l,z1.2l];
+z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height; z1.12'=z1.12-(0.5apex_o,0);
+z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4; penpos1.5(0.917stem,0);
+z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112; z1.6l-z1.5l=whatever*dir72;
+penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22); penpos1.11(hair,-22);
+z1.11r=(w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'; penpos1.8(whatever,68);
+z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w',1.366x_height); filldraw z1.1r..z1.13'..z1.2r...
+z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle; filldraw
+z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e;
+.endchar;
+
+nombre:=5.039gencoef[1,1.168688];
+
+.cmchar "The Fraktur letter short s"; .beginchar(oct"215",nombre*lower_u#,1.286x_height#,0);
+.adjust_fit(usual_left#,usual_right#); penpos0(hair,angle((w,x_height))-90);
+penpos0'(hair,angle((w,x_height))-90); z0l=(0,0.103x_height); x0'r=0.86w;
+z0'-z0=whatever*((w,x_height)); penstroke z0e--z0'e;
+penpos5(1.083stem,angle((w,gencoef[0.797x_height,0.63x_height])));
+penpos6(1.083stem,angle(z0'-z0)); z5l=(0.54w,-apex_o); z6l=z0r; penstroke z5e{dir142}..z6e;
+penpos1(hair,angle((w,0.797x_height))-90); penpos2(hair,angle((w,0.797x_height))-90);
+penpos3(1.083stem,39); z3r=(w,0.441x_height); z1r=z5l; z2r=z5r; z4=whatever[z0r,z0'r]; x4=0.595w;
+penpos4(5/4stem,angle(z0'-z0)); penstroke z1e--z2e{z2-z1}..z3e..z4e{dir(angle(z0'-z0)+90)};
+penpos7(hair,angle(z0'-z0)-90); z7r=z6; penpos8(1.125stem,angle((w,0.5x_height)));
+z8r=whatever[z0,z0']; x8r=0.433w; penpos9(1.292stem,54); z9l=(0,0.69x_height); filldraw
+z7--z8r--z8l{down}..z7l{z0-z0'}--z7 & cycle; penstroke z8e{up}..z9e{dir144}; penpos10(hair,-36);
+z10l=z9; z11=whatever[z9l,z9r]; y11=x_height+apex_o; penpos12(1.083stem,54); z12r=z11;
+penpos14(hair,-36); z14l=z12; penstroke z10e--z14e; z13-z12l=whatever*dir-21;
+z13=whatever[z0l,z0'l]; penpos15(0.538stem,-29); z15r=whatever[z0,z0']; y15r=y11; penpos16(hair,90);
+penpos17(hair,144); z16r=(0.568w,h); z17=(0.198w,1.124x_height); penstroke
+z15e{up}..z16e{left}..z17e; filldraw z12l--z13--z0'r & z0'r{z0'-z0}..z15r{up}--z15l{down}
+..z11{z12-z13}--z12l & cycle; .endchar;
+
+.cmchar "The Fraktur letter t";
+.beginchar("t",3.444lower_u#,1.186x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#-0.3u#);
+w':=1.371w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,0.828x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74);
+z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(0.928w,.859x_height); z1.3=(0,y1.4r); z1.35=(x2l,y1.4l); filldraw
+z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)];
+penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,h); filldraw z1.3--z30l--z30r..z2r{down}
+--(x2r,y1.3)--z1.3 & cycle;
+.endchar;
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u";
+.beginchar("u",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle;
+.endchar;
+
+nombre:=5.444gencoef[1,1.122449];
+
+.cmchar "The Fraktur letter v";
+.beginchar("v",nombre*lower_u#,1.203x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.334w,1.05foot); penpos2(stem,0); z2=(x1,0.561x_height);
+penpos3(stem,50); z3=(0.158w,0.897x_height); penpos3'(1.042stem,37);
+z3'l=(0,0.928x_height); penpos4(hair,-44); z4l=(0.265w,h); penstroke
+z1e---z2e...z3e{dir140}.. z3'e{up}..z4e{dir46}; penpos5(hair,-90);
+penpos6(hair,0); penpos7(hair,-11); z5=(0.133w,0.11x_height);
+z6=(0.582w,-apex_o); z7r-z6r=whatever*dir58; z7-z1r=whatever*dir-11;
+z7'=whatever[z6l,z7l]; x7'=0.7w; filldraw z1l{down}..z5l--z5r{z1r-z5r}
+..z6l--z6r--z7r--z7l--z7'..{left}z1r--z1l & cycle; penpos8(1.125stem,44);
+z8r=(w,0.576x_height); penpos11(hair,-44); penpos12(hair,-44);
+z11=(0.735w,gencoef[1.055x_height,x_height]); z11-z12=whatever*dir46; x12=0.3w;
+penstroke z12e--z11e; penpos10(1.521stem,46); z10r=z11; penpos9(1.042stem,46);
+z9=(0.648w,0.928x_height); penstroke z6e---z7e...z8e..z9e; filldraw
+z9r{z10-z9}..z10r{z11-z12} --z10l{z11-z12}..z9l{z9-z10}-- z9r & cycle;
+.endchar;
+
+nombre:=7.111gencoef[1,1.2];
+
+.cmchar "The Fraktur letter w";
+.beginchar("w",nombre*lower_u#,1.083x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.154w,foot); n_foot(1); penpos2(stem,0);
+z2=(x1,0.831x_height); penstroke z1e--z2e; penpos3(hair,-53); penpos4(hair,-54);
+z3r=z2r; z4-z3=whatever*dir37; y4l=x_height+apex_o; z3'=whatever[z3l,z4l];
+x3'=x1r; penpos5(stem,40); z5l=(0,0.955x_height); penpos6(hair,-50);
+z6l=(0.145w,h); penstroke z3e--z4e; filldraw
+z2r--z3'..z5r-(0,2apex_o){up}..z6r{dir60} --z6l{z5l-z5r}..z5l{down}..z2l--z2r &
+cycle; penpos7(stem,0); penpos8(stem,0); z7=(0.531w,foot); z8=(x7,y2);
+penpos9(hair,-35); penpos10(hair,-35);
+z10-z7r=whatever*((0,0.621x_height)-(w,0)); z9r=(0.668w,-apex_o);
+z10-z9=whatever*((w,0.359x_height)-z9); z9-z11=whatever*(z10-z7r); x11=0.402w;
+filldraw z11..z7l{up}--z7r--z10r-- z9r--z11 & cycle; penstroke z7e--z8e;
+penpos14(1.083stem,47); z14r=(w,gencoef[0.462x_height,0.685x_height]);
+penpos11'(hair,-53); penpos12(hair,-53); z11'r=z8r; z12-z11'=whatever*dir37;
+y12l=x_height+apex_o; penstroke z11'e--z12e; penpos13(1.083stem,37); z13r=z12;
+penstroke z9e---z10e... z14e..z13e{dir(gencoef[110,130])};
+z11.5=whatever[z11'l,z12l]; x11.5=x8r; z8'=whatever[z3r,z4r];
+z8l-z8'=whatever*(z11.5-z4); filldraw z8'--z4--z11.5--z8r--z8l --z8' & cycle;
+.endchar;
+
+nombre:=3.944gencoef[1,1.194030];
+
+.cmchar "The Fraktur letter x";
+.beginchar("x",nombre*lower_u#,x_height#,0.5x_height#);
+.adjust_fit(usual_left#+u#,usual_right#); w':=1.197w;
+penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90);
+z5l=(x2r+0.875stem,h); penpos5'(hair,-40); z5'l=(x1l,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r;
+z7-z6=whatever*dir48; x7=0.817w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*dir40;
+x11=x1; penpos9(1.229stem,40); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6{dir138}..z5'r--z5'l & cycle; penpos22(stem,0); z22=(x1,0.841h);
+z29=(x22,h+apex_o); z28=(0,y22); z27=(x22l,0.721h); filldraw
+z1l---z27...z28--z29... z22r---z1r--z1l & cycle; penpos30(hair,-70);
+penpos32(hair,-70); penpos31(1.083stem,45); z22r-z32l=whatever*dir45;
+x32r=x22r; z30-z32=whatever*dir45; y30l=h+apex_o; z31r=(w,y32);
+z33-z31l=whatever*(z30-z31r); z33=whatever[z32,z30]; penstroke z32e--z30e;
+filldraw z30--z31r--z31l--z33-- z30 & cycle;
+z40=(x1l,1.5foot); z40'=(x1r,1/3foot);
+penpos41(0.8stem,180); penpos42(1.5hair,-120); penpos43(hair,-142);
+ z41l=(apex_o,-0.129d); z42l=(x1r,-0.557143d); x43l=w; y43r=-d;
+filldraw z40{down}..z41r{down}--z41l{up}..z40'{right}--z40 & cycle;
+penstroke z41e{down}..z42e..z43e{dir-60}; .endchar;
+
+
+nombre:=5.472gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter y";
+.beginchar("y",nombre*lower_u#,x_height#,2.556lower_u#);
+.adjust_fit(usual_left#,usual_right#);
+w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,0.846x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; z2.8=(0,y2);
+z2.9=(x2,h+apex_o); z2.7=(x1l,0.194[y2,y1]); filldraw
+z2.7{up}..z2.8--z2.9..z2r{down} --z2.7 & cycle; penpos5'(hair,-40);
+z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=0.6w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o;
+z10-z11=whatever*((w,0.559x_height)); x11=x1; penpos9(1.229stem,40);
+z9=whatever[z11,z10]; y9r=y10r-apex_o; z15=whatever[z6l,z7l];
+z15-z1r=whatever*dir-30; penstroke z11e--z10e; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); penstroke z7'e{dir50}...z8e{up}.. z9e;
+filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6'{dir138}..z5'r--z5'l & cycle;
+.endchar;
+
+nombre:=3.444gencoef[1,1.330645];
+
+.cmchar "The Fraktur letter z";
+.beginchar("z",nombre*lower_u#,x_height#,gencoef[2.15lower_u#,3.07lower_u#]);
+.adjust_fit(usual_left#,usual_right#); penpos1(hair,122);
+penpos2(gencoef[hair,1.5hair],180); penpos3(0.625stem,-42);
+penpos4(1.313stem,37); z1l=gencoef[(w,0.524h),(0.945w,0.459h)]; z2r=(0,-0.1d);
+z3r=(gencoef[0.548w,0.509w],-d); z4r=(w,gencoef[0.103h,0]); penstroke
+z1e..z2e{down}..z3e{right}..z4e{up}; penpos5(hair,-90);
+z5=gencoef[(0,0.414h),(0.145w,0.390h)]; z6-z5=whatever*dir38;
+x6=gencoef[0.484w,0.454w]; filldraw z5r{right}..z4l{down}-- z4r{up}..z6--z5r &
+cycle; penpos7(4/3stem,43); z7=gencoef[(0.629w,0.734h),(0.618w,0.699h)];
+z8=(gencoef[0.532w,0.4w],h+apex_o); z9=(gencoef[0.081w,0.107782w],0.793h);
+penpos9'(hair,-90); z9'l=z9; penstroke z5e{z6-z5r}..z7e{up}; filldraw
+z7l{up}..z9'r{z9-z8}--z9--z8.. z7r{down}--z7l & cycle; .endchar;
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yfrakmis.mf b/Master/texmf-dist/fonts/source/public/gothic/yfrakmis.mf
new file mode 100644
index 00000000000..55cf5115690
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yfrakmis.mf
@@ -0,0 +1,574 @@
+.cmchar "The Fraktur ligature ch";
+.beginchar(oct"205",3.639lower_u#+4.772lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w:=3.639u; penpos101(hair,-30); penpos102(hair,-30); z102l=(w+0.438u-0.5stem,foot);
+z101r=(0.565w,-apex_o); z101'=whatever[z101,z102]; y101'=y101l+apex_o; z103=whatever[z101l,z102l];
+x103=0.809w; z104=(2/3w,0.176h); penpos105(1.083stem,angle((w,0.4h))); z105=(0.26w,0.214h);
+penpos106(stem,0); z106l=(0,0.5h); penpos109(hair,-68); penpos108(hair,-68); penpos108.5(hair,-68);
+z109l=(0.832w,h+apex_o); z109-z108=whatever*((w,0.25h)); x108l=0.458w; z107=whatever[z108l,z109l];
+x107=0.145w; penpos110(stem,angle((w,0.25h))); z110r=whatever[z109l,z109r]; x110r=w;
+z110l-z108.5=whatever*(z110r-z109); z108.5=whatever[z108,z109]; penstroke z101e--z102e; filldraw
+z101'..z105l..z106l{up}--z106r{down} ..z105r...z103---z102l--z102r--z101' & cycle; filldraw
+z106l{up}..z107 & z107--z109l--z110r-- z110l--z108.5r &
+z108.5r{z108-z109}..(x106r,0.738h)..z106r{down}-- z106l & cycle; z0=(w-0.7u,0); w:=5.472u;
+h:=1.376x_height; d:=2.556u; w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1l=z102l;
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5[x0,x2l],1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h);
+penstroke z1e--z2e; filldraw z2l---z3''...z4l--z4r-- z3{dir45}..z5l{right}--z5r{left}
+...z3'---z2r--z2l & cycle; penpos5'(hair,-40); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=0.6w+x0; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z5'=whatever[z101,z102]; z8r=(w,0.478x_height)+z0; penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*((w,0.559x_height)); x11=x1;
+penpos9(1.229stem,angle((w,0.559x_height))); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; z5'r-z6'=whatever*(z1r-z15); penstroke z11e--z10e;
+penstroke z6e---z7e; penpos7'(1.2hair,-40); z7'r=(0.426w,-d)+z0; penstroke z7'e{dir50}...z8e{up}..
+z9e; filldraw z5'l--z1l--z1r-- z15--z7l--
+z6'--z5'r--z5'l & cycle; .endchar;
+
+.cmchar "The Fraktur ligature ck";
+.beginchar(oct"206",3.639lower_u#+3.161lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w:=3.639u; penpos101(hair,-30); penpos102(hair,-30); z102l=(w+0.438u-0.5stem,foot);
+z101r=(0.565w,-apex_o); z101'=whatever[z101,z102]; y101'=y101l+apex_o; z103=whatever[z101l,z102l];
+x103=0.809w; z104=(2/3w,0.176h); penpos105(1.083stem,angle((w,0.4h))); z105=(0.26w,0.214h);
+penpos106(stem,0); z106l=(0,0.5h); penpos109(hair,-68); penpos108(hair,-68); penpos108.5(hair,-68);
+z109l=(0.832w,h+apex_o); z109-z108=whatever*((w,0.25h)); x108l=0.458w; z107=whatever[z108l,z109l];
+x107=0.145w; penpos110(stem,angle((w,0.25h))); z110r=whatever[z109l,z109r]; x110r=w;
+z110l-z108.5=whatever*(z110r-z109); z108.5=whatever[z108,z109]; penstroke z101e--z102e; filldraw
+z101'..z105l..z106l{up}--z106r{down} ..z105r...z103---z102l--z102r--z101' & cycle; filldraw
+z106l{up}..z107 & z107--z109l--z110r-- z110l--z108.5r &
+z108.5r{z108-z109}..(x106r,0.738h)..z106r{down}-- z106l & cycle; z0=(w-0.7u,0);
+w:=3.861u; h:=1.366x_height; w':=1.223w; penpos1(stem,0); penpos2(stem,0); z1l=z102l;
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5[x0,x2l],1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h);
+penstroke z1e--z2e; penpos5''(hair,-90); z5''=z5+(hair,-eps); filldraw z2l---z3''...z4l--z4r--
+z3{dir45}..z5l{right}..z5''l--z5''r..z5r{left} ...z3'---z2r--z2l & cycle; penpos5'(hair,-40);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.8w+x0;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; z5'r-z6'=whatever*(z1r-z15); z5'=whatever[z101,z102]; filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6r---z6l...z5'r--z5'l & cycle; penpos1.4(3/4stem,-90); z1.4=(x0+0.928w,.859x_height);
+z1.3=(x0,y1.4r); z1.35=(x2l,y1.4l); filldraw z1.3--z1.35--z1.4l--z1.4r-- z1.3 & cycle;
+penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43);
+z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(x0+w,0.579[y1.4l,y5l]); penstroke z1.6e--z1.6'e; penstroke
+z1.5e{dir72}..z1.8e{up}..z1.7e{left}; filldraw z1.6r--z1.7l--z1.7r--z1.6l --z1.6r & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature st";
+.beginchar(oct"202",6.5lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#);
+w':=0.698w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+w':=0.726w; z100=(x0.14,0); penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot)+z100;
+z2=(x1,0.828x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke
+z1e--z2e; penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height)+z100;
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=x100+0.53w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(0.928x100+0.4916w,.859x_height); z1.3=(x100,y1.4r);
+z1.35=(x2l,y1.4l); filldraw z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0);
+z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]);
+penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47; x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43);
+z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(x100+0.529w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,1.186x_height); filldraw
+z1.3--z30l--z30r..z2r{down} --(x2r,y1.3)--z1.3 & cycle; penpos30'(hair,180); z30'=z30;
+penpos30''(hair,-90); z30''r=(x30l,h); penstroke z0.11e{z0.11-z0.9}.. z30''e..z30'e{z1.3-z30l};
+.endchar;
+
+.cmchar "The Fraktur ligature ss";
+.beginchar(oct"201",6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-1.932u#);
+w':=0.655w;
+penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0); z0.2=(x0.1,0.795x_height);
+penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l];
+z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0);
+z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4; penpos0.5(0.917stem,0);
+z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72;
+penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22);
+z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w'; penpos0.8(whatever,68);
+z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r...
+z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw
+z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e;
+.endchar;
+
+.cmchar "The Fraktur ligature sf";
+.beginchar(oct"203",6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=0.655w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature ff";
+.beginchar(oct"204",6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=0.655w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle; filldraw z0.5--z0.4l--z0.4r--z0.2--z0.5 & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature sz";
+.beginchar(oct"032",5.444lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#+0.5u#); w':=0.834w;
+penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2);
+z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r];
+y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0);
+z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68);
+z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0);
+z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22);
+z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r;
+z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r... z0.5r---z0.6l &
+z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw
+z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw
+z0.6l{dir72}..z0.14{right}.. z0.8r{dir-22}--z0.8l{dir158}..
+z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r-hair,hair); w':=0.633w; d':=0.679w; penpos1(hair,122);
+penpos2(hair,180); penpos3(0.625stem,-42); penpos4(1.313stem,37);
+z1l=(w',0.524h)+z100; z2r=(x0.2,-0.1d'+y100); z3r=(0.548w',-0.8d')+z100;
+z4r=(w'+u,0.103x_height)+z100; penstroke z2e{down}..z3e{right} ..z4e{up};
+penpos5(hair,-90); z5=(0,0.414x_height)+z100; z6-z5=whatever*dir38;
+x6=0.484w'+x100; filldraw z5r{right}..z4l{down}-- z4r{up}..z6--z5r &
+cycle; penpos7(4/3stem,43); z7=(0.629w',0.734x_height)+z100;
+z8=(0.532w',x_height+apex_o)+z100; z9=(0.081w',0.793x_height)+z100;
+penpos9'(hair,-90); z9'l=z9; penstroke z5e{z6-z5r}..z7e{up}; filldraw
+z7l{up}..z9'r{z9-z8}--z9--z8.. z7r{down}--z7l & cycle; .endchar;
+
+.cmchar "The Fraktur ligature tz";
+.beginchar(oct"213",4.75lower_u#,1.186x_height#,3.167lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#+u#);
+w':=0.994w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,0.828x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74);
+z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.632w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(x1r,.859x_height); z1.3=(0,y1.4r); z1.35=(x2l,y1.4l); filldraw
+z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)];
+penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r;
+penpos1.8(stem,60); z1.8r=(w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,h); filldraw
+z1.3--z30l--z30r..z2r{down} --(x2r,y1.3)--z1.3 & cycle; z100=(x1r-hair,hair); w':=0.725w;
+d':=0.679d; penpos0.1(hair,122); penpos0.2(hair,180); penpos0.3(0.625stem,-42);
+penpos0.4(1.313stem,37); z0.1l=(w',0.524h)+z100; z0.2r=(0,-0.1d')+z100; z0.3r=(0.548w',-d')+z100;
+z0.4r=(w'+u,0.103x_height)+z100; penstroke z0.2e{down}..z0.3e{right} ..z0.4e{up};
+penpos0.5(hair,-90); z0.5=(0,0.414x_height)+z100; z0.6-z0.5=whatever*dir38; x0.6=0.484w'+x100;
+filldraw z0.5r{right}..z0.4l{down}-- z0.4r{up}..z0.6--z0.5r & cycle; penpos0.7(4/3stem,43);
+z0.7=(0.629w',0.734x_height)+z100; z0.8=(0.532w',x_height+apex_o)+z100;
+z0.9=(0.081w',0.793x_height)+z100; penpos0.9'(hair,-90); z0.9'l=z0.9; penstroke
+z0.5e{z0.6-z0.5r}..z0.7e{up}; filldraw z0.7l{up}..z0.9'r{z0.9-z0.8}--z0.9--z0.8..
+z0.7r{down}--z0.7l & cycle; filldraw (x1r,y1.4l){right}.. z0.8{z0.8-z0.9}--z0.9--(x1r,y1.4l) &
+cycle;
+.endchar;
+
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a with little-e Umlaut";
+.beginchar(oct"211",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle; z100=(x9l,1.214x_height);
+e_umlaut(100);.endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e with little-e Umlaut";
+.beginchar(oct"220",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e; z100=(0.569w,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o with little-e Umlaut";
+.beginchar(oct"231",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle; z100=(x4,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u with little-e Umlaut";
+.beginchar(oct"236",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle; z100=(x2l-hair,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a with Umlaut";
+.beginchar(oct"212",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle; z100=(x9l,1.214x_height);
+umlaut(100);.endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e with Umlaut";
+.beginchar(oct"221",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e; z100=(0.569w,1.214x_height);
+umlaut(100);
+.endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o with Umlaut";
+.beginchar(oct"232",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle; z100=(x4,1.214x_height);
+umlaut(100);
+.endchar;
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u with Umlaut";
+.beginchar(oct"237",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle; z100=(x2l-hair,1.214x_height);
+umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur hyphen";
+.beginchar(oct"055",4u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.5stem,-90);
+penpos2(0.5stem,-90);
+penpos3(0.5stem,-90);
+penpos4(0.5stem,-90); penpos5(stem,-90);
+z2-z1=whatever*dir35;
+z4-z3=whatever*dir35;
+z3r=z5l; z5r=z1l; x1=0;
+x2=x4=w;
+y1r=foot;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+.endchar;
+
+def par_s(suffix $) =
+h':=cap_height; w':=0.379h';
+z$.1=z$+(0.5w',0.5h');
+penpos$.1(stem,30);
+penpos$.2(2hair,0);
+penpos$.3(hair,-90);
+penpos$.4(hair,180);
+penpos$.5(hair,90);
+z$.2l=z$+(0,0.8h'); z$.3l=(x$.1,y$+h');
+z$.4=z$+(0.84w',0.886h');
+z$.5=(x$.4r,y$+0.826h');
+penstroke z$.2e{up}..z$.3e
+{right} if panw: ..z$.4e{down}..z$.5e{left} fi;
+penpos$.6(2hair,90); z$.6l=z$.5l;
+if panw:
+filldraw z$.6r..z$.6l..z$.6r & cycle;
+fi
+penpos$.1'(stem,-150);
+penpos$.2'(2hair,180);
+penpos$.3'(hair,90);
+penpos$.4'(hair,0);
+penpos$.5'(hair,-90);
+z$.1=z$.1';
+z$.2'r=z$+(w',0.2h'); z$.3'r=(x$.1,y$);
+z$.4'=z$+(0.16w',0.114h');
+z$.5'=(x$.4'r,y$+0.174h');
+penpos$.2''(2hair,0); z$.2''=z$.2';
+z$.25=(z$.2''{up}..z$.2{up})
+intersectionpoint (z$+(0,0.5h')--
+z$+(w',0.5h'));
+penpos$.25(stem,30);
+penstroke z$.2''e{up}..z$.25e..
+z$.2e{up};
+penstroke z$.2'e{down}..z$.3'e
+{left} if katw: ..z$.4'e{up}..z$.5'e{right} fi;
+penpos$.6'(2hair,-90); z$.6'l=z$.5'l;
+if katw:
+filldraw z$.6'r..z$.6'l..z$.6'r & cycle;
+fi
+enddef;
+
+.cmchar "The Fraktur paragraph sign";
+.beginchar(oct"074",7.4u#,cap_height#,3.167u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+boolean panw, katw;
+panw:=true; katw:=false;
+z0=(0.17h,0); par_s(0);
+panw:=false; katw:=true;
+z1=(0,-0.3h); par_s(1);
+.endchar;
+
+.cmchar "The Fraktur paragraph sign";
+.beginchar(oct"244",7.4u#,cap_height#,3.167u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+boolean panw, katw;
+panw:=true; katw:=false;
+z0=(0.17h,0); par_s(0);
+panw:=false; katw:=true;
+z1=(0,-0.3h); par_s(1);
+.endchar;
+
+.cmchar "The Fraktur Mitlaut J proposed by Sanders in 1879";
+.beginchar("$",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28); penpos2(cap_hair,-17.5); penpos3(0.889cap_stem,-116); penpos4(cap_stem,-126);
+penpos5(cap_hair,-44); penpos6(1.056cap_stem,53); penpos7(1.056cap_stem,21); penpos8(cap_hair,-90);
+penpos9(cap_hair,180); z1=(0.115w,-0.886d); z2r=(x1,-0.519d); z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h); z7=(0.636w,0.56h); z8=(0.808w,0.683h); z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right} ..z4e{right}..z5e..z6e{up}..z7e{up} ..z8e{right}..z9e{down};
+penpos10(1.037cap_stem,50); penpos11(cap_hair,-45); penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146); penpos14(0.741cap_stem,-119); penpos15(cap_hair,0);
+penpos16(cap_hair,28); z10l=z11r=(0.1w,0.515h); z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h); z15r=(w,0.875h); z16=(x15l,0.924h); filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle; penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118}; penpos20(hair,-41); penpos21(hair,-41);
+penpos22(2/3cap_stem,-90); penpos23(0.593cap_stem,-113); z20l=(0,0.235h); z21=(x8,0.48y8);
+z22=(0.261w,0.328h); z23=(0.586w,0.251h); penstroke z20e..z22e{right}..z23e{right} ..z21e;
+.endchar;
+
+.cmchar "The Fraktur symbol for etc"; .beginchar(oct"311",8.194lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(hair,-52);
+penpos2(hair,-52); penpos3(stem,48); penpos4(stem,48); penpos5(hair,-42); penpos6(1.2stem,34);
+penpos8(hair,-49); z1r=(0.22w,-apex_o); z2-z1=whatever*dir38; x2=0.458w; z3l=z1r;
+z4l-z1r=whatever*dir140; x4l=0; z5l=z4; y6=0.707h; x6r=x2r; z7=(0.231w,h+apex_o);
+z9=(0.163w,0.841h); z8l=(0,0.793h); penstroke z1e--z2e; penstroke z3e--z4e; penstroke
+z5e{z4r-z4l}..z6e{up}; filldraw z6r{up}..z7{dir160} & z7-- z8l--z8r{z7-z8l}..z9{right}..z6l{down}
+--z6r & cycle; penpos10(hair,-59); penpos11(hair,-59); penpos12(whatever,50); penpos13(1.2stem,30);
+penpos14(stem,11.5); penpos15(hair,-75); penpos16(0.857stem,14); penpos17(0.857stem,14);
+z11r=(0.695w,-apex_o); z10-z11=whatever*dir31; x10r=w; z12l=z11r; z12r=whatever[z11l,z10l];
+z13=(0.631w,0.49h); z14=(0.678w,0.859h); z16r=(w,y8l); z15-z16r=whatever*dir105; y15l=h+apex_o;
+z17r=z15; penstroke z11e--z10e; penstroke z12e..z13e{up}..z14e.. z15e{z16r-z16l}; penstroke
+z16e--z17e;
+.endchar;
+
+.cmchar "Scandinavian circle accent";
+.beginchar(oct"027",9u#,cap_height#,0);
+.adjust_fit(0,0);
+penpos0.1(2u,45); z0.1=z0=(0.5w,1.283x_height);
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z0.2=z0.1r; z0.3=z0.1l; rt x0.4=rt x0.2; top y0.4=y0;
+draw z0.2..z0.3..z0.2;
+penlabels(1,2,3,4); .endchar;
+
+.cmchar "The Fraktur letter dotless j";
+.beginchar(oct"021",2.944lower_u#,x_height#,1.611lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,47); penpos2(1.3hair,-90); z2r=(0.16w,-d); penpos5(stem,0);
+z5=(0.523w,0.124h); penpos3(2/3stem,0); z3l=(x5l,0.048h); penpos6(stem,0);
+z6=(x5,0.824h); penpos7(hair,-90); z7=(0.906w,0.91h); penpos8(hair,-48);
+penpos9(hair,-48); z8l=(0.481w,h+apex_o); z8-z9=whatever*((w,0.3448h)); x9l=0;
+z9'=whatever[z9r,z8r]; y9'=y9l+apex_o; z1r=(x5r+0.5stem,-0.207d);penstroke
+z2e..z3e{up}; penstroke z5e--z6e; filldraw z1r{dir137}..z5r{up}--z5l
+--z3l--z3r..z1l{dir-43}--z1r & cycle; filldraw z6r{up}..z7r{right}--z7l...
+z8r---z8l--z9l--z9r--z9'.. z6l{down}--z6r & cycle; penpos11(hair,0);
+z11r=(x8l,1.076h); z12=(0.571w,1.279h); z13=(0.744w,1.238h);
+.endchar;
+
+.cmchar "The Fraktur letter dotless i";
+.beginchar(oct"020",2.889lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,-44); penpos2(hair,-44); penpos3(hair,-44); z1l=(0,0.834h);
+z2-z1=whatever*((w,0.37h)); y2l=h+apex_o; z3=whatever[z2l,z2r]; x3r=x5r+0.5stem;
+z4=(0.606w,0.931h); penpos5(stem,0); z5=(0.433w,0.759h); z6=(x5,0.238h);
+penpos6(stem,0); z7=(x6l,0.079h); z8-z7=whatever*dir-40; y8=-apex_o;
+penpos9(hair,-38); z9r-z8=whatever*dir52; x9r=w; z10=(0.788w,0.152h);
+z5'=whatever[z1,z2]; x5'=x5l; penstroke z5e--z6e; penstroke z1e--z2e; filldraw
+z5r{up}..z3r--z2--z5'--z5l{down} --z5r & cycle; filldraw z8--z9r--z9l{z8-z9r}
+..z6r{up}--z6l{down}..{z8-z7}z8 & cycle; penpos11(hair,0); z11r=(x2l,1.076h);
+z12=(0.56w,1.279h); z13=(0.73w,1.238h);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yfraknum.mf b/Master/texmf-dist/fonts/source/public/gothic/yfraknum.mf
new file mode 100644
index 00000000000..56ef6327e95
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yfraknum.mf
@@ -0,0 +1,194 @@
+.cmchar "The Fraktur numeral 1";
+.beginchar("1",2.778u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos2(w,0); z2=(0.5w,0);
+penpos1(stem,0); z1=(0.5w,foot);
+penpos3(hair,90); penpos4(hair,90);
+z3l=z2l; z4l=z2r; penpos5(stem,0);
+z5=(x1,0.79h); penpos6(hair,0);
+z6r=(x5r,h); penpos7(1.5hair,90);
+z7=(0,0.9h);
+filldraw z4l--z4r...z1r---z6r--
+z6l..z7r{left}--z7l{right}...
+z5l---z1l...z3r--z2l--z4l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 2";
+.beginchar("2",5.694u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.625stem,-90); penpos2(stem,-90);
+penpos3(4/3stem,-115);
+z1r=(0,0); z2r=(0.722w,0.026h);
+x3l=w; y3r=-apex_o;
+penstroke z1e..z2e{right}..z3e;
+penpos4(0.917stem,20);
+z4r=(0.966w,0.721h);
+z5=(0.478w,0.848h);
+z6=(0.244w,h+apex_o);
+z7=(0.093w,0.822h);
+penpos8(hair,13); z8=(0.146w,3/4h);
+penstroke z1e{dir44}..z4e{up};
+filldraw z8r..z5{right}..z4l{down}
+--z4r{up}..z6{dir173} & z6--z7--z8l--z8r &
+cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 3";
+.beginchar("3",5.5u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.5hair,-90); penpos2(stem,18);
+penpos3(1.833stem,35);
+penpos4(hair,-90); penpos5(0.625stem,0);
+z1r=(0,-apex_o); z2=(0.788w,0.353h);
+z4r=(0.167w,0.489h); z5r=(w,h);
+z3l=z4r;
+penstroke z1e{dir12}..z2e{up}..z3e{left};
+penstroke z4e{dir30}..z5e{up};
+penpos7(0.917stem,-90);
+penpos8(0.417stem,-17);
+penpos9(hair,0);
+z8l=(0,0.796h); z9l-z8l=whatever*dir73;
+y9=h+apex_o; z7l=(0.273w,h-apex_o);
+z6=(z4l{dir30}..z5l{up}) intersectionpoint
+((0,y7r+apex_o)--(w,y7r+apex_o));
+filldraw z8l--z9l--z9r..z7l{right}...
+z5l---z5r--z6..z7r{left}..z8r{z8l-z9l}
+--z8l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 4";
+.beginchar("4",7.361u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(0.619w,foot); z2=(x1,0.831h);
+z3=(x1,h); z4=(0,0.444h);
+penpos6(0.521stem,90); z6=(0.796w,0.45h);
+y5=y6l; (x2r,h)-z5=whatever*dir50;
+z4'=(1/45w,y6r); z3'-z4'=whatever*dir50;
+x3'=x2l; penpos9(hair,90);
+penpos10(hair,-90); z9l=(x1-stem,0);
+z10r=(x1+stem,0);
+z8=(w,0.521h); z7=(0.921w,0.376h);
+filldraw z9l--z9r...z1l---z2l--
+z2r---z1r...z10l--z10r--z9l & cycle;
+z3''=whatever[z5,(x2r,h)]; x3''=x2l;
+filldraw z2l--z3''--z5--z4'---z3'...
+z3{right}..{down}z2r--z2l & cycle;
+filldraw z6l---z5...z4{up}..z4'{z3'-z4'}
+& z4'---z6r...z8{right}--z7..
+z6l{left} & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 5";
+.beginchar("5",5.528u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.458stem,-60); penpos2(1.125stem,25);
+penpos3(1.125stem,65); penpos4(1.167stem,53);
+penpos5(1.5hair,-25); penpos6(0.958stem,-77);
+z1=(0.221w,-apex_o); z2=(0.729w,0.417h);
+z3=(0.462w,0.578h); z4l=(0,0.618h);
+z5=(0.161w,0.814h); z6l=(0.349w,h);
+z7=(0.673w,0.98h); z8=(w,h);
+z9=(0.851w,0.828h);
+penstroke z1e{dir30}..z2e{up}..
+z3e{dir169}..z4e{up}..z5e{dir65}..z6e{right};
+filldraw z6l{right}..z7..z8 & z8--z9 &
+z9..{left}z6r--z6l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 6";
+.beginchar("6",6.056u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.4hair,-42); penpos2(1.208stem,40);
+penpos3(1.125stem,54); penpos4(1.2hair,-36);
+penpos5(stem,30); penpos7(hair,-45);
+z1l=(0.716w,h+apex_o); z2l=(0,0.342h);
+z3l=(0.674w,-apex_o);
+penstroke z3e..z2e{up}..z1e{dir48};
+z4r=z3; z5r=(w,0.362h); z6=(0.573w,0.753h);
+z6-z7l=whatever*dir45; y7l=0.555h;
+z8=(0.477w,0.566h);
+filldraw z4r---z3r...z5r{up}..z6{dir135}
+--z7l--z7r{z6-z7l}..z8{right}..z5l{down}
+..z4l{z3l-z3r}--z4r & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 7";
+.beginchar("7",5.906u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.417stem,0); z1=(0.466w,0);
+penpos2(hair,-57); y2l=h; x2r=w;
+penstroke z1e{up}..z2e{dir64};
+penpos3(hair,-20); penpos5(stem,-90);
+z3l=(0,0.776h); z5l=(0.24w,h);
+z4-z3l=whatever*dir70; y4=h+apex_o;
+z6=(z5r--(w,y5r)) intersectionpoint
+(z1{up}..z2{dir64});
+filldraw z3r{z4-z3l}...z5r---z6--
+z2--z2l---z5l...z4 & z4--z3l--z3r &
+cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 8";
+.beginchar("8",6.722u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.042stem,61.5);
+penpos2(hair,110);
+z1=z2=(0.5w,0.51h);
+penpos3(0.917stem,24);
+z3l=(0.083w,0.721h);
+penpos5(0.917stem,-204);
+z5l=(w-x3l,y3l);
+penpos4(hair,-90); z4l=(0.5w,h+apex_o);
+penpos6(stem,180); z6r=(0,0.245h);
+penpos7(2hair,-90); z7r=(0.5w,-apex_o);
+penpos8(stem,0); z8r=(w,y6);
+penstroke z1e{dir151.5}..z3e{up}..
+z4e{right}..z5e{down}..z2e{dir200}..
+z6e{down}..z7e{right}..z8e{up}..
+z1e{dir151.5};
+.endchar;
+
+.cmchar "The Fraktur numeral 9";
+.beginchar("9",6.056u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.4hair,-42); penpos2(1.208stem,40);
+penpos3(1.125stem,54); penpos4(1.2hair,-36);
+penpos5(stem,30); penpos7(hair,-45);
+z1l=(0.716w,h+apex_o); z2l=(0,0.342h);
+z3l=(0.674w,-apex_o);
+penstroke z3e..z2e{up}..z1e{dir48};
+z4r=z3; z5r=(w,0.362h); z6=(0.573w,0.753h);
+z6-z7l=whatever*dir45; y7l=0.555h;
+z8=(0.477w,0.566h);
+filldraw z4r---z3r...z5r{up}..z6{dir135}
+--z7l--z7r{z6-z7l}..z8{right}..z5l{down}
+..z4l{z3l-z3r}--z4r & cycle;
+transform gurisma;
+gurisma=identity
+rotatedaround ((0.5w,0.5h),180);
+picture krufo;
+krufo:= currentpicture transformed
+gurisma;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The Fraktur numeral 0";
+.beginchar("0",7.332u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.059stem,-143);
+penpos2(stem,-140);
+penpos3(1.05stem,-136);
+penpos4(1.1stem,-142);
+penpos5(hair,128);
+penpos6(hair,127);
+z1l=(0.535w,h+apex_o); z4r=(w-x1l,-apex_o);
+z2l=(w,0.528h); x3r=0; y3=y2l+apex_o;
+z5l=z4; z6r=z1;
+penstroke z1e{dir-25}..z2e{down}..
+z5e{z4r-z4l};
+penstroke z6e{z1r-z1l}..z3e{down}..
+z4e{dir-31};
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yfrakoth.mf b/Master/texmf-dist/fonts/source/public/gothic/yfrakoth.mf
new file mode 100644
index 00000000000..b0f939e8e05
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yfrakoth.mf
@@ -0,0 +1,528 @@
+.cmchar "The Fraktur comma";
+.beginchar(",",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+%penstroke z1e--z2e;
+penpos10(0.11785*(x_height+2apex_o),-30);
+z10l=(x2l-apex_o,-1.3y2r);
+filldraw z10l--z2l+(2hair,0){up}..{down}
+z1r--z10r--z10l & cycle;
+.endchar;
+
+.cmchar "The Fraktur colon";
+.beginchar(":",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+penstroke z5e--z6e;
+.endchar;
+
+.cmchar "The Fraktur semicolon";
+.beginchar(";",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+penstroke z5e--z6e;
+penpos10(hair,-30); z10l=(x2l,-y2r);
+filldraw z10l{z1r-z10r}..z2l{z2-z1}
+& z2l--z1r--z10r--z10l & cycle;
+.endchar;
+
+.cmchar "The Fraktur point";
+.beginchar(".",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+pointpoint;
+.endchar;
+
+.cmchar "Grave accent";
+.beginchar(oct"022",9u#,min(asc_height#,2x_height#),0);
+.adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1-.5stem=hround 2u; x2=2/3[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ lft x1l=hround 1.5u; rt x2r=hround(.5w+.25u+.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Acute accent";
+.beginchar(oct"023",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant-if serifs: 1.5 fi u#;
+.adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1+.5stem=hround(w-2u); x2=2/3[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ rt x1r=hround(w-1.5u); lft x2l=hround(.5w-.25u-.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Hachek (check) accent";
+.beginchar(oct"024",9u#,.75[x_height#,min(asc_height#,2x_height#)],0);
+h':=vround min(asc_height,2x_height); % height of circumflex being inverted
+if serifs: italcorr h#*slant+.5hair#-1.75u#;
+ .adjust_fit(0,0);
+ pickup crisp.nib; pos2'(.5[vair,curve],90); top y2'r=h;
+ pos2(.5[vair,curve],90); x2=.5w;
+ x1=w-x3=good.x 2.25u; top y1=top y3=h; y1-y2=.5(y2'-x_height);
+ pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
+ filldraw stroke z1e--z2e--z3e; % diagonals
+else: italcorr h#*slant-.5stem#+.5vair#-.75u#;
+ .adjust_fit(0,0);
+ pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
+ pos2(stem,0); bot y2=vround(1/12[x_height,h']+o); x2=.5w;
+ top y1=top y3=h+o; lft x1l=hround(rt x2r-3.25u-.5vair);
+ z0=whatever[z1r,z2r]=whatever[z2l,z3l];
+ y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
+ filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi % diagonals
+penlabels(0,1,2,3,4); .endchar;
+
+.cmchar "Breve accent";
+.beginchar(oct"025",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant+.5vair#-1.5u#;
+.adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,-180); pos3(vair,0);
+top y1=top y3=h; lft x1r=w-rt x3r=hround(2u-.5vair);
+numeric mid_thickness; mid_thickness=vround 1/3[vair,stem];
+pos2(mid_thickness,-90); x2=.5w;
+bot y2r=vround max(x_height+o+tiny,1/3[x_height,h]+o-.5mid_thickness);
+filldraw stroke z1e{down}...z2e{right}...{up}z3e; % stroke
+penlabels(1,2,3); .endchar;
+
+.cmchar "Macron (bar) accent";
+numeric macron_breadth#; macron_breadth#=.2[vair#,stem#];
+.beginchar(oct"026",6u#,.4[x_height#,asc_height#]+macron_breadth#,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric macron_breadth; macron_breadth:=Vround .2[vair,stem];
+pickup if serifs: crisp.nib else: fine.nib fi;
+pos1(2/3stem,70); pos2(2/3stem,70);
+top y1r=top y2r=h+o; lft x1r=w-rt x2l=hround 1.25u;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Cedilla accent";
+.beginchar(oct"030",8u#,0,.875desc_depth#);
+.adjust_fit(0,0);
+x1=.5w+.5u;
+if serifs: pickup crisp.nib; pos1(eps,0); pos2(stem,0);
+ pos3(vair,90); pos4(stem,0); pos5(vair,-90);
+ x1=x2; z3l=z2l; x4=x2+1.5u; x5=x3-1.5u;
+ bot y1=-o; bot y2=-vround 2/7d-o; y4=.5[y3,y5]; bot y5=-d-o;
+ filldraw stroke z1e--z2e; % stem
+ filldraw stroke z3e{right}...z4e{down}...{left}z5e; % hook
+else: pickup fine.nib; pos1(vair,0); top y1=-o-2;
+ pos2(.5[vair,stem],0); bot y2=-d-o; x2=x1-1.25u;
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2,3,4,5); .endchar;
+
+.cmchar "Circumflex (hat) accent";
+.beginchar(oct"136",9u#,min(asc_height#,2x_height#),0);
+if serifs: italcorr .5[x_height#,h#]*slant+.5hair#-1.75u#;
+ .adjust_fit(0,0);
+ pickup crisp.nib; pos2(.5[vair,curve],90); top y2r=h; x2=.5w;
+ x1=w-x3=good.x 2.25u; y1=y3=.5[x_height,y2];
+ pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
+ filldraw stroke z1e--z2e--z3e; % diagonals
+else: italcorr 2/3[x_height#,h#]*slant-.5stem#+.5vair#-.75u#;
+ .adjust_fit(0,0);
+ pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
+ pos2(stem,0); top y2=h; x2=.5w; bot y1=bot y3=vround 2/3[h,x_height]-eps;
+ lft x1l=hround(rt x2r-3.25u-.5vair); % same slope as in the acute accent
+ z0=whatever[z1r,z2r]=whatever[z2l,z3l];
+ y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
+ filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi % diagonals
+penlabels(0,1,2,3,4); .endchar;
+
+iff ligs>0: .cmchar "Dot accent";
+numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
+.beginchar(oct"137",5u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
+define_whole_blacker_pixels(dot_diam);
+italcorr h#*slant+.5dot_diam#-2u#;
+.adjust_fit(0,0);
+pickup tiny.nib; pos1(dot_diam,0); pos2(dot_diam,90);
+x1=x2=.5w; top y2r=h+1;
+if bot y2l<x_height+o+slab: y2l:=min(y2r-eps,x_height+o+slab+.5tiny); fi
+y1=.5[y2l,y2r]; dot(1,2); % dot
+penlabels(1,2); .endchar;
+
+iff ligs>0: .cmchar "Long Hungarian umlaut accent";
+.beginchar(oct"175",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant-u#;
+.adjust_fit(0,0);
+x3-x1=x4-x2=hround 3u; y3=y1; y4=y2;
+if serifs: pickup crisp.nib; x3+.5stem=hround(w-1.5u); x2=2.5u;
+ y1+.5stem=h; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ pos3(stem,theta); pos4(hair,theta);
+ filldraw circ_stroke z1e--z2e; % left diagonal
+ filldraw circ_stroke z3e--z4e; % right diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ pos3(stem,0); pos4(vair,0);
+ rt x3r=hround(w-1.5u); lft x4l=hround(.5w+u-.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; % left diagonal
+ filldraw stroke z3e--z4e; fi % right diagonal
+penlabels(1,2,3,4); .endchar;
+
+.cmchar "Tilde (squiggle) accent";
+.beginchar(oct"176",9u#,min(asc_height#,10/7x_height#+.5dot_size#),0);
+italcorr h#*slant-u#;
+.adjust_fit(0,0);
+if serifs: numeric theta; theta=angle(1/6(6u-vair),1/4(h-x_height));
+ pickup crisp.nib; numeric mid_width; mid_width=.4[vair,stem];
+ pos1(vair,theta+90); pos2(vair,theta+90);
+ pos3(vair,theta+90); pos4(vair,theta+90);
+ z2-z1=z4-z3=(mid_width-crisp)*dir theta;
+ lft x1r=w-rt x4l=hround 1.5u; top y4r=h;
+ bot y1l=vround(bot y1l+min(2/3[x_height,h],y3l-.25vair)-top y1r);
+ pair delta; ypart delta=3(y3l-y1l); delta=whatever*dir theta;
+ filldraw z1l..controls(z1l+delta)and(z3l-delta)..z3l..z4l
+ --z4r..controls(z4r-delta)and(z2r+delta)..z2r..z1r--cycle; % stroke
+else: pickup fine.nib; pos1(vair,180); pos2(vair,90);
+ pos3(.5[vair,slab],90); pos4(vair,90); pos5(vair,180);
+ lft x1r=w-rt x5l=hround 1.5u; x2-x1=x3-x2=x4-x3=x5-x4;
+ bot y1=bot y4l=vround(.75[x_height,h]-vair);
+ top y2r=top y5=h; y3=.5[y2,y4];
+ filldraw stroke z1e{up}...z2e{right}..z3e..{right}z4e...{up}z5e; fi % stroke
+penlabels(1,2,3,4,5); .endchar;
+
+.cmchar "Opening Gaensefuesschen";
+.beginchar(oct"134",9u#,asc_height#,0);
+italcorr asc_height#*slant+dot_size#-4.1u#;
+.adjust_fit(0,0);
+x2+.5dot_size=hround(w-.6u); y2-.5dot_size=0;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+comma(1,a,dot_size,.25u,comma_depth); % left dot and tail
+comma(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2); .endchar;
+
+
+.cmchar "Closing Gaensefuesschen";
+.beginchar(oct"042",9u#,asc_height#,0);
+italcorr asc_height#*slant-.1u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround .6u;
+ y1+.5dot_size=h-comma_depth;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+ammoc(1,a,dot_size,.25u,comma_depth); % left dot and tail
+ammoc(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2);
+.endchar;
+
+.cmchar "En dash";
+.beginchar(oct"173",9u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Em dash";
+.beginchar(oct"174",18u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(letter_fit#,letter_fit#);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Hash mark (number sign)";
+if monospace: compute_spread(.6x_height#,.7x_height#);
+else: compute_spread(.45x_height#,.55x_height#); fi
+.beginchar("#",15u#,asc_height#,asc_depth#);
+italcorr (math_axis#+.5(spread#+rule_thickness#))*slant-.5u#;
+.adjust_fit(0,0);
+pickup rule.nib; lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+lft x6=hround 3u; rt x7=hround(w-3u); x5-x6=x7-x8;
+x8=good.x if monospace: .6 else: .5 fi\\w;
+top y5=top y7=h+eps; bot y6=bot y8=-d-eps;
+y15=y1; z15=whatever[z5,z6]; y36=y3; z36=whatever[z5,z6];
+y27=y2; z27=whatever[z7,z8]; y48=y4; z48=whatever[z7,z8];
+draw z5--if x5>x6+1:(good.x(x15+.5),y1)--(good.x(x15-.5),y1)
+ --(good.x(x36+.5),y3)--(good.x(x36-.5),y3)--fi\\z6; % left diagonal
+draw z7--if x7>x8+1:(good.x(x27+.5),y2)--(good.x(x27-.5),y2)
+ --(good.x(x48+.5),y4)--(good.x(x48-.5),y4)--fi\\z8; % right diagonal
+labels(1,2,3,4,5,6,7,8,15,27,36,48); .endchar;
+
+.cmchar "Per cent sign";
+.beginchar("%",15u#,
+ body_height#,body_height#-asc_height#);
+italcorr if hefty: .4asc_height#*slant-.5u# else: h#*slant-u# fi;
+.adjust_fit(0,0); pickup fine.nib;
+numeric left_curve,right_curve;
+left_curve=hround 5/6[fudged.hair,fudged.stem];
+right_curve=max(fine.breadth,hround(fudged.hair if hefty:-2stem_corr fi));
+pos1(vair,90); pos2(left_curve,180); pos3(vair,270); pos4(right_curve,360);
+top y1r=h; lft x2r=hround u; rt x4r=hround(.5w-1.5u);
+bot y3r=floor(if monospace: .7 else: .5 fi\\ asc_height);
+x1=x3=.5[x2,x4]; y2=y4=.5[y1,y3];
+filldraw stroke pulled_super_arc.e(1,2)(superpull)
+ & pulled_super_arc.e(2,3)(superpull); % left half of upper bowl
+filldraw stroke super_arc.e(3,4) & super_arc.e(4,1); % right half of upper bowl
+pos5(vair,90); pos6(left_curve,180); pos7(vair,270); pos8(right_curve,360);
+bot y7r=-d; rt x8r=hround(w-u); lft x6r=hround(.5w+1.5u);
+top y5r=vround(if monospace: .3 else: .5 fi\\ asc_height);
+x5=x7=.5[x6,x8]; y6=y8=.5[y5,y7];
+filldraw stroke pulled_super_arc.e(5,6)(superpull)
+ & pulled_super_arc.e(6,7)(superpull); % left half of lower bowl
+filldraw stroke super_arc.e(7,8) & super_arc.e(8,5); % right half of lower bowl
+pickup rule.nib; top y9=h; bot y10=-d;
+if hefty: x9=good.x(x5-eps); x10=good.x(x1+eps);
+ draw z9--z10; % diagonal
+else: rt x9=hround(w-2.5u); lft x10=hround 2.5u; draw z9--z10; % diagonal
+ pickup fine.nib; pos9(rule_thickness,angle(z9-z10)+90);
+ pos11(vair,angle(z1r-z4r)-90); pos12(vair,angle(z9-z10)+90);
+ path p; p=super_arc.r(1,4); z11r=point 2/3 of p; z12r=z9r;
+ filldraw stroke z11e{direction 2/3 of p}...{z9-z10}z12e; fi % link
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12); .endchar;
+
+.cmchar "Apostrophe";
+.beginchar("'",5u#,asc_height#,0);
+italcorr asc_height#*slant+.5dot_size#-2u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h;
+if monospace: comma(1,a,dot_size,.28u,vround 1.5comma_depth); % large comma
+else: comma(1,a,dot_size,.25u,comma_depth); fi % comma with increased jut
+penlabels(1); .endchar;
+
+.cmchar "Left parenthesis";
+.beginchar("(",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+rt x1r=rt x3r=hround(w-u); lft x2l=hround(x1-4u if monospace: +4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Right parenthesis";
+.beginchar(")",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr math_axis#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+lft x1l=lft x3l=hround u; rt x2r=hround(x1+4u if monospace: -4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Asterisk";
+.beginchar("*",9u#,
+ if low_asterisk:math_axis#+.5x_height# else: body_height# fi,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric ast_flare; ast_flare=hround .7[thin_join,stem];
+x0=.5w; y0=h-.5x_height;
+for d=-150 step 60 until 150: z[d]=z0+.5dir d xscaled 7.5u yscaled x_height;
+ numeric theta; theta=angle(z[d]-z0);
+ fill z0+.5(0,-thin_join)rotated theta
+ ---z[d]+.5(-ast_flare,-ast_flare)rotated theta
+ ..z[d]..z[d]+.5(-ast_flare,ast_flare)rotated theta
+ ---z0+.5(0,thin_join)rotated theta--cycle; endfor % diagonal at angle |d|
+labels(0,[-150],[-90],[-30],30,90,150); .endchar;
+
+.cmchar "Plus sign";
+beginarithchar("+"); pickup rule.nib;
+x1=x2=good.x .5w; top y1=h+eps; .5[y1,y2]=math_axis;
+lft x3=hround u-eps; x4=w-x3; y3=y4=math_axis;
+draw z1--z2; % stem
+draw z3--z4; % crossbar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Virgule (slash)";
+.beginchar("/",9u#,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+rt x1=hround(w-u)+eps; top y1=h+eps;
+lft x2=hround u-eps; bot y2=-d-eps;
+draw z1--z2; % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Equals sign";
+compute_spread(.45x_height#,.55x_height#);
+.beginchar("=",14u#,v_center(spread#+rule_thickness#));
+italcorr h#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Left bracket";
+numeric wd#; wd#=max(5u#,6u#);
+.beginchar("[",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; lft x1l=lft x2l=hround(2.5u-.5side_thickness)-1-eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1l; rt x4=rt x6=ceiling(w-.4u)+eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+.cmchar "Right bracket";
+numeric wd#; wd#=max(5u#,6u#);
+.beginchar("]",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant-2u#+.5if hefty:stem# else:rule_thickness# fi;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; rt x1r=rt x2r=hround(w-2.5u+.5side_thickness)+1+eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1r; lft x4=lft x6=floor .4u-eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+.cmchar "Reverse apostrophe";
+.beginchar("`",5u#,asc_height#,0);
+italcorr asc_height#*slant+.5dot_size#-2u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h-comma_depth;
+if monospace: ammoc(1,a,dot_size,.28u,vround 1.5comma_depth); % large ammoc
+else: ammoc(1,a,dot_size,.25u,comma_depth); fi % normal ammoc
+penlabels(1); .endchar;
+
+cmchar "Exclamation point";
+beginchar("!",5u#,asc_height#,0);
+italcorr asc_height#*slant-2u#-.5width_adj#+.5dot_size#;
+adjust_fit(0,0);
+pointpoint;
+pickup tiny.nib; pos103(dot_size,0); pos104(dot_size,90);
+lft x103l=hround(.5w-.5dot_size); bot y104l=0; z103=z104; % dot
+numeric bot_width;
+bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
+pickup fine.nib; pos101(dot_size,0); pos102(bot_width,0);
+x101=x102=x103; bot y102=.25[top y104r,x_height]+1;
+if square_dots: top y101=h;
+ filldraw stroke z101e--z102e; % stem
+else: top z100=(x101,h+o); y101+.5dot_size=h+o;
+ filldraw z101r...z100...z101l---z102l--z102r---cycle; fi % stem and bulb
+penlabels(0,1,2,3,4); endchar;
+
+cmchar "Question mark";
+beginchar("?",8.5u#,asc_height#,0);
+italcorr .8asc_height#*slant;
+adjust_fit(0,0);
+pointpoint;
+pickup tiny.nib; pos107(dot_size,0); pos108(dot_size,90);
+lft x107l=hround(.5w-.25u-.5dot_size); bot y108l=0; z107=z108; % dot
+numeric bot_width;
+bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
+pickup fine.nib; pos102(vair,90); pos103(curve,0);
+pos104(vair,-90); pos105(bot_width,0); pos106(bot_width,0);
+x102=x104=x105=x106=x107; rt x103r=hround(w-u); bot y106=1+.25[top y108r,x_height];
+top y102r=h+oo; y103=.75[y106,y102]; y104=.5[y106,y102]; y105=.1[y106,y102];
+{{interim superness:=more_super;
+filldraw stroke pulled_super_arc.e(102,103)(superpull)
+ & subpath (0,1) of super_arc.e(103,104) .. z105e---z106e\\}}; % arc and stem
+if serifs: pos101(hair,180); pos100(flare,180);
+ lft x101r=hround u; y101=y103; bulb(102,101,100); % bulb
+else: pos101(Vround 5/7[vair,flare],110);
+ lft x101r=hround u; top y101r=vround .9[y106,top y102r];
+ filldraw stroke term.e(102,101,left,101,104); fi % terminal
+penlabels(0,1,2,3,4,5,6,7,8); endchar;
+
+
+cmchar "Ampersand";
+beginchar("&",14u#,asc_height#,0);
+italcorr x_height#*slant-serif_fit# - if serifs: .4u# else: 1.5u# fi;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos2(slab,-90); x2=4u; bot y2r=-o;
+if not hefty:(x,y2l)=whatever[z2r,(w-5u,x_height)]; x2l:=x; fi
+if serifs: pos0(fudged.hair,0);
+ rt x0r+jut=hround(w-.9u); top y0=x_height;
+ pos1(fudged.hair,0); z1=whatever[z0,(.6[x0,x2],0)];
+ y1=max(y0-1.5bracket-.2x_height,2/3x_height);
+ filldraw stroke z0e---z1e...{left}z2e; % short diagonal
+else: pickup fine.nib; pos1(.25[slab,flare],-15); rt x1r=hround(w-2u);
+ y1r=good.y .75[bar_height,x_height]; x1l:=good.x x1l; y1l:=good.y y1l;
+ top z2'l=(x2l,tiny.top y2l); bot z2'r=(x2r,tiny.bot y2r);
+ filldraw stroke term.e(2',1,right,1,4); fi % short diagonal and terminal
+pickup tiny.nib; numeric slope,theta,reduced_hair;
+slope=(h-2vair-slab)/10.5u; theta=angle(-slope,1);
+reduced_hair=max(tiny.breadth,hround(fudged.hair if hefty:-2stem_corr fi));
+lft x3r=hround .75u; x5=.5[x3r,x6l]; lft x6r=hround .5(w-u);
+x3l-x3r=curve-tiny; pos6(reduced_hair,180);
+pos5(vair,theta); y5=.5h;
+ellipse_set(2l,3l,4l,5l); ellipse_set(2r,3r,4r,5r);
+pos7(vair,270); top y7l=h+o; x7=.45[x6r,x8r];
+pos8(fudged.stem,30); x8l=good.x(x8l+3.5u-x8); y8r=y6;
+ellipse_set(7l,6l,5',5l);
+filldraw stroke z2e{left}...z3e{up}...z4e---z5e...{up}z6e
+ ...z7e{left}...z8e{down}; % bowls
+pos10(slab,90); x10=w-3.5u; bot y10l=-o;
+pos9(fudged.stem,angle(z8-z10)-90);
+z9=.5[z8,z10]+(1.75u,0) rotated(angle(z8-z10)+90);
+filldraw stroke z8e{down}...z9e{z10-z8}...{right}z10e; % long diagonal
+if serifs: pickup crisp.nib; pos10'(slab,90); z10'=z10;
+ pos11(fudged.hair,180); rt x11l=hround(w-u); y11=.5bar_height;
+ filldraw stroke z10'e{right}...{up}z11e; % terminal
+ numeric inner_jut; if rt x6l+.5u<lft x0l-1.5jut: inner_jut=1.5jut;
+ else: rt x6l+.5u=lft x0l-inner_jut; fi
+ dish_serif(0,1,a,.6,inner_jut,b,.5,jut)(dark); % serif
+else: pickup fine.nib; pos10'(slab,90); z10'=z10;
+ pos11(Vround .5[slab,flare],90);
+ rt x11=hround(r-letter_fit-u); bot y11l=vround .07bar_height-o;
+ filldraw stroke term.e(10',11,right,1,4); fi % terminal
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yfrakupp.mf b/Master/texmf-dist/fonts/source/public/gothic/yfrakupp.mf
new file mode 100644
index 00000000000..df5a8046e0a
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yfrakupp.mf
@@ -0,0 +1,1342 @@
+.cmchar "The Fraktur letter A";
+.beginchar("A",9.522u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+% made in Athens, Greece on Friday July 27, 1990
+penpos1(cap_hair,-51);
+penpos2(cap_hair,-51);
+z2-z1=whatever*dir39;
+x2r=w; z1r=(0.722w,-apex_o);
+penpos4'(cap_hair,39); z4'l=z1l;
+z4'r=z4;
+penpos5(cap_stem,0);
+z5=(x1r,0.223h);
+penpos13(cap_hair,-62); z13r=z5r;
+z13l-z14=whatever*dir26;
+z13r-z14'=whatever*dir26;
+y14=0; y14'=-apex_o;
+z6=whatever[z14',z13r]; x6=x5l;
+filldraw z14--z13l--z13r{down}..
+z2l{z2-z1}--z2r--z1r--z1l--z4--
+z6--z14'--z14 & cycle;
+filldraw z5l--z6--z5r--z5l & cycle;
+z1.1=whatever[z6,z4]; y1.1=y4+cap_hair;
+filldraw z1l{z2-z1}..z1.1{z6-z4}--
+z2--z1r--z1l & cycle;
+%
+%
+%
+penpos7(cap_stem,0); z7=(x5,0.862h);
+penpos8(cap_hair,-57);
+penpos9(cap_hair,-57);
+z8l=z7l; z9-z8=whatever*dir33;
+y9=h; z10=(0.937w,h+apex_o);
+z11=(0.99w,0.981h); z12=(0.953w,0.955h);
+z9'=whatever[z8r,z9r];
+x9'=0.4[x7r,x9r];
+penstroke z5e--z7e;
+filldraw z7r{up}..z9'{z9-z8}--
+z9r..z12{right}..z11{up}..z10{left}
+...z9l---z8l--z7r & cycle;
+%
+%
+%
+penpos15(cap_hair,-90); z15=(0,0.213h);
+z15r-z16=whatever*dir137;
+x16=0.936x14; z17=whatever[z14,z13l];
+x17=0.392w;
+penpos18(cap_hair,-43);
+z18-z17=whatever*dir133;
+y18r=y15l; penpos19(0.815cap_stem,0);
+x19=0.5w; y19=0.521h;
+z14''=(x14'-cap_hair,0);
+filldraw z15l{right}..z18l..z19l{up}
+--z19r{down}..z18r{dir-162}--
+z17--z14''{dir72}...z16---z15r--
+z15l & cycle;
+%
+%
+%
+penpos20'(1.037cap_stem,29.5);
+z20'=(0.405w,0.846h);
+penpos20(0.889cap_stem,50);
+z20=(x18r,0.904h);
+penpos21(1.25cap_hair,180);
+z21r=(0,3/4h);
+penpos22(1.148cap_stem,-162);
+z22l=(x20,0.678h);
+penpos23(cap_hair,180);
+z23=(0.284w,0.535h);
+penpos24(0.685cap_stem,66.6);
+z24l=(x22,0.367h);
+z25=(0.027w,0.426h); z26=(0.079w,0.473h);
+penstroke z19e{up}..z20'e{dir135}..
+z20e{left}..z21e{down}..z22e{dir-45}
+..z23e{down}..z24e{left};
+filldraw z24l{left}..z25{up}..z26{right}
+..z24r{right}--z24l & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter B";
+.beginchar("B",12.415u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.045w,0.096h); z2=(0.081w,0.141h);
+z3=(0,0.165h); z4=(x1,0.213h);
+penpos5(cap_stem,-142);
+z5=(0.179w,0.301h);
+penpos6(1.259cap_stem,-147);
+z6r=(0.538w,-apex_o);
+penpos7(cap_hair,-65);
+z7=(0.775w,0.103h);
+penpos8(0.907cap_stem,30);
+z8r=(w,0.4h);
+penpos9(1.741cap_stem,27);
+z9l=(x6r,0.6h);
+filldraw z1{right}..z2{up}..z4 &
+z4..z5r{right}..z6r{right} &
+z6r---z7r...z8r{up}..z9r{left}--
+z9l{right}..z8l{down}..z7l..z6l{left}
+..z5l{left}..z3{down}..z1{right} &
+cycle;
+%
+%
+%
+penpos10(1.222cap_stem,-153);
+z10r=0.883[z9l,z9r];
+penpos11(2/3cap_hair,-63);
+z11r=whatever[z9,z10]; x11=x10l+cap_hair;
+penpos13(1.056cap_stem,-125);
+z13l=(0.691w,h);
+z12=(z13l{right}..z10l{dir-63})
+intersectionpoint ((x10l-1.5hair,0)--
+(x10l-1.5hair,h));
+penpos14(cap_hair,0);
+penpos16(0.889cap_stem,17); z16r=z9l;
+z14=(x16,0.686h);
+filldraw z14l{dir78}..z13l{right}..z12..
+z11l{z10-z9}--z11r--z10r{dir117}..
+z13r{left}..{dir258}z14r--z14l & cycle;
+%
+%
+%
+penpos15'(cap_hair,-90);
+z15'l=z5l;
+penpos15(0.889cap_stem,0);
+z14-z15=whatever*dir85; y15=y5l+2cap_hair;
+penpos17(cap_stem,76);
+z17r=(0.256w,h+apex_o);
+penpos18(cap_hair,180);
+z18=(0.055w,0.745h);
+penpos19(1.185cap_stem,-145);
+z19=(0.148w,0.644h);
+penpos20(cap_hair,197);
+z20=(0.246w,0.548h);
+penpos21(cap_hair,118);
+z21=whatever[(0,0),z17]; x21=0.108w;
+penstroke z15'e{right}
+..z15e..z16e{up}..z17e{left}
+..z18e{down}..z19e{dir-45}..z20e{z20l-z19l}..
+z21e{dir202};
+.endchar;
+
+.cmchar "The Fraktur letter C";
+.beginchar("C",10.406u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.157w,0.08h); z2=(0.211w,0.138h);
+z3=(0.084w,0.141h);
+z5=(0.113w,0.209h); z4=0.4[z3,z5];
+penpos6(cap_hair,180);
+z6r=(0,0.117h); penpos7(cap_hair,-118);
+z7r=(0.189w,-apex_o);
+penpos8(cap_hair,-48);
+z8=(0.469w,0.136h);
+penpos9(1.074cap_stem,36);
+z9=(0.623w,0.367h); z10=(0.5w,0.721h);
+penpos10(0.889cap_stem,30);
+z11'=(0.736w,0.931h);
+z13=(0.803w,0.729h);
+z14=(w,0.777h); penpos11(cap_hair,
+angle(z13-z11'));
+z11l=z11'; z12-z11l=whatever*dir7;
+x12=0.912w; z16'-z12=whatever*(z13-z11);
+z16'=whatever[z13,z14];
+penpos15(cap_hair,angle(z13-z11));
+z15r=z14; z15l-z16=whatever*(z14-z13);
+z16=whatever[z12,z16'];
+penstroke z6e{down}..z7e{right}..
+z8e..z9e{up}..z10e{up}..z11e{z12-z11l};
+filldraw z11l--z12--z16--z15l--z15r
+--z13--z11l & cycle;
+filldraw z6l{up}..z4{right} &
+z4..z3{down}..z1{right}..z2{up}..
+z5{left}..z6r{down}--z6l & cycle;
+%
+%
+%
+penpos17(1.037cap_stem,90);
+z17l=(0.738w,-apex_o);
+penpos18(1.093cap_stem,38);
+z18=(0.17w,0.58h);
+penpos19(1.5cap_hair,-57);
+z19l=(0.45w,h+apex_o);
+penpos20(1.2cap_hair,-197);
+z20=(0.692w,0.824h);
+penpos21(cap_hair,-219);
+z21=(3/4[x9l,x9r],y10);
+penstroke z17e{left}..z18e{up}..
+z19e..z20e{down}..z21e;
+penpos22(cap_hair,-44);
+z22r-z17l=whatever*dir46;
+x22r=w;
+filldraw z17r{right}..z22l{z22r-z17l}
+--z22r--z17l--z17r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter D";
+.beginchar("D",12.168u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.073w,-apex_o);
+penpos2(0.6cap_stem,0);
+z2=(x1,0.04h); penpos4(1.204cap_stem,-148);
+z4=(0.229w,0.190h);
+penpos5(1.185cap_stem,-144);
+z5r=(0.545w,-apex_o);
+penpos6(cap_hair,-65); x6=0.787w;
+z6r-z5r=whatever*dir25;
+penpos7(0.815cap_stem,38);
+z7r=(w,0.418h); penpos8(0.926cap_stem,67.5);
+z8r=(0.41w,h+apex_o);
+penpos9(0.537cap_stem,-173);
+z9r=(0,0.685h); penpos10(2/3cap_hair,-90);
+z10=(0.242w,0.53h);
+penstroke z2e{up}..z4e{right}..z5e{right};
+penstroke z6e{dir25}..z7e{up}..z8e{left}
+..z9e{down}..z10e{right};
+filldraw z2l{down}..z1..z2r{up}--z2l
+& cycle;
+filldraw z5l{right}..z6l{dir25}--
+z6r--z5r--z5l & cycle;
+%
+%
+%
+z11=(0.171w,0.389h); z12=(0.197w,0.427h);
+penpos13(cap_hair,-90);
+z13=(x4l,0.3h); penpos14(cap_stem,0);
+z14=(0.462w,0.5[y11,y12]);
+penpos15(1.074cap_stem,34);
+z15=(0.353w,0.655h); z16=(0.488w,0.78h);
+penpos16(cap_hair,-90);
+penstroke z13e{right}..z14e{up}..
+z15e{up}..z16e{right};
+filldraw z11{up}..z12{right}..z13l{right}
+--z13r{left}..z11{up} & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter E";
+.beginchar("E",8.508u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.074cap_stem,62.5);
+z1l=(0.623w,-apex_o);
+penpos2(0.796cap_stem,16);
+z2l=(0,0.485h); penpos3(4/3cap_hair,-90);
+z3l=(0.485w,h+apex_o);
+penpos6(cap_stem,-151.5);
+penpos5(cap_stem,-151.5);
+x6l=w; y5l=h; z6-z5=whatever*dir-37;
+x5l=0.808w;
+penstroke z5e--z6e;
+penpos4(cap_hair,-151.5);
+z4r=z5r; penstroke z3e{right}..
+z4e{z6-z5};
+penpos16(cap_hair,-90);
+z16=(w,0.149h);
+filldraw z1l--z16r--z16l..z1r{left}
+--z1l & cycle;
+penstroke z1e{left}..z2e{up}..z3e{right};
+%
+%
+%
+penpos7(cap_hair,-164); z7=whatever[z2l,z2r];
+x7=0.31w;
+penpos8(0.444cap_stem,-51.5);
+z8=(0.492w,0.393h);
+penpos9(0.796cap_stem,6.5);
+z9=(x1l,y2-eps);
+penpos10(0.963cap_stem,34);
+z10=(0.441w,0.767h);
+penpos11(cap_hair,-37); z11l=z4r;
+penstroke z7e{dir-74}..z8e{right}..
+z9e{up}..z10e{up}..z11e{z5l-z5r};
+%
+%
+%
+penpos12(cap_hair,-55.5);
+z12l=(z9{up}..z10{up})
+intersectionpoint (z9l--(x9l,h));
+z13-z12l=whatever*dir31.5;
+x13=0.854w; penpos14(whatever,0);
+z15=(x13,0.53h); z14r=(w,0.639h);
+z14l-z12r=whatever*(z13-z12l);
+filldraw z12l--z13--z14r--z15--
+z14l--z12r--z12l & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter F";
+.beginchar("F",8.213u#,cap_height#,3.010u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(2/3cap_hair,68);
+z1=(0.34w,0.535h); penpos2(cap_hair,0);
+z2l=(0.036w,0.739h);
+penpos3(4/3cap_stem,-150);
+z3l=(0.614w,h+apex_o);
+penpos4(cap_stem,-128); z4l-z3l=whatever*dir-37;
+x4l=w; penpos5(cap_hair,-38);
+x5l=w; z5r=whatever[z4r,z4l];
+penstroke z1e{dir158}..z2e{up}..
+z3e{right};
+z5'=whatever[z3l,z4l]; z5'-z5l=whatever*(z4-z5r);
+filldraw z3l--z5'--z5l--z5r--z4r
+{z3l-z4l}...z3r{left}--z3l & cycle;
+%
+%
+%
+penpos6(cap_hair,-23); penpos7(cap_hair,-90);
+penpos8(0.778cap_stem,-219);
+penpos9(0.741cap_stem,-203);
+penpos10(cap_hair,-90);
+penpos11(cap_stem,17);
+penpos12(1.111cap_stem,30);
+penpos13(eps,-63);
+z6l=(0,0.351h); z7=(x2r+cap_hair,0.44h);
+x8l=x1; y8=0.339h; z9r=(x2l,0);
+z10r=(0.462w,-d); z11l=(0.709w,0);
+z12=(0.542w,0.652h);
+z13=(0.789w,0.821h);
+penstroke z6e{dir67}..z7e{right}..z8e{down}
+..z9e{down}..z10e{right}..z11e{up}..
+z12e{up}..z13e{dir27};
+%
+%
+%
+penpos14(cap_hair,-47);
+penpos15(cap_hair,-47);
+z14=(z11{up}..z12{up}) intersectionpoint
+((0,0.476h)--(w,0.476h));
+z15-z14=whatever*dir43;
+x15l=x4r; penpos16(0.833cap_stem,-137);
+z16l=z15l; penpos17(0.833cap_stem,-137);
+x17l=w; z17-z16=whatever*dir-47;
+penstroke z14e--z15e;
+penstroke z16e--z17e;
+.endchar;
+
+.cmchar "The Fraktur letter G";
+.beginchar("G",10.638u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,0);
+penpos2(0.5cap_stem,90);
+penpos3(cap_stem,180);
+penpos4(cap_hair,-90);
+penpos5(0.926cap_stem,14);
+penpos7(cap_hair,-51);
+penpos9(cap_hair,-51);
+z1=(0.595w,0.739h); z2r=(0.385w,h+apex_o);
+z3r=(0,0.517h); z4r=(0.537w,-apex_o);
+z5r=(w,0.392h); z6=(0.686w,0.628h);
+z7=(x4,0.566h); z9-z7=whatever*dir39;
+x9=0.963w; z8=whatever[z7r,z9r];
+x8=0.817w;
+penstroke z1e{up}..z2e{left}..z3e{down}
+..z4e{right}..z5e{up};
+filldraw z7r{z9-z7}..z6{right}..
+z5l{down}--z5r{up}..z8--z9r--z9l--
+z7l--z7r & cycle;
+%
+%
+%
+penpos11(1.148cap_stem,39);
+penpos12(1.148cap_stem,39);
+z11=whatever[z7l,z9l]; x11=0.856w;
+penpos10(cap_hair,-51);
+z10=whatever[z9l,z9r]; y10l=h+apex_o;
+z12-z11=whatever*dir129;
+z10l-z12=whatever*dir39;
+penpos13(cap_hair,-51); z13l=z12l;
+penstroke z11e--z12e;
+penstroke z13e--z10e;
+%
+%
+%
+penpos14(cap_hair,180); penpos15(0.5cap_stem,-45);
+penpos16(0.796cap_stem,21.5);
+penpos17(0.926cap_stem,43);
+penpos18(cap_hair,-37);
+penpos19(cap_hair,-37);
+z14=(0.3w,0.58h); z15=(0.441w,0.385h);
+z16=(0.5[x7,x1],0.507h);
+z17=(0.385w,0.776h); z18=(0.442w,0.873h);
+z19-z18=whatever*dir53; y19=1.032h;
+penstroke z14e{down}..z15e{right}..
+z16e{up}..z17e{up}...z18e---z19e;
+.endchar;
+
+.cmchar "The Fraktur letter H";
+.beginchar("H",10.275u#,cap_height#,1.996u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,111);
+penpos2(cap_hair,90);
+penpos3(cap_hair,0);
+penpos8(cap_hair,-45);
+penpos7(cap_hair,-45);
+penpos9(0.889cap_stem,0);
+penpos10(1.222cap_stem,48.5);
+penpos11(cap_hair,132);
+z1=(0.57w,-0.679d);
+z2l=(0.452w,-d); z3=(0.354w,-0.23d);
+z4=(0.503w,0.082h); z5=(0.621w,0.217h);
+z6=(0.71w,0.12h); z8l=(0.592w,-apex_o);
+z7r-z8r=whatever*dir45;
+x7r=0.809w; z9r=(w,0.429h);
+z10=(0.624w,3/4h); %z11=whatever[z1l,z1r];
+z11=(0.28w,0.543h);
+penstroke z1e..z2e{left}..z3e{up};
+filldraw z3r{up}..z4{right}..
+z8l{z8r-z7r}--z8r---z7r...z9r{up}--
+z9l{down}..z7l{z8r-z7r}..z6{left}..
+z5{dir123} & z5{dir211}..z3l{down}--
+z3r & cycle;
+penstroke z9e{up}..z10e{left}..
+z11e{dir222};
+%
+%
+%
+penpos12(1.259cap_stem,-131);
+penpos13(1.2cap_hair,-41);
+penpos14(1.074cap_stem,25);
+penpos15(cap_hair,-41);
+penpos18(cap_hair,-36);
+z12r=(0,0.141h); y13=0.2h; x13l=x11;
+z14=z11; z15=(x11,0.845h);
+z16=(0.478w,h); z17=(0.516w,0.837h);
+z18r-z17=whatever*dir54;
+y18r=h+apex_o;
+penstroke z12e{dir-41}..z13e{dir49}
+..z14e..z15e{dir49};
+filldraw z15r{dir49}..z17--z18r--
+z18l{z17-z18r}..z16{left}..z15l
+{dir229}--z15r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter I";
+.beginchar("I",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28);
+penpos2(cap_hair,-17.5);
+penpos3(0.889cap_stem,-116);
+penpos4(cap_stem,-126);
+penpos5(cap_hair,-44);
+penpos6(1.056cap_stem,53);
+penpos7(1.056cap_stem,21);
+penpos8(cap_hair,-90);
+penpos9(cap_hair,180);
+z1=(0.115w,-0.886d); z2r=(x1,-0.519d);
+z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h);
+z7=(0.636w,0.56h); z8=(0.808w,0.683h);
+z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right}
+..z4e{right}..z5e..z6e{up}..z7e{up}
+..z8e{right}..z9e{down};
+%
+%
+%
+penpos10(1.037cap_stem,50);
+penpos11(cap_hair,-45);
+penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146);
+penpos14(0.741cap_stem,-119);
+penpos15(cap_hair,0);
+penpos16(cap_hair,28);
+z10l=z11r=(0.1w,0.515h);
+z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h);
+z15r=(w,0.875h); z16=(x15l,0.924h);
+filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118};
+.endchar;
+
+.cmchar "The Fraktur letter J";
+.beginchar("J",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28);
+penpos2(cap_hair,-17.5);
+penpos3(0.889cap_stem,-116);
+penpos4(cap_stem,-126);
+penpos5(cap_hair,-44);
+penpos6(1.056cap_stem,53);
+penpos7(1.056cap_stem,21);
+penpos8(cap_hair,-90);
+penpos9(cap_hair,180);
+z1=(0.115w,-0.886d); z2r=(x1,-0.519d);
+z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h);
+z7=(0.636w,0.56h); z8=(0.808w,0.683h);
+z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right}
+..z4e{right}..z5e..z6e{up}..z7e{up}
+..z8e{right}..z9e{down};
+%
+%
+%
+penpos10(1.037cap_stem,50);
+penpos11(cap_hair,-45);
+penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146);
+penpos14(0.741cap_stem,-119);
+penpos15(cap_hair,0);
+penpos16(cap_hair,28);
+z10l=z11r=(0.1w,0.515h);
+z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h);
+z15r=(w,0.875h); z16=(x15l,0.924h);
+filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118};
+.endchar;
+
+.cmchar "The Fraktur letter K";
+.beginchar("K",9.478u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+cap_stem:=0.95cap_stem;
+%cap_hair:=0.95cap_hair;
+z1=(0,0.182h); z2=(0.177w,0.207h);
+z3=(0.033w,-apex_o);
+penpos4(cap_hair,-90);
+z4=(0.282w,0.045h); penpos5(cap_hair,0);
+z5=(0.4w,0.136h); z7=(0.434w,0.227h);
+z7'=(0.328w,0.556h);
+z8=(0.197w,0.732h); z6=(0.052w,0.566h);
+penpos9(1.25cap_hair,-90);
+z9l=(0.561w,h+apex_o);
+penpos9'(cap_hair,180);
+z9'l=(w-apex_o,0.707h);
+penpos10(cap_hair,140); z10=(0.813w,0.492h);
+filldraw z1--z3{dir30}..z4r{right}
+..z5r..z7{up}..z7'..z8{up}..z9r{right}
+--z9l{left}..z6{down} & z6{dir-52}
+..z5l..z4l{left}..z2{up}--z1 & cycle;
+penstroke z9e{right}..z9'e{down}..
+z10e;
+%
+%
+%
+penpos12(cap_hair,-78);
+penpos11(cap_hair,-78);
+z12l-z7'=whatever*dir12;
+z7'-z11l=whatever*dir12;
+x12=x10; x11=0.243w;
+penstroke z11e--z12e;
+penpos13(cap_hair,12); z13r=z7';
+penpos14(0.463cap_stem,-116);
+z14=(0.492w,0.8h);
+penpos16(1.074cap_stem,-168);
+z16=whatever[z11l,z12l]; x16l=x12-cap_hair;
+z12-z15=whatever*dir-78;
+penpos15(cap_hair,-78);
+y15=0.823h; z17-z15r=whatever*(z12-z11);
+z16l-z17=whatever*(z12-z15);
+filldraw z13r{dir102}..z14r{right}
+..z16r{dir-78}--z16l--z17--z15r--
+z15l{z13-z12}..z14l{left}..z13l{dir-78}
+--z13r & cycle;
+%
+%
+%
+penpos18(1.053cap_stem,-168);
+z18=0.5[z12r,z11r];
+penpos18'(1.053cap_stem,-168);
+z19=(0.767w,-apex_o); penpos21(cap_hair,-90);
+z21r-z19=whatever*dir45; x21=w;
+z20=(0.869w,0.149h);
+z18'-z18=whatever*dir-70; x18'l=x15;
+filldraw z18r---z18'r...z19--z21r--
+z21l{z19-z21r}..z20{left}...z18'l
+---z18l--z18r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter L";
+.beginchar("L",6.131u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+cap_stem:=1.022cap_stem;
+penpos1(cap_hair,0); penpos2(cap_hair,-60);
+penpos3(1.056cap_stem,30);
+penpos4(cap_stem,23); penpos5(0.481cap_stem,-67);
+penpos6(cap_hair,-149);
+penpos7(whatever,-140);
+penpos8(cap_hair,-147);
+penpos9(cap_hair,-90); penpos10(cap_hair,0);
+z1l=(0,0.082h); z2=(0.15w,0.207h);
+z3=(0.453w,0.37h); z4l=(0,0.731h);
+z5l=(0.539w,h+apex_o);
+z6=(0.829w,0.886h); z7l=(0.933w,0.739h);
+x7r=x3r;
+z8=(0.658w,0.53h); z9=(x6,0.476h);
+z10=(x7l,0.543h);
+penstroke z1e{up}..z2e..z3e{up}..
+z4e{up}..z5e{right}..z6e..z7e{down}
+..z8e..z9e{right}..z10e{up};
+%
+%
+%
+z11=(0.109w,0.111h); z13=(0.539w,-apex_o);
+z12=(0.731w,y11); penpos14(cap_hair,-21);
+z14r=(w,0.223h);
+z15'-z11=whatever*(z12-z13); x15'=w;
+z15=(z1{up}..z2..z3{up}) intersectionpoint
+((0.238w,0)--(0.238w,h));
+filldraw z1r{up}..z11{right}..z13{dir-25}
+& z13{dir25}..z14r{dir69}--z14l{dir249}
+..z12{left}..z15{left}& z15..z2..
+z1{down}--z1r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter M";
+.beginchar("M",13.432u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,-40); penpos2(cap_hair,-40);
+z1=(0.067w,0.035h); z2-z1=whatever*dir50;
+x2=0.176w; z3=(1/5w,-apex_o);
+penpos4(cap_hair,-41.5);
+z4r-z3=whatever*dir48.5;
+z4=whatever[z2l,z2r];
+penpos5(1.3cap_stem,48);
+% ant'i 1.111 pou j'aprepe n'anai
+z5=(0.4w,0.394h); penpos6(0.778cap_stem,44);
+z6=(0.148w,0.915h); penpos7(cap_hair,180);
+z7r=(0,0.782h); penpos8(1.111cap_stem,-147);
+z8l=(x6,0.649h); penpos9(2.2cap_hair,-171.5);
+penpos10(cap_hair,90); z9r=(x2l,0.46h);
+z10=(0.122w,0.378h); penpos11(cap_hair,58);
+z11=(0.047w,0.418h);
+z1'=whatever[z1r,z2r]; x1'=x1r+0.014117w;
+filldraw z1l--z2l--z4r--z3--z1'--z1r
+--z1l & cycle;
+penstroke z4e{z4r-z3}..z5e{up}..
+z6e{left}..z7e{down}..z8e..z9e{down}
+..z10e{left}..z11e;
+%
+%
+%
+penpos12(cap_hair,-40); penpos13(cap_hair,-40);
+z12=(0.329w,0.024h); z13-z12=whatever*dir50;
+x13=x5r; z13'=(0.466w,-apex_o);
+penpos14(cap_hair,-40); z14r-z13'=whatever*dir48;
+z14=whatever[z13l,z13r];
+penpos15(1.5cap_stem,-50);
+penpos16(0.741cap_stem,48);
+penpos17(cap_hair,180);
+z15=(0.647w,0.548h);
+x16=0.424w; y16r=h+apex_o;
+z17=(0.306w,0.843h);
+penstroke z12e--z13e;
+z12'=whatever[z12r,z13r]; x12'=x12r+0.014117w;
+filldraw z12'--z13'--z14r--z13l--
+z12' & cycle;
+penstroke z14e{z14r-z13'}..z15e{up}
+..z16e{left}..z17e{dir251};
+%
+%
+%
+penpos18(cap_hair,-46); penpos19(cap_hair,-46);
+penpos20(1.13cap_stem,37);
+penpos21(0.852cap_stem,-15);
+penpos22(cap_hair,-72);
+z18r=(0.814w,-apex_o);
+z19-z18=whatever*dir44;
+x19r=w; z20=(x18-eps,0.34h);
+z21=(x18r+eps,0.556h);
+z22=(0.906w,0.609h);
+z20'=0.7[z18l,z19l];
+penstroke z18e--z19e;
+filldraw z18l{up}..z20l{up}..z21l--
+z22l--z22r{z21l-z22l}..z21r..
+z20r{down}..z20'{dir-35}--z18l
+& cycle;
+%
+%
+%
+penpos23(1.148cap_stem,53);
+penpos24(0.944cap_stem,12);
+penpos27(2/3cap_hair,90);
+z23r=(w,0.670h); z24=(0.871w,0.84h);
+z25=(0.715w,0.947h); z26=(x25,0.87h);
+z27=(0.621w,0.824h);
+filldraw z23r{dir124}..z24r%{dir124}
+...z25---z27r--z27l{z25-z27r}..
+z26{right}..z24l%{dir-56}
+..z23l{dir-56}
+--z23r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter N";
+.beginchar("N",11.662u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,-45); penpos3(cap_hair,-45);
+penpos4(cap_hair,-90);
+penpos5(0.944cap_stem,0);
+penpos6(0.811cap_stem,64);
+penpos7(cap_hair,180);
+penpos8(1.094cap_stem,-132);
+penpos9(cap_hair,180); penpos10(cap_hair,90);
+penpos11(cap_hair,21);
+z1=(0.123w,0); z3-z1=whatever*dir52;
+x3=0.239w; 0.5[z1,z3]-z2=whatever*dir-45;
+x2=x1l-eps; z4r=(0.325w,-apex_o);
+z5=(0.55w,0.371h); z6=(x3,0.932h);
+z7r=(0,0.751h); z8=(0.197w,0.553h);
+z9=(x4,0.428h); z10=(x3,0.317h);
+z11=(0.125w,0.423h);
+penpos2(1/3cap_hair,52);
+filldraw z1l{dir71}..z2l--z2r
+..{dir31}z3l--z3r{z1-z3}..z4l{right}
+--z4r{left}..z1r{z1-z3}--z1l{z3-z1}
+& cycle;
+penstroke z4e{right}..z5e{up}..
+z6e{left}..z7e{down}..z8e{dir-22}..
+z9e{down}..z10e{left}..z11e;
+%
+%
+%
+penpos12(2/3cap_hair,0); penpos13(0.778cap_stem,-126);
+penpos14(0.944cap_stem,-162);
+penpos15(0.944cap_stem,-90);
+penpos16(cap_hair,0);
+penpos17(cap_hair,-32);
+penpos19(0.981cap_stem,0);
+penpos20(0.793cap_stem,0);
+penpos21(cap_hair,-90);
+z12=(0.516w,0.745h); y13l=h+apex_o;
+z14=(0.886w,0.751h);
+z15=(w,0.669h);
+z19=(0.769w,y5); x13=x19l;
+z16=(x19r,-apex_o);
+z17r-z16r=whatever*dir58;
+x17r=0.977w; z20=(0.798w,0.537h);
+z21r=z15r;
+filldraw z16r--z17r--z17l{z16r-z17r}
+..z19r{up}..z20r..z21r{dir18}--
+z21l{dir198}..z20l..z19l{down}..
+z16l--z16r & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{dir-71}..z15e{right};
+.endchar;
+
+.cmchar "The Fraktur letter O";
+.beginchar("O",12.01u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(cap_hair,-59);
+penpos5(1.037cap_stem,24);
+penpos6(1.074cap_stem,38);
+penpos7(cap_hair,-47); penpos8(2/3cap_hair,0);
+penpos4(1.315cap_stem,-146);
+penpos10(1.111cap_stem,70);
+penpos11(0.704cap_stem,22);
+penpos14(cap_hair,-46);
+z1r=(0.084w,0); z2l=(0,0.09h);
+z3=(0.234w,0.298h); z4=(0.184w,0.197h);
+z5=(0.332w,0.412h); z6=(0.179w,0.71h);
+z7=(0.263w,0.843h); z8=(0.389w,h+apex_o);
+z9=(x8,0.787h); z10=(0.595w,0.864h);
+z11r=(w,0.484h); z12=(0.637w,0.144h);
+z13=(2x10-x12,-apex_o);
+z14=(0.858w,0.227h);
+penstroke z1e..z2e{up}..z3e..z5e{up}
+..z6e{up}..z7e{dir43};
+penstroke z1e..z2e{up}..z4e{dir-19};
+filldraw z4r{dir-19}..{z13-(x4r,0.5y4r)}z13 &
+z13{dir27}..z14r..z11r{up}..z10r{left}..
+z8r{dir100}--z8l{down}..z7l{dir223}--
+z7r..z9..z10l{right}..z11l{down}..
+z14l..z12{left}..z4l{dir161}--z4r &
+cycle;
+.endchar;
+
+.cmchar "The Fraktur letter P";
+.beginchar("P",9.482u#,cap_height#,2.651u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,0); penpos2(cap_stem,0);
+penpos3(cap_stem,0);
+penpos4(0.926cap_stem,58);
+penpos5(cap_hair,180);
+penpos8(1.5cap_hair,-145);
+penpos9(cap_hair,114);
+z1=(0.427w,-d); z2=(0.453w,0.09h);
+z3=(x2,0.7h); z4r=(0.227w,h+apex_o);
+z5r=(0,0.778h); z6=(0.173w,0.67h);
+z7=(0.083w,0.564h); z8=(0.275w,0.524h);
+z9r=(x7,0.4h);
+penstroke z1e...z2e---z3e..z4e{left}
+..z5e{down};
+penstroke z8e{down}..z9e;
+filldraw z5r{down}..z7 & z7{right}..
+z8r{down}--z8l{up}..z6..z5l{up}--
+z5r & cycle;
+%
+%
+%
+penpos18(cap_hair,0); penpos19(cap_hair,-80);
+penpos16(1.037cap_stem,23);
+penpos15(cap_stem,35);
+penpos14(cap_hair,-56);
+z18r=z3r; z19=(0.74w,0.931h);
+z16=(0.793w,0.782h);
+z15r=(w,0.42h); z14=(0.687w,0.059h);
+penstroke z14e{dir33}..z15e{up}..
+z16e{up};
+penstroke z18e{up}..z19e{dir22.5};
+z17'=(0.917w,h-apex_o);
+filldraw z16l{up}..z19l & z19l{dir22.5}
+..z17'{right} & z17'..z16r{down}--
+z16l & cycle;
+%
+%
+%
+penpos10(cap_stem,64); penpos11(cap_stem,71);
+penpos12(cap_hair,-36);
+penpos13(cap_hair,-23);
+z10=(0.713w,0.027h); z11=(0.387w,0.16h);
+z12=(x6,0.059h); z13l=(x8,0.266h);
+filldraw z10r..z11r...z13r---z13l
+& z13l..z12l{dir234}--z12r{dir54}...
+z11l---z10l--z10r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter Q";
+.beginchar("Q",13.559u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=12.01u;
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(cap_hair,-59);
+penpos5(1.037cap_stem,24);
+penpos6(1.074cap_stem,38);
+penpos7(cap_hair,-47); penpos8(2/3cap_hair,0);
+penpos4(1.315cap_stem,-146);
+penpos10(1.111cap_stem,70);
+penpos11(0.704cap_stem,22);
+penpos14(cap_hair,-46);
+penpos16(1.074cap_stem,-127);
+penpos17(cap_hair,-45);
+z1r=(0.084w',0); z2l=(0,0.09h);
+z3=(0.234w',0.298h); z4=(0.184w',0.197h);
+z5=(0.332w',0.412h); z6=(0.179w',0.71h);
+z7=(0.263w',0.843h); z8=(0.389w',h+apex_o);
+z9=(x8,0.787h); z10=(0.595w',0.864h);
+z11r=(0.925w,0.503h); z12=(0.637w',0.144h);
+z13=(2x10-x12,-apex_o);
+z14=(0.884w',0.227h);
+penpos15(1.3cap_stem,angle(z13-z14));
+z15l=z14; z16r=(0.825w,-apex_o);
+z17r=(w,0.144h);
+penstroke z1e..z2e{up}..z3e..z5e{up}
+..z6e{up}..z7e{dir43};
+penstroke z1e..z2e{up}..z4e{dir-19};
+filldraw z4r{dir-19}..{z13-(x4r,0.5y4r)}z13 &
+z13{dir27}..z14r..z11r{up}..z10r{left}..
+z8r{dir100}--z8l{down}..z7l{dir223}--
+z7r..z9..z10l{right}..z11l{down}..
+z14l..z12{left}..z4l{dir161}--z4r &
+cycle;
+penstroke z15e..z16e{dir-10} & z16e..z17e
+{dir45};
+.endchar;
+
+.cmchar "The Fraktur letter R";
+.beginchar("R",10.493u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#+0.3u#);
+penpos1(cap_hair,-49); penpos2(cap_hair,-49);
+penpos4(cap_hair,-90);
+z1l=(0,0.056h); z2=(0.253w,0.234h);
+z3=(apex_o,0.202h); z7=(0.036w,0.128h);
+z4r=(0.3w,-apex_o);
+z5=(0.181w,0.128h); z6=(0.084w,0.051h);
+filldraw z1l..z7..z3 & z3{dir-10}..
+z2l--z2r..z5..z4l{right}--z4r{left}
+..z6..z1r--z1l & cycle;
+penpos8(0.963cap_stem,19);
+penpos9(cap_stem,60); penpos10(cap_hair,180);
+penpos13(0.574cap_stem,-153);
+penpos14(cap_hair,90); penpos15(cap_hair,0);
+z8=(0.53w,0.375h); z9r=(0.247w,h+apex_o);
+z10r=(0,0.771h); z11=(0,0.614h);
+z12=(0.169w,0.641h); z13=(0.247w,0.481h);
+z14=(0.117w,0.348h); z15l=(0,0.468h);
+penstroke z4e{right}..z8e{up}..z9e
+{left}..z10e{down};
+penstroke z13e{down}..z14e{left}..
+z15e{up};
+filldraw z10r---z11..z13r{down}--
+z13l{up}..z12..z10l{up}--z10r &
+cycle;
+%
+%
+%
+penpos16(cap_hair,-90); penpos17(cap_hair,-90);
+penpos21(cap_hair,0); z16=(x8,0.585h);
+z17-z16=whatever*dir30;
+x17=0.934w; z21=(0.488w,3/4h);
+z20=(0.578w,0.936h); z22=(0.651w,0.91h);
+z19=(0.768w,h+apex_o);
+z23=whatever[z16l,z17l]; x23=x19;
+z18=(0.895w,0.867h);
+penstroke z16e--z17e;
+filldraw z21r{up}..z22{right}..
+z23{dir-76}--z17l{left}..z18..
+z19 & z19{z22-z19}..z20..z21l{down}
+--z21r & cycle;
+%
+%
+%
+penpos25(0.926cap_stem,-153);
+penpos26(1.074cap_stem,-174);
+penpos27(cap_hair,-32);
+z24=whatever[z16r,z17r]; x24=x23+0.18cap_stem;
+z25=(3/4w,0.612h); z26=(0.825w,0.205h);
+penpos26'(0.926cap_stem,-153); z26'r=z26r;
+y27r=0.189h; x27l=w; z28=(0.849w,-apex_o);
+z27'-z27l=whatever*(z28-z27r);
+x27'=w-cap_hair;
+filldraw z16r{z17-z16}...z25r
+---z26'r...z28 & z28--z27r--z27l &
+z27l---z27'...z26'l---
+z25l..z24--z16r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter S";
+.beginchar("S",12.813u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos0(0.032067w,-27); penpos0'(0.032067w,24);
+z0'r=z0l=(0.715w,0.745h);
+penpos1(1.5cap_hair,-156);
+penpos2(cap_hair,114);
+penpos7(cap_hair,114);
+penpos8(1.2cap_stem,-142);
+penpos9(cap_stem,-107);
+penpos10(0.926cap_stem,-123);
+penpos11(cap_hair,0);
+penpos16(0.722cap_stem,40);
+penpos17(cap_hair,-58);
+penpos18(cap_hair,-118);
+z1l=(w,0.952h); x2=0.93w;
+z3=(0.8w,0.859h); z5-z3=whatever*dir153;
+y5=h+apex_o; z4=z0r; z2l-z4=whatever*dir24;
+z6=whatever[z0r,z0l]; x6=0.462w;
+z7=(0.291w,0.931h); z8r=(0,0.505h);
+z9r=(0.562w,-apex_o);
+z10r=(0.76w,0.077h); z11=(0.933w,0.364h);
+z13=z0'l; z15-z13=whatever*dir204;
+x15=x14=0.407w; z12=(x9l,0.512h);
+z14-z12=whatever*(z15-z13);
+z16=(0.258w,0.649h);
+z17=(0.324w,0.782h); z18=(0.508w,0.739h);
+penstroke z7e{dir204}..z8e{down}..
+z9e{right}..z11e{up};
+penstroke z16e{up}..z17e{dir24}..
+z18e{dir-27};
+filldraw z1r{down}..z2r{z4-z2l}...
+z3---z5 & z5..z7r{dir204}--z7l
+{dir24}...z6---z4---z2l...z1l{up}
+& z1l--z1r & cycle;
+filldraw z11r{up}..z13{z6-z4} &
+z13---z15...z16r{up}--z16l{down}
+..z14{dir-27} & z14---z12...
+z11l{down}--z11r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter T";
+.beginchar("T",10.386u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.041w,0.053h); z2=(0,0.104h);
+z3=(0.078w,y2); penpos4(1.037cap_stem,-133);
+z4=(0.165w,0.253h); z5=(0.592w,-apex_o);
+z6=(0.731w,0.123h); penpos7(cap_hair,0);
+z7r=(w,0.303h); penpos8(0.5cap_hair,-90);
+z8=(0.29w,0.271h); penpos9(1.185cap_stem,10);
+penpos10(1.148cap_stem,19);
+z9=(x5,0.415h); z10=(0.381w,0.691h);
+penpos11(0.5cap_hair,-90); z11=(0.677w,0.83h);
+penpos12(cap_hair,-112);
+penpos13(cap_hair,180);
+penpos14(1.111cap_stem,31);
+penpos14'(1.037cap_stem,57);
+z14'=(0.562w,0.939h);
+penpos15(1.185cap_stem,72);
+penpos16(cap_hair,-37.5);
+penpos17(cap_hair,-48);
+z12=(0.236w,0.6h); z13=(0.072w,0.761h);
+z14r=(0.436w,h+apex_o);
+z15=(0.858w,0.755h); z16=z15l;
+penpos15'(1.5cap_stem,72); z15'l=z15l;
+z17l=whatever[z16,z15r]; x17=0.956w;
+filldraw z1{right}..z3{up}..z4r{right}
+..z5{dir-29} & z5{dir22}..z7r{up}--
+z7l{down}..z6{left}..z4l{left}..
+z2{down}..z1{right} & cycle;
+penstroke z8e{right}..z9e{up}..z10e
+{up}..z11e{right};
+penstroke z15e{dir142.5}..z14'e..z14e{left}..z13e{down}
+..z12e{dir-22};
+penstroke z16e{z15r-z15l}..z17e
+{dir42};
+.endchar;
+
+.cmchar "The Fraktur letter U";
+.beginchar("U",10.608u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_stem,0); penpos2(whatever,39);
+penpos3(1.176cap_stem,48);
+penpos4(cap_hair,-42); penpos5(cap_hair,-42);
+penpos10(cap_hair,-47);
+penpos11(cap_hair,-47);
+penpos13(cap_stem,0);
+penpos14(cap_stem,0);
+penpos15(cap_hair,-90);
+penpos19(cap_hair,-41);
+z1=(0.258w,0.162h); z2r=(x1r,0.853h);
+x2l=x1l;
+z4l=(0,0.822h); z5-z4=whatever*dir48;
+y5l=h+apex_o; z3=whatever[z4r,z5r]; y3r=y5r-apex_o;
+z7=(x1l,0.26h); z8=(0.111w,y1);
+z9=(x1r,-apex_o); z8'=(0.278w,0.082h);
+z11r-z9=whatever*dir43; x11=0.737w;
+z12-z11l=whatever*(z9-z11r);
+x12=0.472w; z6-z12=whatever*(z8-z9);
+x6=x1r;
+penstroke z1e---z2e...z3e{dir138};
+penstroke z4e--z5e;
+filldraw z9--z11r--z11l--z12--z6--
+z7{down}..z8{dir231} &
+flex(z8,z8',z9) & cycle;
+%
+%
+%
+z13=(x11,y7); z14=(x13,y2r-cap_hair);
+z15=(0.573w,0.898h); z16=(0.737w,h+apex_o);
+z17=(0.886w,0.915h); z18=(x17,y1);
+z20=(0.786w,-apex_o);
+z21=(x13l,y1); x19r=w;
+z19r-z20=whatever*dir49;
+penstroke z13e--z14e;
+filldraw z15r{z16-z15l}..z14l{down}
+--z14r{up}..z17{right} & z17
+..z16 & z16..z15l--z15r & cycle;
+filldraw z20--z19r--z19l{z20-z19r}
+..z18{left}..z13r{up}--z13l--z21--
+z20 & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter V";
+.beginchar("V",10.303u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(0.926cap_stem,-117);
+penpos6(cap_hair,-63);
+penpos7(0.704cap_stem,30);
+penpos8(cap_stem,44);penpos9(cap_hair,-65);
+penpos10(cap_hair,-65);
+penpos11(0.852cap_stem,-138);
+penpos12(2/3cap_hair,-55);
+penpos13(cap_hair,-48); penpos14(0.907cap_stem,-12);
+penpos15(1.037cap_stem,35);
+penpos16(0.889cap_stem,46);
+penpos17(cap_hair,155);
+penpos17'(0.489cap_stem,-123);
+penpos18(0.889cap_stem,-118);
+penpos20(0.537cap_stem,-147);
+penpos21(cap_hair,90);
+penpos22(cap_hair,44);
+z1=(0.115w,0.046h); z2=(0.072w,0.117h);
+z3=(0.209w,0.228h); z4=(0.613w,-apex_o);
+z5=(0.755w,0.103h); z5'=(x4,0.172h);
+z6=(0.853w,0.114h);
+z7r=(w,0.293h); z8=(0.742w,0.543h);
+z9=(0.822w,0.655h);
+z10r=(w,3/4h); z10'=(x7,0.788h);
+z11l=(0.75w,h+apex_o);
+z15=(0.414w,0.875h); z13=(0.288w,0.242h);
+z14=(0.534w,0.527h); z12=z15+(0.1w,-0.1h);
+z16r=(0.252w,h+apex_o);
+z17=(0.044w,0.859h);
+z17'r=(0,0.742h); z19=(0.043w,0.628h);
+z18=(0.096w,0.674h);
+z20=(0.267w,0.549h); z21l=(0.173w,0.435h);
+z22=(x19,0.516h);
+penstroke z1e..z2e{up}..z3e{right};
+filldraw z3r{right}..z4{dir-44} &
+z4---z6r...z7r{up}--z7l{down}..
+z6l..z5{left}..z5'..z3l{left}--z3r &
+cycle;
+penstroke z7e{up}..z8e{up}..z9e..
+z10e;
+penstroke z13e{dir42}..z14e{up}..
+z15e..z16e{left}..z17e..z17'e{down};
+filldraw z17'r{down}..z19{z3-z19} & z19---
+z18r...z20r{down}--z20l{up}..z18l..
+z17'l{up}--z17'r & cycle;
+penstroke z20e{down}..z21e{left}..
+z22e;
+filldraw z12r{up}..z11r{right}..
+1/10[z9,z10]{right} & 1/10[z9,z10]--z10--z10l &
+z10l{left}..z10'..z11l{left}..z12l{down}
+--z12r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter W";
+.beginchar("W",13.812u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,44); penpos2(cap_hair,22);
+penpos3(1.074cap_stem,-133);
+z1=(0.095w,0); z2=(0.055w,0.09h);
+z3=(0.16w,0.213h); z4=(0.366w,-apex_o);
+z5=(0.435w,0.118h); penpos6(cap_hair,-56);
+penpos7(4/3cap_stem,45);
+z6=(0.508w,0.126h); z7=(0.645w,0.41h);
+penpos9(1.222cap_stem,52);
+penpos10(cap_hair,0);
+z9=(0.532w,0.733h); z10=(0.604w,h+2apex_o);
+penstroke z1e..z2e..z3e{right};
+filldraw z3r{right}..z4{dir-30} &
+z4---z6r...z7r{dir72} & z7r{dir120}..
+z9r{up}..z10r--z10l..z9l{down}..
+z7l{down}..z6l{z4-z6r}...z3l{left}
+--z3r & cycle;
+%
+%
+%
+penpos11(cap_hair,-37); penpos12(0.778cap_stem,-140);
+penpos13(1.056cap_stem,-133);
+z11=(0.561w,0.865h); z12l=(0.735w,h+apex_o);
+z13l=(0.982w,0.756h);
+penstroke z11e{dir53}..z12e{right}..
+z13e{dir-60};
+%
+%
+%
+penpos14(cap_hair,-60); z14r=z13l+(apex_o,apex_o);
+penpos15(cap_stem,43); penpos16(0.741cap_stem,37.5);
+penpos17(cap_hair,-64); penpos18(1.222cap_stem,26);
+penpos17'(cap_hair,-64);
+z15=(0.808w,0.537h); z16r=(w,0.303h);
+z18l=(0.716w,-apex_o); z17r=z18; z17'r=z18r;
+z18.1-z18l=whatever*dir146;
+z18.2-z18r=whatever*dir146; x18.2=x18.1=0;
+z18'=(z6{z6r-z4}..z7{up}) intersectionpoint
+(z18l--z18.1);
+z18''=(z6{z6r-z4}..z7{up}) intersectionpoint
+(z18r--z18.2);
+filldraw z18l--z18'--z18''--z18r--z18l & cycle;
+penpos16'(whatever,54); z16'l=z16l; x16'r=w;
+penstroke z17e---z17'e...z16'e{up}..z15e{up}..
+z14e{dir36};
+%
+%
+%
+penpos19(cap_hair,-58); penpos22'(1.111cap_stem,44);
+penpos22(1.037cap_stem,41.5);
+penpos23(1.2cap_hair,-139);
+penpos24(cap_stem,-90); penpos25(0.556cap_stem,-140);
+penpos26(cap_hair,90); penpos27(cap_hair,37);
+z19=(0.224w,0.213h); x20=x5; z20-z19r=whatever*dir32;
+z21=(0.339w,0.483h); z22'=(0.326w,0.84h);
+z22r=(0.2w,h+apex_o); z23r=(0,0.767h);
+z24=(0.114w,0.654h); z25=(0.197w,0.551h);
+z26=(0.119w,0.437h); z27=(0.025w,0.5h);
+filldraw z19r--z20 & z20{up}..z22'r
+{dir129.5}--z22'l{dir-50.5}..z21{down}
+..z19l{z19r-z20}--z19r & cycle;
+penstroke z22'e{dir129.5}..z22e{left}
+..z23e{down}..z24e{right}..z25e{down}
+..z26e{left}..z27e{dir127};
+%
+%
+%
+penpos28(cap_hair,-32); penpos29(cap_hair,-90);
+penpos30(cap_hair,-141.5);
+z28=(0.357w,0.848h); z30=z11;
+z29=(0.5[x28,x30],0.958h);
+penstroke z28e..z29e..z30e;
+.endchar;
+
+.cmchar "The Fraktur letter X";
+.beginchar("X",9.418u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos0(cap_stem,0); z0=(0.5w,0.537h);
+z1=z0l; penpos5(cap_stem,-90); z5l=z0r;
+penpos2(cap_hair,0); z2r=(x0r,0.697h);
+penpos3(cap_hair,0); z3l=(x0l,0.253h);
+penpos6(cap_hair,-40); penpos7(cap_hair,-40);
+z6r=(0.758w,-apex_o); z7-z6=whatever*dir50;
+x7r=w; z7'=whatever[z6l,z7l];
+z6'=whatever[z6,z7]; y6'=apex_o;
+x7'=0.893w;
+penstroke z6e--z7e;
+filldraw z6'{left}...z3l---z1--z5l
+---z5r...z7'---z7l--z7--z6' & cycle;
+penpos12(cap_hair,-45); penpos13(cap_hair,-45);
+z13l=(0.289w,h+apex_o); z13-z12=whatever*dir45;
+x12l=apex_o; z13'=whatever[z12,z13];
+y13'=h-2apex_o;
+penstroke z12e--z13e;
+filldraw z12r{z13-z12}..z1{down}--
+z5l---z2r...z13'{dir148}--z12--z12r & cycle;
+%
+%
+%
+penpos15(0.852cap_stem,-116);
+penpos16(cap_hair,-21);
+penpos14(cap_hair,-21);
+z16=(0.852w,0.723h); z14-z16=whatever*dir69;
+y14=y15l+apex_o; z15=(0.77w,0.91h);
+penstroke z2e{up}..z15e{right};
+filldraw z15r{right}..z16l{z16-z14}
+--z16r--z14r--z14l{z1-z14l}
+..z15l{left}--z15r & cycle;
+%
+%
+%
+penpos9(cap_hair,-35); penpos10(cap_hair,-35);
+z9l=(0,0.069h); z10-z9=whatever*dir55;
+y10=0.229h; z8=(0.221w,-apex_o);
+z11=(0.297w,0.1h);
+filldraw z9r{dir20}..z8{right}..
+z3r{up}--z3l{down}..z11{left}..
+z10r{z10-z9}--z10l--z9l--z9r &
+cycle;
+%
+%
+%
+penpos20(cap_hair,0); penpos21(cap_hair,0);
+penpos22(cap_hair,0); penpos23(cap_hair,0);
+z21-z20=whatever*dir74;
+z23-z22=whatever*dir74;
+y22=y5r; y21=y5l; x22=0.772w;
+x21=0.235w; y23=y21+0.072h;
+y20=y22-0.072h;
+z20'=whatever[z20,z21]; z23'=whatever[z22,z23];
+y20'=y22; y23'=y21;
+penstroke z20e--z21e;
+penstroke z22e--z23e;
+filldraw z20'--z22--z23'--z21--z20' &
+cycle;
+z20''=whatever[z20',z22]; x20''=x20'+2cap_hair;
+z23''=whatever[z21,z23']; x23''=x23'-2cap_hair;
+filldraw z20r{z21-z20}..z20''{right}
+--z21--z20--z20r & cycle;
+filldraw z23''{right}..z23l{z23-z22}
+--z23--z22--z23'' & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter Y";
+.beginchar("Y",10.556u#,cap_height#,2.181u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0,0); z2=(0.079w,0.089h);
+z3=(2x2,0.025h); penpos4(0.611cap_stem,-35);
+penpos5(1.074cap_stem,13);
+penpos7'(1.111cap_stem,39);
+z4r=(0.338w,-d); z5r=(w,0.513h);
+z7'r=(0.778w,h); z6'=(0.656w,0.864h);
+penpos7(cap_hair,-51); penpos8(cap_hair,-51);
+z8=whatever[z7'l,z7'r]; y8r=h;
+z7=whatever[z7'l,z7'r]; y7=0.787h;
+filldraw z1{up}..z2{right}..z3{down}
+..z4l{right}--z4r{left}..z1{up} &
+cycle;
+penstroke z4e{right}..z5e{up}..z7'e
+{dir129};
+z6=(z5l{up}..z7'l{dir129}) intersectionpoint
+((0,0.8h)--(w,0.8h));
+filldraw z5l{up}..z6..z6'..z7r{z7-z8}--
+z7--z7'{dir-51}..z5{down}--z5l &
+cycle;
+penstroke z7e--z8e;
+%
+%
+%
+penpos11(cap_hair,-90); penpos9(cap_hair,-42);
+penpos10(cap_hair,-42); penpos22(1.148cap_stem,48);
+z9r=(0.359w,-apex_o); z10-z9=whatever*dir48;
+x10=0.719w; z22=whatever[z9,z10]; x22=0.479w;
+z11=(0.126w,0.215h); penpos12(2/3cap_hair,-42);
+z12-z22r=whatever*dir-42;
+x12=0.371w; penpos13(whatever,19);
+x13l=0.5w-0.5cap_stem; x13r=0.5w+0.5cap_stem;
+y13=0.585h;
+penstroke z9e--z10e;
+filldraw z11r{right}..z22l{dir-42}--
+z22r{dir138}--z12r{dir23}..z13r{up}
+--z13l{down}..z12l..z11l{left}--
+z11r & cycle;
+%
+%
+%
+penpos14(1.037cap_stem,32); penpos15(0.889cap_stem,42);
+penpos16(cap_hair,150); penpos17(0.389cap_stem,-134);
+penpos18(0.759cap_stem,-90);
+penpos19(cap_hair,180);
+penpos20(cap_hair,90);
+penpos21(1.5cap_hair,45);
+z14=(x13l,0.904h); z15r=(0.281w,h+apex_o);
+z16=(0.066w,0.883h); z17=(0.051w,0.822h);
+z18=(0.159w,0.713h); z19=(0.275w,0.606h);
+z20r=(0.189w,0.532h); z21=(0.087w,0.561h);
+penstroke z13e{up}..z14e{dir136}..
+z15e{left}..z16e..z17e{down}..z18e
+{right}..z19e{down}..z20e{left}..
+z21e{dir135};
+.endchar;
+
+.cmchar "The Fraktur letter Z";
+.beginchar("Z",8.407u#,cap_height#,2.528u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.704cap_stem,0); z1l=(0.038w,0.213h);
+penpos2(0.815cap_stem,-147);
+penpos3(1.148cap_stem,-152.5);
+penpos4(cap_hair,90);
+penpos1'(cap_hair,-66);
+z2=(0.395w,0.4h); z3l=(w-x1l,0.096h);
+z4l=(0.586w,-0.763d); z1'=(0.237w,0.372h);
+penstroke z1e{up}..z1'e..z2e..
+z3e{down}..z4e{left};
+z5=(0.368w,-0.525d); z6=(0.305w,-0.575d);
+z7=(0.338w,-0.15d); z8=(0.523w,0.077h);
+z9=(0.406w,0.061h); penpos10(cap_hair,90);
+z10r=(0.248w,0.077h);
+z8'=(x8,-0.288d);
+penpos11(cap_hair,180); z11=(0.068w,-0.3d);
+penpos12(1.5cap_hair,-90); z12r=(0.218w,-d);
+filldraw z4l{left}..z5{left}..z6 &
+z6..z7{up}..z10l{left}--z10r{right}
+..z9{right}..z8 & z8---z8'...z4r{right}
+--z4l & cycle;
+penstroke z10e{left}..z11e{down}
+..z12e{right};
+%
+%
+%
+penpos14(cap_hair,-90); penpos15(0.778cap_stem,25);
+penpos16(cap_stem,90); penpos17(0.5cap_stem,159);
+z15r=(w,0.7h); z16r=(0.5w,h+apex_o);
+z17r=(0,x15r); z14=(0.5w,0.415h);
+penstroke z15e{up}..z16e{left}..
+z17e{down}..z14e{right}..z15e{up};
+%
+%
+%
+z0=(x16,y17r); z18-z0=whatever*dir201;
+z13-z0=whatever*dir221;
+x18=x13=0;
+unfilldraw z18--z0--z13--z18 &
+cycle;
+.endchar; \ No newline at end of file
diff --git a/Master/texmf-dist/fonts/source/public/gothic/ygotbase.mf b/Master/texmf-dist/fonts/source/public/gothic/ygotbase.mf
new file mode 100644
index 00000000000..f450a47d0f0
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/ygotbase.mf
@@ -0,0 +1,79 @@
+def podi(suffix $)=
+z$.1=z$l-(2apex_o,0);
+penpos$.2(stem,40); z$.2l=z$.1;
+penpos$.3(stem,40);
+z$.3r-z$.2r=whatever*dir-50;
+y$.3l=-apex_o;
+penstroke z$.3e--z$.2e
+enddef;
+
+def qeri(suffix $)=
+z$.1=z$r+(2apex_o,0);
+penpos$.2(stem,40); z$.2r=z$.1;
+penpos$.3(stem,40);
+z$.2r-z$.3r=whatever*dir-50;
+y$.3r=y$+foot+apex_o;
+penstroke z$.2e--z$.3e
+enddef;
+
+def panwqeri(suffix $)=
+z$.1=z$r+(2apex_o,0);
+penpos$.2(stem,40); z$.2r=z$.1;
+penpos$.3(stem,40);
+z$.2r-z$.3r=whatever*dir-50;
+y$.3r=y$+foot+apex_o;
+penstroke z$.2e--z$.3e;
+penpos$.4(hair,-50);
+z$.4l=z$.3r; z$.5=whatever[z$.3r,z$.3l];
+x$.5=x$l-1.233stem; x$.6=x$.5;
+z$.6-z$.4r=whatever*(z$.5-z$.3);
+filldraw z$.5--z$.4l--z$.4r--z$.6--z$.5
+& cycle;
+unfilldraw z$.5--(x$.5,y$.3l)
+--z$.3l--z$.5 & cycle;
+enddef;
+
+def katwpodi(suffix $)=
+z$.1=z$l-(2apex_o,0);
+penpos$.2(stem,40); z$.2l=z$.1;
+penpos$.3(stem,40);
+z$.3r-z$.2r=whatever*dir-50;
+y$.3l=-apex_o;
+penstroke z$.3e--z$.2e;
+penpos$.4(hair,-50);
+z$.4r=z$.3l; z$.5=whatever[z$.3r,z$.3l];
+x$.5=x$r+1.233stem; x$.6=x$.5;
+z$.6-z$.4l=whatever*(z$.5-z$.3);
+filldraw z$.5--z$.4r--z$.4l--z$.6--z$.5
+& cycle;
+unfilldraw z$.5--(x$.5,y$.3l)
+--z$.3l--z$.5 & cycle;
+enddef;
+
+def Umlaut(suffix $) =
+penpos$.1(stem,45); penpos$.2(stem,45);
+penpos$.3(stem,45); penpos$.4(stem,45);
+penpos$.5(stem,-45); penpos$.6(stem,-45);
+y$.1=y$.3;
+z$.5l=z$.1l; z$.5r=z$.2l;
+z$.6l=z$.3l; z$.6r=z$.4l;
+%
+%
+%
+0.5[y$.1,y$.2]=x_height+2apex_o+2/3stem;
+x$.3l-x$.2r=0;
+%
+%
+%
+0.5[x$.2r,x$.3l]=x$;
+penstroke z$.1e--z$.2e;
+penstroke z$.3e--z$.4e;
+enddef;
+
+def ygoth_dot (suffix $) =
+penpos$.1(stem,45); penpos$.2(stem,45);
+penpos$.3(stem,-45);
+z$.1l=z$.3l; z$.2l=z$.3r;
+z$=.5[z$.1l,z$.2r];
+penstroke z$.1e--z$.2e;
+enddef;
diff --git a/Master/texmf-dist/fonts/source/public/gothic/ygoth.mf b/Master/texmf-dist/fonts/source/public/gothic/ygoth.mf
new file mode 100644
index 00000000000..a4c68d7cdb3
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/ygoth.mf
@@ -0,0 +1,134 @@
+if unknown cmbase: input cmbase fi
+input ygotbase; % -sl 15-3-1991
+
+font_identifier:="ygoth"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=170/36pt#; % height of lowercase without ascenders
+%x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=8/36pt#; % lowercase hairline breadth
+%hair#:=9/36pt#; % lowercase hairline breadth
+%stem#:=25/36pt#; % lowercase stem breadth
+stem#:=30/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+%cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_hair#:=8/36pt#;
+cap_amount#:=8/36pt#;
+%cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_stem#:=36/36pt#;
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=8/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+mode_setup;
+font_setup;
+cap_amount:=8/36pt;
+foot:=27/36pt;
+num_height:=1.242x_height;
+boolean ligature; ligature:=false;
+
+
+%readfrom("ygothbase"); % -sl 15-3-1991
+%readfrom("ygothgen_l"); % -sl 15-3-1991
+input ygothgen % -sl 15-3-1991
+%generate ycurrent; % switch to the driver file%
+%generate ygothupper; % switch to the driver file
+generate ygothupp; % -sl 15-3-1991
+%generate ygothlower;
+generate ygothlow; % -sl 15-3-1991
+generate ygothlig;
+generate ygothnum;
+%generate ygothmisc;
+generate ygothmis; % -sl 15-3-1991
+
+font_slant slant; font_x_height x_height#;
+font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+
+ligtable oct"140": "s"=:oct"052", "t"=:oct"075", "`"=:oct"137";
+ligtable oct"052": "i"=:oct"057";
+ligtable "a": "e"=:oct"032";
+ligtable "b": "e"=:oct"001", "a"=:oct"000", "o"=:oct"002";
+ligtable "c": "h"=:oct"003", "k"=:oct"004", "t"=:oct"005";
+ligtable "d": "e"=:oct"007", "a"=:oct"006", "o"=:oct"010";
+ligtable "h": "e"=:oct"012", "a"=:oct"011", "o"=:oct"022";
+ligtable "i": "j"=:oct"026";
+ligtable "f": "i"=:oct"014", "f"=:oct"013", "l"=:oct"015";
+ %"'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
+ligtable oct"013": "i"=:oct"016", "l"=:oct"017";
+ %"'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
+ligtable "l": "l"=:oct"035";
+ligtable "p": "p"=:oct"043", "e"=:oct"024","a"=:oct"023","o"=:oct"025";
+ligtable "q": "q"=:oct"044", "z"=:oct"027";
+ligtable "s": "s"=:oct"046", "t"=:oct"074", "z"=:oct"031", ":"=:oct"140",
+"i" kern -u#;
+ligtable "o": "e"=:oct"033";
+ligtable oct"046": "i"=:oct"053";
+ligtable "t": "z"=:oct"076";
+ligtable "v": "e"=:oct"036", "a"=:oct"030", "u"=:oct"037";
+ligtable "-": "-"=:oct"173";
+ligtable oct"173": "-"=:oct"174";
+ligtable "'": "'"=:oct"042";
+ligtable oct"042": "a"=:oct"133", "e"=:oct"134", "o"=:oct"135", "u"=:oct"136",
+"s"=:oct"031";
+end.
diff --git a/Master/texmf-dist/fonts/source/public/gothic/ygothgen.mf b/Master/texmf-dist/fonts/source/public/gothic/ygothgen.mf
new file mode 100644
index 00000000000..81f1538d81d
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/ygothgen.mf
@@ -0,0 +1,452 @@
+def ygoth_a(suffix $) =
+w':=6.278u; penpos501(stem,0);
+z501=(x$+0.726w',foot);
+penpos502(stem,0);
+z502=(x501,0.732x_height);
+penstroke z501e--z502e;
+penpos511(stem,0); z511l=(x$+apex_o,y501);
+podi(511);
+if not ligature: podi(501); fi
+z512-z511l+(2apex_o,0)=whatever*dir-50;
+y512=-apex_o; penpos512'(hair,-50);
+z512'r=z512; z512.2-z512'l=whatever*(z501l-z512);
+x512.2=x501l;
+filldraw z512'r--z501l--z512.2--z512'l--z512'r & cycle;
+%
+%
+%
+penpos517(stem,0); z517=(x511,0.438x_height);
+penpos508(hair,-90); penpos509(hair,-90);
+z508r=z517r; z509r=(x501l,y508r);
+z510=whatever[z517l,z508l]; x510=x$;
+z510'=whatever[z510,z511]; x510'=x$+apex_o;
+filldraw z510--z508l--z508r--z510'--z510 & cycle;
+penstroke z508e--z509e; penstroke z511e--z517e;
+%
+%
+%
+penpos505(hair,125); z505=(x$+0.243w',0.830x_height);
+z504-z505r=whatever*dir35; y504=x_height+apex_o;
+penpos506(stem,40); z506r=z504;
+penpos503(stem,40); z503-z506=whatever*dir-30;
+x503=x501r; z506'=whatever[z506l,z503l];
+x506'=x$+0.5w'; penpos507(hair,180);
+y507=0.5[x_height,y517]; penpos505'(hair,125);
+z505'r=whatever[z505r,z504]; y505'r=0.9x_height;%0.856h;
+x507=x$+0.12w'; penpos509'(hair,-90);
+z509'=0.5[z508,z509];
+z503''=whatever[z503r,z506r]; x503''=x502r;
+if ligature: filldraw z503''--z504 & z504---z505'r...z507r...z509'r{right}
+& z509'r--z509'l & z509'l{left}...z507l...z505'l{z504-z505r}...
+z506'---(x502l,y503)---z503l--z503--z503'' & cycle;
+else:
+filldraw z503r--z504 & z504---z505'r...z507r...z509'r{right}
+& z509'r--z509'l & z509'l{left}...z507l...z505'l{z504-z505r}...
+z506'---(x502l,y503)---z503l--z503r & cycle; fi
+z520=1/3[z517r,z511r]; z521=1/3[z508r,z509r];
+filldraw z520{up}..z521{right} &
+z521--z508r--z520 & cycle;
+filldraw z502r--z503--(x502l,y503)--z502l--z502r & cycle;
+enddef;
+
+
+def ygoth_c (suffix $) =
+w':=4.306u; penpos401(stem,0); penpos402(stem,0);
+z401l=(x$+apex_o,foot);
+z402l=(x401l,0.748x_height);
+penpos403(stem,60); penpos404(stem,60);
+z404l=z401l-(apex_o,0); z403-z404=whatever*dir-30;
+y403l=-apex_o; penstroke z403e--z404e;
+penstroke z401e--z402e;
+penpos405(hair,-60); z405r-z403l=whatever*dir30;
+x405r=w'+apex_o; z403'=whatever[z404l,z403l];
+z403'-z405l=whatever*(z403l-z405r);
+z405'=whatever[z403',z405l];
+z405'-z404r=whatever*(z403r-z404r);
+filldraw z403l--z405r--z405l--z405'--z403r--z403l &
+cycle;
+%
+%
+%
+z406=(x$+0.581w',x_height+apex_o);
+z409=z402l-(apex_o,0);
+penpos407(stem,60); z406-z407r=whatever*dir150;
+x407r=x$+w'; z408'=whatever[z409,z406];
+z408'-z407l=whatever*(z406-z407r);
+z408=whatever[z408',z407l]; x408=x408'+apex_o;
+z410-z409=whatever*(z405r-z405l);
+x410=x402l; z408''=whatever[z408,z407l]; x408''=x402r;
+filldraw z410--z409 & flex(z409,z408,z406) & z406--z407r
+--z407l--z408''--z402r--z402l--z410 & cycle;
+penpos409.5(hair,-60); penpos408.5(hair,-60);
+penpos406.5(hair,-60); z409.5l=z409; z408.5l=z408;
+z406.5l=z406;
+penstroke z409.5e..z408.5e..z406.5e;
+enddef;
+
+def ygoth_e (suffix $) =
+w':=5u; penpos601(stem,0);
+z601l=(x$+apex_o,foot);
+z602'=(x$+0.5w',-apex_o); z601'=z601l-(apex_o,0);
+penpos602(stem,0); z602=(x601,0.804x_height);
+penpos603(stem,angle(z602'-z601')+90);
+z603l=z602';
+penpos604(stem,angle(z602'-z601')+90);
+z604l=z601'; penstroke z601e--z602e;
+penstroke z603e--z604e;
+penpos615(hair,-60); z615r=z602';
+z616-z615r=whatever*dir30; x616=x$+w'-apex_o;
+x616=x616'; z616'-z615l=whatever*(z616-z615r);
+z616''=whatever[z615,z616'];
+y616''=0.5[foot,y616'];
+filldraw z603r{z603-z604}...z616''---z616' &
+z616'--z616--z615r--z615l--z603r & cycle;
+%
+%
+%
+z606=(x$+0.611w',x_height+apex_o);
+z610-z606=whatever*dir-45; x610=x$+w';
+penpos622(hair,angle(z610-z606));
+penpos621(hair,angle(z610-z606));
+penpos620(hair,angle(z610-z606));
+penpos621'(hair,angle(z610-z606));
+z622=z602l-(apex_o,0); z620l=z606; z621'l=0.5[z622l,z620l];
+z621l=z621';
+penstroke z622e..z621e..z620e;
+z608=(x601r,0.637[y602,y601]); penpos609(hair,angle(z610-z606));
+penpos610'(hair,angle(z610-z606));
+z609r=z608; z610'r=z610;
+penstroke z609e--z610'e;
+penpos611(stem,angle(z610-z606)+90); z611r=z610;
+z630=whatever[z622l,z606];
+z630-z611l=whatever*(z606-z610);
+z631=(z630--z611l) intersectionpoint
+(z622..z621..z620);
+filldraw z631..z620--z610--z611l--z631 & cycle;
+z633=(z622..z621..z620) intersectionpoint
+(z601r--(x601r,x_height));
+filldraw z602r--z633..z602l--z602r & cycle;
+enddef;
+
+def ygoth_s (suffix $) =
+w':=4.389u; penpos201(stem,0);
+z201l=(x$+apex_o,foot); z202=(x201,1.144x_height);
+penpos202(stem,0);
+penstroke z201e--z202e; z201'=z201l-(apex_o,0);
+penpos205(hair,-60);
+z205r-z201'=whatever*dir-50; y205r=-apex_o;
+penpos206(hair,-60); z206-z205=whatever*dir30;
+y206=foot; penpos203(stem,50);
+z203l=z201'; z207-z203r=whatever*(z205r-z201');
+z207=whatever[z205r,z206r];
+filldraw z201'--z205r--z206r--z206l--z205l--z201' &
+cycle;
+filldraw z201'--z203r--z207--z205r--z201' & cycle;
+%
+%
+%
+penpos220(hair,-40); penpos221(hair,-40);
+penpos222(hair,-40);
+z222l=(2/3[x201l,x206],1.405x_height);
+penpos208(stem,angle(z222l-z202l)); z208r=z222l;
+z209-z222l=whatever*dir-40; x209=x$+w'-hair;
+z210-z209=whatever*dir240;
+z210-z208l=whatever*(z209-z222l);
+z211=whatever[z208l,z210]; x211=x202r;
+z220l=z202l; penpos221'(hair,-40); z221'l=z208l;
+z221l=z221';
+penstroke z220e..z221e..z222e;
+filldraw z221..z222 & z222--z209--
+z210--z221 & cycle;
+z211'=(z220..z221..z222) intersectionpoint
+(z201r--(x201r,2x_height));
+filldraw z202l..z211' & z211'--z202r--z202l
+& cycle;
+x251=x252=x201l; y250=y251=0.732x_height;
+y252=y251+4/5stem; x250=x251-hair;
+filldraw z250--z252--z251--z250 & cycle;
+enddef;
+
+def ygoth_makru_s (suffix $) =
+w':=4.389u; penpos201(stem,0);
+z201l=(x$+apex_o,foot); z202=(x201,1.144x_height);
+penpos202(stem,0);
+penstroke z201e--z202e; z201'=z201l-(apex_o,0);
+penpos205(hair,-60);
+z205r-z201'=whatever*dir-50; y205r=-apex_o;
+penpos206(hair,-60); z206-z205=whatever*dir30;
+y206=foot; penpos203(stem,50);
+z203l=z201'; z207-z203r=whatever*(z205r-z201');
+z207=whatever[z205r,z206r];
+penpos270(0.5hair,0); x270l=x201l; y270=-0.3x_height;
+penpos271(stem,0); z271=(x201,0);
+penstroke z270e--z271e--z201e;
+%
+%
+%
+penpos220(hair,-40); penpos221(hair,-40);
+penpos222(hair,-40);
+z222l=(2/3[x201l,x206],1.405x_height);
+penpos208(stem,angle(z222l-z202l)); z208r=z222l;
+z209-z222l=whatever*dir-40; x209=x$+w'-hair;
+z210-z209=whatever*dir240;
+z210-z208l=whatever*(z209-z222l);
+z211=whatever[z208l,z210]; x211=x202r;
+z220l=z202l; penpos221'(hair,-40); z221'l=z208l;
+z221l=z221';
+penstroke z220e..z221e..z222e;
+filldraw z221..z222 & z222--z209--
+z210--z221 & cycle;
+z211'=(z220..z221..z222) intersectionpoint
+(z201r--(x201r,2x_height));
+filldraw z202l..z211' & z211'--z202r--z202l
+& cycle;
+x251=x252=x201l; y250=y251=0.732x_height;
+y252=y251+4/5stem; x250=x251-hair;
+filldraw z250--z252--z251--z250 & cycle;
+enddef;
+
+def ygoth_h (suffix $) =
+w':=6.111u; d':=2.778u;
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(x$+0.243w',foot); z2=(x1,1.271x_height);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=x$+w'-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+podi(1);
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x3r+apex_o,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r];
+z20=(x6,0.5[1.431x_height,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],1.431x_height-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=x$;y18r=1/3[1.431x_height,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+%
+%
+%
+z40=z3r+(apex_o,-0.5y3r); z41=(x3l-0.6hair,0);
+penpos42(hair,90); z42l=(x1,-d');
+filldraw z3r{down}..z40 & z40{dir225}..
+z42l{left} & z42l--z42r & z42r{right}..
+z3l{up} & z3l--z3r & cycle;
+enddef;
+
+def ygoth_k (suffix $) =
+w':=6.111u; d':=2.778u;
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(x$+0.243w',foot); z2=(x1,1.271x_height);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; %z3r-z7=whatever*dir30;
+z3r=(x$+w'-apex_o,foot);
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e;
+%penstroke z3e--z4e;
+podi(1);
+%
+%
+%
+penpos5(1.1stem,30); z6=(x3l,x_height);
+z6-z17=whatever*dir30; x17=x1r;
+z5r-z6=whatever*dir-60; x5r=x3r;
+penpos6'(hair,-60);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r];
+z20=(0.821[x1r,x3l],0.5[1.431x_height,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],1.431x_height-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=x$;y18r=1/3[1.431x_height,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+%
+%
+%
+penpos30(hair,-60); z30r=z5r; x31=x32=x1r;
+z31-z30r=whatever*(z17-z6);
+z32-z30l=whatever*(z17-z6);
+filldraw z31--z32--z30l--z30r--z31 & cycle;
+penpos4.5(stem,0); penpos33(stem,angle(z30r-z31));
+x4.5=x3; z4.5-z33=whatever*dir-25;
+penpos33'(1.2hair,angle(z30r-z31));
+z33'r=z5l; z33r=z5l; podi(3);
+penstroke z3e--z4.5e;
+penpos34(stem,angle(z30r-z31));
+x34r=x$+w'+apex_o;
+z34r-z33r=whatever*dir-25;
+penstroke z34e--z33e;
+if y34r > y4.5:
+filldraw z4.5r--(x4.5r,y34r)--(x4.5l,y34r)
+--z4.5l--z4.5r & cycle; fi
+enddef;
+
+def ygoth_o (suffix $) =
+w':=6.111u;
+penpos801(stem,0); penpos802(stem,0);
+penpos803(stem,0); penpos804(stem,0);
+penpos808(stem,60); penpos809(stem,60);
+z801=(x$+0.243w',foot); z802=(x801,0.888x_height);
+z809l=z801l-(apex_o,0);
+x807=0.359[x801r,x803l]; y807=-apex_o;
+z808l=z807; z803r-z807=whatever*dir30;
+x803r=x$+w'-apex_o;
+z804r=(x803r,0.88x_height); %0.833
+z807'=whatever[z809r,z808r]; z807'=whatever[z807,z803r];
+z807''=whatever[z807,z803r]; x807''=x803l;
+penstroke z808e--z809e;
+penstroke z803e--z804e;
+filldraw z808r--z807'--z807--z808r & cycle;
+filldraw z807''--z803l--z803r--z807'' & cycle;
+penpos700(hair,angle(z803r-z807)-90);
+penpos701(hair,angle(z803r-z807)-90);
+z700r=z807; z701r=whatever[z807,z803r]; x701l=x803r;
+penstroke z700e--z701e;
+%
+%
+%
+penpos805(stem,60); z817=(x801r,0.824x_height);
+z806=(0.821[x801r,x803l],x_height);
+z805r=(x701r,y804);
+penpos806'(hair,angle(z806-z817)-90);
+z806'l=z806; z817'-z806'r=whatever*(z817-z806);
+x817'=x801r; z805.1=whatever[z817',z806'r];
+z805.1-z805l=whatever*(z806-z805r);
+filldraw z805r--z806--z817--z817'--z805.1--z805l--z805r
+& cycle;
+%
+%
+%
+penpos802'(stem,0); z802'r=z817';
+z831=whatever[z806,z805r]; x831=x801l;
+z830=whatever[z831,z805r];
+z830-z802'l=whatever*(z802'r-z806'r);
+x834=x$; z834=whatever[z805.1,z805l];
+z832=(x831-0.5hair,y831+hair);
+z833=(2(x832-x$),y834); z835=whatever[z802'l,z830];
+z835=whatever[z834,z805.1];
+penpos750(hair,angle(z830-z802'l)-90);
+z750l=0.5[z802'l,z830];
+filldraw z802'r--z806'r--z806--z830
+& flex(z830,z750r,z802'l) & z802'l--z802'r & cycle;
+penstroke z801e--z802'e;
+enddef;
+
+def ygoth_t (suffix $) =
+w':=4.389u; h':=1.242x_height;
+penpos501(stem,0);
+z501l=(x$+apex_o,foot); z502=(x501,x_height-foot);
+penpos502(stem,0);
+penstroke z501e--z502e; z501'=z501l-(apex_o,0);
+penpos505(hair,-60);
+z505r-z501'=whatever*dir-50; y505r=-apex_o;
+penpos506(hair,-60); z506-z505=whatever*dir30;
+y506=foot; penpos503(stem,50);
+z503l=z501'; z507-z503r=whatever*(z505r-z501');
+z507=whatever[z505r,z506r];
+filldraw z501'--z505r--z506r--z506l--z505l--z501' &
+cycle;
+filldraw z501'--z503r--z507--z505r--z501' & cycle;
+%
+%
+%
+penpos510(0.767stem,90); penpos521(hair,0);
+z510l=(x501r+stem,y502); z520=(x501l-0.5stem,y502);
+z522=(x501r,y510r); z521=(x501r,h');
+filldraw z510l--z520--z521l--z521r..z522{down}
+& z522--z510r--z510l & cycle;
+enddef;
+
+def ygoth_u (suffix $) =
+w':=5.5u;
+penpos601(stem,0); penpos602(stem,0);
+penpos603(stem,0); penpos604(stem,0);
+x601l=x$+hair;
+x602=x601; x604l=x603l=x601r+1.233stem;
+y601=y603=foot; y602=y604=x_height-foot;
+penstroke z601e--z602e;
+penstroke z603e--z604e;
+ podi(603); katwpodi(601);
+if not ligature: qeri(602); fi qeri(604);
+enddef;
+
+def ygoth_z (suffix $) =
+w':=4.306u; d':=3.333u;
+penpos701(hair,-40); penpos702(hair,-40);
+penpos703(hair,-40); penpos704(hair,-40);
+penpos705(1.1stem,50); penpos706(1.1stem,50);
+penpos707(1.3stem,50); penpos710(hair,-90);
+y701l=0.242x_height;
+x701l=x$-2apex_o; x702r=x$+w'+apex_o; y710r=-d';
+z702r-z701r=whatever*dir50;
+penstroke z701e--z702e;
+z704r-z702r=whatever*dir150;
+y704l=x_height+apex_o;
+z704l-z703l=whatever*(z701-z702);
+x703l=x701l; z705=0.5[z703r,z704r];
+z706r-z705r=whatever*(z702r-z704r);
+z706=whatever[z701l,z702l];
+z707=whatever[z701r,z702r];
+x707=1/3[x701l+2apex_o,x702r-apex_o];
+z709=(x702r,0.163x_height);
+z708=(0.632[x701l+2apex_o,x702r-apex_o],0);
+x710=0.123[x701l+2apex_o,x702r-apex_o];
+penstroke z703e--z704e;
+penstroke z706e--z705e;
+filldraw z710r{right}..z709{dir70}
+& z709..z707r{z702l-z702r}
+& z707r--z707l & z707l{z702r-z702l}..z708{down}..
+z710l{left} & z710l--z710r & cycle;
+z711=(z707l{z702r-z702l}..z708{down}..
+z710l{left}) intersectionpoint
+((x707,0)--z707);
+filldraw z711--z707--z701r & z701r{z707-z701r}..
+{z701r-z701l}z711 & cycle;
+z712=whatever[z705l,z706l];
+x712=x705; filldraw z712{z705l-z706l}..z703r{z703r-z704r}
+& z703r--z705--z712 & cycle;
+enddef; \ No newline at end of file
diff --git a/Master/texmf-dist/fonts/source/public/gothic/ygothlig.mf b/Master/texmf-dist/fonts/source/public/gothic/ygothlig.mf
new file mode 100644
index 00000000000..8973089b3b4
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/ygothlig.mf
@@ -0,0 +1,1578 @@
+.cmchar "The gothic ligature sz";
+.beginchar(oct"031",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+1.6u#);
+z0=(hair,0); ygoth_makru_s(0); z50=(apex_o+stem,0);
+ygoth_z(50);
+.endchar;
+
+.cmchar "The gothic ligature fi";
+.beginchar(oct"014",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+1.3u#);
+z0=(hair,0); ygoth_s(0);
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+penpos1(stem,0); penpos2(stem,0);
+z1l=(x206l,foot);
+z2=(x1,x_height-foot);
+podi(1); qeri(2); penstroke z1e--z2e;
+z261.5=0.5[z260,z261]; penpos261.5(stem,-90);
+unfilldraw z261.5r--z261r--z261l--z261.5l--
+z261.5r & cycle;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+penpos3'(x3-x210,0); penpos4'(x3-x210,0);
+z3'r=z3; z4'r=z4l;
+unfilldraw z3'r--z4'r--z4'l--z3'l--z3'r &
+cycle;
+.endchar;
+
+.cmchar "The gothic ligature ffi";
+.beginchar(oct"016",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#-u#,cap_serif_fit#+5.3u#);
+z0=(hair,0); ygoth_s(0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+%
+%
+%
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+penpos1(stem,0); penpos2(stem,0);
+z1l=(x206l,foot);
+z2=(x1,x_height-foot);
+podi(1); qeri(2); penstroke z1e--z2e;
+z261.5=0.5[z260,z261]; penpos261.5(stem,-90);
+unfilldraw z261.5r--z261r--z261l--z261.5l--
+z261.5r & cycle;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penstroke z275e--z260e;
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+penpos3'(x3-x210,0); penpos4'(x3-x210,0);
+z3'r=z3; z4'r=z4l;
+unfilldraw z3'r--z4'r--z4'l--z3'l--z3'r &
+cycle;
+transform metatopish;
+metatopish=identity
+shifted (4u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature fl";
+.beginchar(oct"015",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+2.7u#);
+z0=(hair,0); ygoth_s(0); z100=(x206l,0);
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+%
+%
+%
+w':=4.278u; h':=1.431x_height;
+penpos301(stem,0); penpos302(stem,0);
+penpos303(stem,0); penpos304(stem,0);
+penpos308(stem,60); penpos309(stem,60);
+z301=(x206l+0.243w'-apex_o,foot); z302=(x301,0.888h');
+penstroke z301e--z302e; podi(301);
+%
+%
+%
+z321=0.267[z302l,z302r];
+z320l=(x206l-apex_o+1.243w',0.5[h',y302]);
+penpos320(3/4hair,-135);
+z322=(0.7[x321,x320],h'-apex_o);
+z321'=(x301r,1/4[y321,x_height]);
+penpos325(0.7hair,-90); z325l=z322;
+filldraw z321..z325l{right} & z325l--z325r &
+z325r{left}..z321'{down} & z321'--z302r--z321 &
+cycle;
+.endchar;
+
+.cmchar "The gothic ligature ffl";
+.beginchar(oct"017",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+5.5u#);
+z0=(hair,0); ygoth_s(0); z100=(x206l,0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penstroke z275e--z260e;
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+%
+%
+%
+w':=4.278u; h':=1.431x_height;
+penpos301(stem,0); penpos302(stem,0);
+penpos303(stem,0); penpos304(stem,0);
+penpos308(stem,60); penpos309(stem,60);
+z301=(x206l+0.243w'-apex_o,foot); z302=(x301,0.888h');
+penstroke z301e--z302e; podi(301);
+%
+%
+%
+z321=0.267[z302l,z302r];
+z320l=(x206l-apex_o+1.243w',0.5[h',y302]);
+penpos320(3/4hair,-135);
+z322=(0.7[x321,x320],h'-apex_o);
+z321'=(x301r,1/4[y321,x_height]);
+penpos325(0.7hair,-90); z325l=z322;
+filldraw z321..z325l{right} & z325l--z325r &
+z325r{left}..z321'{down} & z321'--z302r--z321 &
+cycle;
+
+
+transform metatopish;
+metatopish=identity
+shifted (3u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature ff";
+.beginchar(oct"013",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3u#);
+z0=(hair,0); ygoth_s(0); z100=(x206l,0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penstroke z275e--z260e;
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+transform metatopish;
+metatopish=identity
+shifted (3u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature tz";
+.beginchar(oct"076",4.389u#,1.242x_height#,0);
+.adjust_fit(2cap_serif_fit#+0.3u#,cap_serif_fit#+1.7u#);
+z0=(0,0); ygoth_t(0); z100=(x522,0);
+ygoth_z(100);
+z704'=whatever[z704l,z703l]; y704'=y510;
+filldraw z522{right}..z704l{z704-z703} &
+z704l--z704'--z522 & cycle;
+.endchar;
+
+.cmchar "The gothic ligature ss";
+.beginchar(oct"046",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.6u#,cap_serif_fit#+2.5u#);
+z0=(hair,0); ygoth_makru_s(0); z100=(x206l,0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+transform metatopish;
+metatopish=identity
+shifted (2.5u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature ssi";
+.beginchar(oct"053",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.65u#,cap_serif_fit#+3.8u#);
+z0=(hair,0); ygoth_makru_s(0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+%
+%
+%
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penpos1(stem,0); penpos2(stem,0);
+z1l=(x206l,foot);
+z2=(x1,x_height-foot);
+podi(1); qeri(2); penstroke z1e--z2e;
+z261.5=0.5[z260,z261]; penpos261.5(stem,-90);
+unfilldraw z261.5r--z261r--z261l--z261.5l--
+z261.5r & cycle;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+penpos3'(x3-x210,0); penpos4'(x3-x210,0);
+z3'r=z3; z4'r=z4l;
+unfilldraw z3'r--z4'r--z4'l--z3'l--z3'r &
+cycle;
+transform metatopish;
+metatopish=identity
+shifted (2.5u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature st";
+.beginchar(oct"074",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.3u#,cap_serif_fit#+1.6u#);
+z0=(0,0); ygoth_makru_s(0);
+z100=(x209-stem+0.5u,0); ygoth_t(100);
+.endchar;
+
+.cmchar "The gothic ligature ct";
+.beginchar(oct"005",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.2u#,cap_serif_fit#+2.9u#);
+z0=(0,0); ygoth_c(0);
+z100=(x405'+apex_o,0); ygoth_t(100);
+%
+%
+%
+penpos450(hair,90);
+penpos451(hair,angle(z520-z521l));
+penpos452(hair,0); z452=(x410,1/3[y521,y522]);
+z450r=z406; z451l=z521l;
+penstroke z450e..z452e..
+z451e{z510r-z521l};
+.endchar;
+
+.cmchar "The gothic ligature ch";
+.beginchar(oct"003",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+5u#);
+z0=(0,0); ygoth_c(0);
+z100=(x405'-hair,0); ygoth_h(100);
+.endchar;
+
+.cmchar "The gothic ligature ck";
+.beginchar(oct"004",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+5.4u#);
+z0=(0,0); ygoth_c(0);
+z100=(x405'-hair,0); ygoth_k(100);
+.endchar;
+
+
+.cmchar "The gothic ligature ll";
+.beginchar(oct"035",4.278u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+2u#);
+penpos301(stem,0); penpos302(stem,0);
+penpos303(stem,0); penpos304(stem,0);
+penpos308(stem,60); penpos309(stem,60);
+z301=(0.243w,foot); z302=(x301,0.888h);
+penstroke z301e--z302e; podi(301);
+%
+%
+%
+z321=0.267[z302l,z302r]; z320l=(w,0.5[h,y302]);
+penpos320(3/4hair,-135);
+z322=(0.7[x321,x320],h-apex_o);
+z321'=(x301r,1/4[y321,x_height]);
+penpos325(0.7hair,-90); z325l=z322;
+filldraw z321..z325l{right} & z325l--z325r &
+z325r{left}..z321'{down} & z321'--z302r--z321 &
+cycle;
+transform metatopish;
+metatopish=identity
+shifted (x320r-x301l-hair,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+penpos318(hair,45);
+x318r=0;y318r=1/3[h,y321];
+z321''=(x301l,0.5[y321,x_height]);
+filldraw z321''{up}..{z318-z321}z318l &
+z318l--z318r--z321--z302l--z321'' & cycle;
+%
+%
+%
+penpos328(hair,180);
+z328r=z302l+(x320r-x301l-hair,0);
+penstroke z325e{right}..z328e;
+.endchar;
+
+.cmchar "The gothic ligature oldstyle ssi";
+.beginchar(oct"057",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.5u#,cap_serif_fit#+4u#);
+z0=(hair,0); ygoth_s(0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+%
+%
+%
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penpos1(stem,0); penpos2(stem,0);
+z1l=(x206l,foot);
+z2=(x1,x_height-foot);
+podi(1); qeri(2); penstroke z1e--z2e;
+z261.5=0.5[z260,z261]; penpos261.5(stem,-90);
+unfilldraw z261.5r--z261r--z261l--z261.5l--
+z261.5r & cycle;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+penpos3'(x3-x210,0); penpos4'(x3-x210,0);
+z3'r=z3; z4'r=z4l;
+unfilldraw z3'r--z4'r--z4'l--z3'l--z3'r &
+cycle;
+transform metatopish;
+metatopish=identity
+shifted (2.5u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature oldstyle st";
+.beginchar(oct"075",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.3u#,cap_serif_fit#+1.6u#);
+z0=(0,0); ygoth_s(0);
+z100=(x209-stem+0.5u,0); ygoth_t(100);
+.endchar;
+
+.cmchar "The gothic ligature oldstyle ss";
+.beginchar(oct"052",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.5u#,cap_serif_fit#+2.5u#);
+z0=(hair,0); ygoth_s(0); z100=(x206l,0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+transform metatopish;
+metatopish=identity
+shifted (2.5u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic scandinavian o-slash";
+.beginchar(oct"034",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#-0.5u#,cap_serif_fit#);
+z0=(0,0); ygoth_o(0);
+z40=whatever[z809r,z808r]; x40=x801r;
+z41=whatever[z805l,z805.1]; x41=x803l;
+penpos40'(hair,angle(z41-z40)-90);
+z40'l=whatever[z40,z41]; y40'r=-2apex_o;
+penpos41'(hair,angle(z41-z40)-90);
+z41'l-z40'l=whatever*(z41-z40'r);;
+y41'l=x_height+2apex_o;
+penstroke z40'e--z41'e;
+.endchar;
+
+.cmchar "The gothic ligature oe";
+.beginchar(oct"033",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#-0.6u#,cap_serif_fit#+3.1u#);
+z0=(0,0); ygoth_o(0); z217=(x803l-apex_o,0);
+ygoth_e(217);
+unfilldraw z601l--z601'--(x601',y604r)--
+(x601l,y604r)--z601l & cycle;
+.endchar;
+
+.cmchar "The gothic ligature ae";
+.beginchar(oct"032",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+2.4u#);
+z0=(0,0); ligature:=true;
+ygoth_a(0); z217=(x502l-apex_o,0);
+ygoth_e(217);
+.endchar;
+
+.cmchar "The gothic ligature be";
+.beginchar(oct"001",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r]; z20=(x6,0.5[h,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],h-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=0;y18r=1/3[h,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+z500=whatever[z5l,z5r]; x500=x501=x3r;
+z501=whatever[z6,z5r];
+unfilldraw z500--z5r--z501--z500 & cycle;
+z217=(x3l-apex_o,0); ygoth_e(217);
+unfilldraw z601l--z601'--(x601',y604r)--
+(x601l,y604r)--z601l & cycle;
+.endchar;
+
+.cmchar "The gothic ligature de";
+.beginchar(oct"007",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.15u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+filldraw z2'r--z6'r--z6--z31--z34--z35
+--z2'l--z2'r & cycle;
+filldraw z34{up}..z32 & z32..{down}z33 &
+z33--z34 & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos150(1.2hair,angle(z5.1-z35));
+z150l=z35;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+z500=whatever[z5l,z5r]; x500=x501=x3r;
+z501=whatever[z6,z5r];
+unfilldraw z500--z5r--z501--z500 & cycle;
+z217=(x3l-apex_o,0); ygoth_e(217);
+unfilldraw z601l--z601'--(x601',y604r)--
+(x601l,y604r)--z601l & cycle;
+.endchar;
+
+.cmchar "The gothic ligature he";
+.beginchar(oct"012",6.111u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#+0.2u#,cap_serif_fit#+3.15u#);
+z0=(0,0); ygoth_h(0);
+z500=whatever[z5l,z5r]; x500=x501=x3r;
+z501=whatever[z6,z5r];
+unfilldraw z500--z5r--z501--z500 & cycle;
+z217=(x3l-apex_o,0); ygoth_e(217);
+unfilldraw z601l--z601'--(x601',y604r)--
+(x601l,y604r)--z601l & cycle;
+.endchar;
+
+.cmchar "The gothic ligature pp";
+.beginchar(oct"043",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.7u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,h-foot);
+z9l=z1l-(3apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+%
+%
+%
+penpos200(stem,0); z200=(x2,-0.271x_height);
+z21=0.267[z200l,z200r]; z20=(x6,0.5[-d,y200]);
+penpos20(3/4hair,-45);
+z22=(0.545[x21,x20],-d+apex_o);
+z21'=(x1r,1/4[y21,0]);
+filldraw z21..z22..{up}z20r & z20r--z20l
+& z20l{down}..z21'{up} & z21'--z200r--z21 &
+cycle;
+penpos18(hair,angle(z9-z8));
+x18r=0;y18r=1/3[-d,y21];
+z21''=(x1l,0.5[y21,0]);
+filldraw z21''{down}..{z18-z21}z18r &
+z18r--z18l--z21--z200l--z21'' & cycle;
+penstroke z200e--z1e;
+transform metatopish;
+metatopish=identity
+shifted (-x1l+x3l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+qeri(2);
+.endchar;
+
+.cmchar "The gothic ligature qq";
+.beginchar(oct"044",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#-0.5u#,cap_serif_fit#+4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101r=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r+hair,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+penpos150(0.9hair,angle(z30-z2'l)-90);
+z150l=0.5[z2'l,z30];
+filldraw z2'r--z6'r--z6--z30
+& flex(z30,z150r,z2'l) & z2'l--z2'r & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos200(stem,0); z200=(x3,-0.271x_height);
+z210=0.267[z200r,z200l]; z201=(x7,0.5[-d,y200]);
+penpos201(3/4hair,45);
+z220=(0.545[x201,x210],-d+apex_o);
+z210'=(x3l,1/4[y210,0]);
+filldraw z210..z220..{up}z201l & z201l--z201r
+& z201r{down}..z210'{up} & z210'--z200r--z210 &
+cycle;
+penpos180(hair,angle(z17-z6));
+x180r=w; y180r=1/3[-d,y210];
+z210''=(x3r,0.5[y210,0]);
+filldraw z210''{down}..{z180-z210}z180l &
+z180l--z180r--z210--z200r--z210'' & cycle;
+penstroke z200e--z3e;
+transform metatopish;
+metatopish=identity
+shifted (-x1l+x3l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+.endchar;
+
+.cmchar "The gothic ligature ij";
+.beginchar(oct"026",2.889u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#+0.5u#,cap_serif_fit#+2.2u#);
+penpos101(stem,0); penpos102(stem,0);
+x101l=x102l=apex_o; y101=foot; y102=x_height-foot;
+podi(101); qeri(102); penstroke z101e--z102e;
+%
+%
+%
+z105.1=z102r+(2apex_o,0);
+penpos105.2(stem,40); z105.2r=z105.1;
+penpos105.3(stem,40);
+z105.2r-z105.3r=whatever*dir-50;
+y105.3r=y102+foot+apex_o;
+z103=z105.3r+(0,0.5hair);
+penpos104(0.8stem,0); y104=1.379x_height;
+x104r=x102r+hair;
+filldraw z103--z104l--z104r--z103 & cycle;
+%
+%
+%
+penpos1(stem,0); penpos2(stem,0);
+x1l=x2l=x101r+1.233stem; y1=foot; y2=x_height-foot;
+panwqeri(2); penstroke z1e--z2e;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+%
+%
+%
+z40=z1r+(apex_o,-0.5y1r); z41=(x1l-0.6hair,0);
+penpos42(hair,90); z42l=(x1l-1.733stem,-d);
+filldraw z1r{down}..z40 & z40{dir225}..
+z42l{left} & z42l--z42r & z42r{right}..
+z1l{up} & z1l--z1r & cycle;
+.endchar;
+
+.cmchar "The gothic letter a with Umlaut";
+.beginchar(oct"133",6.278u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-.2u#);
+z0=(0,0); ligature:= false; ygoth_a(0);
+z100=z506r;Umlaut(100);
+.endchar;
+
+.cmchar "The gothic letter e with Umlaut";
+.beginchar(oct"134",4.306u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+0.8u#);
+z0=(0,0); ygoth_e(0); Umlaut(606);
+.endchar;
+
+.cmchar "The gothic letter o with Umlaut";
+.beginchar(oct"135",4.306u#,x_height#,0);
+.adjust_fit(cap_serif_fit#-0.6u#,cap_serif_fit#+2u#);
+z0=(0,0); ygoth_o(0); Umlaut(830);
+.endchar;
+
+.cmchar "The gothic letter u with Umlaut";
+.beginchar(oct"136",5.5u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+0.2u#);
+z0=(0,0); ygoth_u(0);
+z100=(0.5[x601r,x603l]-2/3hair,0);
+Umlaut(100);
+.endchar;
+
+.cmchar "The gothic dotless i";
+.beginchar(oct"020",2.889u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#+0.3u#,cap_serif_fit#-.7u#);
+penpos1(stem,0); penpos2(stem,0);
+x1l=x2l=apex_o; y1=foot; y2=x_height-foot;
+podi(1); qeri(2); penstroke z1e--z2e;
+.endchar;
+
+.cmchar "The gothic dotless j";
+.beginchar(oct"021",2.889u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#+0.3u#,cap_serif_fit#-u#);
+penpos1(stem,0); penpos2(stem,0);
+x1l=x2l=apex_o; y1=foot; y2=x_height-foot;
+qeri(2); penstroke z1e--z2e;
+%
+%
+%
+z40=z1r+(apex_o,-0.5y1r); z41=(x1l-0.6hair,0);
+penpos42(hair,90); z42l=(x1l-1.733stem,-d);
+filldraw z1r{down}..z40 & z40{dir225}..
+z42l{left} & z42l--z42r & z42r{right}..
+z1l{up} & z1l--z1r & cycle;
+.endchar;
+
+.cmchar "The gothic ligature ba";
+.beginchar(oct"000",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4.2u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height+apex_o);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r]; z20=(x6,0.5[h,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],h-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=0;y18r=1/3[h,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+z0=(x7',0); ygoth_a(0);
+.endchar;
+
+.cmchar "The gothic ligature bo";
+.beginchar(oct"002",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.7u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height+apex_o);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r]; z20=(x6,0.5[h,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],h-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=0;y18r=1/3[h,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+z0=(x8r,0); ygoth_o(0);
+.endchar;
+
+.cmchar "The gothic ligature da";
+.beginchar(oct"006",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4.4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+filldraw z2'r--z6'r--z6--z31--z34--z35
+--z2'l--z2'r & cycle;
+filldraw z34{up}..z32 & z32..{down}z33 &
+z33--z34 & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos150(1.2hair,angle(z5.1-z35));
+z150l=z35;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+z0=(x7',0); ygoth_a(0);
+.endchar;
+
+.cmchar "The gothic ligature do";
+.beginchar(oct"010",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+filldraw z2'r--z6'r--z6--z31--z34--z35
+--z2'l--z2'r & cycle;
+filldraw z34{up}..z32 & z32..{down}z33 &
+z33--z34 & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos150(1.2hair,angle(z5.1-z35));
+z150l=z35;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+z0=(x8r,0); ygoth_o(0);
+.endchar;
+
+.cmchar "The gothic ligature ho";
+.beginchar(oct"022",6.111u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.8u#);
+z0=(0,0); ygoth_h(0);
+z50=(x8r,0); ygoth_o(50);
+.endchar;
+
+.cmchar "The gothic ligature ha";
+.beginchar(oct"011",6.111u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4.3u#);
+z0=(0,0); ygoth_h(0);
+z50=(x7',0); ygoth_a(50);
+.endchar;
+
+.cmchar "The gothic ligature pa";
+.beginchar(oct"023",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4.4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,h-foot);
+qeri(2); z9l=z1l-(3apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+%
+%
+%
+penpos200(stem,0); z200=(x2,-0.271x_height);
+z21=0.267[z200l,z200r]; z20=(x6,0.5[-d,y200]);
+penpos20(3/4hair,-45);
+z22=(0.545[x21,x20],-d+apex_o);
+z21'=(x1r,1/4[y21,0]);
+filldraw z21..z22..{up}z20r & z20r--z20l
+& z20l{down}..z21'{up} & z21'--z200r--z21 &
+cycle;
+penpos18(hair,angle(z9-z8));
+x18r=0;y18r=1/3[-d,y21];
+z21''=(x1l,0.5[y21,0]);
+filldraw z21''{down}..{z18-z21}z18r &
+z18r--z18l--z21--z200l--z21'' & cycle;
+penstroke z200e--z1e;
+z50=(x7',0); ygoth_a(50);
+.endchar;
+
+.cmchar "The gothic ligature po";
+.beginchar(oct"025",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,h-foot);
+qeri(2); z9l=z1l-(3apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+%
+%
+%
+penpos200(stem,0); z200=(x2,-0.271x_height);
+z21=0.267[z200l,z200r]; z20=(x6,0.5[-d,y200]);
+penpos20(3/4hair,-45);
+z22=(0.545[x21,x20],-d+apex_o);
+z21'=(x1r,1/4[y21,0]);
+filldraw z21..z22..{up}z20r & z20r--z20l
+& z20l{down}..z21'{up} & z21'--z200r--z21 &
+cycle;
+penpos18(hair,angle(z9-z8));
+x18r=0;y18r=1/3[-d,y21];
+z21''=(x1l,0.5[y21,0]);
+filldraw z21''{down}..{z18-z21}z18r &
+z18r--z18l--z21--z200l--z21'' & cycle;
+penstroke z200e--z1e;
+z50=(x8r,0); ygoth_o(50);
+.endchar;
+
+.cmchar "The gothic ligature pe";
+.beginchar(oct"024",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,h-foot);
+qeri(2); z9l=z1l-(3apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+%
+%
+%
+penpos200(stem,0); z200=(x2,-0.271x_height);
+z21=0.267[z200l,z200r]; z20=(x6,0.5[-d,y200]);
+penpos20(3/4hair,-45);
+z22=(0.545[x21,x20],-d+apex_o);
+z21'=(x1r,1/4[y21,0]);
+filldraw z21..z22..{up}z20r & z20r--z20l
+& z20l{down}..z21'{up} & z21'--z200r--z21 &
+cycle;
+penpos18(hair,angle(z9-z8));
+x18r=0;y18r=1/3[-d,y21];
+z21''=(x1l,0.5[y21,0]);
+filldraw z21''{down}..{z18-z21}z18r &
+z18r--z18l--z21--z200l--z21'' & cycle;
+penstroke z200e--z1e;
+z50=(x7',0); ygoth_e(50);
+.endchar;
+
+.cmchar "The gothic ligature ve";
+.beginchar(oct"036",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,x_height-foot);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+penpos202(hair,-45); x202l=x1l;
+y202l=1.333x_height;
+z203=(x1r,0.5[y2,x_height]);
+z204=(x1l,y2-0.5stem);
+penpos205(stem,45); x205=x1l;
+y205l=x_height-hair;
+penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)}
+..z202e{dir45};
+z50=(x7',0); ygoth_e(50);
+.endchar;
+
+.cmchar "The gothic ligature va";
+.beginchar(oct"030",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4.3u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,x_height-foot);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+penpos202(hair,-45); x202l=x1l;
+y202l=1.333x_height;
+z203=(x1r,0.5[y2,x_height]);
+z204=(x1l,y2-0.5stem);
+penpos205(stem,45); x205=x1l;
+y205l=x_height-hair;
+penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)}
+..z202e{dir45};
+z50=(x7',0); ygoth_a(50);
+.endchar;
+
+.cmchar "The gothic ligature vu";
+.beginchar(oct"037",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,x_height-foot);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+penpos202(hair,-45); x202l=x1l;
+y202l=1.333x_height;
+z203=(x1r,0.5[y2,x_height]);
+z204=(x1l,y2-0.5stem);
+penpos205(stem,45); x205=x1l;
+y205l=x_height-hair;
+penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)}
+..z202e{dir45}; ligature:=true;
+z50=(x8r+0.5u,0); ygoth_u(50);
+.endchar;
+
+.cmchar "The gothic ligature qz";
+.beginchar(oct"027",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#-.5u#,cap_serif_fit#+4.3u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101r=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r+hair,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+penpos150(0.9hair,angle(z30-z2'l)-90);
+z150l=0.5[z2'l,z30];
+filldraw z2'r--z6'r--z6--z30
+& flex(z30,z150r,z2'l) & z2'l--z2'r & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos200(stem,0); z200=(x3,-0.271x_height);
+z210=0.267[z200r,z200l]; z201=(x7,0.5[-d,y200]);
+penpos201(3/4hair,45);
+z220=(0.545[x201,x210],-d+apex_o);
+z210'=(x3l,1/4[y210,0]);
+filldraw z210..z220..{up}z201l & z201l--z201r
+& z201r{down}..z210'{up} & z210'--z200r--z210 &
+cycle;
+penpos180(hair,angle(z17-z6));
+x180r=w; y180r=1/3[-d,y210];
+z210''=(x3r,0.5[y210,0]);
+filldraw z210''{down}..{z180-z210}z180l &
+z180l--z180r--z210--z200r--z210'' & cycle;
+penstroke z200e--z3e;
+z0=(x3r,0); ygoth_z(0);
+.endchar; \ No newline at end of file
diff --git a/Master/texmf-dist/fonts/source/public/gothic/ygothlow.mf b/Master/texmf-dist/fonts/source/public/gothic/ygothlow.mf
new file mode 100644
index 00000000000..bd893026f2d
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/ygothlow.mf
@@ -0,0 +1,768 @@
+
+.cmchar "The gothic letter a";
+.beginchar("a",6.278u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-0.3u#);
+z0=(0,0); ygoth_a(0); .endchar;
+
+.cmchar "The gothic letter b";
+.beginchar("b",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r]; z20=(x6,0.5[h,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],h-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=0;y18r=1/3[h,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+.endchar;
+
+.cmchar "The gothic letter c";
+.beginchar("c",4.306u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+z0=(0,0); ygoth_c(0);
+.endchar;
+
+.cmchar "The gothic letter d";
+.beginchar("d",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+filldraw z2'r--z6'r--z6--z31--z34--z35
+--z2'l--z2'r & cycle;
+filldraw z34{up}..z32 & z32..{down}z33 &
+z33--z34 & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos150(1.2hair,angle(z5.1-z35));
+z150l=z35;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+.endchar;
+
+.cmchar "The gothic letter e";
+.beginchar("e",4.306u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+.7u#);
+z0=(0,0); ygoth_e(0);
+.endchar;
+
+.cmchar "The gothic letter f";
+.beginchar("f",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-.2u#);
+z0=(hair,0); ygoth_s(0);
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+.endchar;
+
+.cmchar "The gothic letter g";
+.beginchar("g",7.556u#,x_height#,3u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-0.3u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+x1l=x2l=apex_o; x3l=x4l=0.574w;
+penpos5(1.083stem,63); penpos6(1.083stem,63);
+penpos20(2hair,-51); penpos21(2hair,-45);
+penpos22(2hair,-28);
+y1=0.108x_height; %y2=0.788x_height;
+y3=0.235x_height; y4=0.843x_height;
+y5r=x_height; x5l=x2r; y2=y5l;
+z6r=(w,0.915x_height); y20l=y2; x20=x1l;
+z21r=z2r; z22l=whatever[z5r,z5l]; y22l=h+apex_o;
+penpos6'(1.083stem,63);
+z6'l=whatever[z5l,z6l]; x6'=x6-hair;
+penstroke z1e--z2e; penstroke z3e--z4e;
+penstroke z6'e--z5e; penstroke z20e..z21e..z22e;
+penpos6''(1.083stem,63);
+z6''=whatever[z6l,z6r]; z6''l=1/5[z6l,z6r];
+penstroke z6'e{z6-z5}..z6''e;
+%
+%
+%
+penpos16(stem,65); z16l=(0,y1);
+penpos7(hair,-41);
+z7r=(x1l,-d); penpos8(hair,-41); z8l=z3l;
+z7'=whatever[z7l,z8l]; y7'=-d;
+filldraw z7'--z8l--z8r--z7r--z7' & cycle;
+z15'=whatever[z16l,(x1r,0)];
+z15'=whatever[z7r,z8r]; z15-z16r=
+whatever*(z15'-z16l); z15=whatever[z7r,z8r];
+filldraw z16l--z16r--z15--z15'--z16l &
+cycle;
+penpos9(stem,30); z9l=z3l;
+x12=x6r; z12-z9r=whatever*dir-60;
+penpos10(whatever,45); z10r=z12;
+z10l-z9l=whatever*(z12-z9r);
+z13''=whatever[z7l,z8l]; x13''=x1r;
+penpos11'(hair,-45);
+z11'r=z12; z11''=whatever[z9l,z10l];
+z11''-z11'l=whatever*(z10l-z10r);
+penpos13'(stem,angle(z11''-z13'')+90);
+z13'r=z13''; z11-z13'l=whatever*(z11''-z13'');
+z11=whatever[z10l,z10r];
+z13=whatever[z7l,z8l];
+z13=whatever[z13'l,z11];
+filldraw z13--z11--z12--z11'l--z11''--
+z13'r--z13 & cycle;
+penstroke z10e--z9e;
+filldraw z7r{z15-z7r}..z13'l{z11-z13}
+& z13'l--z13--z7r & cycle;
+.endchar;
+
+.cmchar "The gothic letter h";
+.beginchar("h",6.111u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+0.2u#);
+z0=(0,0); ygoth_h(0);
+.endchar;
+
+.cmchar "The gothic letter i";
+.beginchar("i",2.889u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#+0.6u#,cap_serif_fit#-.7u#);
+penpos1(stem,0); penpos2(stem,0);
+x1l=x2l=apex_o; y1=foot; y2=x_height-foot;
+podi(1); qeri(2); penstroke z1e--z2e;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+.endchar;
+
+.cmchar "The gothic letter j";
+.beginchar("j",2.889u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#+0.6u#,cap_serif_fit#-.85u#);
+penpos1(stem,0); penpos2(stem,0);
+x1l=x2l=apex_o; y1=foot; y2=x_height-foot;
+qeri(2); penstroke z1e--z2e;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+%
+%
+%
+z40=z1r+(apex_o,-0.5y1r); z41=(x1l-0.6hair,0);
+penpos42(hair,90); z42l=(x1l-1.733stem,-d);
+filldraw z1r{down}..z40 & z40{dir225}..
+z42l{left} & z42l--z42r & z42r{right}..
+z1l{up} & z1l--z1r & cycle;
+.endchar;
+
+.cmchar "The gothic letter k";
+.beginchar("k",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+.4u#);
+z0=(0,0); ygoth_k(0);
+.endchar;
+
+.cmchar "The gothic letter l";
+.beginchar("l",4.278u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-u#);
+penpos301(stem,0); penpos302(stem,0);
+penpos303(stem,0); penpos304(stem,0);
+penpos308(stem,60); penpos309(stem,60);
+z301=(0.243w,foot); z302=(x301,0.888h);
+penstroke z301e--z302e; podi(301);
+%
+%
+%
+z321=0.267[z302l,z302r]; z320l=(w,0.5[h,y302]);
+penpos320(3/4hair,-135);
+z322=(0.7[x321,x320],h-apex_o);
+z321'=(x301r,1/4[y321,x_height]);
+penpos325(0.7hair,-90); z325l=z322;
+filldraw z321..z325l{right} & z325l--z325r &
+z325r{left}..z321'{down} & z321'--z302r--z321 &
+cycle;
+penpos318(hair,45);
+x318r=0;y318r=1/3[h,y321];
+z321''=(x301l,0.5[y321,x_height]);
+filldraw z321''{up}..{z318-z321}z318l &
+z318l--z318r--z321--z302l--z321'' & cycle;
+.endchar;
+
+.cmchar "The gothic letter m";
+.beginchar("m",9u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos5(stem,0); penpos6(stem,0);
+x1l=hair;
+x2=x1; x4l=x3l=x1r+1.233stem;
+x6l=x5l=x3r+1.233stem;
+y1=y3=y5=foot; y2=y4=y6=x_height-foot;
+penstroke z1e--z2e; penstroke z3e--z4e;
+penstroke z5e--z6e;
+podi(1); podi(3); podi(5);
+qeri(2); panwqeri(4); panwqeri(6);
+.endchar;
+
+.cmchar "The gothic letter n";
+.beginchar("n",5.5u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+.2u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+x1l=hair;
+x2=x1; x4l=x3l=x1r+1.233stem;
+y1=y3=foot; y2=y4=x_height-foot;
+penstroke z1e--z2e; penstroke z3e--z4e;
+podi(1); podi(3);
+qeri(2); panwqeri(4);
+.endchar;
+
+.cmchar "The gothic letter o";
+.beginchar("o",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#-.4u#,cap_serif_fit#+0.2u#);
+z0=(0,0); ygoth_o(0);
+.endchar;
+
+.cmchar "The gothic letter p";
+.beginchar("p",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,h-foot);
+qeri(2); z9l=z1l-(3apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+%
+%
+%
+penpos200(stem,0); z200=(x2,-0.271x_height);
+z21=0.267[z200l,z200r]; z20=(x6,0.5[-d,y200]);
+penpos20(3/4hair,-45);
+z22=(0.545[x21,x20],-d+apex_o);
+z21'=(x1r,1/4[y21,0]);
+filldraw z21..z22..{up}z20r & z20r--z20l
+& z20l{down}..z21'{up} & z21'--z200r--z21 &
+cycle;
+penpos18(hair,angle(z9-z8));
+x18r=0;y18r=1/3[-d,y21];
+z21''=(x1l,0.5[y21,0]);
+filldraw z21''{down}..{z18-z21}z18r &
+z18r--z18l--z21--z200l--z21'' & cycle;
+penstroke z200e--z1e;
+.endchar;
+
+.cmchar "The gothic letter q";
+.beginchar("q",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#-.3u#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101r=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r+hair,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+penpos150(0.9hair,angle(z30-z2'l)-90);
+z150l=0.5[z2'l,z30];
+filldraw z2'r--z6'r--z6--z30
+& flex(z30,z150r,z2'l) & z2'l--z2'r & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos200(stem,0); z200=(x3,-0.271x_height);
+z210=0.267[z200r,z200l]; z201=(x7,0.5[-d,y200]);
+penpos201(3/4hair,45);
+z220=(0.545[x201,x210],-d+apex_o);
+z210'=(x3l,1/4[y210,0]);
+filldraw z210..z220..{up}z201l & z201l--z201r
+& z201r{down}..z210'{up} & z210'--z200r--z210 &
+cycle;
+penpos180(hair,angle(z17-z6));
+x180r=w; y180r=1/3[-d,y210];
+z210''=(x3r,0.5[y210,0]);
+filldraw z210''{down}..{z180-z210}z180l &
+z180l--z180r--z210--z200r--z210'' & cycle;
+penstroke z200e--z3e;
+.endchar;
+
+.cmchar "The gothic letter r";
+.beginchar("r",4.389u#,x_height#,0);
+.adjust_fit(2cap_serif_fit#+0.3u#,cap_serif_fit#);
+penpos1(stem,0); z1l=(apex_o,foot);
+z2'=(0.5w,-apex_o); z1'=z1l-(2apex_o,0);
+penpos2(stem,0); z2=(x1,0.804x_height);
+penpos3(stem,angle(z2'-z1')+90);
+z3l=z2';
+penpos4(stem,angle(z2'-z1')+90);
+z4l=z1'; penstroke z1e--z2e; qeri(2);
+penstroke z3e--z4e;
+penpos15(hair,-60); z15r=z2';
+z16-z15r=whatever*dir30; x16=w-apex_o;
+x16=x16'; z16'-z15l=whatever*(z16-z15r);
+z16''=whatever[z15,z16'];
+y16''=0.5[foot,y16'];
+filldraw z3r{z3-z4}...z16''---z16' &
+z16'--z16--z15r--z15l--z3r & cycle;
+%
+%
+%
+penpos10(hair,-60); z10r=(x1r,2/3x_height);
+penpos11(1.1stem,27); z11r=(w,0.739x_height);
+z12-z10l=whatever*dir60; y12=x_height+hair;
+z13-z11r=whatever*(z10l-z12);
+z14-z11l=whatever*(z12-z11r);
+z14-z10r=whatever*(z12-z10l);
+z13=whatever[z14,z11l];
+filldraw z10l--z12--z11r--z13--z14--z10r--
+z10l & cycle;
+z15'=whatever[z10l,z12]; x15'=x10r;
+unfilldraw z15'--(x15',x_height)--z12--z15'
+& cycle;
+.endchar;
+
+.cmchar "The gothic letter long s";
+.beginchar("s",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+z0=(hair,0); ygoth_s(0);
+.endchar;
+
+.cmchar "The gothic letter short s";
+.beginchar(oct"140",5.2u#,x_height#,0);
+.adjust_fit(cap_serif_fit#+.7u#,cap_serif_fit#+.3u#);
+penpos1(hair,-45); penpos2(hair,-45);
+z1r=(0,foot); z2l=(w,0.9h);
+penstroke z1e--z2e;
+%
+% panw meroc
+%
+penpos3(stem,angle(z2-z1)); z3=whatever[z1l,z2l];
+penpos4(stem,angle(z2-z1));
+z4-z3=whatever*(z1l-z1r);
+z4l=(-2apex_o,0.458h);
+penstroke z3e--z4e;
+y5=y4l; penpos5(stem,0); x5l=0;
+penpos6(stem,0); x6=x5; y6=h-foot;
+penstroke z5e--z6e;
+penpos7(stem,60); x7=0.5w; y7r=h;
+z7l-z9=whatever*dir147;
+z7r-z8=whatever*dir147;
+z9=whatever[z1l,z2l]; z8=whatever[z1l,z2l];
+penpos10(hair,-66); z10l=whatever[z7l,z9];
+x10l=x6r; penpos11(hair,-90); z11l=z6l;
+penpos12(hair,angle(z8-z7r)); z12l=z7r;
+filldraw z9--z7l--z7r--z8--z9 & cycle;
+penstroke z11e{z6r-z6l}..{z7r-z7l}z12e;
+z13=whatever[z7l,z7r]; y13=h+apex_o;
+z13'=0.3[z7r,z8];
+filldraw z7r--z13 & z13..{z8-z12}z13'
+& z13'--z7r & cycle;
+penpos14(0.4stem,0);
+x14l=x2l; y14=h+hair;
+filldraw z2l{z2l-z1l}..z14l{dir110} &
+flex(z14l,z14+(0,apex_o),z14r) &
+z14r{down}..z2r{z1r-z2r} & z2r--z2l & cycle;
+z10'=whatever[z7l,z9]; x10'=0;
+z10''=(z10'--z9) intersectionpoint
+(z11{right}..z12{z7r-z7l});
+filldraw z10''..z7r{z7r-z7l} & z7r--z7l--
+z10'' & cycle;
+%
+% katw meroc
+%
+penpos20(stem,60); z20r=(w+2apex_o,0.542h);
+z21-z20r=whatever*(z12-z8);
+z22-z20l=whatever*(z12-z8);
+z21=whatever[z1r,z2r];
+z22=whatever[z1r,z2r];
+filldraw z20r--z21--z22--z20l--z20r & cycle;
+penpos23(stem,0); x23r=w; y23=y20r;
+penpos24(stem,0); x24=x23; y24=0.216h;%0.216h;
+penstroke z24e--z23e;
+penpos25(hair,-50); x25l=x24r;
+z25r-z24r=whatever*dir30;
+penpos26(hair,-50); z26r=whatever[z24r,z25r];
+y26r=-apex_o; penstroke z26e--z25e;
+z31=whatever[z1r,z2r];
+z31-z26r=whatever*dir140;
+penpos27(stem,50); z27l=z26r;
+z29-z27r=whatever*(z31-z27l);
+z29=whatever[z1r,z2r];
+z28=whatever[z26r,z25r];
+z28=whatever[z29,z27r];
+filldraw z31--z26r--z28--z29--z31 & cycle;
+z32=whatever[z26,z25]; x32=x24l;
+filldraw z32--z24r--z24l--z32 & cycle;
+penpos30(0.6stem,45); x30r=x4l;
+y30r=-hair;
+filldraw z30r{dir135}..z1r{z2r-z1r} &
+z1r--z1l & z1l{z1r-z2r}..{dir290}z30l
+& z30l--z30r & cycle;
+.endchar;
+
+.cmchar "The gothic letter t";
+.beginchar("t",4.389u#,1.242x_height#,0);
+.adjust_fit(2cap_serif_fit#,cap_serif_fit#-u#);
+z0=(0,0); ygoth_t(0);
+.endchar;
+
+.cmchar "The gothic letter u";
+.beginchar("u",5.5u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+.2u#);
+z0=(0,0); ligature:=false;
+ygoth_u(0);
+.endchar;
+
+.cmchar "The gothic letter v";
+.beginchar("v",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,x_height-foot);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+penpos202(hair,-45); x202l=x1l;
+y202l=1.333x_height;
+z203=(x1r,0.5[y2,x_height]);
+z204=(x1l,y2-0.5stem);
+penpos205(stem,45); x205=x1l;
+y205l=x_height-hair;
+penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)}
+..z202e{dir45};
+.endchar;
+
+.cmchar "The gothic letter w";
+.beginchar("w",10.7u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-.8u#);
+w:=6.111u;
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,x_height-foot);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+transform metatopish;
+metatopish=identity
+shifted (x3-x1,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+z201=whatever[z9r,z7'];
+z201=whatever[z100l,z101l];
+z200=whatever[z100l,z101l];
+x200=x3l;
+unfilldraw z200--z201--(x201,y9r)--
+(x200,y9r)--z200 & cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+penpos202(hair,-45); x202l=x1l;
+y202l=1.333x_height;
+z203=(x1r,0.5[y2,x_height]);
+z204=(x1l,y2-0.5stem);
+penpos205(stem,45); x205=x1l;
+y205l=x_height-hair;
+penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)}
+..z202e{dir45};
+.endchar;
+
+.cmchar "The gothic letter x";
+.beginchar("x",4.389u#,x_height#,0);
+.adjust_fit(2cap_serif_fit#+.3u#,cap_serif_fit#);
+penpos1(stem,0); z1l=(apex_o,foot);
+z2'=(0.5w,-apex_o); z1'=z1l-(apex_o,0);
+penpos2(stem,0); z2=(x1,0.804x_height);
+penpos3(stem,angle(z2'-z1')+90);
+z3l=z2';
+penpos4(stem,angle(z2'-z1')+90);
+z4l=z1'; penstroke z1e--z2e; qeri(2);
+penstroke z3e--z4e;
+penpos15(hair,-60); z15r=z2';
+z16-z15r=whatever*dir30; x16=w-apex_o;
+x16=x16'; z16'-z15l=whatever*(z16-z15r);
+z16''=whatever[z15,z16'];
+y16''=0.5[foot,y16'];
+filldraw z3r{z3-z4}...z16''---z16' &
+z16'--z16--z15r--z15l--z3r & cycle;
+%
+%
+%
+penpos10(hair,-60); z10r=(x1r,2/3x_height);
+penpos11(1.1stem,27); z11r=(w,0.739x_height);
+z12-z10l=whatever*dir60; y12=x_height+hair;
+z13-z11r=whatever*(z10l-z12);
+z14-z11l=whatever*(z12-z11r);
+z14-z10r=whatever*(z12-z10l);
+z13=whatever[z14,z11l];
+filldraw z10l--z12--z11r--z13--z14--z10r--
+z10l & cycle;
+z15'=whatever[z10l,z12]; x15'=x10r;
+unfilldraw z15'--(x15',x_height)--z12--z15'
+& cycle;
+%
+%
+%
+penpos100(1.2hair,angle(z3r-z4r));
+penpos101(hair,angle(z3r-z4r));
+z100l=z4l; z100-z101=whatever*(z4r-z4l);
+y101=-.8stem; penstroke z101e--z100e;
+.endchar;
+
+.cmchar "The gothic letter y";
+.beginchar("y",5.5u#,x_height#,3.056u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+.1u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+x1l=hair;
+x2=x1; x4l=x3l=x1r+1.233stem;
+y1=foot; y2=y4=x_height-foot;
+y3=0.242x_height;
+penstroke z1e--z2e; penstroke z3e--z4e;
+qeri(2); panwqeri(4);
+penpos101(hair,-70); penpos100(hair,-70);
+x101l=x4r; y101r=y3;
+z101-z100=whatever*dir18;
+x100r=x1r;
+penstroke z100e--z101e;
+z100.5=whatever[z100,z101]; x100.5=x4l;
+filldraw z100.5--z3l--z3r--z100.5 & cycle;
+penpos102(1.2hair,180);
+penpos103(hair,-90); penpos104(hair,0);
+z102=(x1l-0.1stem,-.5d);
+z104=(0.361[x1r,x3l],-0.611d);
+x103=0.522[x102,x104]; y103r=-d;
+filldraw z1l{down}..z102r..z103r..z104r{up}
+& z104r--z104l & z104l{down}..z103l..z102l
+..z100r{z101-z100} & z100r--z1r--z1l &
+cycle;
+penpos200(stem,0); z200r=z104r;
+filldraw z200r..z200l..z200r..cycle;
+.endchar;
+
+.cmchar "The gothic letter z";
+.beginchar("z",4.306u#,x_height#,3.333u#);
+.adjust_fit(cap_serif_fit#+.2u#,cap_serif_fit#+.2u#);
+z0=(0,0); ygoth_z(0);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/ygothmis.mf b/Master/texmf-dist/fonts/source/public/gothic/ygothmis.mf
new file mode 100644
index 00000000000..b35cbc9bcb4
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/ygothmis.mf
@@ -0,0 +1,177 @@
+.cmchar "The gothic point";
+.beginchar(".",5u#,1.431x_height#,0);
+.adjust_fit(0,0);
+z1=(0.5w,-apex_o+0.707stem);
+ygoth_dot(1);
+.endchar;
+
+.cmchar "The gothic colon";
+.beginchar(":",5u#,1.431x_height#,0);
+.adjust_fit(0,0);
+z1=(0.5w,-apex_o+0.707stem);
+ygoth_dot(1);
+z2=(0.5w,x_height+apex_o-0.707stem);
+ygoth_dot(2)
+.endchar;
+
+.cmchar "The gothic semicolon";
+.beginchar(";",5u#,1.431x_height#,0);
+.adjust_fit(0,0);
+z1=(0.5w,-apex_o+0.707stem);
+ygoth_dot(1);
+z2=(0.5w,x_height+apex_o-0.707stem);
+ygoth_dot(2)
+penpos3(hair,-90); penpos4(stem,45);
+z3l=(0.5w-0.707stem,-stem);
+z4l=(0.5w,-apex_o);
+penstroke z3e..z4e{up};
+.endchar;
+
+.cmchar "The gothic comma";
+.beginchar(",",5u#,1.431x_height#,0);
+.adjust_fit(0,0);
+z2=(0.5w,-apex_o+0.707stem);
+ygoth_dot(2)
+penpos3(hair,-90); penpos4(stem,45);
+z3l=(0.5w-0.707stem,-stem);
+z4l=(0.5w,-apex_o);
+penstroke z3e..z4e{up};
+.endchar;
+
+.cmchar "The gothic exclamation point";
+.beginchar("!",5u#,1.431x_height#,0);
+.adjust_fit(0,0);
+z1=(0.5w,-apex_o+0.707stem);
+ygoth_dot(1);
+z2=(0.5w,cap_height+apex_o-0.707stem);
+ygoth_dot(2);
+penpos3(1.414stem,0); penpos4(hair,0);
+x3=x4=0.5w; y3=y2; y4=y1+1.414stem;
+penstroke z4e--z3e;
+.endchar;
+
+.cmchar "The gothic question mark";
+.beginchar("?",7.591u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,25); z1=(0.171w,0.514h);
+z1'=(0.293w,0.88h); z2=(0.5w,cap_height+apex_o);
+penpos4(cap_stem,0);
+z4l=(0.673w,0.676h);%x_height);
+penpos5(hair,0); penpos6(hair,-15);
+z7=(0.38w,0.077h); z3=(x2,0.82h);
+z8=(0.624w,0.225h); z6=(0,0);
+z5=(0.5w,-apex_o+2.121stem);
+penpos9(1.15cap_stem,-128);
+x9l=w; y9r=-apex_o;
+z10=(0.5w,-apex_o+0.707stem);
+ygoth_dot(10);
+penpos50(0.5cap_stem,-45); penpos51(cap_stem,45);
+z50l=z2; z51r=z2;
+penstroke z1e{dir115}...z50e{dir45};
+penstroke z5e{up}..z4e{up}..z51e{dir135};
+.endchar;
+
+.cmchar "Left parenthesis";
+.beginchar("(",7u#,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+rt x1r=rt x3r=hround(w-u); lft x2l=hround(x1-4u if monospace: +4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Right parenthesis";
+.beginchar(")",7u#,body_height#,paren_depth#);
+italcorr math_axis#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+lft x1l=lft x3l=hround u; rt x2r=hround(x1+4u if monospace: -4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Opening Gaensefuesschen";
+.beginchar(oct"137",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant+dot_size#-4.1u#;
+.adjust_fit(0,0);
+x2+.5dot_size=hround(w-.6u); y2-.5dot_size=0;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+comma(1,a,dot_size,.25u,comma_depth); % left dot and tail
+comma(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2); .endchar;
+
+
+.cmchar "Closing Gaensefuesschen";
+.beginchar(oct"042",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant-.1u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround .6u;
+ y1+.5dot_size=h-comma_depth;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+ammoc(1,a,dot_size,.25u,comma_depth); % left dot and tail
+ammoc(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2);
+.endchar;
+
+.cmchar "The gothic apostrophe";
+.beginchar("'",2hair#+stem#,1.431x_height#,0);
+.adjust_fit(0,0);
+penpos1(0.5stem,0);
+penpos2(stem,0);
+z1l=(hair,h-foot-0.707stem); z2l=(x1l,h);
+penstroke z1e--z2e;
+.endchar;
+
+.cmchar "The gothic hyphen";
+.beginchar("-",2u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#+0.3u#,cap_serif_fit#);
+penpos1(stem,-90); penpos2(stem,-90);
+penpos3(stem,-90); penpos4(stem,-90);
+x1=x2=0; x3=x4=w; z3-z1=whatever*dir40;
+z4-z2=whatever*dir40;
+0.5[y2,y3]=.5x_height; y1-y2=2.5stem;
+penstroke z1e--z3e; penstroke z2e--z4e;
+.endchar;
+
+
+.cmchar "Closing quotes";
+.beginchar(oct"042",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant+dot_size#-4.1u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround .6u; y2+.5dot_size=h;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+comma(1,a,dot_size,.25u,comma_depth); % left dot and tail
+comma(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2); .endchar;
+
+.cmchar "Opening quotes";
+.beginchar(oct"137",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant-.1u#;
+.adjust_fit(0,0);
+x2+.5dot_size=hround(w-.6u); y1+.5dot_size=h-comma_depth;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+ammoc(1,a,dot_size,.25u,comma_depth); % left dot and tail
+ammoc(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2); .endchar;
+
+.cmchar "En dash";
+.beginchar(oct"173",9u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Em dash";
+.beginchar(oct"174",18u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(letter_fit#,letter_fit#);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/ygothnum.mf b/Master/texmf-dist/fonts/source/public/gothic/ygothnum.mf
new file mode 100644
index 00000000000..f2d1580652e
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/ygothnum.mf
@@ -0,0 +1,229 @@
+.cmchar "The gothic numeral 1";
+.beginchar("1",4.591u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_stem,0); penpos2(cap_stem,0);
+x1=x2=0.68w; y1=0.211h; y2=0.827h;
+y6=y1; x6=x1r+0.235cap_stem;
+penpos5(hair,-45); y5=0; x5=0.08w;
+penpos4(cap_hair,-26); y4=h; x4r=x1r;
+penpos3(hair,-72); x3=0; y3=0.704h;
+penpos7(cap_stem,0); x7=x1; y7=0.289h;
+z8=(z3{dir18}..{dir64}z4) intersectionpoint
+(z7l--(x7l,h));
+penstroke z3e{dir18}..{dir64}z4e;
+filldraw z1l--z8..z4--z4r--z1r--z1l &
+cycle;
+filldraw z5l{z1-z5}..z7l{up} & z7l--z7r &
+z7r{down}..z6 & z6{left}..{z5-z1}z5r &
+z5r--z5l & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 2";
+.beginchar("2",7.591u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,25); z1=(0.171w,0.514h);
+z1'=(0.293w,0.88h); z2=(0.624w,h+apex_o);
+penpos4(cap_stem,180); z4r=(0.673w,0.676h);
+penpos5(cap_hair,-32); penpos6(hair,-15);
+z7=(0.38w,0.077h); z3=(0.424w,0.82h);
+z8=(0.624w,0.225h); z6=(0,0);
+z5=(0.229w,0.225h);
+penpos9(1.15cap_stem,-128);
+x9l=w; y9r=-apex_o;
+filldraw z6l{dir75}..z5l..z4r{up}..z3{left}
+..z1r{dir-65} & z1r--z1l &
+z1l{dir115}...z1'---z2 & z2{dir-40}..
+z4l{down}..z5r..z6r{dir-105} & z6r--z6l &
+cycle;
+filldraw z6l{dir75}..z8{right}..z9l &
+z9l--z9r & z9r..z7{left}..z6r{dir-105} &
+z6r--z6l & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 3";
+.beginchar("3",7.517u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,0); z1=(0.177w,0.729h);
+z1'=(0.281w,0.9h); z2=(0.645w,h+apex_o);
+penpos3(1.15cap_stem,-164);
+z3=(0.837w,0.676h); penpos4(cap_hair,-90);
+z4=(0.232w,0.521h); z5=(w-1.13cap_stem,0.232h);
+z6=(w,0.303h); penpos7(cap_hair,90);
+z7l=(0.448w,-apex_o); z8=(0,0.134h);
+penpos10(hair,-45); x10l=x1;
+z10l-z8=whatever*dir57;
+filldraw z1l{up}...z1'---z2 &
+z2..{dir-74}z3l & z3l..{left}z4r &
+z4r--z4l & z4l{right}..z3r &
+z3r{dir106}..z1r{down} & z1r--z1l & cycle;
+filldraw z4l{right}..z6{down}..z7l..z8
+& z8--z10l--z10r & z10r{dir-95}..z7r..
+z5{up}..z4r{left} & z4r--z4l & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 4";
+.beginchar("4",8.813u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,-47); z2=(0,0.345h);
+z1r-z2=whatever*dir47; y1r=h;
+z2'-z1l=whatever*(z2-z1r); x2'=x2;
+penpos4(stem,-90); x4=.5[x1r,w]; y4r=y2;
+z3=whatever[z2,z1r]; y3=y4l;
+penpos7(cap_stem,0); x7r=x1r;
+y7=0.197h; z6=whatever[z2,z1r];
+x6=x7l; penpos5(hair,-30);
+x5r=w; z5r-z4r=whatever*dir55;
+penpos8(cap_hair,-90);
+z8=(0.273w,0); z9=(x8+1/3cap_stem,y8r);
+penpos10(cap_hair,-90); z10=(0.782w,0.077h);
+filldraw z2'--z1l--z1r---z7r...z10l &
+z10l--z10r & z10r{left}...z9---z8r &
+z8r--z8l{right}..z7l{up}--z6--z2--z2' &
+cycle;
+filldraw z2--z3---z4l...z5l{z5-z4r} &
+z5l--z5r--z4r--z2 & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 5";
+.beginchar("5",7.332u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,-68); penpos2(1.17cap_stem,62);
+z1=(w,h); z1r=z2r;
+penpos5(1.5cap_hair,-10); z5l=(0.354w,h+apex_o);
+penpos6(hair,-34);
+z6=(0.0707w,0.458h);
+z2'-z5l=whatever*(z5r-z5l);
+z2'=whatever[z2l,z2r];
+z4'-z2l=whatever*(z5-z2');
+z4'=whatever[z6r,z5r];
+penpos7(cap_stem,-90); z7=(0.439w,0.637h);
+z9=(w,0.394h); z8=(0.783w,0.285h);
+penpos10(1.5cap_hair,90);
+z10l=(x7,-apex_o); penpos11(1.06cap_stem,40);
+z11l=(-apex_o,0.183h); penpos12(hair,-50);
+z12l=z11r;
+z3=2/3[z5,z2'];
+penstroke z6e--z5e; filldraw z4'--z5r---
+z3...z1l & z1l--z1r--z2l--z4' & cycle;
+filldraw z6r{dir56}..z7r..z8{down}..z10r
+{left}..z12r{up} & z12r--z11r--z11l &
+z11l..z10l{right}..z9{up}..z7l..z6l{dir-124}
+& z6l--z6r & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 6";
+.beginchar("6",7.332u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,90); z1=(0.889w,h);
+penpos2(1.059cap_stem,-153);
+z2r=(0,0.465h); penpos3(1.1cap_stem,-133);
+z3r=(0.535w,-apex_o); penpos4(cap_hair,-43);
+z4r=z3; penpos5(1.059cap_stem,35);
+z5r=(w,0.387h);
+z6=(0.394w,0.549h); z7=(0.586w,0.746h);
+penpos8(cap_hair,-50);
+z7-z8l=whatever*dir40; x8=x2;
+penstroke z1e{left}..z2e..z3e;
+filldraw z4r---z3l...z5r{up}..z7 &
+z7--z8l--z8r{z7-z8l}..z6{right}..z5l{down}..
+z4l{z3r-z3l} & z4l--z4r & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 7";
+.beginchar("7",7.591u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos4(1.765cap_stem,23); x4=0.39w;
+y4l=-hair; penpos5(hair,-45); z5r=(w,h);
+penpos1(cap_hair,-20); penpos2(cap_hair,-20);
+z1l=(0,0.729h); z2-z1=whatever*dir70;
+y2r=h; penpos3(1.078cap_stem,70);
+z3=whatever[z1,z2]; y3r=h;
+z6=(z3l--(w,y3l)) intersectionpoint
+(z4..z5{dir45});
+z3'=0.284[z3l,z6];
+filldraw z1r{z2-z1}..z3'{right} &
+z3'--z2r--z2l--z1l--z1r & cycle;
+filldraw z3l--z6..z5r--z3r--z3l & cycle;
+filldraw z4r{z3'-z4r}..z5r{dir45} &
+z5r--z5l & z5l{dir225}..z4l & z4l--z4r &
+cycle;
+.endchar;
+
+.cmchar "The gothic numeral 8";
+.beginchar("8",7.332u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(1.176cap_stem,-142);
+penpos2(0.824cap_stem,-147);
+penpos3(cap_hair,117);
+penpos4(0.824cap_stem,-151);
+penpos5(1.412cap_stem,-126);
+z1l=(0.465w,h+apex_o); z2l=(w-hair,0.796h);
+z3=(0.5w,0.531h); z4r=(0,0.248h);
+z5r=(2/3w,-apex_o);
+penstroke z1e{dir-10}..
+z2e{down}..z3e{dir203}..
+z4e{down}..z5e{right};
+penpos6(cap_hair,-36); z6r=z5;
+penpos7(0.824cap_stem,41); x7r=w; y7l=y4;
+z8=z3; penpos8(cap_stem,75);
+penpos9(0.853cap_stem,45);
+x9l=hair; y9=y2r; penpos10(cap_hair,-52);
+z10l=z1r; z11=(z1r..z2r{down})
+intersectionpoint ((x1l,0)--(x1l,h));
+penstroke z6e{z5l-z5r}..z7e{up}..z8e{dir165}
+..z9e{up}..z10e{z1l-z1r};
+filldraw z10r{z1l-z1r}..z11..z2r{down} &
+z2r--z2 & z2{up}..z1 & z1--z10l--z10r &
+cycle; .endchar;
+
+.cmchar "The gothic numeral 9";
+.beginchar("9",7.332u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,90); z1=(0.889w,h);
+penpos2(1.059cap_stem,-153);
+z2r=(0,0.465h); penpos3(1.1cap_stem,-133);
+z3r=(0.535w,-apex_o); penpos4(cap_hair,-43);
+z4r=z3; penpos5(1.059cap_stem,35);
+z5r=(w,0.387h);
+z6=(0.394w,0.549h); z7=(0.586w,0.746h);
+penpos8(cap_hair,-50);
+z7-z8l=whatever*dir40; x8=x2;
+penstroke z1e{left}..z2e..z3e;
+filldraw z4r---z3l...z5r{up}..z7 &
+z7--z8l--z8r{z7-z8l}..z6{right}..z5l{down}..
+z4l{z3r-z3l} & z4l--z4r & cycle;
+transform metatopish;
+metatopish=identity
+reflectedabout ((0,0.5h),(w,0.5h));
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+transform metatopish;
+metatopish=identity
+reflectedabout ((0.5w,0),(0.5w,h));
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic numeral 0";
+.beginchar("0",7.332u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(1.059cap_stem,-143);
+penpos2(cap_stem,-140);
+penpos3(1.05cap_stem,-136);
+penpos4(1.1cap_stem,-142);
+penpos5(cap_hair,128);
+penpos6(cap_hair,127);
+z1l=(0.535w,h+apex_o); z4r=(w-x1l,-apex_o);
+z2l=(w,0.528h); x3r=0; y3=y2l+apex_o;
+z5l=z4; z6r=z1;
+penstroke z1e{dir-25}..z2e{down}..
+z5e{z4r-z4l};
+penstroke z6e{z1r-z1l}..z3e{down}..
+z4e{dir-31};
+.endchar;
diff --git a/Master/texmf-dist/fonts/source/public/gothic/ygothupp.mf b/Master/texmf-dist/fonts/source/public/gothic/ygothupp.mf
new file mode 100644
index 00000000000..27b06293d6f
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/ygothupp.mf
@@ -0,0 +1,2399 @@
+.cmchar "The gothic letter A";
+.beginchar("A",10.65u#,1.065cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+x1=x2=.75w; y1=0.157h; y2=0.762h;
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+penpos3(stem,-90);
+x3=x1l; y3=0.4h; x4=0.15w;
+y4=y1-cap_hair; penpos4(cap_hair,-30);
+x5=x1; z5-z4=whatever*dir60;
+penpos5(cap_hair,-30);
+penpos6(cap_hair,60);
+penpos7(cap_curve,-120);
+z7l=z5l; y6r=y3r;
+z6=whatever[z5l,z4l];
+penstroke z6e{dir150}...{dir-30}z7e;
+penstroke z4e--z5e;
+penstroke z1e--z2e;
+y3.1=y3r; y3.2=y3l;
+z3.1=whatever[z4r,z5r];
+z3.2=whatever[z4r,z5r];
+filldraw z3r--z3.1 & z3.1--z3.2
+& z3.2--z3l & z3l--z3r & cycle;
+penpos8(cap_stem,60);
+penpos9(cap_stem,60);
+y8l=0; x8l=0.45w;
+z9-z8=whatever*dir150;
+z9=whatever[z4r,z5r];
+penstroke z8e...z9e;
+y1.1=0; x1.1=0.8w;
+penpos1.2(cap_hair,-42);
+z1.2r-z1.1=whatever*dir48;
+x1.2r=w=x1.3;
+z1.3-z1.2l=whatever*(z1.2r-z1.1);
+x1.4=x1r; x1.5=x1l;
+z1.5-z8l=whatever*(z1.2r-z1.1);
+y1.4=y1.3;
+filldraw z1l--z1.1 & z1.1--z1.2r
+& z1.2r--z1.3 & z1.3--z1.2l...
+z1.4{up} & z1.4--z1r & z1r--z1l
+& cycle;
+x1.6=x1l;
+z1.6-z8r=whatever*(z1.5-z8l);
+filldraw z8l--z1.5 & z1.5--z1.6
+& z1.6--z8r & z8r--z8l & cycle;
+x5.1=x1.1;
+z5.1=whatever[z5r,z5l];
+x5.3=x5.2=w; y5.2=0.5[y5.1,h];
+y5.3=y5.2-0.5cap_hair;
+x2.1=x2l; z2.1=whatever[z4r,z5r];
+filldraw z5r--z5.1 &
+z5.1{z5.1-(0,y3l)}...{right}z5.2
+& z5.2--z5.3 & z5.3{left}...
+{down}z2r & z2r--z2l &
+z2l--z2.1 & z2.1--z5r & cycle;
+x4.1=x4; y4.1=0;
+filldraw z4l{z4l-z5l}...
+z4.1{right}...z4r{dir120} &
+z4r--z4l & cycle;
+x10=x3.2;
+y10=y2;
+x5.15=x5.1; y5.15=0.75[y2,y5.1];
+filldraw z10{z5.1-z10}...
+z2.1{right} & z2.1--z5.15 &
+z5.15{left}...z10{dir225} &
+cycle;
+transform katebasma;
+katebasma=identity
+shifted (0,-apex_o);
+%transform megalwma;
+%megalwma=identity scaled 1.065;
+picture krufo;
+%krufo= currentpicture transformed
+%megalwma;
+krufo:= currentpicture transformed
+katebasma;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+
+.cmchar "The gothic letter B";
+.beginchar("B",10.72u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+x1=x2=0.39w; y2=0.85h;
+y1=y7=y18=1/6h;
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+penstroke z1e--z2e;
+penpos3(cap_hair,0);
+penpos2'(cap_stem,180); z2'=z2;
+x3l=0; y3=y2;
+x3.5=0.5[x3,x2];
+penpos3.5(0.5[cap_hair,cap_stem],
+-90); y3.5l=h+apex_o;
+penstroke z3e{dir60}...z3.5e...
+z2'e{down};
+penpos4(1.2cap_hair,-90);
+penpos9(1.2cap_hair,-90);
+x4=x3r;
+y4r=0.56h;
+y9l=y12.2-2cap_hair=0.56h;
+z4.1-z4l=whatever*(z2r-z4r);
+y4.1=y2;
+filldraw z4r--z2r--z4.1--z4l--z4r &
+cycle;
+penpos5(1.2cap_hair,-90); z5l=z2r;
+penpos6(whatever,angle(z2r-z4r)-90);
+z6l=whatever[z4r,z5l];
+z6r-z5r=whatever*(z5l-z4r);
+y6l=h+apex_o;
+filldraw z5l--z6l--z6r--z5r--z5l
+& cycle;
+x7=0.54w; penpos7(0.9cap_hair,0);
+z8.1=whatever[z4r,z6l];
+x8.1=x7l; x8.2=x7r;
+z8.2=whatever[z4r,z6l];
+filldraw z7r--z8.2--z8.1--z7l--z7r
+& cycle;
+penpos11(1.118cap_stem,
+angle(z6l-z4r));
+z11=whatever[z4r,z6l]; x11r=x6l;
+x9l=x7l;
+z10.1-z6=whatever*(z6r-z6l);
+z10.1-z9l=whatever*(z6l-z4r);
+z10.4=whatever[z9l,z10.1];
+z10.4-z11l=whatever*(z10.1-z6);
+filldraw z10.4--z11l--z11r--z10.1
+--z10.4 & cycle;
+z10.2-z9r=whatever*(z10.1-z9l);
+z10.2=whatever[z6,z10.1];
+z12.1=whatever[z9r,z10.2];
+z12.1=whatever[z11l,z10.4];
+filldraw z9l--z10.1--z10.2--z9r
+--z9l & cycle;
+x12.2=w;
+z12.4=(x7l,y9l);
+%z12.4=whatever[z9l,z10.1];
+%x12.4=x7r;
+x12.2-x12.3=1.2cap_stem;
+z12.3-z12.4=whatever*(z12.2-z12.1);
+filldraw z12.4--z12.1--z12.2--z12.3
+--z12.4 & cycle;
+x1.1=x1l; y1.1=0.247h;
+x13.2=x1l; y13.2=0.56h;
+z13.1-z13.2=
+whatever*dir(angle(z6l-z4r)+100);
+z13.1=whatever[z4r,z5l];
+filldraw z4l{dir-30}...z1.1{down}
+& z1.1--z13.2--z13.1--z4l &
+cycle;
+unfill z4l{dir-30}...z1.1{down}
+& z1.1--(x4l,y1.1)--z4l &
+cycle;
+z15=(0,-apex_o); z17=(0.73w,-apex_o);
+x18=w; z19=(x12.3,y18);
+filldraw z15{dir80}...{right}(x1,y1.1)
+...(w,-apex_o){dir-50} &
+(w,-apex_o)--z17 & z17{dir135}...
+z15{dir225} & cycle;
+x18.2=x18.1=x12.3+cap_stem;
+y18.2=7/8[y18,y12.2];
+y18.1=1/8[y18,y12.2];
+filldraw z12.3--(x12.3,y12.2)--z12.2 &
+z12.2{left}...z18.2{down}--
+z18.1{down}...z18{right} &
+z18--(w,-apex_o)--(0.8w,-apex_o)
+--z12.3 & cycle;
+unfilldraw z17{dir60}...z18{right}
+& z18--(w,-apex_o)--z17 &
+cycle;
+unfilldraw z17{dir60}...z18{right}
+& z18--(w,-apex_o)--z17 &
+cycle;
+.endchar;
+
+.cmchar "The gothic letter C";
+.beginchar("C",11.39u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-0.5u#);
+penpos1(0.765cap_stem,0);
+z1l=(0,0.5h);
+penpos2(cap_stem,37.5);
+z2l=(2/3w,-apex_o);
+penpos3(cap_hair,-40);
+penpos4(cap_hair,0);
+z4r-z2r=whatever*dir153;
+x4=0.5w; %x3r=x4r;
+penpos2'(cap_stem,37.5);
+x2'r=0.36w-0.5cap_stem;
+z2'-z2=whatever*(z4r-z2r);
+z4'=(x4,h); penpos4'(cap_hair,0);
+%penstroke z4e--z4'e;
+penpos2.1(cap_hair,angle(z2'-z2));
+z2.1=z2'l;
+z5=whatever[z2'l,z2'r];
+z6=whatever[z2'l,z2'r];
+x5=x4r; x6=0.86w;
+penpos5(whatever,-90);
+z5l-z2.1l=whatever*(z5-z2.1);
+penpos6(whatever,-27.5);
+z6l-z2.1l=whatever*(z6-z2.1);
+z7.1=whatever[z5l,z6l];
+x7.1=x2'r; x7.2=x7.1+1.2cap_stem;
+z7.2=whatever[z5l,z6l];
+z14'=(x2l,h);
+z3l=z14';
+penpos8.1(1.2cap_hair,-40);
+z8.1=(x7.1,0.8h);
+penstroke z2e..z2'e..z1e{up}...
+z8.1e---z3e{dir24};
+z8.2=(z1{up}..z3{dir34})
+intersectionpoint (z7.2--(x7.2,h));
+penpos12(1.2cap_stem,angle(z8.2-z8.1));
+ z12r=z14';
+%
+%
+%
+filldraw z7.1--z7.2--z8.2--z8.1--
+z7.1 & cycle;
+x7.3=x7.2+slab; y7.3=0.5[y7.1,y7.2];
+filldraw z7.1--
+z7.3 & z7.3..{z8.2-z7.2}z7.2
+& z7.2--z7.1 & cycle;
+%
+%
+%
+x9=w-slab; penpos9(cap_hair,-90);
+z9r=whatever[z2l,z2r];
+z9.1=whatever[z2.1,z2l];
+z9.1-z9l=whatever*(z2l-z9r);
+filldraw z9.1--z2l--z9r--z9l--
+z9.1 & cycle;
+z9.2=whatever[z9.1,z9l];
+x9.2=0.5[x2,x9];
+z9.4=whatever[z9.1,z9];
+z9.4=whatever[z4r,z2r];
+filldraw z7.1{z2r-z4r}..
+z9l{z9-z9.2} & z9l--z2l--z7.1
+& cycle;
+%
+%
+%
+penpos11'(cap_stem,-27.5);
+z11'l=whatever[z5l,z6l];
+y11'r=y1+0.8slab;
+z10=whatever[z6l,z6r];
+z10-z11'r=whatever*(z6r-z5r);
+z10.1=whatever[z6,z10];
+z10.2=whatever[z11'r,z10];
+x10.1=x10.2=w;
+penpos13(0.8cap_hair,angle(z6-z5));
+z13=whatever[z6r,z5r];
+z13r=z6r;
+%
+%
+%
+z13.1-z3l=whatever*(z3r-z3l);
+x13.1=x9-cap_hair;
+z13.2-z13.1=whatever*(z12r-z12l);
+z13.2-z12l=whatever*(z13.1-z3);
+filldraw z12l--z13.2--z13.1--z12r
+--z12l & cycle;
+z13.3=0.5[z13.2,z13.1];
+z13.4=1/3[z6r,z5r];
+z14=whatever[z12r,z13.1];
+y14=h+apex_o;
+penpos15(cap_hair,-90);
+x15=x9; z15r=whatever[z13.2,z13.1];
+z15.1=whatever[z12r,z13.1];
+z15.1-z15l=whatever*(z13.2-z13.1);
+filldraw z13.1--z15r--z15l--
+z15.1--z13.1 & cycle;
+%
+%
+%
+x20=x2l=x20'; y20=y2;
+z20'=whatever[z12,z13.3];
+penpos20(cap_hair,0);
+penpos20'(cap_hair,0);
+penstroke z20e--z20'e;
+z30=whatever[z13.2,z13.1];
+z30-z8.2=whatever*(z13.1-z14);
+z31=(x7.1,y7.2);
+filldraw z31{down}..z2' & z2'--
+z7.1--z31 & cycle;
+%
+%
+%
+z30'-z13.2=whatever*(z13.1-z14');
+z15r-z30'=whatever*dir(angle(z12l-z13.2)+90);
+filldraw z13.2--z30'--z15r--z13.2
+& cycle;
+.endchar;
+
+
+.cmchar "The gothic letter D";
+.beginchar("D",12.055u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+penpos3(cap_stem,90);
+penpos4(cap_stem,90);
+z1r=(w,-apex_o); z2r=(w,h-1.5cap_stem);
+z3r=(w-1.5cap_stem,h); z4r=(0.19w,h);
+penpos5(0.5cap_hair,0);
+z5l=(0,h+2apex_o);
+penstroke z1e--z2e{up}...z3e{left}
+--z4e{left}...z5e{up};
+penpos6(0.8cap_hair,-45);
+x6l=0; y6r=-apex_o;
+z6.4=(0.83w,-apex_o);
+z6.3=(w,0.8cap_stem-apex_o);
+x6.2=0.5w; y6.2=0.28h;
+x6.1=0.433w;
+z6.1-z6l=whatever*dir30;
+filldraw z6r{dir30}...z6.4{dir-45}
+& z6.4--z6.3 & z6.3{dir140}...
+z6.2{left}...z6.1---z6l &
+z6l--z6r & cycle;
+unfilldraw z6.4{dir60}...
+(w,cap_stem){right} &
+(w,cap_stem)--(w,-apex_o)--
+z6.4 & cycle;
+unfilldraw z6.4{dir60}...
+(w,cap_stem){right} &
+(w,cap_stem)--(w,-apex_o)--
+z6.4 & cycle;
+x7=x8=0.5w; x9=x10=0.6w;
+y8=y10=y3l; y7=y9=0.225h;
+penpos7(0.9cap_hair,0);
+penpos8(0.9cap_hair,0);
+penpos9(0.9cap_hair,0);
+penpos10(0.9cap_hair,0);
+penstroke z7e--z8e;
+penstroke z9e--z10e;
+x11=x12=0.5[x9r,x1l];
+y11=0.59h; y12=0.44h;
+penpos11(0.9cap_hair,-90);
+penpos12(0.9cap_hair,-90);
+x11.1=x12.1=x9r; x11.2=x12.2=x1l;
+penpos11.1(0.9cap_hair,-90);
+penpos11.2(0.9cap_hair,-90);
+penpos12.1(0.9cap_hair,-90);
+penpos12.2(0.9cap_hair,-90);
+y11.1r=y11l=y11.2r;
+y12.1l=y12r=y12.2l;
+penstroke z11.1e...{right}z11e...
+z11.2e;
+penstroke z12.1e...{right}z12e...
+z12.2e;
+penpos6'(cap_hair,-45);
+z6'r=z6l; penpos13(0.9cap_hair,-45);
+z13-z6'l=whatever*(z6.1-z6l);
+x13=1/3cap_stem; penpos14(cap_stem,0);
+penpos15(cap_stem,0);
+penpos16(0.9cap_hair,-45);
+y14=y12; y15=y11;
+x14=x15=1/3w; z16r=z8l;
+x13.1=x14l;
+z13.1-z13r=whatever*(z6.1-z6l);
+filldraw z13r{dir45}--z13.1..
+z14r{up}--z15r{up}..z16r{dir45}
+& z16r--z16l & z16l{dir225}..
+z15l{down}--z14l{down}..z13l{dir225}
+& z13l--z13r & cycle;
+x17=0.6cap_stem; y17=y12l;
+x17.1=0.5[x17,x14l]; y17.1=1/3[y11,y12];
+filldraw z13l{dir45}..z14{up}..
+z17.1{left}..z17{down} & z17{up}..
+(x14l-2apex_o,0.5[y13.1,y15])
+{down}..
+z13l{dir225} & cycle;
+z20=(z6.3{dir140}...
+z6.2{left}...z6.1---z6l)
+intersectionpoint (z1l--z2l);
+penpos20(.5cap_stem,0);
+%filldraw z20r..z20l..cycle;
+
+.endchar;
+
+.cmchar "The gothic letter E";
+.beginchar("E",11.39u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(0.765cap_stem,0);
+z1l=(0,0.5h);
+penpos2(cap_stem,37.5);
+z2l=(2/3w,-apex_o);
+penpos3(cap_hair,-66);
+penpos4(cap_hair,0);
+z4r-z2r=whatever*dir153;
+x4=0.6w; x3r=x4r; y3r=0.9h;
+penpos2'(cap_stem,37.5);
+x2'r=0.36w-0.5cap_stem;
+z2'-z2=whatever*(z4r-z2r);
+penstroke z2e--z2'e..z1e{up}..
+z3e{dir34};
+z4'=(x4,h); penpos4'(cap_hair,0);
+penstroke z4e--z4'e;
+penpos2.1(cap_hair,angle(z2'-z2));
+z2.1=z2'l;
+z5=whatever[z2'l,z2'r];
+z6=whatever[z2'l,z2'r];
+x5=x4r; x6=0.86w;
+penpos5(whatever,-90);
+z5l-z2.1l=whatever*(z5-z2.1);
+penpos6(whatever,-27.5);
+z6l-z2.1l=whatever*(z6-z2.1);
+filldraw z5r--z6r--z6l--z5l--z5r
+& cycle;
+z7.1=whatever[z5l,z6l];
+x7.1=x2'r; x7.2=x7.1+1.2cap_stem;
+z7.2=whatever[z5l,z6l];
+x8.1=x7.1; x8.2=x7.2;
+z3-z8.1=whatever*dir24;
+z8.2=whatever[z8.1,z3];
+filldraw z7.1--z7.2--z8.2--z8.1--
+z7.1 & cycle;
+x7.3=x7.2; y7.3=0.5[y7.1,y7.2];
+filldraw z7.1{z7.2-z7.1}..{right}
+z7.3 & z7.3--z7.2--z7.1 & cycle;
+x9=w-slab; penpos9(cap_hair,-90);
+z9r=whatever[z2l,z2r];
+z9.1=whatever[z2.1,z2l];
+z9.1-z9l=whatever*(z2l-z9r);
+filldraw z9.1--z2l--z9r--z9l--
+z9.1 & cycle;
+z9.2=whatever[z9.1,z9l];
+x9.2=0.5[x2,x9];
+z9.4=whatever[z9.1,z9];
+z9.4=whatever[z4r,z2r];
+filldraw z4r{z2r-z4r}..
+z9.2{z9-z9.2} & z9.2--z9.4--z4r
+& cycle;
+penpos11'(cap_stem,-27.5);
+z11'l=whatever[z5l,z6l];
+y11'r=y1+0.8slab;
+z10=whatever[z6l,z6r];
+z10-z11'r=whatever*(z6r-z5r);
+filldraw z11'l--z11'r--z10
+--z6r--z11'l & cycle;
+z10.1=whatever[z6,z10];
+z10.2=whatever[z11'r,z10];
+x10.1=x10.2=w;
+unfilldraw z10.1--z10--z10.2--
+z10.1 & cycle;
+penpos12(whatever,angle(z8.2-z8.1));
+z12l=z3l; y12r=h;
+penpos13(0.8cap_hair,angle(z6-z5));
+z13=whatever[z6r,z5r];
+z13r=z6r; z13.2=whatever[z3r,z13l];
+y13.2=y6r;
+z13.1-z13.2=whatever*(z12r-z12l);
+z13.1-z12r=whatever*(z13.2-z3r);
+filldraw z3r--z13.2--z13.1--z12r
+--z12l--z3r & cycle;
+z13.3=0.5[z13.2,z13.1];
+z13.4=1/3[z6r,z5r];
+filldraw z13.4--z6r & z6r{up}..
+{z13.1-z13.3}z13.3 &
+z13.3--z13.2 & z13.2{down}..
+{z5r-z6r}z13.4 & cycle;
+z14=whatever[z12r,z13.1];
+y14=h+apex_o;
+filldraw z12{z12r-z12l}..{dir60}
+z14 & z14--z12r--z12 & cycle;
+penpos15(cap_hair,-90);
+x15=w; z15r=whatever[z13.2,z13.1];
+z15.1=whatever[z12r,z13.1];
+z15.1-z15l=whatever*(z13.2-z13.1);
+if x15>x13.1: filldraw z13.1--z15r--z15l--
+z15.1--z13.1 & cycle; fi
+
+
+.endchar;
+
+
+.cmchar "The gothic letter F";
+.beginchar("F",13.6u#,cap_height#,2.5u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(0.5cap_hair,0);
+y1=-d+apex_o; x1l=0;
+z2=(0.085w,0.5y1);
+penpos6(0.8cap_stem,0);
+penpos7(0.5cap_stem,0);
+penpos8(0.8cap_stem,0);
+x7=0.555w; y7=2/3u;
+z6r=z7l; z8l=z7r;
+x3=0.5x6l; y3=0;
+x4=0.75[x3,x6l]; y4=0.2y1;
+y5=-d-apex_o; x5=3/4x6l;
+x10=0.5[x6l,x6]; y10=-3/5d;
+penpos10(0.9cap_hair,-90);
+penpos9(0.8cap_stem,0);
+penpos6'(0.8cap_stem,0);
+penpos9'(0.8cap_stem,0);
+x9=x9'=x8; x6'=x6;
+y6'=y9'=0.82h; y9=0.2h;
+filldraw z1r{dir60}..z2{right}..
+z5{right}..z9r{up}--z9'r &
+z9'r--z9'l--z8l & z8l{down}..
+z10r{z10r-z8r} & z10r--z10l &
+z10l{z8l-z10l}..z6r{up}--z6'r
+& z6'r--z6'l--z6l & z6l{down}..
+z4{left}..z3{left}..z1l{dir270} &
+z1l--z1r & cycle;
+%
+% mpara
+%
+penpos11(0.9cap_stem,-90);
+penpos12(0.9cap_stem,-90);
+y11=y12=0.538h; x11=x6l; x12=x8r;
+penpos13(0.8cap_hair,-60);
+y13=y11r-0.45cap_stem;
+x13=0.127w; z11.1=whatever[z11l,z12l];
+z12.1=whatever[z11l,z12l];
+x11-x11.1=x12.1-x12=0.18w;
+z12.2=whatever[z11r,z12r];
+x12.2=0.8[x12,x12.1];
+filldraw z13r{dir45}..z11r{right}
+--z11l--z11.1--
+z13l--z13r & cycle;
+filldraw z12r--z12.2
+& z12.2--z12.1--z12l--z12r & cycle;
+%
+% panw meroc
+%
+numeric jhta; jhta:=32;
+penpos14(cap_stem,90-jhta); y14r=h+apex_o;
+x14r=x9r+cap_hair;
+penpos15(cap_stem,90-jhta); x15r=w-apex_o;
+z15r-z14r=whatever*dir(180-jhta);
+penpos17(0.8cap_hair,-jhta);
+z17r=whatever[z15l,z15r];
+x17r=w; z16=whatever[z14l,z15l];
+z9'r-z16=whatever*(z15l-z15r);
+z18=whatever[z14r,z15r];
+x18=0.75[x14r,x15r];
+filldraw z6'l{right}..z14r{z14r-z14l}
+& z14r--z18{z15r-z14r}..
+{z15r-z15l}z17l & z17l--z17r--z15l
+--z16--z9'r--z6'l & cycle;
+%
+%
+%
+z19=z6'l+(-0.4cap_hair,0.4cap_hair);
+penpos19(0.1cap_hair,45);
+z19.1=z6'l+(0,-cap_hair);
+z19.2=z6'l+(cap_hair,0);
+filldraw z19.1{up}..{z19-z6'l}z19l
+& z19l--z19r & z19r{z6'l-z19}..
+z19.2{right} & z19.2--z19.1 &
+cycle;
+%
+%
+%
+penpos20(0.5cap_stem,0);
+penpos21(0.5cap_stem,0);
+x20=x21=x7; y20=y9'-cap_hair;
+y21=y20-0.5cap_hair;
+filldraw z21l{up}..z20{right}..
+z21r{down} & z21r--z9'l--z6'r--
+z21l & cycle;
+.endchar;
+
+
+.cmchar "The gothic letter G";
+.beginchar("G",12.6u#,cap_height#,0); %prin htan 11.6u#
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(0.8cap_hair,111);
+penpos2(0.9cap_stem,-150);
+penpos3(0.8cap_hair,-57.5);
+penpos4(cap_stem,0);
+penpos5(1.765cap_stem,48);
+z1=(0.43w,0.87h); z2=(0.115w,0.318h);
+z3=(0.742w,0.141h);
+z4r=(w,0.427h);
+z6=(0.517w,-apex_o);
+y5=0.6h; x5l=x6+cap_hair;
+filldraw z1r..z2r..z6 & z6..z3r
+..z4r{up}..z5r & z5r--z5l &
+z5l{z5r-z5l}..z4l..z3l..z2l..z1l
+& z1l--z1r & cycle;
+%
+%
+%
+penpos6'(cap_hair,0);
+penpos7(cap_hair,0);
+x6'l=x7l=x6; y7=y1r;
+y6'=y6+0.5cap_stem;
+penstroke z6'e--z7e;
+penpos8(cap_hair,-42);
+penpos9(cap_hair,-42);
+z8r=z5l; z9r=whatever[z5l,z5r];
+x9r=w-slab;
+penstroke z8e--z9e;
+penpos11(cap_hair,48); z11l=z5r;
+penpos10(whatever,48);
+z10l=z1r; y10r=h+apex_o;
+z11.1=whatever[z11,z9r];
+z11.1-z10r=whatever*(z11r-z1r);
+z11.2=0.5[z10r,z11.1];
+filldraw z1r--z11r--z9r--z9l &
+z9l{z8l-z9l}..z11.2{z10r-z11.1}
+--z10r & z10r--z1r & cycle;
+%
+%
+%
+x14=0.3445w=x14';
+penpos14(1.05cap_stem,0);
+penpos14'(1.05cap_stem,0);
+penpos12(cap_hair,-60);
+penpos13(cap_hair,-60);
+z12l=z2; z13r-z12r=whatever*(z2l-z2r);
+x13r=x14r+apex_o;
+penstroke z12e--z13e;
+z14.1=whatever[z12l,z13l];
+x14.1=x14l; y14=y13r;
+y14'=h;
+z15=(z1r..z2r..z6)
+intersectionpoint (z14l--z14'l);
+x15.05=x15; y15.05=0.5[y15,y1];
+z15'=whatever[z1,z15.05];
+x15'=0.5[x15,x1];
+x13.1=x14r; y13.1=y13l+cap_hair;
+filldraw z2l{z2l-z2r}..z14l{up}
+& z14l--z15--z15'--z1r--z13.1
+& z13.1{down}..z13r & z13r--z12r
+--z2l & cycle;
+%
+% grammoulec
+%
+z20=(z5l{z5r-z5l}..z4l..z3l..
+z2l..z1l) intersectionpoint
+(z6'r--(x6'r,1/3h));
+y16=2/3[y20,y8r];
+y18=1/3[y20,y8r];
+x16=x18=x20;
+penpos16(cap_hair,-90);
+penpos17(cap_hair,-90);
+penpos18(cap_hair,-90);
+penpos19(cap_hair,-90);
+x17=x19=0.5[x4l,x4];
+z17-z16=whatever*(z13-z12);
+z19-z18=whatever*(z13-z12);
+penstroke z18e--z19e;
+penstroke z16e--z17e;
+%
+%
+%
+z21=whatever[z6'l,z7l];
+z21=whatever[z11r,z1r];
+filldraw z1l{dir21}...z21{z11r-z21}
+& z21--z10l--z1l & cycle;
+.endchar;
+
+
+.cmchar "The gothic letter H";
+.beginchar("H",11.444u#,cap_height#,2.61u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(0.45cap_stem,0);
+penpos2(0.9cap_stem,0);
+penpos3(0.9cap_stem,0);
+x1=0.367w; z2r=z1l; z3l=z1r;
+y1=0.323h;
+penpos4(0.9cap_stem,0);
+penpos5(0.9cap_stem,0);
+x4=x3; x5=x2; y5=0.706h;
+y4=0.8h;
+penstroke z2e--z5e;
+penstroke z3e--z4e;
+penpos6(0.6cap_hair,-90);
+penpos7(cap_hair,-90);
+x6=5/6[x4l,x4r]; x7=0.84w;
+y6l=y7l=h;
+penstroke z5e{up}..z6e{right};
+penstroke z4e{up}..z7e{right};
+%
+%
+%
+penpos8(cap_hair,-90);
+z10=(x2r,0.426h); z9-z10=whatever*dir45;
+x9=x7; z8l=whatever[z10,z9];
+x8=x4r;
+penpos10'(1.12cap_stem,angle(z9-z8l));
+z10'r=z9; penpos11(cap_stem,0);
+x11r=w; y11=y10;
+penpos12(cap_hair,-45);
+y12l=0; x12l=0.607w;
+penstroke z12e{dir45}..z11e{up}..z10'e;
+z10''-z8r=whatever*(z10'-z8l);
+x10''=x10';
+filldraw z8l--z10'--z10''--z8r--
+z8l & cycle;
+%
+% dexi stroggulo
+%
+penpos12'(0.9cap_stem,0);
+x12'=x12l; y12'=-d-apex_o+0.45cap_stem;
+filldraw z12l{dir225}..z12'l{down}
+..z12'r{up}..z12r{z12l-z12r}
+& z12r--z12l & cycle;
+%
+% aristero stroggulo
+%
+penpos13(0.9cap_stem,90);
+y13=-apex_o-0.45cap_stem;
+x13=0.5cap_hair+0.45cap_stem;
+x13'=x13-apex_o; y13'=-apex_o;
+x14=0; y14=2/3y13;
+x15=x13; x16=x2l;
+penpos20(0.6cap_hair,-90);
+y20r=0.1636h; x20=2/3[x2l,x2r];
+y16=0.5[y20r,y2]; y15=0.5[y14,y16];
+x17=x3r; y17=2/3[y20r,y3];
+z18=(x3l,y20r); z19=(x12',y18);
+penpos21(cap_hair,-90);
+y21r=y19+apex_o; x21=x9-0.7cap_stem;
+z23=(x20,0.5y19);
+z22'=whatever[z3l,z18];
+z22'-z21r=whatever*(z10-z9);
+z22=(z13'..z23{right}..z12'r)
+intersectionpoint (z21r--z22');
+%
+filldraw z13'..z23{right}..z22
+& z22--z21r--z21l & z21l{z22-z21r}
+..z19{left}--z18 & z18--z17--z3r
+--z3l & z3l{down}..z20r{dir215}
+& z20r--z20l & z20l{z1-z20l}..
+z2r{up} & z2r--z2l--z16 &
+z16{down}..z15..z14{down}..
+z13l{right}..z13r{left}--z13'
+& cycle;
+%
+% pterugia
+%
+penpos24(0.5cap_hair,0);
+penpos25(0.75cap_stem,-90);
+penpos26(0.62cap_stem,-90);
+x24l=0; y25l=h+apex_o;
+y26=0.5[y24,y25l];
+y24=0.85h; x25=1/8w; x26=0.271w;
+penstroke z24e{up}..z25e{right}..
+z26e..z6e{right};
+x27=0; y27=0.547h; y28=2/3[y27,y5];
+x28=0.5x5l; x30=x29=x5l; y29=5/6[y27,y28];
+y32=y2;
+x30-x32=min(cap_stem,x30-0.5cap_hair);
+x31=0.5[x32,x30]; y31=y10;
+y30=3/3[y32,y31];
+x33=0.43[x32,x30]; y33=1/5[y32,y31];
+filldraw z16{up}..z33..z32 &
+z32{up}..z31..z30 &
+z30{up}..z27{left} &
+z27{up}..z28..z29{dir-30} & z29--z16
+& cycle;
+%
+% grammoulec
+%
+penpos34(0.8cap_hair,-90);
+penpos35(0.8cap_hair,-90);
+penpos36(0.8cap_hair,-90);
+penpos37(0.8cap_hair,-90);
+penpos38(0.8cap_hair,-90);
+penpos39(0.8cap_hair,-90);
+x34=x35=x17; x36=x37=w-cap_stem;
+x38=x39=1/2[x34,x36];
+y34l=y36r=y27;
+y38l=y34r; y39r=y35l;
+y35r=y37l=y32;
+penstroke z34e..z38e..z36e;
+penstroke z35e..z39e..z37e;
+
+.endchar;
+
+
+.cmchar "The gothic letter I";
+.beginchar("I",10.555u#,cap_height#,2.167u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos2(1/3cap_stem,-58);
+y2r=-d-apex_o; x2r=0.321w;
+x3=0.442w; y3=-apex_o;
+penpos4(1/3cap_stem,-53); y4l=0;
+x4l=0.637w; x5=0.579w;
+y5=0.144h; penpos5(0.7cap_stem,0);
+y5.1=y5.4=0.386h; y5.2=y5.3=0.45h;
+penpos6(1/3cap_stem,-51);
+penpos7(1/3cap_stem,-30);
+y6r=y7r=0.83h; x7r=x5.4=0.86w;
+x5.3=x5.4-0.9cap_stem;
+x5.1=x3; x5.2=x5.1+0.9cap_stem;
+x6r=0.758w;
+penpos8(0.5cap_hair,-45);
+z8=(w,h);
+filldraw z2r..z5r..z5.2..z6r..z8r
+& z8r--z8l & z8l..z6l..z5.1..z5l..
+z3..z2l & z2l--z2r & cycle;
+filldraw z2r..z4r..z5.4..z7r..
+z8r & z8r--z8l & z8l..z7l..z5.3
+..z4l..z2l & z2l--z2r & cycle;
+%
+% panw meroc
+%
+penpos9(cap_hair,0); x9l=0;
+y9=y6r; penpos10(0.88cap_stem,-90);
+y10l=h+apex_o; x10=0.276w;
+penpos11(cap_stem,-90);
+y11r=y9; x11=x5.2;
+penstroke z9e{up}..z10e..z11e..
+z8e;
+%
+% mpalla
+%
+penpos12(cap_stem,90); x12=0.134w;
+y12r=y9-apex_o;
+filldraw z12r..z12l..cycle;
+filldraw z12l{left}..z9l{up} &
+z9l--z9r & z9r{down}..z12{right}
+& z12--z12l & cycle;
+%
+% katw meroc
+%
+penpos1(cap_hair,0); z1=(0,-d);
+z13=(0.279w,0.031h);
+filldraw z1r..z2r{z2r-z2l} &
+z2r--z3 & z3..z13{left}..z1l{down}
+& z1l--z1r & cycle;
+%
+% pterugia
+%
+x14=0.5[x5.1,x5.2]; y14=y15=y5.2;
+x15=x17=0.2w; y17=1/4h;
+x18=1/2[x17,x5l]; y18=1/4[y17,y5.1];
+filldraw z15{dir77}..z14--z5l
+& z5l{up}..z18..z17 &
+z17{dir76}..z5.1{right} &
+z5.1..z15{dir198} & cycle;
+.endchar;
+
+
+.cmchar "The gothic letter J, which is the same as I";
+.beginchar("J",10.555u#,cap_height#,2.167u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos2(1/3cap_stem,-58);
+y2r=-d-apex_o; x2r=0.321w;
+x3=0.442w; y3=-apex_o;
+penpos4(1/3cap_stem,-53); y4l=0;
+x4l=0.637w; x5=0.579w;
+y5=0.144h; penpos5(0.7cap_stem,0);
+y5.1=y5.4=0.386h; y5.2=y5.3=0.45h;
+penpos6(1/3cap_stem,-51);
+penpos7(1/3cap_stem,-30);
+y6r=y7r=0.83h; x7r=x5.4=0.86w;
+x5.3=x5.4-0.9cap_stem;
+x5.1=x3; x5.2=x5.1+0.9cap_stem;
+x6r=0.758w;
+penpos8(0.5cap_hair,-45);
+z8=(w,h);
+filldraw z2r..z5r..z5.2..z6r..z8r
+& z8r--z8l & z8l..z6l..z5.1..z5l..
+z3..z2l & z2l--z2r & cycle;
+filldraw z2r..z4r..z5.4..z7r..
+z8r & z8r--z8l & z8l..z7l..z5.3
+..z4l..z2l & z2l--z2r & cycle;
+%
+% panw meroc
+%
+penpos9(cap_hair,0); x9l=0;
+y9=y6r; penpos10(0.88cap_stem,-90);
+y10l=h+apex_o; x10=0.276w;
+penpos11(cap_stem,-90);
+y11r=y9; x11=x5.2;
+penstroke z9e{up}..z10e..z11e..
+z8e;
+%
+% mpalla
+%
+penpos12(cap_stem,90); x12=0.134w;
+y12r=y9-apex_o;
+filldraw z12r..z12l..cycle;
+filldraw z12l{left}..z9l{up} &
+z9l--z9r & z9r{down}..z12{right}
+& z12--z12l & cycle;
+%
+% katw meroc
+%
+penpos1(cap_hair,0); z1=(0,-d);
+z13=(0.279w,0.031h);
+filldraw z1r..z2r{z2r-z2l} &
+z2r--z3 & z3..z13{left}..z1l{down}
+& z1l--z1r & cycle;
+%
+% pterugia
+%
+x14=0.5[x5.1,x5.2]; y14=y15=y5.2;
+x15=x17=0.2w; y17=1/4h;
+x18=1/2[x17,x5l]; y18=1/4[y17,y5.1];
+filldraw z15{dir77}..z14--z5l
+& z5l{up}..z18..z17 &
+z17{dir76}..z5.1{right} &
+z5.1..z15{dir198} & cycle;
+.endchar;
+
+.cmchar "The gothic letter K";
+.beginchar("K",13.111u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+z1=(0,0); x2=1/3w; x3=0.37w;
+x4=0.40w; x5=0.52w; x6=0.614w;
+y2=0.3h; y3=0.506h; y4=0.7h;
+y5=0.886h;
+penpos1(cap_hair,-63);
+penpos2(cap_stem,-23);
+penpos3(cap_stem,-10);
+penpos4(0.765cap_stem,-21);
+penpos5(1/3cap_stem,-41);
+penpos6(cap_hair,-58);
+penpos1'(0.05cap_hair,-63);
+z1'l=z1l;
+y6l=h+apex_o;
+penstroke z1'e..z2e..z3e..z4e..
+z5e..z6e{dir32};
+penpos7(cap_hair,-33);
+penpos8(0.88cap_stem,-115);
+x7=slab; x8=0.26w; x8.1=0.345w;
+x8.2=0.466w; y7=0.785h; y8=0.919h;
+y8.1=0.796h; y8.2=0.92h;
+filldraw z7r..z8r..z8.1..z6l{dir32} &
+ z6l{dir212}..z8.2..z8l..z7l
+& z7l--z7r & cycle;
+penpos10(cap_hair,-23);
+penpos10'(1.5cap_hair,-23);
+penpos11(cap_hair,-10);
+penpos11'(1.5cap_hair,-10);
+penpos12(cap_hair,-21);
+penpos12'(1.5cap_hair,-21);
+penpos13(cap_hair,-41);
+penpos13'(cap_hair,-41);
+penpos14(cap_hair,-58);
+penpos9(cap_hair,-65);
+z2r=z10'l; z10'r=z10l;
+z3r=z11'l; z11'r=z11l;
+z4r=z12'l; z12'r=z12l;
+z5r=z13'l; z13'r=z13l;
+x14=0.684w; x9=0.3w; y14l=h;
+y9r=0.06h;
+penstroke z9e..z10e..z11e..z12e
+..z13e..z14e;
+%
+%
+%
+x15=x10r; y15=0.1w;
+penpos15(0.8cap_stem,-90);
+penpos16(1.176cap_stem,-126.5);
+y16r=-apex_o; x16l=x14;
+filldraw z1r..z9r..z15r..z16r
+& z16r--z16l & z16l..z15l{left}
+..z1l
+& z1l--z1r & cycle;
+%
+% panw podi
+%
+penpos17(cap_hair,-60);
+penpos18(cap_hair,-60);
+z18r=z12r; z17l=z11r;
+x20=0.773w;
+penpos20(cap_hair,-60);
+penpos19(cap_hair,-60);
+z20-z18=whatever*dir30;
+z19-z17=whatever*(z20-z18);
+z19=whatever[z20l,z20r];
+z17''=whatever[z17r,z19r];
+x17''=0;
+z17'=(z9..z10..z11..z12..z13..z14)
+intersectionpoint (z17''--z19r);
+filldraw z17'--z11--z11r--z17r--
+z17' & cycle;
+penstroke z18e--z20e;
+penstroke z17e--z19e;
+penpos21(cap_stem,angle(z19-z17));
+penpos22(cap_stem,angle(z19-z17));
+z21=2/3[z17,z19];
+z22-z21=whatever*(z20l-z20r);
+z22=whatever[z18,z20];
+penstroke z21e--z22e;
+%
+% katw podi
+%
+penpos22'(1.09cap_stem,angle(z19-z17));
+penpos23(1.09cap_stem,angle(z19-z17));
+penpos24(1.09cap_stem,angle(z19-z17));
+z22'l=z17r; x23=x14; y23=y17r;
+x24=0.82w; y24=y16l;
+penstroke z22'e{z22'r-z22'l}..
+z23e{z24-z23}--z24e;
+z25=(0.86w,-apex_o);
+penpos26(cap_hair,-90);
+z26r-z25=whatever*(z16l-z16r);
+x26=w;
+filldraw z24r{z24-z23}..
+z26l{z26r-z25} & z26l--z26r &
+z26r--z25 & z25{left}..z24l
+{z23-z24} & z24l--z24r & cycle;
+penpos27(cap_hair,angle(z16l-z16r)-90);
+z27r=z16;
+z29=whatever[z23,z24];
+z29-z16=whatever*(z16l-z16r);
+z28=whatever[z23,z24];
+z28-z27l=whatever*(z29-z16);
+filldraw z27r--z29--z28--z27l--
+z27r & cycle;
+%
+% pterugia
+%
+z2''=z2; penpos2''(0.7cap_hair,
+angle(z2r-z2l));
+x27.1=x8r; y27.1=y10;
+x28.1=0.093w+cap_hair; y28.1=0.377h;
+x29.1=0.127w+cap_hair; y29.1=0.605h;
+filldraw z1l{z10-z1}..z27.1{up}..
+z28.1{left} & z28.1{dir60}..z2''r
+& z2''r--z2''l &
+ z2''l..z29.1{left} & z29.1{dir60}..
+z3 & z3--z2..z1r{z1-z10} &
+ z1r--z1l & cycle;
+
+
+.endchar;
+
+
+.cmchar "The gothic letter L";
+.beginchar("L",11.27u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+z1=(0,0); x2=0.43w; x3=0.46w;
+x4=0.495w; x5=0.66w; x6=0.74w;
+y2=0.31h; y3=0.515h; y4=0.71h;
+y5=0.933h;
+penpos1(cap_hair,-67.5);
+penpos2(cap_stem,-10);
+penpos3(1.06cap_stem,-7.5);
+penpos4(0.823cap_stem,-9);
+penpos5(1/3cap_stem,-36);
+penpos6(cap_hair,-55);
+penpos1'(0.05cap_hair,-67.5);
+z1'l=z1l;
+y6l=h+apex_o;
+penstroke z1'e{dir22.5}..z2e..z3e..z4e..
+z5e..z6e{dir35};
+penpos7(cap_hair,-30);
+penpos8(0.85cap_stem,-100);
+x7=1/8w; x8=0.35w; x8.1=x3;
+x8.2=0.625w; y7=0.77h; y8l=h+apex_o;
+y8.1=0.86h; y8.2=0.955h;
+filldraw z7r..z8r..z8.1..z6l{dir35} &
+ z6l{dir215}..z8.2..z8l..z7l{dir240}
+& z7l--z7r & cycle;
+penpos10(0.56cap_stem,-14);
+penpos10'(1.4cap_hair,-14);
+penpos11(0.91cap_stem,-7.5);
+penpos11'(1.5cap_hair,-7.5);
+penpos12(0.82cap_stem,-9);
+penpos12'(1.3cap_hair,-9);
+penpos13(0.56cap_stem,-36);
+penpos13'(0.7cap_hair,-36);
+penpos14(0.75cap_hair,-90);
+penpos9(cap_hair,-90);
+z2r=z10'l; z10'r=z10l;
+z3r=z11'l; z11'r=z11l;
+z4r=z12'l; z12'r=z12l;
+z5r=z13'l; z13'r=z13l;
+x14=w-slab; x9=0.325w; y14l=h-slab;
+y9r=0.085h;
+penstroke z9e..z10e..z11e..z12e
+..z13e..z14e{right};
+%
+%
+%
+x15=x5r; y15=0.134w;
+penpos15(0.82cap_stem,-90);
+penpos16(1.06cap_stem,-126.5);
+y16r=-apex_o; x16l=x14;
+penpos30(cap_hair,angle(z16l-z16r)-90);
+z30r=whatever[z16l,z16r];
+x30r=w+apex_o;
+filldraw z1r..z9r..z15r..z16r
+& z16r--z30r--z30l
+& z30l{z16r-z16l}..z15l{left}
+..z1l
+& z1l--z1r & cycle;
+%
+%
+% pterugia
+%
+z2''=z2; penpos2''(0.7cap_hair,
+angle(z2r-z2l));
+z27.1=(z1l{dir22.5}..z2l..z3l..
+z4l..z5l..z6.)
+intersectionpoint (z9r--(x9r,h));
+x28.1=x7r+cap_hair; y28.1=0.4h;
+x29.1=x7r+0.5cap_hair; y29.1=0.58h;
+filldraw z27.1{up}..
+z28.1{left} & z28.1{dir60}..z2''r
+& z2''r--z2''l &
+ z2''l..z29.1{left} & z29.1{dir60}..
+z3 & z3--z2--z27.1 & cycle;
+%
+%
+%
+
+.endchar;
+
+.cmchar "The gothic letter M";
+.beginchar("M",16.39u#,cap_height#,2u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+numeric theta; theta=-45;
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+penpos3(cap_stem,0);
+penpos4(cap_stem,0);
+penpos4''(cap_stem,0);
+z4''=(x4,y4+cap_hair);
+penpos5(2/3cap_stem,0);
+penpos7(2/3cap_stem,0);
+x1=x3=0.525w;
+x2=x4=0.86w;
+x5=x7=1/4w;
+y1=y2=y5=0.2h;
+y3=0.7h; y4=0.7h; y7=0.623h;
+penstroke z5e--z7e;
+penstroke z1e--z3e;
+penstroke z2e--z4e;
+penpos6(cap_hair,0);
+penpos6'(1.5cap_hair,0);
+penpos8(cap_hair,0);
+penpos8'(1.5cap_hair,0);
+z6'l=z5r; z6l=z6'r;
+z8'l=z7r; z8l=z8'r;
+penstroke z6e--z8e;
+penpos11(cap_hair,-90);
+z11=z3r; penpos1'(1.7cap_stem,0);
+x1'=x1; y1'=0.5y1;
+z14=(0.534w,-apex_o);
+penpos13(cap_hair,0);
+x13=0.5[x1r,x2l]; z13'=z13;
+y13=y1; penpos13'(cap_hair,90-theta);
+penpos15(cap_hair,90-theta);
+z15l=whatever[z14,z13'l];
+x15r=0.5[x13,x2l];
+z15'=whatever[z1'l,z14];
+z15'=whatever[z13'r,z15r];
+filldraw z1l{down}..z1'l{left}
+& z1'l--z14--z1'r &
+z1'r{left}..z1r{up} &
+z1r--z1l & cycle;
+filldraw z15'--z14--z15l--
+z15r--z15' & cycle;
+z13.1=whatever[z13l,z15'];
+x13.1=x1r;
+z13.2=0.5[z13.1,z13l];
+filldraw z1r{down}..
+z13.2{z15r-z15'} & z13.2--
+z14--z1'--z1r & cycle;
+y12=h+apex_o;
+z12-z11l=whatever*(z15r-z14);
+x11.1=x13r;
+z11.1-z11=whatever*(z12-z11l);
+z11.2=whatever[z11,z11.1];
+ x11.2=x13l;
+filldraw z13r--z11.1--z11.2
+--z13l--z13r & cycle;
+z11.3=0.5[z11.1,z11.2];
+z16-z12=whatever*(z4l-z11.3);
+z16-z4''r=whatever*(z12-z11l);
+penpos18(cap_hair,theta);
+z18r=whatever[z4''r,z16];
+x18r=w-apex_o;
+penpos18'(cap_hair,theta);
+z18'r=z4''r;
+penstroke z18'e--z18e;
+z11.4-z11r=whatever*(z11.3-z11);
+z11.4-z4''l=whatever*(z12-z16);
+filldraw z11r--z11.4--z4''l--
+z4''r--z16--z12--z11l--z11r &
+cycle;
+z9=(0.271w,0.8h+cap_hair);
+%z17-z9=whatever*(z12-z11l);
+y17=h+apex_o;x180=x11;
+y180=y11+cap_stem;
+z180-z17=whatever*(z16-z12);
+penpos19(cap_hair,-90);
+penpos19'(cap_hair,-60);
+x19=x19'=x17;
+y19=y19'=0.9h+cap_hair;
+z3'=z3l+(0,-3cap_hair);
+%x20=0.5[x6r,x1l];
+%y20=3/4[y8,y19];
+z20=(z8r{up}..z19'r)
+intersectionpoint
+((0,y9-cap_hair)--
+(w,y9-cap_hair));
+filldraw z8r{up}..z20
+..z19'r & z19'r--z19'l &
+z19'l..z8l{down} &
+z8l--z8r & cycle;
+filldraw z7r{up}..z19r &
+z19r--z19l & z19l--z17---z9...z7l{down}
+& z7l--z7r & cycle;
+%
+%
+%
+filldraw z3l{up}
+..z9{z9-z17}
+& z9--z17--z180--z3r--z3l
+& cycle;
+z21=(x2l,y1');
+z22-z21=whatever*(z14-z1'l);
+y22=y14;
+penpos23(cap_hair,-45);
+z23r-z22=whatever*dir45;
+x23r=w;
+filldraw z2l--z21--z22--
+z23r--z23l & z23l{z22-z23r}..
+{up}z2r & z2r--z2l & cycle;
+y24=y26=0.462h-0.4cap_stem;
+y25=y27=y24+0.8cap_stem;
+x25=x1l-0.15cap_stem;
+x27=x13r+0.6cap_stem;
+x24=x1l-0.6cap_stem;
+x26=x13r+0.15cap_stem;
+filldraw z24--z25--z27--z26--
+z24 & cycle;
+z10=(0,-d); penpos10(cap_hair,0);
+penpos30(cap_stem,-90);
+x30=x5l;
+y30r=2/3y10;
+penpos31(0.5cap_stem,-90);
+x31=0.5[x10,x5]; y31r=0;
+penstroke z10e{up}..z31e{right}..
+z5e{up};
+penstroke z10e{up}..z30e{right}
+..z6e{up};
+y33=y24; z31'=z31+(2cap_hair,0);
+z34=(z9{z9-z17}..z31'{down})
+intersectionpoint
+((0,y25)--z25);
+y32=y33-0.5cap_hair;
+x32=2cap_hair; x33=0.5[x32,x34];
+%
+%
+%
+filldraw z5l{up}..z33..z32
+& z32{up}..z34{right} &
+z34{dir80}..z9{z17-z9} & z9--z5l
+& cycle;
+filldraw z4''l--z4''r--z4r--z4l--z4''l
+& cycle;
+.endchar;
+
+.cmchar "The gothic letter N";
+.beginchar("N",12.78u#,cap_height#,2u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_hair,0); z1l=(0,-d);
+penpos2(cap_stem,0); x2=0.323w;
+y2=0.43h; y3=0.834h;
+x5=0.572w; x3=x2l;
+y5=h+apex_o; z4=whatever[z3,z5];
+x4=x2r; y6=y3; x6=0.7w;
+penpos6(cap_stem,47);
+z7=(0.753w,0.533h);
+%z8=(0.893w,0.646h);
+z8=(0.893w,0.6h);
+z8'=(0.57w,y3);
+penpos9(2/3cap_stem,-22);
+x9=0.77w; y9=y2;
+penpos10(cap_hair,-35);
+z10=(0.557w,-0.556d);
+penpos11'(1.5cap_amount,0);
+penpos11(cap_hair,0);
+z12.1=whatever[z3,z5];
+z12.2=whatever[z3,z5];
+z12.3=whatever[z3,z5];
+z11'l=(x2r,0.2h);
+z11l=z11'r;
+x12.1=x4; x12.2=x11'r;
+x12.3=x11r; z3'=(x2,y3);
+filldraw z2l--z3--z4--z2r--z2l &
+cycle; filldraw
+z5{dir-31}..z8{down}..z10r{dir234} &
+z10r--z10l & z10l{dir54}..z7{up}
+..z8'..z3' & z3'--z3--z5 & cycle;
+filldraw z11l--z12.2--z12.3--
+z11r--z11l & cycle;
+z14=(0.275w,-0.5cap_amount);
+penpos14(1.08cap_stem,-90);
+penstroke z1e{up}..z14e{right}..z11e{up};
+penpos15(2/3cap_stem,0);
+z15r=z11'l;
+penstroke z1e{up}..z15e{up}..
+z2e{up};
+penpos13(1.32cap_stem,-121);
+z13r=(x8-0.5cap_amount,-apex_o);
+penstroke z10e{dir54}..z13e{dir-30};
+penpos16(cap_hair,-31);
+z16r=whatever[z13r,z13l];
+x16r=w;
+penpos16'(cap_hair,-31);
+z16'r=z13r;
+penstroke z16'e--z16e;
+penpos20(cap_hair,-90);
+penpos21(cap_hair,-90);
+penpos22(cap_hair,-90);
+penpos23(cap_hair,-90);
+penpos24(cap_hair,-90);
+penpos25(cap_hair,-90);
+z23=(x11r,y2); x20=x23;
+x22=x25=x7;
+x21=x24=0.5[x23,x25];
+y21=y24+cap_stem; y21l=y20r;
+y24r=y23l; y25l=y24r;
+y22r=y20l;
+penstroke z20e..z21e..z22e;
+penstroke z23e..z24e..z25e;
+z26=(0.083w,0.623h);
+filldraw (x2l,0.48h){up}..z26 &
+z26{dir40}..(x2r,0.48h){down} &
+(x2r,0.48h)--(x2l,0.48h) &
+cycle;
+z27=(x26,0.47h);
+filldraw z15l{up}..z27{left} & z27{dir40}
+..z2r & z2r--z15l & cycle;
+z28=(x26+0.5cap_amount,0.265h);
+filldraw z15l{up}..z28{dir210} &
+z28{dir60}..(x15r,y28) & (x15r,y28)--
+z15l & cycle;
+.endchar;
+
+.cmchar "The gothic letter O";
+.beginchar("O",12.86u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_stem,-90);
+x1=0.6w; y1r=-apex_o;
+penpos2(0.8cap_stem,180);
+y2=0.467w; x2r=0;
+penpos7(0.8cap_stem,0); y7=0.53h;
+x7r=w; penpos5(cap_hair,0);
+z5r=z1;
+x4.1=x1-cap_hair; y4.1=h;
+z4.2=(z7r{up}..z4.1{dir158})
+intersectionpoint
+((x1,0)--(x1,h));
+z3.1=(0.0756w,0.628h);
+z3.1-z3.2=whatever*(z4.1-z4.2);
+z3.2-z4.2=whatever*(z3.1-z4.1);
+z3.3=whatever[z3.2,z4.2];
+x3.3=0.216w;
+penstroke z2e{down}..z1e{dir-16};
+filldraw z2l{up}...z3.3{z4.2-z3.3}
+---z4.2 & z4.2--z4.1 &
+z4.1---z3.1...z2r{down} &
+z2r--z2l & cycle;
+filldraw z5r--z4.2--z4.1--z5l--
+z5r & cycle;
+%
+%
+%
+penpos1'(cap_hair,-90);
+z1'r=z1;
+penpos2'(0.4cap_stem,180);
+z2'r=z2;
+penpos6(1.1cap_stem,63);
+z6r=(x4.1-cap_hair,h+apex_o);
+penpos8(cap_hair,angle(z4.2-z3.2)-90);
+z8=(0.78w,0.161h);
+filldraw z1l{dir-16}...
+z8l{z4.2-z3.2}..
+z7l{up}..z6l{left} & z6l--z6r &
+z6r..z7r{down}...
+z8r{z3.2-z4.2}..{dir-117}z1r &
+z1r--z1l & cycle;
+z10=(z2l{down}..z1l{dir-16})
+intersectionpoint ((0.3w,0)--
+(0.3w,h));
+z11-z10=whatever*(z4.1-z3.1);
+x11=x10+cap_stem;
+z12=whatever[z3.2,z4.2];
+z13=whatever[z3.2,z4.2];
+x12=x10; x13=x11;
+filldraw z10--z11--z13--z12--z10
+& cycle;
+z15'=whatever[z10,z11];
+x15'=0;
+z15=(z2r{down}..z1r{dir-16})
+intersectionpoint
+(z15'--z11);
+penpos15''(0.1cap_hair,-90);
+z15''r=z15;
+z14=(x10,0.5[y10,y2]);
+filldraw z15''l{z11-z10}..z14{up}
+& z14--z10 & z10--z15''r &
+z15''r--z15''l & cycle;
+z16=whatever[z4.1,z3.1];
+z17=whatever[z4.1,z3.1];
+y17=y6l; x16=x11;
+filldraw z6l{left}--z17 &
+z17---z16...z6r{z6r-z6l} &
+z6r--z6l & cycle;
+z11.1=whatever[z10,z11];
+x11.1=x11+2/3cap_hair;
+z11.2=(x11,y2);
+filldraw z11.2{down}..z11.1 &
+z11.1--z11--z11.2 & cycle;
+%
+% 2 grammoulec
+%
+penpos20(cap_hair,-90);
+penpos21(cap_hair,-90);
+penpos22(cap_hair,-90);
+penpos23(cap_hair,-90);
+z22r=(x1,y2); z20r=(x1,0.29h);
+z23'-z22r=whatever*(z3.2-z4.2);
+z21'-z20r=whatever*(z3.2-z4.2);
+x21'=x23'=0;
+z23''=whatever[z23',z22r];
+z21''=whatever[z21',z20r];
+x21''=x23''=w;
+z23r=(z8{z4.2-z3.2}..z7{up}..
+z6) intersectionpoint
+(z23'--z23'');
+z21r=(z8{z4.2-z3.2}..z7{up}..
+z6) intersectionpoint
+(z21'--z21'');
+penstroke z22e--z23e;
+penstroke z20e--z21e;
+.endchar;
+
+.cmchar "The gothic letter P";
+.beginchar("P",12.33u#,cap_height#,2.72u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos4(cap_stem,0);
+z4r=(0.48w,-d);
+penpos4'(0.5cap_stem,-90);
+z4'r=z4l;
+penpos6(4/3cap_amount,0);
+penpos5(cap_hair,0);
+z6l=z4r; z5l=z6r;
+penpos4''(0.5cap_stem,-90);
+z4''r=z5r;
+penpos3(cap_stem,0);
+penpos7(cap_hair,0);
+x3=x4; x7=x5;
+y3=0.8h; y7=h;
+penstroke z4e--z3e;
+penstroke z5e--z7e;
+penstroke z4'e--z4''e;
+penpos17(cap_hair,90); x17=x5r;
+y17=y3;
+y18=y17; x18=x17+1.5cap_amount;
+y16=h+apex_o; x16=0.765w;
+penpos19(1.06cap_stem,43);
+y19=y18+1/4cap_amount;
+x19=0.8w;
+penpos20(cap_stem,0);
+x20r=w; y20=0.423h;
+x15=0.9685w; y15=0.193h;
+z13=(0.8w,-apex_o);
+z14=0.5[z13,z15]+(0,3/4cap_amount);
+penpos12(0.85cap_stem,-90);
+x12=x4; y12=0.175h;
+z11=(0.23w,0.242h);
+z10=(x11-0.3cap_amount,y11-0.8cap_stem);
+penpos9(cap_hair,0);
+z9=(0.108w,0);
+penpos19.5(1.09cap_stem,22);
+x19.5=0.63[x19,x20];
+y19.5=0.433[y19,y20];
+filldraw z17r--z16 & z16..
+z19.5r..z20r..z15 & z15..z14..z13 &
+z13..z20l{dir94}..z19l{dir125}..z18..z17l &
+z17l--z17r & cycle;
+z14'=(z9l{dir82}..z11..
+z12l..z14) intersectionpoint
+(z13..z20l{dir94}..
+z19l{dir123}..z18..z17l);
+z14.5=0.5[z14',z14];
+filldraw z9l{dir82}..z11..z12l..z14.5
+& z14.5--z13 & z13..z12r..z10..
+z9r{dir262} & z9r--z9l & cycle;
+unfilldraw (x6l,0)--(x6l,y20)--
+(x6r,y20)--(x6r,0)--(x6l,0) &
+cycle;
+penpos1(cap_hair,0);
+z1l=(0,y3);
+z1'=(0.5[x1r,x3l],y1+3cap_amount);
+z2=0.5[z3r,(x3r,h+apex_o)];
+z2'=(0.266w,h);
+filldraw z1r..z1'..z3l & z3l--
+z3r--z2 & z2..z2'..z1l &
+z1l--z1r & cycle;
+penpos21(1.32cap_stem,50);
+penpos23(0.5cap_hair,-40);
+z21l=(0.063w,0.5w); z23l=z21l;
+z21.2=(x4r,y20); z21.1=(x4l,y11);
+filldraw z21.2--z21r--z21l--z23r &
+z23r{dir30}..z21.1{down} &
+z21.1--z21.2 & cycle;
+%
+%
+%
+x25=x28=x5r;
+y25=0.59h; y28=0.386h;
+penpos25(cap_hair,-90);
+penpos26(cap_hair,-90);
+penpos27(cap_hair,-90);
+penpos28(cap_hair,-90);
+penpos29(cap_hair,-90);
+penpos30(cap_hair,-90);
+x30=x20l+apex_o;
+y30l=y28r;
+y25l=y27r; x27=x30;
+x26=x29=0.5[x25,x27];
+y26l=y25r; y29r=y28l;
+penstroke z25e..z26e..z27e;
+penstroke z28e..z29e..z30e;
+.endchar;
+
+
+.cmchar "The gothic letter Q";
+.beginchar("Q",12.86u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_stem,-90);
+x1=0.6w; y1r=-apex_o;
+penpos2(0.8cap_stem,180);
+y2=0.467w; x2r=0;
+penpos7(0.8cap_stem,0); y7=0.53h;
+x7r=w; penpos5(cap_hair,0);
+z5r=z1;
+x4.1=x1-cap_hair; y4.1=h;
+z4.2=(z7r{up}..z4.1{dir158})
+intersectionpoint
+((x1,0)--(x1,h));
+z3.1=(0.0756w,0.628h);
+z3.1-z3.2=whatever*(z4.1-z4.2);
+z3.2-z4.2=whatever*(z3.1-z4.1);
+z3.3=whatever[z3.2,z4.2];
+x3.3=0.216w;
+penstroke z2e{down}..z1e{dir-16};
+filldraw z2l{up}...z3.3{z4.2-z3.3}
+---z4.2 & z4.2--z4.1 &
+z4.1---z3.1...z2r{down} &
+z2r--z2l & cycle;
+filldraw z5r--z4.2--z4.1--z5l--
+z5r & cycle;
+%
+%
+%
+penpos1'(cap_hair,-90);
+z1'r=z1;
+penpos2'(0.4cap_stem,180);
+z2'r=z2;
+penpos6(1.1cap_stem,63);
+z6r=(x4.1-cap_hair,h+apex_o);
+penpos8(cap_hair,angle(z4.2-z3.2)-90);
+z8=(0.78w,0.161h);
+filldraw z1l{dir-16}...
+z8l{z4.2-z3.2}..
+z7l{up}..z6l{left} & z6l--z6r &
+z6r..z7r{down}...
+z8r{z3.2-z4.2}..{dir-117}z1r &
+z1r--z1l & cycle;
+z10=(z2l{down}..z1l{dir-16})
+intersectionpoint ((0.3w,0)--
+(0.3w,h));
+z11-z10=whatever*(z4.1-z3.1);
+x11=x10+cap_stem;
+z12=whatever[z3.2,z4.2];
+z13=whatever[z3.2,z4.2];
+x12=x10; x13=x11;
+filldraw z10--z11--z13--z12--z10
+& cycle;
+z15'=whatever[z10,z11];
+x15'=0;
+z15=(z2r{down}..z1r{dir-16})
+intersectionpoint
+(z15'--z11);
+penpos15''(0.1cap_hair,-90);
+z15''r=z15;
+z14=(x10,0.5[y10,y2]);
+filldraw z15''l{z11-z10}..z14{up}
+& z14--z10 & z10--z15''r &
+z15''r--z15''l & cycle;
+z16=whatever[z4.1,z3.1];
+z17=whatever[z4.1,z3.1];
+y17=y6l; x16=x11;
+filldraw z6l{left}--z17 &
+z17---z16...z6r{z6r-z6l} &
+z6r--z6l & cycle;
+z11.1=whatever[z10,z11];
+x11.1=x11+2/3cap_hair;
+z11.2=(x11,y2);
+filldraw z11.2{down}..z11.1 &
+z11.1--z11--z11.2 & cycle;
+%
+% 2 grammoulec
+%
+penpos20(cap_hair,-90);
+penpos21(cap_hair,-90);
+penpos22(cap_hair,-90);
+penpos23(cap_hair,-90);
+z22r=(x1,y2); z20r=(x1,0.29h);
+z23'-z22r=whatever*(z3.2-z4.2);
+z21'-z20r=whatever*(z3.2-z4.2);
+x21'=x23'=0;
+z23''=whatever[z23',z22r];
+z21''=whatever[z21',z20r];
+x21''=x23''=w;
+z23r=(z8{z4.2-z3.2}..z7{up}..
+z6) intersectionpoint
+(z23'--z23'');
+z21r=(z8{z4.2-z3.2}..z7{up}..
+z6) intersectionpoint
+(z21'--z21'');
+penstroke z22e--z23e;
+penstroke z20e--z21e;
+%
+% Q
+%
+z33=(x7l-cap_hair,-apex_o);
+z34-z33=whatever*dir45;
+x34=w;
+penpos33'(cap_stem,angle(z34-z33));
+z33'l=z33;
+z33-z33''=whatever*dir-50;
+x33''=0;
+z33'r-z33.1''=whatever*(z33-z33'');
+x33.1''=0;
+z30=(z1..z8..z7{up})
+intersectionpoint (z33''--z33);
+z31=(z1..z8..z7{up})
+intersectionpoint (z33.1''--z33'r);
+filldraw z30--z31--z33'r--z33--
+z30 & cycle;
+penpos35(cap_hair,-90);
+z35r=z34;
+filldraw z31{z33'r-z31}..z35l{
+z34-z33} & z35l--z35r & z35r--
+z33 & z33--z31 & cycle;
+z100=(z1r{dir63}..z33{z33-z30})
+intersectionpoint
+(0.5[z1r,z33]--(0.5[x1r,x33],h));
+filldraw z1..
+%z100+(0,0.5cap_hair)..
+z33{z33-z30} & z33--z30--z1
+ & cycle;
+.endchar;
+
+.cmchar "The gothic letter R";
+.beginchar("R",10.72u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+2.05u#);
+x1=x2=0.39w; y2=0.85h;
+y1=y7=y18=1/6h;
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+penstroke z1e--z2e;
+penpos3(cap_hair,0);
+penpos2'(cap_stem,180); z2'=z2;
+x3l=0; y3=y2;
+x3.5=0.5[x3,x2];
+penpos3.5(0.5[cap_hair,cap_stem],
+-90); y3.5l=h+apex_o;
+penstroke z3e{dir60}...z3.5e...
+z2'e{down};
+penpos4(1.2cap_hair,-90);
+penpos9(1.2cap_hair,-90);
+x4=x3r;
+y4r=0.56h;
+y9l=y12.2-2cap_hair=0.5h;
+z4.1-z4l=whatever*(z2r-z4r);
+y4.1=y2;
+filldraw z4r--z2r--z4.1--z4l--z4r &
+cycle;
+penpos5(1.2cap_hair,-90); z5l=z2r;
+penpos6(whatever,angle(z2r-z4r)-90);
+z6l=whatever[z4r,z5l];
+z6r-z5r=whatever*(z5l-z4r);
+y6l=h+apex_o;
+filldraw z5l--z6l--z6r--z5r--z5l
+& cycle;
+x7=0.54w; penpos7(0.9cap_hair,0);
+z8.1=whatever[z4r,z6l];
+x8.1=x7l; x8.2=x7r;
+z8.2=whatever[z4r,z6l];
+filldraw z7r--z8.2--z8.1--z7l--z7r
+& cycle;
+penpos11(1.118cap_stem,
+angle(z6l-z4r));
+z11=whatever[z4r,z6l]; x11r=x6l;
+x9l=x7l;
+z10.1-z6=whatever*(z6r-z6l);
+z10.1-z9l=whatever*(z6l-z4r+(0,1/3cap_stem));
+z10.4=whatever[z9l,z10.1];
+z10.4-z11l=whatever*(z10.1-z6);
+filldraw z10.4--z11l--z11r--z10.1
+--z10.4 & cycle;
+z10.2-z9r=whatever*(z10.1-z9l);
+z10.2=whatever[z6,z10.1];
+z12.1=whatever[z9r,z10.2];
+z12.1=whatever[z11l,z10.4];
+filldraw z9l--z10.1--z10.2--z9r
+--z9l & cycle;
+x12.2=w;
+z12.4=(x7l,y9l);
+x12.2-x12.3=1.2cap_stem;
+z12.3-z12.4=whatever*(z12.2-z12.1);
+x1.1=x1l; y1.1=0.247h;
+x13.2=x1l; y13.2=0.56h;
+z13.1-z13.2=
+whatever*dir(angle(z6l-z4r)+100);
+z13.1=whatever[z4r,z5l];
+filldraw z4l{dir-30}...z1.1{down}
+& z1.1--z13.2--z13.1--z4l &
+cycle;
+unfill z4l{dir-30}...z1.1{down}
+& z1.1--(x4l,y1.1)--z4l &
+cycle;
+z15=(0,-apex_o); z17=(0.73w,-apex_o);
+x18=w; z19=(x12.3,y18);
+%
+%
+%
+penpos40(1.09cap_stem,-114);
+z40r=(x7r+0.5cap_stem,-apex_o);
+filldraw z15{dir80}%...{right}(x1,y1.1)
+...z40l{dir-24} &
+z40l--z40r & z40r{dir156}...
+z15{dir225} & cycle;
+penpos41(cap_hair,-24);
+penpos41'(0.5cap_stem,-114);
+z41'r=z40l; z41r=z41'l;
+penpos40'(cap_hair,-24);
+z40'r=z40;
+penstroke z40'e--z41e;
+x18.2=x18.1=x12.3+cap_stem;
+y18.2=7/8[y18,y12.2];
+y18.1=1/8[y18,y12.2];
+z101=0.5[z9r,z10.2];
+z104=(1.09w,1.1176cap_stem);
+penpos105(cap_hair,-37);
+z105r=(1.192w,0.193h);
+z106=(w,-apex_o);
+z107=whatever[z106,z40l];
+x107=x106-0.44cap_stem;
+penpos103(0.9cap_stem,-157);
+penpos102(cap_stem,-138);
+z102l=z101+(0.6cap_amount,-0.7cap_amount);
+z103l=(w+1.1cap_hair,0.18h);
+z100=whatever[z9r,z101];
+x100=x7r;
+filldraw z101..z102l..z103l..
+z104..z105l{dir52} &
+z105l--z105r & z105r--z106 &
+z106---z107...%z103r---
+z102r{dir(angle(z102l-z102r)+90)}
+...z100 & z100--
+z100+(0,0.3cap_amount)--z101 & cycle;
+.endchar;
+
+.cmchar "The gothic letter S";
+.beginchar("S",12.28u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(1.32cap_stem,44);
+penpos2(cap_stem,70);
+penpos2'(0.82cap_stem,90);
+penpos3(cap_hair,-16);
+penpos4(0.5cap_stem,180);
+penpos5(cap_hair,-90);
+penpos6(1.3cap_hair,-24);
+penpos7(1.148cap_stem,50);
+penpos8(0.975cap_stem,90);
+penpos9(1.1cap_stem,90);
+penpos10(0.56cap_stem,0);
+penpos11(cap_hair,-39);
+penpos12(cap_hair,-46);
+penpos13(0.65cap_stem,0);
+penpos14(cap_stem,90);
+penpos15(1.07cap_stem,90);
+penpos16(0.56cap_stem,0);
+penpos3'(cap_hair,-16);
+penpos20(cap_stem,-106);
+penpos19(1.2cap_hair,-50);
+x1=0.718w; x2=0.55w; x3=0.367w;
+x2'=0.252w; x4r=0;
+x5=0.164w; x6=0.725w;
+x7=0.734w; x8=x1l; x9=x2';
+x10=x4l; x11r=x5; z12r=z1;
+x13r=w; x14=x1r-1/4cap_amount;
+x15=0.302w; x16=x10r; x17=x10;
+ x18=x15; x20=0.595w;
+z3'-z3=whatever*dir74;
+y3'l=h+apex_o;
+y1l=-apex_o; y2=0.114h;
+y3=0.143h; y2'=0.157h;
+y4=0.027h; y5=-0.067h; y6=0.211h;
+y7=0.374h; y8r=0.462h;
+y9=0.365h; y10=0.52h;
+y11=0.659h; y13=y10; y14=0.652h;
+y15=0.628h; y16=0.789h;
+y17=0.839h;
+z19l=0.285[z17,z18];
+y18=h+apex_o; y20=y19;
+penpos5'(cap_hair,-66);
+z5'=(0.5w,0);
+penstroke z3e--z3'e;
+penstroke z1e{dir141}..z2'e..z4e..
+z5e{right}..z5'e..z6e{dir66}..z7e..z8e{left}..z9e..z10e..
+z11e{dir51};
+filldraw z1--z1r{z1r-z1l}...z13r{up}..
+z14r{left}..z15r..z16r..%z19r..
+z20r{z20l-z18} & z20r--z20l--z18
+& z18---z17...z16l{down}..
+z15l{right}..z14l{right}..
+z13l..z12l{z1l-z1r} &
+z12l--z1 & cycle;
+.endchar;
+
+.cmchar "The gothic letter T";
+.beginchar("T",12.82u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_hair,121);
+penpos3(cap_stem,211);
+penpos5(cap_hair,-45);
+x3l=0.288w; x1=0.455w; x5r=w-0.6cap_amount;
+y1=0.9h; y3l=0.324h; y5=0.277h;
+z4=(0.613w,-apex_o);
+filldraw z1r..z3r..
+{dir-15}z4 & z4{dir25}..z5r &
+z5r--z5l & z5l..z3l..z1l &
+z1l--z1r & cycle;
+penpos6(cap_hair,0);
+penpos7(cap_stem,-90);
+penpos8(0.853cap_stem,-90);
+penpos9(cap_hair,-35);
+x6l=0; x9=w; x7=0.347w;
+x8=0.779w;
+y6=0.7h; y7l=h+apex_o;
+y8l=0.915h; y9=h-cap_amount;
+penstroke z6e{up}..z7e..z8e..z9e;
+%
+%
+%
+penpos10(cap_hair,0);
+penpos10'(cap_hair,0);
+x10l=x10'l=0.64w;
+z10'=whatever[z7,z8];
+y10=0.5cap_stem;
+penstroke z10e--z10'e;
+%
+%
+%
+z20=(z6r{up}..z7r..z8r..z9r)
+intersectionpoint
+(z5l..z3l..z1l);
+penpos11(cap_stem,0);
+penpos12(cap_stem,0);
+y11=0.44h;
+x11l=x12l=x20;
+z12=whatever[z7,z8];
+z21=(z1..z3..z5)
+intersectionpoint
+((0.3w,0)--(0.3w,y11));
+penpos21(1.2cap_hair,-50);
+penstroke z21e{dir40}..z11e{up}
+--z12e;
+.endchar;
+
+.cmchar "The gothic letter U";
+.beginchar("U",13.72u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_hair,90);
+penpos4(cap_hair,-90);
+z2=(0.053w,0.404h);
+z2'=(x2+cap_stem,0.462h);
+z3=(0.409w,-apex_o);
+z3'=(x3,0.123h);
+z1=(0.555w,0.888h);
+z4=(0.735w,0.215h);
+filldraw z1r{left}..z2..z3{dir-18}
+& z3--z4r--z4l &
+z4l{dir209}..z3'..z2'..z1l{right}
+& z1l--z1r & cycle;
+%
+%
+%
+penpos5(cap_hair,0);
+penpos6(cap_hair,0);
+z5r=whatever[z3,z4r];
+x5r=x1; z6=(x5,h+apex_o);
+penstroke z5e--z6e;
+%
+%
+%
+z7=(z1{left}..0.5[z2,z2']..
+0.5[z3,z3']..z4)
+intersectionpoint
+((0.255w,0)--(0.255w,y2));
+penpos7(cap_hair,-50);
+penpos8(cap_stem,0);
+y8=0.561h; x8r=x5l-cap_amount;
+penpos9(cap_hair,-43);
+y9=0.928h; x9=x5;
+penstroke z7e{dir41}..z8e{up}
+..z9e{dir48};
+%
+%
+%
+x10=0; y10=0.673h;
+penpos10(cap_hair,0);
+penpos11(cap_stem,-90);
+x11=0.19w; y11l=h+apex_o;
+penpos12(0.588cap_stem,-90);
+z12=(0.457w,0.906h);
+penstroke z10e{up}..z11e{right}..
+z12e..z6e{up};
+%
+%
+%
+penpos20(cap_stem,0);
+penpos21(cap_stem,0);
+z20l=z4l;
+z21=(x20,0.841h);
+penstroke z20e--z21e;
+%
+%
+%
+z25=(x20l,0.405y20);
+z26=(x25+0.824cap_stem,-apex_o);
+penpos27(cap_hair,-45);
+z27r-z26=whatever*dir47;
+x27r=w;
+filldraw z20l--z25--z26--z27r--
+z27l & z27l{z26-z27}..{up}z20r
+& z20r--z20l & cycle;
+%
+%
+%
+penpos24(cap_hair,145);
+z24=(0.291[x5r,x20l],0.789h);
+z23=(x20l,h+apex_o);
+z22=z21r+(0.6cap_hair,cap_hair);
+filldraw z21l{up}..z24l{z24r-z23}
+& z24l--z24r--z23--z22 &
+z22..{down}z21r & z21r--z21l
+& cycle;
+%
+%
+%
+z250=(x1,0.574h);
+z270=(x1,0.413h);
+z260=(x20l,y250);
+z280=(x20l,y270);
+penpos250(cap_hair,-90);
+penpos260(cap_hair,-90);
+penpos270(cap_hair,-90);
+penpos280(cap_hair,-90);
+penpos290(cap_hair,-90);
+penpos300(cap_hair,-90);
+x290=x300=0.5[x250,x260];
+y290l=y250r; y300r=y270l;
+penstroke z250e..z290e..z260e;
+penstroke z270e..z300e..z280e;
+.endchar;
+
+.cmchar "The gothic letter V";
+.beginchar("V",15.44u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_hair,0);
+penpos2(0.765cap_stem,-90);
+penpos4(cap_hair,-100);
+x1=0; y1=y3=0.83h; y2l=h+apex_o;
+x2=0.094w; x3=0.205w;
+h-y3'=0.4cap_stem; x3'=0.288w;
+y4l=h; x4=0.549w;
+filldraw z1r{up}..z2r..z3..
+z4r{dir-13} & z4r--z4l &
+z4l{dir167}..z3'..z2l..z1l{down}
+& z1l--z1r & cycle;
+%
+%
+%
+penpos5(cap_hair,-90);
+penpos6(1.118cap_stem,20);
+penpos7(0.882cap_stem,0);
+y5r=0; x5=0.197w; y6=0.516h;
+x6=1/3w; z7=(0.3w,0.744h);
+penstroke z5e{right}..z6e..z7e
+..z4e{dir-13};
+%
+%
+%
+penpos8(cap_hair,-90); x8=x6;
+y8=0; z9=(0.78w,0.657h);
+z9'=(x9+1.5cap_hair,y9);
+z10=(0.586w,h-1.06cap_stem);
+z11=(0.545[x10,x9],h);
+z13=(w,y10-0.5cap_amount);
+z12=(0.5[x9',w],h-0.6cap_amount);
+z10'=(0.345[x10,x9],y10+0.7cap_amount);
+filldraw z5r..z8r..z9'{up}..
+z11{left}..z10{down} &
+z10{dir27}..z10'{right}..z9{down}..z8l..z5l
+& z5l--z5r & cycle;
+filldraw z9{up}..z12{right}..z13{down}
+& z13{dir146}..z9'{down} & z9'--z9 &
+cycle;
+%
+%
+%
+penpos14(cap_hair,0);
+penpos15(cap_hair,18);
+penpos16(cap_hair,0);
+z14l=(0.46w,0.408h);
+z15l=(0.432w,0.628h);
+z16l=(0.387w,0.87h);
+penstroke z5e{right}..z14e{up}..
+z15e..z16e{up}..z4e{dir-13};
+%
+%
+%
+x17=0.152[x14r,x9];
+x18=0.405[x14r,x9];
+y17=0.691h; y18=0.556h;
+filldraw z15{z15r-z15l}..z17{right}
+..z18{dir241} & z18{dir152}..
+z14r{down} & z14r--z14..z15 &
+cycle;
+.endchar;
+
+.cmchar "The gothic letter W";
+.beginchar("W",14.556u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(1.2cap_hair,-42.5);
+penpos2(cap_stem,0);
+penpos3(cap_hair,180);
+y1l=0; x3=0; y3=y2=0.7h;
+x2r=0.349w; x1l=0.05w;
+z2'=(0.143w,0.897h);
+penpos2'(cap_stem,60);
+penstroke z1e{dir47.5}..z2e{up}..z2'e..
+z3e{down};
+%
+%
+%
+penpos4(cap_hair,-34);
+penpos5(1.06cap_stem,0);
+penpos6(1.4cap_stem,35);
+z4r=(0.42w,0); z6r=(0.6w,h+apex_o);
+z5r=(0.672w,0.632h);
+penstroke z4e{dir56}..z5e{up}..z6e{dir125};
+%
+%
+%
+penpos7(cap_hair,-44);
+penpos8(1.06cap_stem,0);
+penpos9(1.4cap_stem,35);
+y7r=0; x8r=w; y9r=h+apex_o;
+x7r=0.626w; y8=0.655h; x9r=w-0.4cap_stem;
+penstroke z7e{dir46}..z8e{up}..
+z9e{dir125};
+%
+%
+%
+z10'=(x2r,0.161h);
+z10=(z1l{dir47.5}..z10'..z7r)
+intersectionpoint
+(z4{dir56}..z5{up});
+filldraw z1r{dir47.5}..z4r{z4r-z4l}
+& z4r--z10 & z10..z10'..
+z1l{dir227.5} & z1l--z1r &
+cycle;
+%
+%
+%
+z11'=(x5r,0.175h);
+z11.1=(0.935w,0);
+z11=(z7{dir46}..z8{up})
+intersectionpoint (z4l{dir56}..
+z11'..z11.1);
+filldraw z4r{dir56}..z7r{z7r-z7l}
+& z7r--z11 & z11..z11'..
+z4l{dir236} & z4l--z4r & cycle;
+%
+%
+%
+penpos6.1(cap_hair,-55);
+penpos6.2(cap_hair,-55);
+penpos9.1(cap_hair,-55);
+penpos9.2(cap_hair,-55);
+z6.1l=z6; z9.1l=z9;
+z6.2l=whatever[z6l,z6r];
+z9.2l=whatever[z9l,z9r];
+x6.2=x2; x9.2=x5;
+penstroke z6.2e--z6.1e;
+penstroke z9.2e--z9.1e;
+%
+%
+%
+penpos100(cap_hair,-90);
+penpos110(cap_hair,-90);
+penpos120(cap_hair,-90);
+penpos130(cap_hair,-90);
+penpos140(cap_hair,-90);
+penpos150(cap_hair,-90);
+penpos160(cap_hair,-90);
+penpos170(cap_hair,-90);
+penpos180(cap_hair,-90);
+penpos190(cap_hair,-90);
+penpos200(cap_hair,-90);
+x100=x2; y100=0.677h; z120=z5;
+y110l=y120-cap_amount;
+x110=0.47[x100,x120];
+y130=y110; y140=y120; x140=x8;
+x130=0.47[x120,x140];
+penstroke z100e..z110e..z120e;
+penstroke z120e..z130e..z140e;
+%
+z150=(x2l,0.309h);
+y170l=y180r=y150;
+x170=x180=x6.1r;
+z200=((0,y180r)--(w,y180r))
+intersectionpoint
+(z7{dir46}..z8{up});
+y190=y160=y180l+cap_hair;
+x160=0.536[x150,x170];
+x190=0.532[x180,x200];
+penstroke z150e..z160e..z170e;
+penstroke z170e..z190e..z200e;
+%
+%
+%
+z21=(x3l,0.404h);
+z20=(x1r,y21+0.5cap_amount);
+z22=(0.095w,0.552h);
+filldraw z1l{dir47.5}..z20{left}
+..z21 & z21{up}..z22{right}..
+z1r{dir227.5} & z1r--z1l & cycle;
+.endchar;
+
+.cmchar "The gothic letter X";
+.beginchar("X",8.556u#,cap_height#,1.11u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+z1=(0.442w,0.202h);
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+x2=x1; y2=0.843h;
+penstroke z1e--z2e;
+z3=(0,-d); penpos3(0.5cap_hair,-45);
+z4=(x1l,0.108h);
+z5=(0.61w,-apex_o);
+penpos6(cap_hair,-45);
+z6r-z5=whatever*(z4-z3r);
+x6r=w-cap_amount;
+z5'-z6l=whatever*(z5-z6r);
+z5'=whatever[z4,z5];
+z7-z1r=whatever*(z5-z4);
+z7=whatever[z5',z6l];
+filldraw z3r--z4--z5--z6r--
+z6l--z7--z1r--z1l--z3l--z3r
+& cycle;
+%
+%
+%
+penpos8(cap_hair,-34);
+x8=cap_amount; y8=0.74h;
+z9=(x2l-0.5cap_hair,h+apex_o);
+z9'=whatever[z9,z2r];
+z9'-z8r=whatever*(z9-z8l);
+penpos9.5(1.1cap_stem,angle(z9'-z8r));
+z9.5r=z9';
+z10=z9.5l;
+z10'-z10=whatever*(z2r-z9);
+x10'=x2l;
+filldraw z8l--z9--z2r--z10'--
+z10--z8r--z8l & cycle;
+%
+%
+%
+penpos11(cap_hair,-49);
+penpos11'(cap_hair,-49);
+penpos12(1.176cap_stem,-145);
+penpos13(1.176cap_stem,-145);
+x11=x2; y11=0.717h;
+z11'l=z2r;
+z12.5=whatever[z11l,z11'l];
+y12.5=h+apex_o;
+z13l=(w,y2);
+z12l=0.5[z12.5,z13l];
+z12.3=0.3[z12.5,z13l];
+z12.1=whatever[z11l,z12.5];
+y12.1=y12.3;
+filldraw z11l--z11'l---z12.1...
+z12.3---z12l--z13l & z13l--z13r
+& z13r---z12r...z11'r---z11r &
+z11r--z11l & cycle;
+%
+%
+%
+z4.1=whatever[z3r,z4];
+z4.2=whatever[z4,z5];
+y4.1=y4.2=0.5y4;
+filldraw z4.1{z4-z3r}..
+z4.2{z5-z4} & z4.2--z4--z4.1 &
+cycle;
+%
+%
+%
+penpos14(1.4cap_hair,-90);
+penpos15(1.4cap_hair,-90);
+penpos16(1.4cap_hair,-90);
+penpos17(1.4cap_hair,-90);
+penpos14'(1.4cap_amount,-90);
+x14=x16=x8; x15=x17=x13;
+x14'=0;
+y14'=0.475h;
+y14r=y15r=y14'l;
+y16l=y17l=y14'r;
+penstroke z14e--z15e;
+penstroke z16e--z17e;
+.endchar;
+
+.cmchar "The gothic letter Y";
+.beginchar("Y",9.167u#,cap_height#,4/3u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_stem,0);
+penpos4(cap_hair,0);
+penpos5(cap_hair,90);
+penpos6(cap_hair,130);
+penpos7(cap_hair,90);
+penpos8(cap_hair,0);
+penpos9(cap_hair,-90);
+x1=0.285w; y1=0.8h;%762
+z2=(x1l,0.535y1);
+z4l=(0,0.045h);
+z3=(0.5x2,0.629[y2,y4]);
+y5l=-d; x5=0.218w;
+z6l=(0.491w,0);
+z7=(0.679w,0.1h);
+z8=(0.788w,0.5y4);
+z9r=(0.63w,-d);
+z9'=(x9,y9r+2cap_hair);
+z11=(w,0.283h);
+z12=z11+(0,1.2cap_hair);
+z10=(x2,0.12h);
+z12-z13=whatever*(z11-z10);
+x13=x1r;
+z12'=whatever[z12,z13];
+x12'=x11-cap_hair;
+filldraw z9'..z9r..z9'..cycle;
+filldraw z9r{right}..z8r..z7r..
+z6r..z5r..z4r{up}...z10---z11 &
+z11--z12'--z13--z1r--z1l---
+z2...z3...z4l{down}..z5l..z6l..
+z7l..z8l..z9l{left} &
+z9l--z9r & cycle;
+%
+%
+%
+z17=(0.788w,h+apex_o);
+z14=(0,0.9h);%avant:848
+y15=h+apex_o;
+z15-z14=whatever*(z17-z1r);
+z16=whatever[z1r,z17];
+x16=x1r+2cap_amount;
+z18-z17=whatever*(z16-z15);
+x18=w; penpos18'(cap_stem,0);
+x18'r=w-cap_amount;
+y18'=y18;
+z19=whatever[z12,z13];
+z19''=whatever[z12,z13];
+x19''=x18'r;
+x19=x18'l;
+filldraw z19--z18'l--z18'r--
+z19''--z19 & cycle;
+penpos15'(cap_hair,angle(z15-z14));
+z15'r=z15;
+z15.1-z15'l=whatever*(z16-z15);
+x15.1=x13.2=x16+cap_hair;
+z15.2=whatever[z15,z16];
+x15.2=x15.1;
+filldraw z15.1--z15'l--z15'r--
+z15.2--z15.1 & cycle;
+filldraw z14--z15--z16--z1r--
+z1l & z1l{up}..{left}z14 &
+cycle;
+x13.1=x16; z13.1=whatever[z13,z12];
+z13.2=whatever[z13,z12];
+z16'=whatever[z16,z17]; x16'=x13.2;
+filldraw z13.1--z16--z16'--z13.2
+--z13.1 & cycle;
+%
+%
+%
+penpos20(1.1cap_stem,angle(z17-z16));
+z20r=z17;
+z21-z20l=whatever*(z18-z17);
+x21=x19;
+penpos17'(cap_hair,angle(z18-z17));
+z17'l=z17;
+z16''-z17'r=whatever*(z16-z17);
+x16''=x16;
+filldraw z16--z17--z17'r--z16''
+--z16 & cycle;
+filldraw z20r--z18 & z18..
+{down}(x19'',y18-0.5cap_stem) &
+(x19'',y18-0.5cap_stem)--z18'r--
+z18'l--z21--z20l--z20r & cycle;
+z11.5=whatever[z10,z11];
+x11.5=x19;
+filldraw z11..{up}
+(x19'',y11+0.5cap_stem)
+& (x19'',y11+0.5cap_stem)--
+z19''--z19--z11.5--
+z11 & cycle;
+%
+%
+%
+x31=x33=x19; x30=x32=x13.2;
+x35=x37=x2; x34=x36=-apex_o;
+penpos30(cap_hair,-90);
+penpos31(cap_hair,-90);
+penpos32(cap_hair,-90);
+penpos33(cap_hair,-90);
+penpos34(0.5cap_hair,-90);
+penpos36(0.5cap_hair,-90);
+penpos35(0.647cap_stem,-90);
+penpos37(0.647cap_stem,-90);
+y31=0.3[y18,y19];
+y33=0.6[y18,y19];
+z31-z30=whatever*dir20;
+z33-z32=whatever*dir20;
+y34=y35=0.5[y30,y31];
+y36=y37=0.5[y32,y33];
+penstroke z30e--z31e;
+penstroke z32e--z33e;
+penstroke z34e--z35e;
+penstroke z36e--z37e;
+.endchar;
+
+.cmchar "The gothic letter Z";
+.beginchar("Z",10.667u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(1.414cap_hair,-90);
+penpos2(1.414cap_hair,-90);
+penpos3(1.414cap_hair,-90);
+penpos4(1.414cap_hair,-90);
+penpos5(1.414cap_hair,-90);
+penpos6(1.414cap_hair,-90);
+x1=x2=x5=cap_amount;
+x3=x4=x6=w;
+y2r=-apex_o;
+y5r=y2l; y1r=y5l;
+y3l=h+apex_o; y6l=y3r; y4l=y6r;
+penstroke z1e--z3e;
+penstroke z2e--z4e;
+%
+%
+%
+z7=(0.281w,0.076h);
+z8=(0.505w,0.22h);
+z9=(0.708w,-apex_o);
+z10=(0.839w,0.103h);
+penpos11(cap_hair,0);
+x11r=w; y11=0.224h;
+penpos12(0.91cap_stem,0);
+z12r=z11r;
+filldraw z2r{z4-z2}..z7..z9..
+z11r{up}
+& z11r--z11l & z11l{down}..z10
+..z8..z2l{z2-z4} & z2l--z2r &
+cycle;
+filldraw z12r..z12l..z12r..cycle;
+%
+%
+%
+y17=y14=0.673h;
+penpos14(cap_hair,180);
+penpos15(0.88cap_stem,0);
+penpos16(cap_hair,90);
+penpos17(cap_hair,0);
+x14=0.297w;
+x17l=0; z15r=z14l;
+filldraw z15r..z15l..z15r..cycle;
+x16=0.148w; y16=0.565h;
+z18=(0.255w,0.843h);
+z19=(0.349w,h+apex_o);
+z20=(0.656w,0.758h);
+z21=(0.781w,0.892h);
+filldraw z14r{down}..z16r..z17r
+..z18..z20..z3r{z3-z1} & z3r--z3l
+& z3l{z1-z3}..z21..z19..z17l..
+z16l..z14l{up} & z14l--z14r &
+cycle;
+.endchar;
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinit.mf b/Master/texmf-dist/fonts/source/public/gothic/yinit.mf
new file mode 100644
index 00000000000..516afda9a31
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinit.mf
@@ -0,0 +1,110 @@
+% This is CMR10.MF in text format, as of Mar 31, 1986.
+% Computer Modern Roman 10 point
+if unknown cmbase: input cmbase fi
+input yintbase % -sl 15-3-1991
+
+font_identifier:="CMR"; font_size 10pt#;
+
+u#:=160/36pt#;
+v#:=160/36pt#;
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=40/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=40pt#; % height of tallest characters
+asc_height#:=40pt#; % height of lowercase ascenders
+cap_height#:=40pt#; % height of caps
+fig_height#:=40pt#; % height of numerals
+x_height#:=800/36pt#; % height of lowercase without ascenders
+math_axis#:=720/36pt#; % axis of symmetry for math symbols
+bar_height#:=320/36pt#; % height of crossbar in lowercase e
+comma_depth#:=560/36pt#; % depth of comma below baseline
+desc_depth#:=560/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=32/36pt#; % diameter of rounded corners
+fine#:=28/36pt#; % diameter of sharply rounded corners
+thin_join#:=28/36pt#; % width of extrafine details
+numeric m; m:=1;
+hair#:=2/36u#;
+stem#:=200/36pt#; % lowercase stem breadth
+curve#:=240/36pt#; % lowercase curve breadth
+ess#:=216/36pt#; % breadth in middle of lowercase s
+flare#:=264/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=288/36pt#; % diameter of dots
+cap_hair#:=88/36pt#; % uppercase hairline breadth
+cap_stem#:=256/36pt#; % uppercase stem breadth
+cap_curve#:=296/36pt#; % uppercase curve breadth
+cap_ess#:=280/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=1.6pt#; % thickness of lines in math symbols
+
+dish#:=8/36pt#; % amount erased at top or bottom of serifs
+bracket#:=160/36pt#; % vertical distance from serif base to tangent
+jut#:=224/36pt#; % protrusion of lowercase serifs
+cap_jut#:=296/36pt#; % protrusion of uppercase serifs
+beak_jut#:=80/36pt#; % horizontal protrusion of beak serifs
+beak#:=560/36pt#; % vertical protrusion of beak serifs
+vair#:=64/36pt#; % vertical diameter of hairlines
+notch_cut#:=80pt#; % maximum breadth above or below notches
+bar#:=88/36pt#; % lowercase bar thickness
+slab#:=88/36pt#; % serif and arm thickness
+cap_bar#:=88/36pt#; % uppercase bar thickness
+cap_band#:=88/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=80pt#; % max breadth above/below uppercase notches
+serif_drop#:=32/36pt#; % vertical drop of sloped serifs
+stem_corr#:=8/36pt#; % for small refinements of stem breadth
+vair_corr#:=8/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=64/36pt#; % amount of overshoot for curves
+apex_o#:=64/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+mode_setup;
+font_setup;
+u:=160/36pt;
+v:=160/36pt; uv:=u;
+boolean zero_depth;
+zero_depth:=true;
+%readfrom("yinitbase"); % -sl 15-3-1991
+generate yinitA;
+generate yinitB;
+generate yinitC;
+generate yinitD;
+generate yinitE;
+generate yinitF;
+generate yinitG;
+generate yinitH;
+generate yinitJ;
+generate yinitK;
+generate yinitL;
+generate yinitM;
+generate yinitN;
+generate yinitO;
+generate yinitP;
+generate yinitQ;
+generate yinitR;
+generate yinitS;
+generate yinitT;
+generate yinitU;
+generate yinitV;
+generate yinitW;
+generate yinitX;
+generate yinitY;
+generate yinitZ;
+end.
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitA.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitA.mf
new file mode 100644
index 00000000000..533331665c2
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitA.mf
@@ -0,0 +1,139 @@
+.cmchar "The letter A";
+.beginchar("A",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+penpos1(hair,90); penpos1'(hair,-270); penpos2(hair,0); penpos3(hair,-40);
+penpos4(hair,-40); penpos7(1.5hair,180); penpos8(hair,-135); penpos13(hair,-62);
+z1=(.3u,-.2v); z2=(0,.2v); z3=(.5u,v); z4=(1.35u,1.75v); z5=(1.45u,2.4v);
+z6=(.9u,2.8v); z7=(0,2.1v); z8=z3; z9=(1.7u,.5v); z10=(3.3u,1.25v);
+z11=(4.1u,2.9v); z12=(4.1u,4.8v); z13=(4.9u,7.2v); z14=(3.4u,5v); z15=(3.5u,3v);
+z16=(3u,1.45v); z17=z9+(0,vround(1.5hair)); z32=(.1u,2v); z31=(1.3u,3.15v);
+z30=(2.2u,2.7v); z29=(2.6u,2.7v); z1'=(.5[x2,x1],-.2v); penstroke
+z1e{left}...z2e{up}...z3e...z4e; fill z4r{z4-z3}...{right}z29 &
+z29{left}...{z31-z29}z30...{left}z31.. {down}z7r & z7r--z7l &
+z7l{up}...z6{right}...z5{z4-z6}...{z3-z4}z4l & z4l--z4r & cycle; penstroke
+z7e{down}..{(1.6u,0)-(0,1.5v)}z8e; fill
+z8r{(1.6u,0)-(0,1.5v)}...z9{right}...{(5u,2.9v)-(2.1u,0)}z10...
+z11{up}...z12{up}...z13r{(6.7u,8v)-(0,5v)} & z13r--z13l &
+z13l{(0,5.3v)-(7u,8v)}...z14{down}...z15{down}...z16{(2u,0)-(5u,4.1v)}
+...z17{left}...z8l{(0,1.5v)-(1.6u,0)} & z8l--z8r & cycle; z33=(6.45u,7.65v);
+z34=(8.55u,5.75v); z35=(6.6u,3.4v); z36=(4.9u,5v); z37=z33-(0,1.2v);
+z38=z34-(u,.35v); z39=z35+(0,.9v); z40=z36+(.8u,0); z41=z37-(0,.65v);
+z42=z38-(.6u,0); z43=(6.7u,5v); penpos33(hair,-90); penpos34(hair,-180);
+penpos35(hair,-270); penpos36(hair,0); penpos37(hair,-90); penpos38(hair,-180);
+penpos39(hair,-270); penpos40(hair,0); penpos41(hair,-90); penpos42(hair,-180);
+penpos43(hair,-270); penstroke
+z13e...z33e...z34e...z35e...z36e...z37e...z38e...z39e...z40e...z41e...
+z42e...z43e; z44=(6.8u,7.8v); z45=(7.25u,7.8v); z46=(7.9u,8.05v); z47=(8u,7.6v);
+z48=(6.9u,6.75v); z49=(5.1u,7.6v); z50=(3.2u,8.25v); z51=(.95u,6.1v);
+z52=(2.7u,4.5v); z53=(4.45u,6v); z54=(4u,7v); z55=(3.25u,7.35v); z56=(2.6u,7v);
+z57=(2.7u,6.5v); z59=(2.2u,5.65v); z60=(1.9u,5.9v); penpos44(hair,-110);
+penpos45(.35u,-30); penpos46(hair,-110); penpos47(hair,-180);
+penpos48(.35u,-270); penpos49(.85u,45); penpos50(.5v,-270);
+penpos51(1.5hair,-180); penpos52(hair,-90); penpos53(hair,0); penpos54(hair,50);
+penpos55(hair,90); penpos56(.45u,-195); penpos57(.65u,-120);
+penpos58(.65u,-180); z58r=z57r; penpos59(1.5hair,-270); penpos60(hair,0);
+penstroke z44e{(7.5u,6.4v)-(5.4u,9v)}...z45e{dir45}...
+z46e{(7.5u,6.4v)-(5.4u,9v)}...z47e{down}...z48e...z49e...z50e...z51e...z52e...
+z53e...z54e...z55e...z56e...z57e...z58e...z59e...z60e; z61=(6.8u,6.6v);
+z62=(6.5u,5.5v); z63=(6.5u,2.6v); z64=(8.4u,1.9v); z64'=z64-(hair,0);
+z65=(7u,0.2v); z66=(6.7u,0.7v); z67=(5.8u,2v); z68=(5.8u,5v); z69=(7.6u,1.25v);
+unfill z61{(0,0.7v)-(5u,5v)}...z62{down}---z63{down}...z69{right}...
+z64'{up}--z64 & z64{down}... z65{down} &
+z65{up}...z66{(0,3.3v)-(8.5u,0)}...z67{up}...z68{(6.5u,10v)-
+(5.1u,0)}...z61{(5u,5v)-(0,0.7v)} & cycle; z70=(4.5u,2.65v); z71=(4.1u,3.25v);
+z72=(4.6u,3.7v); z73=(5.1u,3.6v); z74=(5.7u,4.1v); z75=(5.3u,4.5v);
+penpos70(hair,90); penpos71(hair,0); penpos72(.45v,-105); penpos73(.45v,-105);
+penpos74(hair,0); penpos75(hair,90); penstroke
+z70e{left}...z71e{up}...z72e...z73e...z74e{up}...{left}z75e; z76=(7.65u,3.7v);
+z76'=(6.2u,2.75v); z77=(4.1u,0.8v); z78=(4.9u,0); z138=(5.4u,1.1v);
+z79=(5.6u,0.7v); z80=(5.05u,1.3v); z81=(4.65u,.7v); z82=(4.95u,.45v);
+z83=(5.3u,.7v); z84=(5.05u,.9v); penpos76(hair,-233); penpos76'(hair,-244);
+penpos77(hair,-180); penpos138(hair,45); penpos78(hair,-90); penpos79(hair,0);
+penpos80(hair,90); penpos81(hair,180); penpos82(hair,-90); penpos83(hair,0);
+penpos84(hair,90); penstroke
+z76e...z76'e...z77e...z78e...z79e...z138e...z80e...z81e...z82e...z83e...z84e;
+z85=(-.1u,1.1v); z86=(1.7u,0.2v); z87=(3.8u,1.4v); z88=(4.5u,3.9v);
+z89=(4.65u,6v); z90=(6.4u,7.15v); z90'=(7.5u,6.7v); z89'=(7.9u,6.1v);
+penpos85(hair,-135); penpos86(hair,-90); penpos87(hair,-35); penpos88(hair,0);
+penpos89(hair,-35); penpos90(hair,-90); penpos90'(hair,-135);
+penpos89'(hair,-180); penstroke
+z85e...z86e...z87e...z88e...z89e...z90e...z90'e...z89'e; z91=(1u,2.2v);
+z92=(.75u,2.4v); z93=(0.35u,1.7v); z94=(1.5u,0.9v); z95=(2.9u,2.75v);
+z95'=(2.6u,4.2v); z96=(2.5u,4.6v); penpos91(hair,0); penpos92(hair,90);
+penpos93(hair,180); penpos94(1.5hair,-90); penpos95(.5u,0); penpos95'(u,33);
+penpos96(1.7u,34); penpos95.3(hair,90); penpos95.4(hair,-90); z95.3r=z96l;
+z95.4l=z96r; penstroke z91e...z92e...z93e...z94e{right}; filldraw
+z94r{right}..z95r..z95'r ..z95.4r{z96r-z96l}--z95.4l--
+z95.3r--z95.3l{z96r-z96l}..z95'l ..z95l..z94l{left}--z94r & cycle;
+z97=(1.2u,1.2v); z97'=(2.3u,2.4v); z98=(1.1u,4.3v); z98'=(-.1u,3.6v);
+z99=(.3u,3.1v); z99'=(.3u,3.6v); penpos97(hair,-90); penpos97'(hair,0);
+penpos98(hair,90); penpos98'(hair,180); penpos99(hair,-90); penpos99'(hair,90);
+penstroke z97e{right}...z97'e...z98e...z98'e...z99e...z99'e; z100=(7.25u,0);
+z101=(7.4u,0.4v); z101'=(8.3u,0.3v); z102'=(8.1u,0); z102=(8.65u,1.9v);
+z103=(7.9u,2.7v); z103'=(7.1u,2.1v); z104=(7.7u,1.45v); z104'=(7.8u,2.45v);
+z105=(7.45u,2.2v); z105'=(7.8u,1.9v); z106=(8u,2.05v); z107=(8.15u,2.1v);
+z108=(6.9u,2.1v); z109=(6.9u,4.1v); z110=(8u,5.4v); z111=(8.8u,4.6v);
+z112=(8.6u,4v); z113=(8.1u,3.3v); z114=(8.3u,3v); z115=(8.1u,3.8v);
+z116=(7.5u,4.3v); z117=(8u,4.8v); z118=(8.4u,4.4v); z119=(8u,4.1v);
+z120=(7.6u,3.2v); z121=(7.9u,2.9v); z100'=(8.3u,1.1v); penpos100(hair,-20);
+penpos101(hair,-53); penpos101'(hair,-180); penpos102'(hair,-270);
+penpos102(hair,0); penpos103(hair,90); penpos103'(hair,-180);
+penpos104(hair,-90); penpos104'(hair,90); penpos105(3hair,-180);
+penpos105'(0.2v,-90); penpos106(hair,-44); penpos107(hair,-116);
+penpos108(hair,0); penpos109(hair,0); penpos110(hair,-90); penpos111(hair,-180);
+penpos112(hair,-225); penpos113(hair,-180); penpos114(hair,-90);
+penpos115(hair,90); penpos116(hair,0); penpos117(hair,-90);
+penpos118(hair,-180); penpos119(hair,90); penpos120(hair,-90);
+penpos121(hair,-180); penpos100'(hair,-45); penstroke
+z100e...z101e{(1,1)-(0,0)}...z101'e...{left}z102'e; z640=z64; penpos640(hair,0);
+penstroke z101e{(1,1)-(0,0)}...z100'e...z102e...z103e...z103'e...
+z104e...z640e...z104'e...z105e...z105'e...z106e...z107e; z108'=z104;
+penpos108'(hair,90); penstroke
+z108'e{left}...z108e{up}...z109e{up}...z110e...z111e...z112e
+...z113e...{right}z114e; penstroke z112e...z115e...z116e...z117e...z118e...z119e;
+penstroke z108e{up}...z120e{right}...{down}z121e; z122=(2.2u,4.2v);
+z123=(0.6u,5.4v); z124=(0.4u,6.4v); z125=(0.7u,7.5v); z126=(1.65u,8.5v);
+z127=(0.9u,8.3v); z128=(0.6u,8.5v); z129=(0.4u,8.4v); z130=(0.1u,8.2v);
+z131=(-0.1u,8.5v); z132=(5u,8.35v); z133=(5.4u,8.6v); z134=(5.9u,7.9v);
+z135=(6.4u,8.55v); z136=(6.75u,8.3v); z137=(6.5u,8v); z139=(5.1u,1.7v);
+z140=(5.4u,1.95v); z135'=(7.7u,7.9v); z136'=(6.9u,7.25v); penpos122(hair,71);
+penpos123(hair,25); penpos124(hair,0); penpos125(hair,-26); penpos126(hair,0);
+penpos127(hair,0); penpos128(2.5hair,90); penpos129(0.3u,150);
+penpos130(2hair,90); penpos131(hair,0); penpos132(hair,180); penpos133(hair,90);
+penpos134(hair,20);penpos135(hair,-90); penpos136(hair,-180);
+penpos137(hair,90); penpos139(hair,0); penpos140(hair,-90);
+penpos135'(hair,-180); penpos136'(hair,90); penstroke z122e...z123e...z124e{up};
+penstroke z125e{dir70}...{up}z126e; penstroke
+z124e{up}...z125e...z127e...z128e...z129e...z130e...{up}z131e; penstroke
+z134e{(4u,10v)-(10u,3.8v)}...z133e...{down}z132e; penstroke
+z135'e{down}...z136'e...z134e{(4u,10v)-(10u,3.8v)}
+...z135e...z136e...{left}z137e; penstroke
+z79e{up}...z138e...z139e...{right}z140e; z141=(3.2u,7v); z142=(3.7u,6.1v);
+z143=(3.2u,5.4v); z144=(2.3u,5.2v); z145=(1.35u,6.3v); z146=(3u,7.7v);
+z147=(4.5u,7.1v); penpos141(hair,-90); penpos142(hair,-180);
+penpos143(hair,-240); penpos144(hair,90); penpos145(hair,0);
+penpos146(hair,-90); penpos147(hair,-131); penstroke
+z141e{right}...z142e...z143e...z144e...z145e...z146e...
+{(6.7u,5v)-(1.2u,10v)}z147e; kouki(126,1,1); kouki(132,6,1); kouki(137,5,1);
+kouki(141,7,1); kouki(60,2,1.5); kouki(99',7,1); kouki(75,7,2);
+kouki(70,6,2.25); kouki(140,8,1); kouki(84,7,1); kouki(102',5,1.5);
+kouki(121,3,1.5); kouki(114,6,1); kouki(119,5,1.5); kouki(89',3,1);
+kouki(1,6,1.5); z148=(5.8u,8.7v); z149=(4.7u,1.6v); mpalla(148,1);
+mpalla(149,1.5); mpalla(123,2); z150.1=(4.3u,4.95v); z150.2=(5.1u.,4.95v);
+z150.3=(5.1u,4.7v); z150.4=(4.3u,4.7v); filldraw
+z150.1--z150.2--z150.3--z150.4--cycle; z34.1=z34+(-.15u,.1v);
+z34.2=z34+(.15u,.1v); z34.3=z34+(.15u,-.1v); z34.4=z34+(-.15u,-.1v); filldraw
+z34.1--z34.2--z34.3--z34.4--cycle; z200=z79; ka(200,180); z201=(6.2u,0);
+ka(201,-90); z202=(x201,0.8v); ka(202,90); z203=(x79+0.4u,0.65[y201,y202]);
+ka(203,180); kouki(203,4,1); z201'=(x201+0.3u,y203); ka(201',0); penstroke
+z200e{down}..z201e{right}.. z202e{left}..z203e{down}; z204=z77; ka(204,180);
+z205=(3.6u,0); ka(205,90); z206=(x205-0.05v,y83+0.05v);
+z207=(x205+0.05u,0.35[y205,y206]); ka(206,-90); ka(207,90); kouki(207,5,1);
+penstroke z204e{down}..z205e{left}.. z206e{right}..z207e{left}; z220=(5.45u,3v);
+z221=(u,3.7v); z225=(x34,y135); z226=(x34+0.1u,y135-0.6v);
+z227=(x34,y125-0.5v); z228=(x34+0.1u,y227+0.5v); ka(225,-90); ka(226,90);
+ka(227,90); ka(228,-90); kouki(226,5,1); kouki(228,7,1); z47''=z47; ka(47'',0);
+penstroke z228e{right}..z227e{left} ..z47''e{up}..z225e{right}..z226e{left};
+z230=(x112,0.5[y101',y100']); mpalla(230,1.5); penlabels(range 1 thru 230);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitB.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitB.mf
new file mode 100644
index 00000000000..388ed974840
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitB.mf
@@ -0,0 +1,135 @@
+.cmchar "The letter B"; .beginchar("B",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); z1=(.9u,.9v); z2=(1.3u,1.1v); z3=(1.1u,1.4v);
+z4=(0.9u,1.7v); z5=(1.3u,1.9v); z6=(1.85u,1.3v); z7=(1.1u,.5v); z8=(0.2u,1.1v);
+z8'=(0,1.5v); z9=(1.4u,2.8v); z10=(2.8u,2.2v); z10'=(4.35u,.7v); z11=(6.3u,v);
+z12=(7.55u,3.95v); z13=(4.9u,4.2v); z14=(4.3u,3.5v); z15=(5.5u,1.7v);
+z16=(6.8u,3v); z17=(6u,3.9v); z18=(5.2u,3.3v); z19=(5.4u,2.9v);
+z20=(5.75u,2.95v); z21=(6.05u,2.7v); z22=(5.9u,2.45v); penpos1(hair,-110);
+penpos2(.3u,0); penpos3(.4u,74); penpos4(.3u,0); penpos5(1.5hair,-90);
+penpos6(hair,-180); penpos7(hair,90); penpos8(1.5hair,12); penpos8'(hair,0);
+penpos9(.2v,-84); penpos10(.5[u,v],-144); penpos10'(0.55u,-119);
+penpos11(1.5hair,-61); penpos12(.9u,30); penpos13(.2v,-225);
+penpos14(hair,-180); penpos15(hair,-90); penpos16(hair,0); penpos17(1.2hair,90);
+penpos18(.3u,-180); penpos19(.6v,-90); penpos20(0.5v,-73); penpos21(.2u,-180);
+penpos22(hair,110); penstroke
+z1e{(2.6u,0)-(0,1.4v)}...z2e...z3e...z4e...z5e...z6e...z7e...
+z8e...z9e{right}...z10e...z10'e...z11e...z12e...z13e...z14e...z15e...z16e...
+z17e...z18e...z19e...z20e...z21e...{(2u,0)-(9.8u,5v)}z22e; z23=(1.85u,2.25v);
+z24=(4.8u,0.05v); z25=(5.3u,0.07v); z26=(5.7u,0.15v); z27=(8.6u,3.15v);
+z28=(7.2u,5.35v); z29=(6.8u,5.4v); z30=(6.5u,5.3v); z31=(2.3u,1.3v);
+z32=(1.3u,0); z33=(0.9u,0.2v); z34=(2.6u,0.8v); z23'=(2.2u,1.7v);
+z34'=(2.5u,0.5v); z35=(2.1u,0.2v); z35'=(3u,-0.1v); z36=(3.1u,0.4v);
+z37=(3.3u,0.4v); penpos23(hair,-144); penpos24(hair,-90); penpos25(hair,-90);
+penpos26(hair,-75); penpos27(hair,0); penpos28(hair,82); penpos29(hair,90);
+penpos30(hair,98); penpos31(hair,-180); penpos32(hair,90); penpos33(hair,33);
+penpos34(hair,-180); penpos34'(hair,-180); penpos35(hair,90);
+penpos35'(hair,-90); penpos36(hair,-90); penpos37(hair,-45);
+penpos23'(hair,-144); penstroke
+z23e{(3.3u,0)-(0,5v)}...z23'e...z24e...z25e...z26e...z27e...z28e...z29e...
+{(0,4.5v)-(3.9u,5v)}z30e; penstroke
+z23'e{(3.7u,0)-(0,4.3v)}...z31e...z32e...{(0,1.8v)-(u,0)}z33e; penstroke
+z23'e{(3.5u,0)-(0,4.5v)}...z34e...z34'e...{left}z35e; penstroke
+z34'e...{right}z35'e; penstroke
+z23'e{(3.3u,0)-(0,5v)}...{right}z36e..z36e...z37e; z38=(6.25u,0.3v);
+z39=(7.55u,1.3v); z40=(8.4u,0.65v); z41=(7.8u,0); z42=(7.4u,0.4v);
+z43=(7.75u,0.75v); z44=(7.9u,0.5v); z45=(6.65u,1.7v); z46=(5.9u,2.35v);
+z47=(5.2u,1.75v); z48=(4.85u,1.05v); z49=(5.75u,1.25v); z50=(6.05u,1.65v);
+penpos38(hair,-35); penpos39(hair,-90); penpos40(hair,-180); penpos41(hair,90);
+penpos42(hair,0); penpos43(hair,-90); penpos44(hair,-180); penpos45(hair,0);
+penpos46(hair,90); penpos47(hair,-180); penpos48(hair,90); penpos49(hair,-90);
+penpos50(hair,0); penstroke
+z38e{(10u,5.6v)-(6u,0)}...z39e...z40e...z41e...z42e...z43e...z44e;
+kouki(44,3,1.25); penstroke z41e{left}...{up}z38e &
+z38e{(10u,5.6v)-(6u,0)}...z45e...z46e..z47e ...{left}z48e; kouki(48,5,1);
+penstroke z47e{down}...z49e...{up}z50e; kouki(50,1,1.5); mpalla(24,1);
+mpalla(25,1); mpalla(26,1); z51=(1.85u,3.7v); z52=(1.5u,3.9v); z53=(1.15u,3.5v);
+z54=(1.7u,3.1v); z55=(2.3u,3.75v); z56=(1.45u,4.55v); z57=(0.3u,3.5v);
+z58=(1.6u,2.2v); z59=(3.1u,3.4v); z60=(3.45u,4.8v); z61=(2.45u,6.25v);
+z62=(2.05u,6.35v); z63=(2.6u,2.4v); z64=(4.3u,5.5v); z65=(2.5u,7.75v);
+z66=(1.6u,7.5v); z67=(0.7u,7.5v); z68=(0.35u,8.75v); z68'=(0.7u,8.85v);
+z69=(1.1u,8.6v); z70=(1.4u,8.35v); z71=(1.6u,8.5v); z60'=(3.1u,5.7v);
+penpos51(hair,0); penpos52(hair,90); penpos53(hair,-180); penpos54(hair,-90);
+penpos55(hair,0); penpos56(hair,90); penpos57(hair,-180); penpos58(hair,-90);
+penpos59(0.1u,-45); penpos60(0.5u,0); penpos61(1.2u,37); penpos62(1.8u,37);
+penpos63(hair,-42); penpos64(0.75u,0); penpos65(0.9v,90); penpos66(0.9v,110);
+penpos67(0.7v,62); penpos68(1.5hair,-45); penpos68'(hair,-90);
+penpos69(0.35u,-150); penpos70(2hair,-90); penpos71(hair,0); penpos60'(0.7u,38);
+penstroke z51e{up}...z52e...z53e...z54e...z55e...z56e...z57e...z58e...z59e...
+z60e...z60'e...z61e...{(0,7.6v)-(4.6u,5v)}z62e; penstroke
+z63e{(5u,4.75v)-(0,0)}...z64e...z65e...z66e...z67e...z68e...z68'e...
+z69e...z70e...{up}z71e; kouki(51,3,2); z72=(7.8u,5.8v); z73=(8.05u,5.6v);
+z74=(8.4u,5.9v); z75=(8u,6.3v); z76=(7.1u,5v); z77=(4.7u,2.7v); z78=(2.9u,4.8v);
+z79=(3.9u,7v); z80=(5.6u,7.9v); z81=(6.65u,7.65v); z82=(7.05u,6.95v);
+z83=(7.3u,6.35v); penpos72(hair,-180); penpos73(hair,-90); penpos74(hair,0);
+penpos75(hair,90); penpos76(hair,-180); penpos77(hair,90); penpos78(hair,0);
+penpos79(hair,-39); penpos80(0.5v,-90); penpos81(0.875u,-134);
+penpos82(1.1u,-144); penpos83(1.5u,-141); penstroke
+z72e{down}...z73e...z74e...z75e{left}...z76e{down}...z77e{left}...
+z78e{up}...{(7.6u,10v)-(0,3.7v)}z79e; kouki(72,2,1.3); z84l=z82l; z84r=z83;
+z85=(8.15u,7.15v); z86=(8.35u,7.7v); z87=(7.9u,8.3v); z88=(7.6u,8v);
+z89=(7.7u,7.95v); z90=(8.1u,7.8v); z91=(7.7u,7.5v); z92=(7.2u,8v);
+z93'=(8.45u,8.4v); z93=(7.9u,8.7v); z94=(8.6u,7.7v); z94'=z30;
+penpos85(2hair,-53); penpos86(hair,0); penpos87(hair,90); penpos88(1.5hair,-180);
+penpos89(0.3v,-90); penpos90(hair,-180); penpos91(hair,90); penpos92(hair,0);
+penpos93(hair,-90); penpos93'(hair,-135); penpos94(hair,-180);
+penpos94'(hair,-236); penstroke
+z85e{(10u,9.5v)-(0,0.6v)}...z86e{up}..z87e{left}..z88e...z89e...z90e{down}..
+z91e{left}..z92e...z93e...z93'e...z94e...{(0,1.1v)-(10u,7.9v)}z94'e; z93.2=z93';
+z92'=z93.2+(-.1u,.6v); penpos93.2(hair,39); penpos92'(hair,-90); penstroke
+z93.2e{(7.2,10)-(10,6.5)}...{right}z92'e; kouki(92',8,1); z95=(6.35u,5.6v);
+penpos95'(hair,-225); z95'r=z13r; penpos95(1.5hair,128.5); penstroke
+z95e{(0,0.4v)-(10u,8.6v)}...z95'e; filldraw
+z79l{(7.6u,10v)-(0,3.7v)}...z80l...z81l...
+z82l{(8.9u,5v)-(5.7u,10v)}...{(10u,8.2v)-(0,2.6v)}z85l & z85l--z85r & z85r--z95l
+& z95l--z95r & z95r{z83r-z95l}...{(6.4u,10v)-(7.25u,0)}z82r...z81r...z80r...
+{(0,3.7v)-(7.6u,10v)}z79r & z79r--z79l & cycle; z100=(2.7u,2.3v);
+z101=(4.5u,4.25v); z102=(5.05u,6.1v); z103=(4.6u,7.6v); z104=(2.35u,8.8v);
+z105=(0.2u,6.7v); z106=(1.9u,5.1v); z107=(3u,6.5v); z108=(2.2u,7.1v);
+z109=(1.3u,6.3v); z110=(1.9u,5.75v); z111=(2.4u,6.3v); z112=(2u,6.7v);
+z113=(1.7u,6.5v); penpos100(hair,-51); penpos101(hair,-30); penpos102(hair,0);
+penpos103(hair,25); penpos104(hair,90); penpos105(hair,180);
+penpos106(hair,-90); penpos107(hair,0); penpos108(hair,90); penpos109(hair,180);
+penpos110(hair,-90); penpos111(hair,0); penpos112(hair,90); penpos113(hair,180);
+kouki(113,4,1); penstroke
+z100e{(6.4u,5v)-(0,.3v)}...z101e...z102e...z103e...z104e...z105e...
+z106e...z107e...z108e...z109e...z110e...z111e...z112e...{down}z113e;
+z106'=(7.65u,6.25v); mpalla(106',2); z114=(6.1u,6.1v); z115=(4.2u,5.2v);
+z116=(5.3u,4.1v); z117=(6.2u,5.1v); z118=(5.6u,5.7v); z120=(5.35u,6.9v);
+z121=(5.8u,7.25v); z122=(6.2u,6.8v); z123=(5.85u,6.6v); z114'=(5.4u,8.9v);
+z115'=(5.7u,8.65v); z116'=(5.5u,8.3v); z117'=(4.1u,9.1v); z29'=z76;
+z119=(5.3u,5.3v); penpos29'(hair,0); penpos114(hair,65); penpos115(hair,-180);
+penpos116(hair,-90); penpos117(hair,0); penpos118(hair,90); penpos119(hair,180);
+penpos120(hair,0); penpos121(hair,-90); penpos122(hair,-180);
+penpos123(hair,90); penpos114'(hair,-90); penpos115'(hair,-180);
+penpos116'(hair,90); penpos117'(hair,20); penstroke
+z103e{(4.7u,10v)-(5.7u,5v)}---z117'e; penstroke
+z103e{(4.7u,10v)-(5.7u,5v)}...z114'e...z115'e...{left}z116'e; kouki(116',5,1);
+penstroke z29'e{up}...z114e...z115e...z116e...z117e...z118e... {down}z119e;
+kouki(119,4,2); mpalla(106,1.5); z125=(2.25u,2.65v); z126=(1.85u,5.55v);
+z127=(1.05u,4.8v); z128=(1.6u,4.2v); z129=(2.1u,4.7v); z130=(1.8u,5v);
+mpalla(27,1.5); penpos125(hair,-38); penpos126(hair,90); penpos127(hair,180);
+penpos128(hair,-90); penpos129(hair,0); penpos130(hair,90); kouki(130,7,1.5);
+penstroke z125e{(4.3u,5v)-(0,0)}...z78e...
+z126e...z127e...z128e...z129e...{left}z130e; penstroke
+z114e{(0,8v)-(9.3u,5v)}...z120e...z121e...{left}z123e; kouki(123,5,1.5);
+z131=(3.7u,3.1v); z132=(3.9u,2.6v); z133=(3.6u,2.3v); z134=(3.4u,2.4v);
+z135=(0.3u,7.8v); z136=(-0.2u,7.5v); z137=(-0.5u,7.7v); z138=(7.8u,1.3v);
+z139=(8.6u,1.8v); penpos131(hair,-131); penpos132(hair,-180);
+penpos133(hair,90); penpos134(hair,0); kouki(134,2,1.2); penpos135(hair,-230);
+penpos136(hair,90); penpos137(hair,0); kouki(137,2,1.2); penpos138(hair,-42);
+penpos139(hair,-90); kouki(139,8,1.5); penstroke
+z131e{(7u,0)-(0,6.7v)}...z132e...z133e...{up}z134e; penstroke
+z135e{(0,0)-(5u,5v)}...z136e...{up}z137e; penstroke
+z138e{(10u,3.5v)-(6.6u,0)}...{right}z139e; z200=(-0.3u,2.9v);
+z201=z200+(-0.15u,0.5v); z202=z200+(1.3u,0.5v); triaina(200,201,202,0.6);
+z210=(1.1u,6.8v); z211=z210+(0.6u,-1.2v); z212=z210+(-1.8u,-1.1v);
+triaina(210,211,212,0.4); z207=(3.75u,8.3v); z208=z207+(-0.15u,0.55v);
+z209=z207+(1.1u,0.3v); triaina(207,208,209,0.8); kouki(35',6,1.2);
+z220=0.5[z14,z10'l]; mpalla(220,2); z240=z114; penpos240(0.25u,-35);
+penpos241(0.6v,55); z241=z114; z240.1=z241r; z240.2=z241l;
+penpos240.1(0.25u,-35); penpos240.2(0.25u,-35); penstroke z240.1e--z240.2e;
+z250=((8.4u,0)--(8.4u,9v)) intersectionpoint (z27{up}..z28..z29);
+z251=(8.3u,5.1v); ka(250,45); ka(251,0); penstroke z250e{dir110}..z251e{up};
+kouki(251,2,1.2); kouki(35,5,1); penlabels(range 1 thru 250);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitC.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitC.mf
new file mode 100644
index 00000000000..8f5ecd77ea3
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitC.mf
@@ -0,0 +1,122 @@
+.cmchar "The letter C";
+.beginchar("C",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.4u,6.6v); z2=(1.75u,3.85v); z3=(2.7u,1.7v); z4=(4.7u,.85v); z5=(6.6u,1.5v);
+z6=(7.55u,3.4v); z7=(6.65u,4.3v); z8=(6.2u,4v); penpos1(hair,116);
+penpos2(.65u,-180); penpos3(.9*.5[u,v],-135); penpos4(.9v,-90);
+penpos5(.6*.5[u,v],-55); penpos6(1.5hair,0); penpos7(hair,90);
+penpos8(hair,180); kouki(7,7,3); penstroke
+z1e{(0,4.9v)-(5u,7.4v)}...z2e...z3e...z4e...z5e...z6e...{left}z7e; z9=(4u,7.2v);
+z10=(1.05u,3.5v); z11=(4.65u,0); z12=(7.9u,2.9v); z13=(7.9u,3.55v);
+z14=(2.7u,7.2v); z15=(2.4u,7.1v); z16=(2.7u,6.8v); z17=(3.15u,6.55v);
+z18=(2.6u,5.95v); z19=(1.8u,6.75v); z20=(2.65u,7.7v); z21=(4u,6.5v);
+z22=(2.5u,5.05v); z23=(0.85u,6.55v); z24=(2.9u,8.55v); z25=(5.3u,7.4v);
+z26=(6.1u,4.7v); z27=(4.25u,2.5v); z28=(3.1u,3.3v); z29=(3.5u,3.8v);
+z30=(3.95u,3.6v); penpos9(hair,95); penpos10(hair,180); penpos11(hair,-90);
+penpos12(hair,0); penpos13(hair,4); penstroke
+z9e{(0,6.15v)-(10u,8.1v)}...z10e...z11e...z12e... {(7.2u,9v)-(8.1u,0)}z13e;
+penpos14(hair,90); penpos15(1.5hair,180); penpos16(.3u,-90);
+penpos17(1.5hair,180); penpos18(hair,90); penpos19(hair,0); penpos20(hair,-90);
+penpos21(hair,-90); penpos22(hair,90); penpos23(hair,0); penpos24(hair,-90);
+penpos25(hair,-146); penpos26(hair,-180); mpalla(20,2); mpalla(26,1.5);
+penpos27(hair,90); penpos28(1.2hair,0); penpos29(0.35v,-90); penpos30(0.5u,-180);
+penpos29'(0.5u,-135); z29'r=z29r; penstroke
+z14e{left}...z15e{down}...z16e{right}...z17e{down}...z18e...z19e...
+z20e...z21e...z22e...z23e...z24e...z25e...z26e{down}...z27e...{up}z28e; filldraw
+z28r{up}...{down}z30r...{up}z30l...{down}z28l & z28l--z28r & cycle;
+z31=(4.3u,7.7v); z32=(6u,8.5v); z33=(7.4u,7.4v); z34=(5.8u,6.55v);
+penpos31(hair,-58); penpos33(.15v,-63); penpos34(hair,-243); filldraw
+flex(z31l,(5.6u,8.1v),z32) & flex(z32,(6.45u,7.75v),z33l) & z33l--z33r &
+z33r--z34l & z34l--z34r & flex(z34r,(5.9u,7.4v),z31r) & z31r--z31l & cycle;
+z38=(3.9u,7.2v); z39=(4.1u,6v); z40=(5.1u,5.25v); z41=(5.5u,4.4v);
+penpos38(0.45u,180); penpos39(0.95u,-132); penpos40(0.95u,-132);
+penpos41(0.7u,-173); z31'=z31; penpos31'(hair,122); penstroke
+z31'e{z31-z32}...z38e...z39e...z40e...z41e...{left}z27e; z42=(3.3u,4.9v);
+z43=(3.8u,4.8v); z44=(4.75u,3.6v); penpos42(1.4*.5[u,v],45); penpos43(0.7v,65);
+penpos44(0.3u,0); filldraw flex(z42l,z42+(0.05u,-0.05v),z42r) & z42r{down}...
+{(7.8u,3v)-(0,7.4v)}z43r...{down}z44r & z44r--z44l & z44l{up}...z43l...
+{(0,3.3v)-(10u,7.2v)}z42l & cycle; z45=(4u,2.7v); z46=(3.3u,3.3v);
+penpos45(hair,-90); penpos46(hair,180); penstroke z46e{down}...z45e...{up}z44e;
+z47=(3.9u,3.7v); z48=(5.3u,2v); z48'=(7.4u,2.5v); z49=(8.8u,1.35v);
+z50=(7.85u,0.3v); z51=(7u,1.2v); z52=(7.7u,1.85v); z53=(8.35u,1.25v);
+z54=(7.85u,0.7v); z55=(7.45u,1.1v); z56=(7.6u,1.2v); z57=(7.8u,1.15v);
+z58=(7.95u,1.15v); z59=(8.05u,1.4v); penpos47(hair,180); penpos48(hair,-90);
+penpos48'(hair,-90); penpos49(hair,-180); penpos50(hair,90); penpos51(hair,0);
+penpos52(hair,-90); penpos53(hair,-180); penpos54(hair,90); penpos55(hair,0);
+penpos56(0.3v,-90); penpos57(0.25v,-135); penpos58(0.2v,-90); penpos59(hair,0);
+penstroke z34e{z34-z33}...z47e...z48e{right}...{right}z48'e...z49e...z50e...
+z51e...z52e...z53e...z54e...{up}z55e; kordella(55,59); z60.1=(0,0.5v);
+z61=(0.55u,0); z62=(1.25u,0.75v); z63=(u,2.15v); z64=(2u,3.3v); z65=(3.5u,2v);
+z66=(1.9u,0.55v); z67=(0.55u,2.2v); z68=(3.4u,4.25v); z69=(4.8u,3.4v); z68'=z68;
+z70=(1.8u,4.1v); z71=(0.25u,5.2v); z72=(0.8u,5.7v); z73=(1.2u,5.3v);
+z74=(0.85u,4.95v); z75=(0.55u,5.25v); z60=(0.5u,0.95v); z60'=z60;
+z76=(0.8u,5.45v); penpos60(hair,90); penpos60'(hair,-90); kouki(60',8,2);
+penpos60.1(hair,-180); penpos61(hair,-90); penpos62(hair,0); penpos63(hair,0);
+penpos64(hair,-90); penpos65(hair,-180); penpos66(hair,90); penpos67(hair,0);
+penpos68(hair,-90); penpos69(hair,-148); penpos68'(hair,90); penpos70(hair,90);
+penpos71(hair,0); penpos72(hair,-90); penpos73(hair,180); penpos74(hair,90);
+penpos75(hair,0); penpos76(hair,-90); kouki(76,8,1); penstroke
+z60e{left}...z60.1e...z61e...z62e{up}...{up}z63e...z64e...z65e...z66e...
+z67e{up}...{right}z68e...{(7.7u,0)-(3.9u,5v)}z69e; penstroke
+z68'e{left}...z70e{left}...z71e...z72e...z73e...z74e...z75e... {right}z76e;
+z77=(6.3u,3v); z78=(5.9u,3.3v); z79=(5.6u,3v); z80=(5.85u,2.75v);
+z81=(4.9u,5.4v); z82=(6.75u,6.15v); z83=(8.55u,6.7v); z84=(8.2u,7.2v);
+z85=(7.75u,6.75v); z86=(8u,6.5v); z87=(7.85u,5.1v); z88=(7.15u,4.45v);
+z89=(6.6u,5v); z90=(7.1u,5.5v); z91=(7.45u,5.1v); z92=(7.1u,4.8v);
+z93=(6.85u,6.65v); z94=(7.55u,7v); z95=(8.25u,8.1v); z96=(7.3u,9v);
+z97=(6.65u,8.5v); z98=(7.25u,7.8v); z99=(8.7u,8.65v); z100=(9u,8.3v);
+penpos77(hair,0); penpos78(hair,90); penpos79(hair,180); penpos80(hair,-90);
+kouki(80,6,1.2); penstroke z48e{right}...{up}z77e...z78e...z79e...{right}z80e;
+penpos81(hair,-45); penpos82(hair,-90); penpos83(hair,0); penpos84(hair,90);
+penpos85(hair,180); penpos86(hair,-90); kouki(86,6,1.2); penstroke
+z81e{(1,1)-(0,0)}...{right}z82e...z83e{up}...z84e...z85e...{right}z86e;
+penpos87(hair,-180); penpos88(hair,90); penpos89(hair,0); penpos90(hair,-90);
+penpos91(hair,180); penpos92(hair,90); kouki(92,5,1.3); penstroke
+z82e{right}...z87e{down}...z88e...z89e... z90e...z91e...{left}z92e;
+penpos93(hair,-69); penpos94(hair,-60); penpos95(hair,0); penpos96(hair,90);
+penpos97(hair,180); penpos98(hair,-90); penpos99(hair,-90); penpos100(hair,180);
+kouki(100,3,1.4); z93'=0.5[z93,z94]; penpos93'(hair,-65); mpalla(93',1.8);
+penstroke z81e{(1,1)-(0,0)}...z93e...z94e...{up}z95e...z96e...z97e...z98e{right}
+...{right}z99e...{down}z100e; z101=(5.3u,6.15v); z102=(5.2u,8.8v); z101'=z31;
+z103=(5.5u,8.55v); z104=(5.3u,8.3v); z26'=z26; penpos26'(hair,0);
+penpos101(hair,45); penpos101'(hair,0); penpos102(hair,-90);
+penpos103(hair,180); penpos104(hair,90); kouki(104,5,1); penstroke
+z26'e{up}...z101e...{up}z101'e...z102e{right}...z103e...{left}z104e;
+mpalla(93,1.2); mpalla(94,1.2); z105=(7.85u,8.1v); z106=(7.4u,8.5v);
+z107=(7.15u,8.2v); penpos105(1.1hair,0); penpos106(hair,90);
+penpos107(hair,180);kouki(107,4,1.5); penstroke
+z33e{z33-z34}...z105e...z106e...{down}z107e; z108=(8.5u,3.45v);
+z109=(8.8u,3.9v); z110=(8.5u,4.15v); z111=(8.3u,3.95v); z112=(8.25u,3.1v);
+z113=(8.6u,2.75v); penpos108(hair,-90); penpos109(hair,0); penpos110(hair,90);
+penpos111(hair,-180); kouki(111,4,1); z108'=z7; penpos108'(hair,-90);
+penpos112(hair,-141); penpos113(hair,-90); penstroke
+z108'e{right}...z108e{right}...z109e...z110e...{down}z111e; penstroke
+z108'e{right}...z112e...{right}z113e; kouki(113,6,1); mpalla(112,1);
+z114=(4.1u,8.3v); z115=(3.4u,8.55v); z116=(0.7u,8.2v); z117=(0.1u,8.8v);
+z118=(0.2u,7.15v); z119=(0.6u,6.15v); z120=(0.15u,6.6v); z116'=(1.2u,8.3v);
+z117'=(1.2u,8.05v);penpos116'(hair,90); penpos117'(hair,90); penpos114(hair,64);
+penpos115(hair,76.5); penpos116(hair,90); penpos117(hair,0);
+penpos118(hair,180); penpos119(hair,90); penpos120(hair,0); z114'=.5[z114,z115];
+mpalla(114',1.5); mpalla(114,1.2); mpalla(115,1.2); penstroke
+z114e{(0,9.9v)-(10u,6v)}...{(0,9.05v)-(10u,7.5v)}z115e...z116'e...{left}z116e
+...{up}z117e; z118'=z117+(0.8u,0.4v); penpos118'(hair,0); kordella(117,118');
+penstroke
+z114e{(0,9.9v)-(10u,6v)}...{(0,9.05v)-(10u,7.5v)}z115e...z117'e...{down}z118e;
+kouki(118,4,1); z20'=z20; penpos20'(hair,90); penstroke
+z20'e{left}...z119e{left}...z120e{up}; kouki(120,2,1.3); z200=(1.45u,3.1v);
+z201=(0.85u,2.4v); z202=(0.6u,3.9v); triaina(200,201,202,0.8); z210=(1.3u,7.5v);
+z211=(0.6u,7.05v); z212=(0.6u,8.55v); triaina(210,211,212,0.5); z220=(8.2u,6v);
+z221=(8.75u,5.7v); z222=(7.75u,5.2v); triaina(220,221,222,0.7);
+z230=(8.8u,5.2v); ka(230,-90); penstroke z82e{right}..z230e{right};
+kouki(230,6,1); z231=(8.7u,0.2v); ka(231,-90); penstroke
+z53e{down}..z231e{right}; kouki(231,6,1); z232=((3.1u,0)--(3.1u,8v))
+intersectionpoint (z10{down}..z11{right}); ka(232,90); z233=(2.4u,0.15v);
+ka(233,180); penstroke z232e{left}..z233e{down}; kouki(233,4,1); z240=z27;
+ka(240,-90); z241=(4.1u,1.6v); ka(241,90); penstroke z240e{right}.. z241e{left};
+kouki(241,5,1); z242=z22; ka(242,-90); z243=(3u,5.6v); ka(243,0); kouki(243,1,1);
+mpalla(25,1.2); z244=(2.3u,4.7v); ka(244,0); kouki(244,2,1); penstroke
+z68'e{left}..z244e{up}; penstroke z242e{right}..z243e{up}; z245=(7.05u,3.5v);
+z246=(6.6u,4v); ka(245,0); ka(246,90); penstroke z48e{right}..z245e{up}..
+z246e{left}; penlabels(range 1 thru 230);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitD.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitD.mf
new file mode 100644
index 00000000000..83ecb2b11e3
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitD.mf
@@ -0,0 +1,121 @@
+.cmchar "The letter D";
+.beginchar("D",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); % 9911558 ajhna
+z1=(2.5u,8.1v); mpalla(1,1.5); z2=(2.5u,8v); z3=(2.1u,7.8v); z4=(1.75u,8.25v);
+z5=(0.75u,7.8v); z6=(2.1u,6.65v); z7=(2.7u,6.8v); z8=(4.4u,7.5v);
+z8'=(6.85u,6.7v); z9=(7.65u,5v); z10=(6.5u,1.4v); z11=(4.8u,0.7v);
+z12=(3.3u,1.55v); z13=(1.8u,2.25v); z14=(0.65u,1.2v); z15=(1.35u,0.4v);
+z16=(1.85u,0.8v); z17=(1.75u,1.05v); z18=(1.5u,1.1v); z19=(1.35u,1.3v);
+z20=(1.5u,1.45v); ka(2,-180); penpos3(0.35v,43); penpos4(0.4v,41);
+penpos5(0.1u,180); penpos6(0.75v,-90); penpos7(0.9v,-65); penpos8(0.95v,-73);
+penpos8'(0.9uv,-134); penpos9(0.75u,-180); ka(10,133); penpos11(0.5v,90);
+penpos12(0.9uv,45); penpos13(0.4v,90); ka(14,180); ka(15,-90);
+penpos16(0.25u,0); penpos17(0.35uv,45); penpos18(0.25v,90); penpos19(0.15u,0);
+ka(20,-90); penstroke
+z2e{down}...z3e...z4e...z5e...z6e...z7e...z8e...z9e...z10e...z11e...
+z12e...z13e...z14e...z15e...z16e...z17e...z18e...z19e...{right}z20e;
+z21=(4.85u,5.9v); z22=(5u,5.8v); z23=(5.35u,6.2v); z24=(4.3u,6.3v);
+z25=(3.8u,5.55v); z26=(4.1u,4.95v); z27=(4.75u,4.15v); z28=(5u,3.3v);
+z29=(3.5u,1.4v); penpos21(hair,180); penpos22(0.25v,-90); penpos23(0.35u,0);
+penpos24(2hair,117); penpos25(0.55u,180); penpos26(0.8uv,-144);
+penpos27(0.8uv,-144); penpos28(0.55u,180); penpos29(hair,121); penstroke
+z21e{down}...z22e...z23e...z24e...z25e...z26e...z27e...z28e...
+{(1.2u,0)-(9u,4.8v)}z29e; z30=(2.95u,4.15v); z30.2=(3.5u,3.85v);
+z31=(3.3u,1.55v); penpos30(1.35uv,36.5); penpos30.2(0.7uv,45.5);
+penpos31(hair,133); z30'=z30+(0.1u,0); filldraw flex(z30l,z30',z30r) &
+z30r{down}...z30.2r...{(1.8u,0)-(9u,7v)}z31l & z31l--z31r &
+z31r{(9u,7v)-(1.8u,0)}...z30.2l...z30l & cycle; z32=(2.7u,1.3v);
+z33=(1.6u,2.5v); z34=(2.5u,3.35v); z35=(3.1u,3.05v); z36=(2.8u,2.7v); ka(32,90);
+ka(33,0); penpos34(0.12v,-90); penpos35(0.3u,180); penpos36(0.5v,90);
+mpalla(36,2.5); penstroke
+z31e{(0.7u,0)-(9u,4.8v)}...z32e...z33e...z34e...{down}z35e...{left}z36e;
+z37=(5.8u,8.5v); z38=(5.4u,8.1v); z39=(4.7u,8.5v); z40=(3.9u,8.2v);
+z41=(3.35u,8v); z42=(2.3u,8.5v); z43=(1.45u,8.8v); z44=(0.05u,7.65v);
+z45=(0,7.2v); z46=(1.9u,5.5v); z66'=(4.25u,6.6v); z47=(5u,6.7v); z48=(7.05u,4v);
+z49=(5.5u,1.2v); ka(37,180); z37'=z37; ka(37',0); kouki(37',1,1.2); ka(38,90);
+ka(39,90); ka(40,126); ka(41,90); ka(42,60); mpalla(42,1.1); ka(43,90);
+ka(44,170); ka(45,180); ka(46,-90); ka(66',-75); ka(47,-90); ka(48,180);
+ka(49,108); penstroke
+z37e{down}...z38e{left}...z39e{left}...z40e...z41e{left}...z42e...
+z43e...z44e...z45e...z46e...{(9u,8v)-(0,5.3v)}z66'e...z47e...z48e...
+{(2u,0)-(9u,2.4v)}z49e; mpalla(44,1.2); mpalla(45,1); mpalla(66',1);
+z50=(1.35u,7.3v); z51=(1.5u,7.1v); z52=(1.7u,7.5v); z53=(1.35u,7.7v);
+z54=(0.7u,6.9v); z55=(1.4u,6.05v); z55.2=(0.2u,5.5v); z55.3=(0.5u,5.1v);
+z55.4=(0.8u,5.4v); z55.5=(0.6u,5.55v); z55'=z55; ka(55,-112); ka(55',68);
+ka(55.2,180); ka(55.3,-90); ka(55.4,0); ka(55.5,90); kouki(55.5,7,1); penstroke
+z55'e{(0,6.6v)-(9u,3.2v)}...z55.2e{down}...z55.3e{right}...z55.4e{up}
+...{left}z55.5e; z56=(2.15u,5.9v); mpalla(56,1); z57=(0.6u,4.3v);
+z58=(0.7u,4.2v); z59=(u,4.5v); z60=(0.6u,4.8v); z61=(0.25u,4.4v);
+z62=(0.95u,3.7v); z63=(1.8u,4.3v); mpalla(63,1.2); z64=(2.25u,4.8v);
+z65=(3.2u,5v); z67=(3.4u,4.2v); ka(50,180); z50'=z50; ka(50',0);
+kouki(50',2,1); ka(51,-90); ka(52,0); ka(53,90); ka(54,180); ka(56,-90);
+z66=z66'; ka(66,-71); penstroke
+z50e{down}...z51e...z52e...z53e...z54e...z55e...z56e... {(9u,8v)-(0,5.3v)}z66'e;
+ka(57,180); ka(58,-90); ka(59,0); ka(60,90); ka(61,180); ka(62,-90); ka(63,-40);
+ka(64,-40); ka(67,32); ka(65,0); z57'=z57; ka(57',0); kouki(57',2,1); penstroke
+z57e{down}...z58e...z59e...z60e...z61e...z62e...z63e---z64e...
+{(9u,8v)-(0,5.3v)}z66'e; penstroke
+z67e{(0,8.2v)-(7u,0)}...z65e...{(9u,8v)-(0,5.3v)}z66'e; z68=(1.35u,0.75v);
+z69=(0.9u,1.2v); z70=(1.5u,1.7v); z71=(2.3u,0.9v); z72=(1.3u,0);
+z73=(0.15u,1.4v); mpalla(73,1.2); z74=(2.1u,3v); z75=(4.5u,1.3v); z76=(3.5u,0);
+z77=(2.8u,0.65v); ka(68,90); ka(69,0); ka(70,-90); ka(71,180); ka(72,90);
+ka(73,0); ka(74,-90); ka(75,180); ka(76,90); ka(77,0); kouki(77,2,1);
+z76'=z76+(0,0.2v); mpalla(76',2); penstroke
+z68e{left}...z69e...z70e...z71e...z72e...z73e...z74e...z75e...
+{left}z76e...{up}z77e; z78=(3.7u,1.2v); z78'=(5u,2.25v); z79=(6.6u,2.9v);
+z80=(8.35u,1.2v); mpalla(80,1.2); z81=(7.15u,0); z82=(5.95u,v); z83=(6.8u,2.1v);
+z84=(7.6u,1.5v); z85=(7.2u,v); z86=(6.7u,1.3v); z87=(5.95u,4.1v);
+z88=(7.2u,6.3v); z89=(7.8u,7.8v); z90=(7.2u,8.5v); z91=(6.7u,8.3v);
+z92=(6.2u,8.1v); z93=(6.9u,7.9v); z94=(5.6u,4v); z95=z89; z96=(8.8u,7v);
+z97=(8.3u,6.2v); z98=(7.7u,6.7v); z98'=z98+(0.15u,0); mpalla(98',1.5);
+z99=(8.1u,7.2v); z100=(8.35u,6.9v); ka(78,-54); ka(78',-54); ka(79,-90);
+ka(80,180); ka(81,90); ka(82,0); ka(83,-90); ka(84,180); ka(85,90); ka(86,0);
+penstroke
+z78e{(9u,5v)-(2u,0)}...z78'e{(9u,5v)-(2u,0)}...z79e...z80e...z81e{left}...
+z82e...z83e...z84e...z85e...{up}z86e; ka(87,-11); ka(88,-35); ka(89,0);
+ka(90,90); ka(91,135); ka(92,90); ka(93,-90); ka(94,0); ka(95,-90); ka(96,180);
+ka(97,90); ka(98,0); ka(99,-90); ka(100,180); penstroke
+z78'e{(9u,5v)-(2u,0)}...z87e...z88e...z89e...z90e...
+{(0,2v)-(7.5u,9v)}z91e...{left}z92e; kouki(92,5,1); penstroke
+z91e{(0,2v)-(7.5u,9v)}...{right}z93e; kouki(93,6,1.2); penstroke
+z78'e{(9u,5v)-(2u,0)}...{up}z94e...z95e{right}...z96e...z97e...z98e
+...z99e...{down}z100e; z101=(5.3u,3v); z102=(6.35u,4.1v); z103=(5.25u,5.5v);
+z104=(4.25u,5.8v); z105=(4.5u,6.15v); z106=(4.5u,4.8v); z107=(5.4u,4.05v);
+z108=(6.3u,3.9v); z109=(6.5u,3.6v); z110=(6.75u,3.4v); z111=(6.6u,3.2v);
+ka(101,-90); ka(102,0); ka(103,90); ka(104,0); ka(105,-90); ka(106,180);
+ka(107,-90); ka(108,-126); ka(109,-90); ka(110,180); ka(111,90); z101'=z101;
+ka(101',90); penstroke z101'e{left}...{(0,8v)-(7.3u,0)}z67e; penstroke
+z101e{right}...z102e{up}...z103e{left}...z104e...{right}z105e; kouki(105,8,1);
+penstroke z103e{left}...z106e...z107e{right}...{(9u,1.2v)-(u,9v)}z108e;
+penstroke z101e{right}...z109e...z110e...{left}z111e; kouki(111,5,1);
+z112=(7.6u,2.6v); z113=(8.3u,2.4v); z114=(8.6u,2.8v); z115=(8.25u,3.15v);
+z116=(7.95u,2.85v); z117=(8.2u,2.6v); ka(112,-122); ka(113,-90); ka(114,0);
+ka(115,90); ka(116,180); ka(117,-90); kouki(117,6,1.1); penstroke
+z112e...z113e...z114e...z115e...z116e...{right}z117e; z118=(8.05u,1.6v);
+z119=(7.85u,0.5v); z120=(8.5u,0); z121=(8.8u,0.3v); z122=(8.65u,0.45v);
+ka(118,180); ka(119,180); ka(120,-90); ka(121,0); ka(122,90); kouki(122,7,1.1);
+penstroke z112e...z118e...z119e...z120e...z121e...{left}z122e;
+z123=(0.8u,2.45v); z124=(1.4u,3.5v); z125=(0.8u,4.15v); z126=(0.25u,3.6v);
+z127=(0.6u,3.2v); z128=(0.8u,3.4v); z128'=(0.65u,3.55v); ka(123,-49); ka(124,0);
+ka(125,90); ka(126,180); ka(127,-90); ka(128,0); ka(128',90); kouki(128',7,1);
+penstroke z123e{(7.9u,9v)-(0,1.7v)}...z124e...z125e...z126e...z127e...z128e
+...{left}z128'e; z129=(5.3u,1.9v); z130=(5.65u,1.6v); ka(129,-90); ka(130,180);
+penstroke z78e...z129e...{down}z130e; kouki(130,3,1); z131=(5.7u,2.55v);
+z132=(6.2u,2.25v); z133=(6u,2.05v); ka(131,-90); ka(132,180); ka(133,90);
+kouki(133,5,1.2); penstroke z78'e...z131e...z132e...{left}z133e; mpalla(85,1.3);
+z200=(2.3u,3.65v); z201=(3.05u,4.45v); z202=(1.65u,5.7v);
+triaina(201,200,202,0.3); z203=z11; ka(203,180); z204=(5.4u,0.1v); ka(204,-90);
+penstroke z203e{down}..z204e{right}; kouki(204,6,1); z205=(8.2u,1.05v);
+z206=(7.8u,0.4v); z207=(7u,1.75v); triaina(205,206,207,0.6); z208=(8u,6.1v);
+z209=(8.7u,5.2v); z210=(7.8u,4v); ka(208,-90); ka(209,180); ka(210,90);
+penstroke z102e{up}..z208e{right}.. z209e{down}..z210e{left}; z211=(8.5u,3.6v);
+mpalla(211,1.3); z212=(6.55u,3.95v); z213=(6.55u,4.5v); z214=(7.5u,3.95v);
+triaina(212,213,214,0.7); z215=(5.2u,5.05v); ka(215,90); penstroke
+z107e{right}..z215e{left}; z216=(4.9u,1.45v); mpalla(216,1.3); z217=z40;
+ka(217,90); z218=(3.2u,8.75v); ka(218,0); penstroke z217e{dir210} ..z218e{up};
+kouki(218,2,1.1); z219=(8.9u,8.5v); ka(219,0); penstroke z95e{right}..
+z219e{up}; kouki(219,1,1.3); z220=(6.05u,5.8v); mpalla(220,1); z221=(7.8u,5.6v);
+z222=(8.4u,5.2v); ka(221,-90); ka(222,180); penstroke z221e{right}..z222e{down};
+kouki(222,3,1);
+penlabels(range 1 thru 225); .endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitE.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitE.mf
new file mode 100644
index 00000000000..2d3a3378439
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitE.mf
@@ -0,0 +1,100 @@
+.cmchar "The letter E";
+.beginchar("E",8.9u#-1mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(1.5u,1.6v); z2=(1.8u,1.5v); z3=(2.2u,1.8v); z4=(2.2u,2.25v);
+z5=(2.6u,2.3v);z6=(3u,1.5v); z7=(2u,0.55v); z8=(0.7u,1.8v); z9=(2u,3.3v);
+z10=(3.6u,2.8v); z11=(4.7u,1.5v); z12=(6.7u,0.8v); z13=(8.15u,2.2v);
+z14=(7.2u,3.25v); z15=(6.45u,2.8v); z16=(6.7u,2.3v); z17=(7u,1.95v);
+z18=(6.7u,1.7v); z19=(4.45u,1.75v); z20=(4.5u,1.65v); z21=(5.75u,4v);
+z22=(5.55u,4.6v); z23=(4.05u,5.7v); z24=(3.7u,6.5v); z25=(4.4u,7.5v);
+z26=(6.05u,7.3v); z27=(6.45u,6.7v);z28=(5.25u,5v); z29=(7.1u,4.95v);
+z30=(7.3u,4.55v); penpos1(hair,180); z1'=z1; ka(1',0); kouki(1',2,1.2);
+penpos2(0.2v,-90); penpos3(0.5u,9.5); penpos4(0.55u,-20); penpos5(0.2v,-90);
+ka(6,180); ka(7,90); ka(8,0); penpos9(0.45v,-90); penpos10(0.85uv,-138);
+penpos11(0.8uv,-142);penpos12(0.45v,-90); penpos13(1.2hair,0); ka(14,90);
+penpos15(0.4u,180); penpos16(0.5uv,-109); penpos17(0.2u,180); ka(18,90);
+penstroke z1e...z2e{right}... z3e{up}...z4e...z5e...z6e...z7e...
+z8e...z9e...z10e...z11e...z12e... z13e{up}...{left}z14e...z15e{down}...z16e...
+z17e{down}...{left}z18e; penpos19(hair,-41); ka(20,-50); penpos21(0.6u,0);
+penpos22(0.75uv,40); penpos23(0.9uv,58); penpos24(0.5u,0);
+penpos25(1.5hair,-64); penpos26(0.6uv,-145); penpos27(2uv,-145); penstroke
+z20e{(9u,5.5v)-(2.6u,0)}... z21e...z22e...z23e...z24e...z25e... {z27-z26}z26e;
+z19.1=(5u,3.3v); z19.2=(3.7u,4.6v); z19.3=(3.2u,4.5v); penpos19.1(0.4u,0);
+penpos19.2(0.75uv,63); penpos19.3(1.6uv,43); penstroke z19e{(9u,7v)-(3.1u,0)}...
+z19.1e{up}...z19.2e{(0,5.1v)-(9u,3.9v)} ...{z19.3-z19.2}z19.3e; ka(28,-58);
+penpos29(0.55uv,-139); penpos30(1.5uv,-139); penstroke z28e{(9u,7.4v)-(0,2v)}...
+{z30-z29}z29e; penpos27.1(1.5hair,-235); z27.1l=z27r; penpos27.2(hair,-55);
+z27.2r=z27l; filldraw z26l{z27-z26}...{z27.2-z27.1} z27.2l & z27.2l--z27.2r &
+z27.2r--z27.1l & z27.1l--z27.1r & z27.1r{z27.2-z27.1} ...{z26-z27}z26r &
+z26r--z26l & cycle; penpos30.1(1.5hair,-49); z30.1r=z30l; filldraw
+z29l{z30-z29}...{z30l-z30r} z30.1l & z30.1l--z30.1r & z30.1r--z30r &
+z30r{z30l-z30r}...z29r & z29r--z29l & cycle; z31=(4.4u,4.8v); z32=(3.5u,2.8v);
+z33=(3u,0.4v); z34=(2u,0); z35=(1.5u,0.1v); z36=(0.1u,2v); z37=(0.15u,2.4v);
+z38=(1.5u,3.9v); z39=(2.35u,4v); z40=(4.65u,2.5v); z40'=(4.45u,2.15v);
+z41=(4.25u,2.5v); z42=(5.35u,3.2v); z43=(6.55u,2v); z44=(5.2u,0.4v);
+z45=(3.45u,1.55v); z46=(4.1u,3.8v); z47=(7.4u,7.8v); z48=(6.9u,8.35v);
+z49=(6.7u,7.9v); z50=(8u,5.3v); z51=(7.8u,5.6v); ka(31,-141); ka(32,180);
+ka(33,127); ka(34,90); ka(35,77); mpalla(33,1.5); mpalla(35,1.3); ka(36,0);
+ka(37,-9); ka(38,-65); ka(39,-90); ka(40,180); ka(40',90); ka(41,0); ka(42,-90);
+ka(43,180); ka(44,90); ka(45,31); ka(46,-31); ka(47,0); ka(48,90); ka(49,-90);
+kouki(49,6,1.2); ka(50,0); ka(51,90); kouki(51,7,1.5); penstroke
+z27.1e{z27r-z27l}...z31e... z32e...z33e...z34e...z35e...z36e...z37e
+...z38e...z39e...{down}z40e...z40'e... {up}z41e...z42e...z43e...z44e...z45e...
+z46e...z28e{(9u,7.4v)-(0,2v)}; penstroke z27.2e{z27l-z27r}...z47e...
+z48e{left}...{right}z49e; penstroke z30.1e{z30l-z30r}...z50e... {left}z51e;
+z52=(7.5u,4.1v); z53=(8.15u,4.3v); z54=(8.2u,3.4v); z55=(7.8u,2.7v);
+z56=(7.2u,3.4v); z57=(7.6u,3.65v); z58=(6.25u,4.2v); z59=(7.2u,6.85v);
+z60=(8u,6v); z61=(7.4u,5.5v); z62=(6.9u,6v); z63=(7.2u,6.3v);
+z64=(5.75u,6.3v); z65=(6.8u,8.65v); z66=(8u,7.5v); z67=(7.35u,6.6v);
+z68=(6.7u,7.2v); z69=(7.15u,7.3v); z70=(7.55u,7.5v); z71=(6.5u,8.1v);
+z72=(6u,8.55v); z73=(5.8u,8.4v); z74=(6u,8.2v); z75=(4.7u,8.8v);
+z75.1=(5u,8.6v); z75.2=(4.9u,8.35v); z75.3=(5u,8.05v); penpos75.1(0.25u,180);
+penpos75.2(0.4uv,-147); ka(75.3,-124); z76=(2.5u,8.3v); z77=(0.75u,7v);
+z78=(1.9u,5.9v); z78'=(2.6u,6.1v); z79=(3u,6.8v); z80=(2.1u,7.8v);
+z81=(1.5u,7.3v); z82=(1.8u,6.9v); z83=(2.05u,6.95v); z84=(2.4u,6.5v);
+z85=(2.1u,6.35v); z86=(2.05u,5.2v); z87=(2.7u,4.55v); z88=(3.25u,5v);
+z89=(3u,5.4v); z90=(2.75u,5.25v); z91=(0.7u,4.4v); z92=(0,5v);
+z93=(0.5u,5.55v); z94=(0.8u,5.2v); z94'=(0.7u,4.9v); z95=(0.3u,5.9v);
+z96=(3u,7.6v); z97=(1.5u,7.4v); z98=(0,8.3v); z98'=(0.5u,8.7v);
+z99=(0.5u,8.2v); z100=(0.35u,8.35v); z101=(1.9u,8.7v); z102=(3.3u,7v);
+z103=(1.2u,5.2v); z104=(2.6u,3.6v); z105=(8.3u,0.7v); z106=(7.8u,0);
+z107=(7.45u,0.4v); z108=(7.7u,0.65v); ka(52,-90); ka(53,0); ka(54,180);
+ka(55,90); ka(56,0); ka(57,-90); ka(58,0); ka(59,-90); ka(60,180); ka(61,90);
+ka(62,0); ka(63,-90); ka(64,27); ka(65,-90); ka(66,180); ka(67,90); ka(68,0);
+ka(69,-90); ka(70,180); ka(71,0); ka(72,90); ka(73,180); ka(74,-90);
+ka(75,-90); ka(76,90); ka(77,180); mpalla(77,1.5); ka(78,-90); ka(79,0);
+ka(80,90); penpos81(2hair,180); penpos82(0.5v,-90); ka(94',90);
+penpos83(0.45uv,-59); ka(84,180); ka(85,90); ka(86,180); ka(87,-90); ka(88,0);
+ka(89,90); ka(90,90); ka(91,90); ka(92,0); ka(93,-90); ka(94,180); ka(95,0);
+ka(96,90); ka(97,90); ka(98,0); ka(98',-90); ka(99,90); ka(100,0); ka(101,-85);
+ka(102,90); ka(103,180); ka(104,-90); ka(105,180); ka(106,90); ka(107,0);
+ka(108,-90); z52'=(4.65u,1.65v); ka(52',-57); z52.2=(6.05u,2.95v); ka(52.2,-38);
+penstroke z52'e{(9u,4.7v)-(2.3u,0)}...z52.2e...{right}z52e...{up}z53e;
+kouki(53,1,1.2); penstroke z52e{right}...{down}z54e...z55e...z56e...{right}z57e;
+penstroke z52'e{(9u,4.7v)-(2.3u,0)}...{up}z58e...{right}z59e...z60e...z61e...
+z62e...{right}z63e; kouki(63,8,1.5); penstroke
+z58e{up}...z64e...z65e{right}...z66e...z67e...z68e...z69e... {down}z70e;
+kouki(70,3,1.2); z75.4=(4.3u,8.4v);ka(75.4,0); penstroke
+z68e{up}...z71e...z72e...z73e...{right}z74e; penstroke
+z64e{(4.2u,9v)-(9u,0.6v)}...z75.4e...{right}z75e...z75.1e{down}...z75.2e{(0,4v)-(5.6u,9v)}
+...{(9u,5.8v)-(3.4u,9v)}z75.3e; penstroke
+z64e{(4.2u,9v)-(9u,0.6v)}...z76e...z77e...z78e...z79e...z80e...
+z81e...{right}z82e...z83e...{down}z84e...{left}z85e; ka(78',126); penstroke
+z78'e{(0,4v)-(6.25u,9v)}...{down}z86e...z87e...z88e... {left}z89e;
+kouki(89,7,1); penstroke z89e...z90e...z91e...z92e...z93e...z94e...{left}z94'e;
+kouki(94',5,1.2); penstroke z92e{up}...{up}z95e; kouki(95,1,1.2); penstroke
+z58e{up}...{left}z96e...{left}z97e...z98e...z98'e...z99e...z100e...
+{right}z101e; z23'=z23; penpos23'(hair,0); penstroke
+z58e{up}...z102e{left}...z103e...z104e...z23'e; z105.1=(5.5u,1.65v);
+z105.2=(6.9u,1.3v); z105.3=(7.7u,2.2v); z105.4=(7.1u,2.75v); ka(105.1,-120);
+ka(105.2,-90); ka(105.3,0); ka(105.4,90); penstroke
+z105.1e{(8.5u,0)-(0,4.6v)}...z105.2e...z105.3e...{left}z105.4e; penstroke
+z105.2e{right}...z105e{down}...z106e...z107e...{right}z108e; kouki(108,8,1.5);
+kouki(57,8,1.2); mpalla(105.2,1.2); mpalla(45,1.5); mpalla(37,1.6);
+z109=(3.85u,v); z110=(4.4u,0.55v); z111=(4.2u,0.3v); z112=(3.9u,0.5v);
+z113=(3.5u,0.4v); ka(109,-90); ka(110,180); penpos111(0.2v,90);
+penpos112(0.2uv,45); ka(113,180); kouki(113,4,1); z33'=z33; ka(33',-53);
+penstroke z33'e{(9u,5.6v)-(2.5u,0)}...z109e...
+z110e...z111e...z112e...{down}z113e;
+penlabels(range 1 thru 120); .endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitF.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitF.mf
new file mode 100644
index 00000000000..7e45909d367
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitF.mf
@@ -0,0 +1,109 @@
+.cmchar "The letter F";
+.beginchar("F",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.2u,5.3v); z2=(3.6u,5.7v); z3=(3.45u,6.05v); z4=(2.95u,6.25v);
+z5=(2.45u,6.65v); z6=(2.5u,7v); z7=(3.25u,7.45v); z8=(4.45u,6.25v);
+z9=(3u,4.65v); z10=(1.35u,6.4v); z11=(3.35u,8.45v); z12=(5.5u,7.45v);
+z13=(7.8u,6.4v); z14=(8.8u,7.6v); z15=(7.8u,8.5v); z16=(7.15u,7.9v);
+z17=(7.7u,7.45v); z18=(8.1u,7.4v); z19=(8.25u,7.75v); z20=(4.7u,0.95v);
+z21=(5.7u,1.7v); z22=(6.8u,3.4v); z23=(6.4u,4.25v); z24=(5.1u,5.15v);
+z25=(4.9u,6v); z26=(5.9u,7v); z27=(4.3u,0.2v); z28=(4.4u,1.5v);
+z29=(2.2u,2.3v); z30=(1.85u,3.3v); z31=(3u,4.3v); z32=(3.75u,3.6v);
+z33=(3.15u,2.85v); z34=(2.6u,3.35v); z35=(2.85u,3.75v); z36=(4.25u,4.2v);
+z37=(4.65u,4v); z38=(5.9u,2.8v); z39=(5.45u,1.95v); z41=(6.2u,4.75v);
+z42=(8u,4.6v); penpos1(hair,-90); penpos2(0.1u,0); penpos3(0.5uv,42);
+penpos4(0.9v,90); penpos5(0.65uv,37); penpos6(0.25u,0); penpos7(1.5hair,-90);
+penpos8(1.5hair,180); penpos9(1.5hair,90); penpos10(1.5hair,0);
+penpos11(0.7v,-90); penpos12(uv,-140); penpos13(0.5uv,-90); penpos14(0.2u,0);
+penpos15(hair,90); penpos16(hair,180); penpos17(0.4v,-90); penpos18(0.2v,-90);
+penpos19(hair,0); penpos20(hair,-35); penpos22(0.8u,0); penpos21(1.5hair,-35);
+penpos23(uv,51); penpos24(uv,51); penpos25(0.475u,0); penpos26(hair,-52);
+penpos27(hair,-23); penpos28(1.05uv,60); penpos29(0.8uv,42); penpos30(0.4u,0);
+penpos31(1.5hair,-90); penpos32(hair,180); penpos33(hair,90);
+penpos34(hair,0); penpos35(hair,-90); penpos36(1.4uv,50); penpos37(0.8uv,52);
+penpos38(0.3u,0); penpos39(hair,-53); penpos41(hair,40);
+penpos42(0.8uv,-140); penstroke
+z1e{right}...{up}z2e...z3e...{left}z4e...z5e...z6e...z7e...z8e...z9e...z10e...
+z11e...z12e...z13e...z14e...{left}z15e...{down}z16e...z17e...z18e...{up}z19e;
+penstroke z20e{(9u,9v)-(4.1u,0)}...z21e...z22e...z23e...z24e...z25e...
+{(8.8u,9v)-(0,2.9v)}z26e; penstroke
+z27e{(7.2u,9v)-(4.2u,0)}...z28e{(0,4.3v)-(6.9u,0)}...z29e...z30e...
+z31e...z32e...z33e...z34e...{right}z35e; kouki(35,8,2); z36'=z36+(0.1u,0);
+z37'=(5.7u,3.8v); filldraw flex(z36l,z36',z36r) &
+z36r{down}...z37r...z37'...z38r...{(2.95u,0)-(9u,4.7v)}z39r & z39r--z39l &
+z39l{(9u,4.7v)-(2.95u,0)}...z38l...z37l...{(0,2.3v)-(9u,5.5v)}z36l & cycle;
+penpos42.1(1.5hair,-50); penpos42.2(1.5hair,-230); z42.1r=z42l; z42.2l=z42r;
+penpos43(hair,-50); penpos44(hair,-230); z43=(8.7u,5.15v); z44=(7.4u,4v);
+z41'=(7.5u,5.45v); filldraw z41l{(9u,8v)-(2u,0)}...z41'...z42.1l...z43l &
+z43l--z43r & z43r--z44l & z44l--z44r & z44r...z42.2r...{(2u,0)-(9u,8v)}z41r &
+z41r--z41l & cycle; z50=(7.55u,1.8v); z51=(7.05u,1.85v); z52=(7.1u,2.15v);
+z53=(7.5u,2.4v); z54=(8.15u,1.7v); z55=(6.85u,0.85v); mpalla(55,1.2);
+z56=(5.2u,0.45v); z57=(5.8u,0.1v); z58=(6.15u,0.4v); z59=(5.9u,0.6v);
+z60=(5.4u,1.55v); z61=(2.8u,3.25v); z62=(1.4u,2.8v); z63=(0.8u,1.5v);
+z64=(1.2u,0.4v); z65=(2.15u,0); z66=(3.2u,1.7v); z67=(2.25u,2.05v);
+z68=(1.4u,1.3v); z69=(1.7u,0.8v); z70=(2.25u,0.8v); z71=(2.6u,1.2v);
+z72=(0.6u,0); z73=(0.1u,0.5v); z74=(0.45u,v); z75=(0.8u,0.7v);
+z76=(0.65u,2.4v); z77=(0.05u,3v); z78=(0.5u,3.4v); z79=(0.8u,3.1v);
+z80=(0.65u,2.85v); z81=(2.7u,5.3v); z82=(1.55u,4.3v); z83=(0.8u,3.65v);
+z84=(0.4u,4v); z85=(0.6u,4.2v); z86=(2.2u,3.65v); z87=(2.7u,4.15v);
+z88=(2.3u,4.5v); z89=(4.2u,5v); z89'=(3.9u,6.3v); z90=(1.8u,8v);
+z91=(0.15u,6.5v); mpalla(91,1.3); z92=(1.25u,5v); z93=(2.15u,6.05v);
+z94=(1.4u,6.9v); z95=(0.65u,6.3v); z96=(1.25u,5.7v); z97=(1.7u,6.1v);
+z98=(2.45u,7.4v); z99=(1.4u,8.6v); z100=(1.9u,9.15v); z101=(2.25u,8.8v);
+z102=(2u,8.6v); z103=(1.5u,7.3v); z104=(0,8.5v); z105=(0.75u,9.15v);
+z106=(1.05u,9v); z107=(0.95u,8.65v); z108=(0.7u,8.4v); z109=(0.8u,8.2v);
+z110=(5.55u,4.8v); z111=(7.4u,8v); z112=(5.9u,9.3v); z113=(4.3u,7.7v);
+z114=(5.5u,6.5v); z115=(6.85u,7.7v); z116=(5.9u,8.6v); z117=(7.5u,5.8v);
+z118=(9.05u,4.25v); mpalla(118,1.2); z119=(7.9u,3v); z120=(6.8u,3.9v);
+z121=(7.65u,4.8v); z122=(8.35u,4.2v); z123=(7.9u,3.6v); z124=(7.25u,1.65v);
+z125=(8.3u,1.3v); z126=(9.05u,2.05v); z127=(8.6u,2.5v); z128=(8.3u,2.2v);
+z129=(8.5u,1.95v); z130=(9u,0.55v); z131=(8.65u,0.15v); z132=(8.4u,0.4v);
+z133=(7.85u,0.6v); z134=(7.5u,0.05v); z135=(7.15u,0.3v); z136=(7.3u,0.55v);
+z137=(2.6u,8.75v); z138=(3.65u,9.1v); z139=(6.2u,7.9v); z140=(7.7u,6.9v);
+z141=(8.1u,8.2v); z141'=(7.3u,9v); mpalla(141',1.2); ka(50,90);
+penpos51(0.5uv,45); penpos52(0.2u,0); ka(53,-90); ka(54,180); ka(55,90);
+ka(56,180); penpos57(0.25v,-90); ka(58,0); ka(59,90); ka(60,49); ka(61,90);
+ka(62,125); ka(63,180); ka(64,-135); ka(65,-90); ka(66,0); ka(67,90);
+ka(68,180); ka(69,-122); penpos70(0.2v,-90); ka(71,0); ka(72,90); ka(73,0);
+ka(74,-90); ka(75,180); ka(76,90); ka(77,0); ka(78,-90); ka(79,180); ka(80,90);
+ka(81,90); ka(82,180); ka(83,90); ka(84,0); ka(85,-90); ka(86,-90); ka(87,0);
+ka(88,90); ka(89,12); ka(89',25); ka(90,90); ka(91,180); ka(92,-90); ka(93,0);
+ka(94,90); ka(95,180); ka(96,-90); ka(97,0); kouki(97,1,1.5); ka(98,65);
+ka(99,0); ka(100,-90); ka(101,180); ka(102,90); kouki(102,5,1.1); ka(103,86);
+ka(104,0); ka(105,-90); penpos106(0.2u,180); penpos107(0.3uv,132);
+penpos108(0.2u,180); ka(109,-90); ka(110,-43); ka(111,0); ka(112,90);
+ka(113,180); ka(114,-90); ka(115,0); ka(116,90); kouki(106,7,1.2); ka(117,-90);
+ka(118,180); ka(119,90); ka(120,0); ka(121,-90); ka(122,180); ka(123,90);
+kouki(123,5,1); penpos124(0.3uv,-140); ka(125,-90); ka(126,0); ka(127,90);
+ka(128,180); ka(129,-90); kouki(129,6,1.1); ka(130,180); ka(131,90); ka(132,0);
+kouki(132,2,1.1); ka(133,180); ka(134,90); ka(135,0); ka(136,-90);
+kouki(136,8,1.1); ka(137,-51); ka(138,-90); ka(139,-135); ka(140,-90);
+ka(141,90); kouki(141,7,1); penstroke
+z50e{left}...z51e...z52e...z53e...z54e...z55e{left}...z56e...z57e...
+z58e...{left}z59e; penstroke
+z55e{left}...z60e...z61e...z62e{(0,1.6v)-(8.8u,9v)}...z63e...z64e...
+z65e...z66e...z67e...z68e...z69e...z70e...{up}z71e; penstroke
+z68e{down}...z72e...z73e...z74e...{down}z75e; kouki(75,5,1.2); penstroke
+z62e{(0,1.6v)-(8.8u,9v)}...z76e...z77e...z78e...z79e...{left}z80e;
+kouki(80,5,1.2); penstroke
+z60e{(0,7v)-(7u,0)}...z81e...z82e{down}...z83e...z84e...{right}z85e;
+kouki(85,8,1); penstroke z82e{down}...z86e...z87e...{left}z88e; kouki(88,7,1.3);
+penstroke z60e{(0,7v)-(7u,0)}...z89e{up}...z89'e...z90e...z91e...z92e...z93e...
+z94e...z95e...z96e...{up}z97e; penstroke
+z89'e{(3u,9v)-(6.1,0)}...z90e...z91e...z92e...z93e...z94e...z95e...
+z96e...{up}z97e; penstroke
+z89'e{(3u,9v)-(6.1,0)}...z98e...z99e...z100e...z101e...{left}z102e; penstroke
+z89'e{(3u,9v)-(6.1,0)}...z103e...z104e...z105e...z106e...z107e...
+z108e...{right}z109e; penstroke
+z60e{(0,7v)-(7u,0)}...z110e...z111e...z112e...z113e...z114e...z115e
+...{left}z116e; kouki(116,7,1.1); penstroke
+z110e{(9u,7.8v)-(0,0.3v)}...z117e...z118e...z119e...z120e...z121e...
+z122e...{left}z123e; mpalla(124,1.8); penstroke
+z124e...z125e...z126e...z127e...z128e...{right}z129e; penstroke
+z124e{(9u,0.5v)-(0,7v)}...z130e...z131e...{up}z132e; penstroke
+z124e{(9u,0.5v)-(0,7v)}...z133e...z134e...z135e...{right}z136e;
+z140'=(8.5u,7.5v); ka(140',0); penstroke
+z137e{(3u,9v)-(0,7.2v)}...z138e...z139e...z140e{right}...z140'e...{left}z141e;
+penlabels(range 1 thru 145);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitG.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitG.mf
new file mode 100644
index 00000000000..57e62eb1633
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitG.mf
@@ -0,0 +1,89 @@
+.cmchar "The letter G";
+.beginchar("G",8.9u#+0.1mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.45u,1.4v); z2=(4.35u,2.25v); z3=(3.8u,2.4v); z4=(3.05u,3.2v);
+z5=(3.75u,3.95v); z6=(4.15u,3.55v); penpos1(hair,0); penpos2(0.85uv,62);
+penpos3(0.8v,90); penpos4(0.3u,0); ka(5,-90); ka(6,-180); kouki(6,3,2);
+penstroke z1e{up}...z2e{(0,2.75v)- (5.1u,0)}...z3e{left}...z4e{up}...
+z5e{right}...z6e{down}; z11=(4.5u,1.9v); z12=(5.1u,2.45v); z13=(6.2u,4v);
+z14=(5.8u,4.9v); z15=(4.1u,5.8v); z16=(3.75u,6.5v); z17=(4.35u,7.6v);
+ka(11,-48); ka(12,-48); penpos13(0.65u,0); penpos14(0.95uv,50);
+penpos15(0.95uv,53); penpos16(0.65u,0); ka(17,-51); penstroke
+z11e{(9u,6.1v)-(2.5u,0)}... z12e{(9u,6.1v)-(2.5u,0)}...z13e{up}...
+z14e{(0.7u,9v)-(9u,2.3v)}... z15e{(0.7u,9v)-(9u,2.3v)}...z16e...
+{(6.8u,9v)-(0,5v)}z17e; z17.1=(6.45u,8.95v); z17.2=(7.75u,7.35v);
+z17.3=(6.33u,6.3v); z17.4=(6.2u,7.7v); z17.45=(5.2u,8.05v); z17.5=(6.2u,8.5v);
+z17.6=(7.3u,7.45v); z17.7=(8.45u,8.45v); penpos17.1(hair,-23.5);
+penpos17.2(0.3uv,-57); penpos17.3(hair,123); penpos17.7(hair,0); filldraw
+z17l{(6.8u,9v)-(0,5v)}... z17.45 & flex(z17.45,z17.5,z17.1l) & z17.1l--z17.1r &
+flex(z17.1r,z17.6,z17.7l) & z17.7l--z17.7r{up} & z17.7r{down}...z17.2r--z17.3l &
+z17.3l--z17.3r & flex(z17.3r,z17.4,z17r) & z17r--z17l & cycle; z18=(5.1u,5.3v);
+z19=(4.3u,3.6v); z20=(5.85u,2.3v); z21=(7.2u,3.5v); z22=(6.8u,3.95v);
+z23=(6.5u,3.7v);
+ z25=(7.8u,9v); z26=(7.2u,8.5v); z27=(7.6u,8v); z28=(8u,8.3v); ka(18,123);
+ka(19,-180); ka(20,-90); ka(21,0); ka(22,90); ka(23,-180); kouki(23,4,1.5);
+ka(25,90); ka(26,180); ka(27,-90); ka(28,0); kouki(28,1,1.2); penstroke
+z17.3e{z17.3-z17.2}...z18e... z19e...z20e...z21e...z22e...z23e{down}; penstroke
+z17.7e{up}... z25e...z26e...z27e...z28e{up}; z29=z18+(0.3u,-0.15v);
+z30=(8.1u,4.55v); z31=(6.7u,1.2v); z32=(2.15u,2.4v); z33=(3.35u,7.25v);
+z34=(4.4u,7.5v); z35=(6.55u,5.5v); z36=(4.4u,3.4v); z37.1=(2.9u,4.15v);
+z37=(2.6u,5v); z38=(4.45u,6.6v); z39=(5.3u,5.7v); ka(29,-57);
+penpos30(0.85uv,-152); penpos31(1.5hair,121); penpos32(uv,28);
+penpos33(1.5hair,-60.5); ka(34,-90); ka(35,-180); ka(36,90); ka(37,0);
+ka(37.1,38); ka(38,-90); ka(39,-180); penstroke z29e{(8.7u,9v)-(1.45u,0)}...
+z30e{(9u,2.8v)-(5.75u,9v)}...z31e... z32e...z33e...z34e...z35e...z36e...
+z37e...z38e...z39e... {(1.45u,0)-(8.7u,9v)}z18e; z7=(5.1u,2.7v); z8=(5.35u,3.4v);
+z9=(4.5u,4.35v); z10=(3.85u,4.55v); ka(7,-30); penpos9(0.6uv,58);
+penpos8(0.3u,0); penpos10(0.7uv,59); z10.1=z89=(2.3u,3.9v); z10.2=z15l;
+z10.3=(3.3u,4.6v); filldraw z7l{(9u,9v)-(3.4u,0)}... flex(z8l,(4.1u,4.1v),z10.1)
+& flex(z10.1,z10.3,z10.2) & z10.2...z10r... z9r...z8r...{(3.4u,0)-(9u,9v)}z7r &
+z7r--z7l & cycle; z29.2=z18; z40=(6.9u,6.05v); z41=(8.9u,4v); z42=(6.9u,0.8v);
+z43=(4.5u,0); z44=(1.9u,0.9v); z45=(0.65u,4v); z46=(1.45u,6.5v);
+z47=(5.3u,8.8v); z47.1=(7.9u,8.15v); z48=(8.85u,6.6v); z49=(8.1u,5.9v);
+z50=(7.55u,6.45v); z51=(7.95u,6.85v); z52=(8.3u,6.6v); z53=(0,0.8v);
+z54=(0.7u,0.1v); z55=(1.2u,0.7v); z56=(0.75u,1.1v); z57=(0.4u,0.8v);
+z58=(2.2u,0.95v); z59=(2.65u,0.5v); z60=(2.4u,0.1v); z61=(2.3u,8.35v);
+z62=(1.35u,9.25v); z63=(0.5u,8.5v); z64=(1.15u,7.7v); z65=(1.7u,8.25v);
+z66=(1.35u,8.65v); z67=(0.25u,7.7v); z68=(0.6u,7.2v); z69=(3.4u,7.8v);
+z70=(4u,8.65v); z71=(3.5u,9.25v); z72=(3u,8.9v); z73=(8.8u,7.7v); z74=(9.1u,8v);
+z74.1=(8.9u,8.25v); z75=(6.8u,2.65v); z76=(7.3u,2.8v); z77=(6.3u,1.5v);
+z78=(7.55u,0); z79=(8.6u,v); z80=(8u,1.75v); z81=(7.3u,1.2v); z82=(7.8u,0.6v);
+z83=(8.3u,1.45v); z84=(8.8u,2.25v); z85=(9u,2v); z86=(1.15u,5.1v);
+z87=(0.15u,4v); z88=(1.2u,2.9v); z90=(1.4u,4.6v); z91=(0.1u,5.4v);
+z92=(0.6u,6.5v); z92.1=(0.4u,6.85v); ka(29.2,-57); ka(40,-90); ka(41,180);
+ka(42,120); ka(43,90); ka(44,43); ka(45,0); ka(46,-32); ka(47,-78);
+ka(47.1,-126); ka(48,-168); ka(49,90); ka(50,0); ka(51,-90); ka(52,180);
+kouki(52,3,1.5); ka(53,180); ka(54,-90); ka(55,0); ka(56,90); ka(57,180);
+kouki(57,4,1.2); ka(58,-90); ka(59,180); ka(60,90); z60.2=(2.05u,0.35v);
+z60.3=(1.7u,0.4v); penpos60.2(0.2u,15); ka(60.3,100); ka(61,0); ka(62,90);
+ka(63,180); ka(64,-90); ka(65,0); mpalla(61,0.5); ka(66,90); ka(67,180);
+ka(68,-90);
+ ka(69,-70); mpalla(69,1); ka(70,0); ka(71,90); ka(72,180); kouki(72,4,1);
+ka(73,-90); ka(74,0); ka(74.1,90); kouki(74.1,7,1); mpalla(75,1.5); ka(75,129);
+ka(76,90); z76.1=z76; ka(76.1,-90); kouki(76.1,8,1.2); ka(77,180); ka(78,-90);
+ka(79,0); ka(80,90); ka(81,180); ka(82,-90); ka(83,45); ka(84,-90); ka(85,180);
+kouki(85,3,1.2); ka(86,90); ka(87,180); ka(88,-90); ka(89,0); ka(90,77);
+ka(91,0); ka(92,0); ka(92.1,54); penstroke z29e{(7.6u,9v)-(1.6u,0)}...
+z40e...z41e...z42e...z43e... {(0,2.7v)-(2.8u,0)}z44e...z45e...
+{(2.9u,9v)-(0,4v)}z46e...z47e... z47.1e{(9u,7.5v)-(6.6u,9v)}...
+z48e...z49e...z50e...z51e... {down}z52e; penstroke z44e{(0,2.7v)-(2.8u,0)}...
+z53e{down}...z54e{right}...z55e... z56e...{down}z57e; penstroke
+z54e{right}...z58e...z59e... z60e{left}...z60.2e{(0,3.8v)-(2.3u,0)}...
+{(u,0)-(9u,5.1v)}z60.3e; penstroke z46e{(2.9u,9v)-(0,4v)}...
+z61e{up}...z62e...z63e...z64e...z65e... z66e{left}; z150=(1.4u,8.2v);
+z151=(0.2u,8.2v); z152=(1.4u,9.3v); triaina(150,151,152,0.6); mpalla(42,1.5);
+mpalla(87,1.5); penstroke z46e{(2.9u,9v)-(0,4v)}...
+z69e...z70e...z71e...{down}z72e; penstroke z47.1e{(9u,7.5v)-(6.6u,9v)}...
+z73e...z74e...{left}z74.1e; penstroke z76e{left}...z75e...z77e...
+z78e...z79e...z80e...z81e...z82e... z83e...z84e...{down}z85e; penstroke
+z37.1e{(0,8v)-(6u,0)}...z86e...z87e... z88e...z89e...z90e...z91e...z92e...
+{(0,v)-(u,0.2v)}z92.1e; z100=(1.2u,7.2v); z101=(1.8u,8v); z102=(2.2u,6.5v);
+triaina(100,101,102,1/2); z103=(6.6u,1.6v); z104=(5.8u,1.1v); z105=(5.9u,2.6v);
+triaina(103,104,105,1/2); z106=(1.3u,0.9v); z107=(u,1.3v); z108=(2u,1.4v);
+triaina(106,107,108,0.7); mpalla(38,1.5); z109=(5.4u,7.25v); z110=(5.1u,7.6v);
+z111=(4.8u,7.35v); ka(109,0); ka(110,90); ka(111,180); penstroke
+z38e{right}...z109e...z110e ...{down}z111e; kouki(111,4,1); z111.1=(5.5u,6.45v);
+mpalla(111.1,2); z112=(1.85u,4.75v); z113=(1.85u,5.6v); z114=(3.4u,4.75v);
+triaina(112,113,114,0.6); penlabels(range 1 thru 115);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitH.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitH.mf
new file mode 100644
index 00000000000..269cc8401af
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitH.mf
@@ -0,0 +1,123 @@
+.cmchar "The letter H";
+.beginchar("H",8.9u#+0.2mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(1.9u,0.3v); z2=(2.7u,1.1v); z3=(4.3u,3.55v); z4=(3.7u,4.9v);
+z5=(2.85u,6.35v); z6=(3.8u,7.8v); z7=(5.1u,5.85v); z8=(6.15u,8.6v);
+z9=(7.6u,7.1v); z10=(8.1u,8v); z11=(7.55u,8.55v); z12=(7.25u,8.3v);
+z13=(7.4u,8.1v); z14=(7.6u,8.2v); z15=(7.8u,8.1v); z16=(1.7u,1.8v);
+z17=(0.8u,2.9v); z18=(1.7u,3.75v); z19=(2.3u,3.2v); z20=(1.9u,2.75v);
+z21=(1.55u,3v); z22=(1.75u,3.25v); z23=(1.92u,3.15v); z27.2=(2.2u,4.65v);
+z24=(2u,3.1v); z25=(2.3u,1.4v); z26=(3.35u,3v); z27=(1.4u,4.3v);
+z28=(2.4u,5.3v); z28'=(3.1u,3.85v); z29=(5.6u,5.5v); z30=(7.6u,4.55v);
+z31=(7.9u,3.6v); z32=(6u,0.8v); z33=(4.85u,1.75v); z34=(5.65u,2.65v);
+z35=(6.45u,3.5v); z36=(6u,4.05v); z37=(5.75u,3.9v); z38=(5.9u,3.5v); ka(1,-31);
+ka(2,-55); penpos3(0.8u,0); penpos4(0.85uv,40); penpos5(0.65u,0);
+penpos6(1.5hair,-52); ka(7,117); ka(8,158); ka(9,-63); ka(10,0); ka(11,90);
+penpos12(1.5hair,180); penpos13(0.3v,-90); penpos14(0.2uv,-49); ka(15,-133);
+penpos16(0.85uv,62); penpos17(0.3u,0); penpos18(1.5hair,-90); ka(19,180);
+ka(20,90); penpos21(1.5hair,0); penpos22(0.3v,-90); penpos23(0.2uv,-135);
+ka(24,-135); ka(25,-59); penpos26(0.3u,0); ka(27,-68); ka(28,168);
+penpos27.2(0.9uv,43); ka(28',-21); penpos29(0.35v,-90); penpos30(0.85uv,-149);
+penpos31(0.75u,180); ka(32,90); ka(33,0); penpos34(0.8v,-90); penpos35(0.12u,0);
+ka(36,90); ka(37,180); ka(38,-90); kouki(38,6,1.5); filldraw
+z1r{(7.3u,9v)-(1.6u,0)}... z2r{(9u,5v)-(0.8u,0)}...z3r{up} & z3r--z3l &
+z3l{down}...z2l{(0.8u,0)-(9u,5v)} & z2l{(0,7.8v)-(3.2u,0)}... z16r ...z17r{up} &
+z17r--z17l & z17l{down}... z16l... flex(z16l,(1.9u,v),z1l) & z1l--z1r & cycle;
+penstroke z17e{up}...z18e...z19e... z20e...z21e...z22e...z23e...z24e; filldraw
+z25r{(9u,5.4v)-(0,0)}... z26r{up}...(3.3u,4.05v)...
+z27.2r...z28l{(3.2u,9v)-(1.1u,0)} & z28l--z28r & flex(z28r,(2u,4.8v),z27l) &
+z27l--z27r & z27r{(9u,7.2v)-(0,3.7v)}
+...z27.2l...(2.6u,4v)...z26l{down}...z25l{(0,0)-(9u,5.4v)} & z25l--z25r & cycle;
+penstroke z3e{up}...z4e...z5e{up}... z6e{(6u,9v)-(0,5.8v)}; filldraw
+z6r{(6u,9v)-(0,5.8v)}... (5.7u,7.3v)...z7r{(0,3.3v)-(9u,7.8v)}
+...z28'l{(1.4u,0)-(5.3u,9v)} & z28'l--z28'r & z28'r{(5.3u,9v)-(1.4u,0)}...
+{(9u,7.8v)-(0,3.3v)}z7l---z9r...z10r{up} & z10r--z10l & z10l{down}...z9l...
+(6.4u,7.35v)...z8l{(6.3u,9v)-(3u,0)} & z8l--z8r & z8r{(3u,0)-(6.3u,9v)}...
+z6l{(0,5.8v)-(6u,9v)} & z6l--z6r & cycle; penstroke z28'e{(5.3u,9v)-(1.4u,0)}...
+z29e...z30e...z31e...z32e{left}...z33e{up}
+...{right}z34e...{up}z35e...z36e...z37e ...{right}z38e; penstroke
+z10e{up}...z11e...z12e...z13e... z14e...z15e; z40=(2.1u,0.2v); z41=(3.3u,1.15v);
+z42=(5.3u,4.5v); z43=(4.1u,7.4v); z44=(2u,8.2v); z45=(0.1u,6.5v);
+z46=(1.2u,5.5v); z47=(2.4u,6.55v); z48=(1.5u,7.5v); z49=(0.8u,6.9v);
+z50=(1.3u,6.4v); z50'=(1.65u,6.75v); z51=(1.45u,7.05v); z52=(1.2u,6.8v);
+z53=(0,8.35v); z54=(0.55u,8.9v); z55=(u,8.5v); z56=(0.7u,8.2v);
+z57=(0.4u,8.45v); z58=(1.4u,8.6v); z59=(1.55u,8.8v); z60=(5u,3.1v);
+z61=(4.05u,5.75v); z62=(3.85u,6.1v); z63=(3.7u,6.6v); z64=(4.7u,7.55v);
+z65=(5.4u,6.85v); z66=(4.8u,6.15v); z67=(4.3u,6.7v); z68=(4.75u,7.15v);
+z69=(5.05u,6.9v); z70=(3.85u,8.2v); z71=(4.55u,9.05v); z72=(5.15u,8.7v);
+z73=(4.8u,8.3v); z74=(4.6u,8.55v); z75=(5.5u,8.55v); z76=(5.7u,8.8v);
+z77=(2.45u,3.8v); z78=(0.65u,4.55v); z79=(0.4u,5.35v); z80=(1.3u,6.25v);
+z81=(2u,5.5v); z82=(1.5u,5.05v); z83=(1.25u,5.25v); z84=(1.35u,5.5v);
+z85=(1.4u,5.7v); z86=(1.1u,5.8v); z87=(2.6u,2.3v); z88=(1.2u,3.2v);
+z89=(0.3u,3.6v); z90=(0.6u,4v); z91=(0.2u,3.1v); z92=(0.15u,2v);
+z93=(0.4u,1.3v); z94=(1.2u,0.9v); z94'=(2u,1.7v); z95=(1.5u,2.5v);
+z96=(0.7u,1.8v); z97=(1.1u,1.3v); z97'=(1.5u,1.8v); z98=(0.4u,0);
+z99=(0.1u,0.3v); z100=(0.3u,0.5v); ka(40,-46); ka(41,-56); ka(60,-27); ka(42,0);
+ka(43,49); ka(44,90); ka(45,180); ka(46,-90); ka(47,0); ka(48,90); ka(49,180);
+ka(50,-90); penpos50'(1.5hair,0); penpos51(0.3v,90); ka(52,138); ka(53,0);
+ka(54,-90); ka(55,180); ka(56,90); ka(57,0); ka(58,-90); ka(59,0); ka(61,30);
+ka(62,30); ka(63,0); ka(64,-90); ka(65,180); ka(66,90); ka(67,0); ka(68,-90);
+ka(69,180); ka(70,0); ka(71,-90); ka(72,-142); ka(73,90); ka(74,0); ka(75,-90);
+ka(76,0); ka(77,62); ka(78,37); ka(79,0); ka(80,-90); ka(81,180); ka(82,90);
+penpos83(0.3u,0); penpos84(0.3uv,-51); penpos85(0.2u,0); ka(86,90); ka(87,0);
+ka(88,90); ka(89,0); ka(90,-90); mpalla(91,1.5); ka(92,180); ka(93,-141);
+ka(94,-90); ka(94',0); ka(95,90); ka(96,180); penpos97(1.5hair,-90);
+penpos97'(0.3u,0); ka(98,90); ka(99,0); ka(100,-90); penstroke
+z40e{(9u,5.5v)-(1.9u,0)}... z41e...z60e{(7.6u,9v)-(3.7u,0)}...
+z42e...z43e{(2.4u,9v)-(9u,2.5v)} ...z44e...z45e...z46e...z47e
+...z48e{left}...z49e...z50e...z50'e{up}... z51e{left}...z52e; filldraw
+(4.85u,3v)--(4.95u,3.2v)-- (5.2u,3.15v)--(5.1u,2.95v)--cycle; penstroke
+z48e{left}...z53e{up}... z54e...z55e...z56e...z57e{up}; kouki(57,2,1.2);
+penstroke z55e...z58e...z59e{up}; kouki(59,1,1); penstroke
+z60e{(7.6u,9v)-(3.7u,0)}... z61e...z62e...z63e...z64e...z65e...
+z66e...z67e...z68e...z69e{down}; kouki(69,3,1.8); mpalla(62,1.5); filldraw
+(3.9u,5.5v)--(3.75u,5.6v)-- (4.2u,6v)--(4.35u,5.85v)--cycle; penstroke
+z43e{(2.4u,9v)-(9u,2.5v)}... z70e{up}...z71e...
+z72e{(9u,3.15v)-(4.9u,9v)}...z75e{right} ...z76e{up}; kouki (76,1,1); penstroke
+z72e...z73e...z74e{up}; kouki(74,2,1.1); penstroke z25e{(9u,5.4v)-(0,0)}...
+z77e...z78e...z79e...z80e...z81e... z82e{left}...z83e{up}...
+{(5.2u,9v)-(0,4.2v)}z84e...z85e{up}... z86e; mpalla(78,1.2); penstroke
+z25e{(9u,5.4v)-(0,0)}... z87e{up}...z88e{left}...z89e...z90e{right};
+kouki(90,8,1); penstroke z88e{left}...z92e...
+z93e{(1.5u,0)-(0,1.7v)}...z94e...z95e... z96e...z97e...z97'e{up}; penstroke
+z93e{(1.5u,0)-(0,1.7v)}... z98e{left}...z99e...z100e{right}; mpalla(93,1.5);
+kouki(100,8,1); z101=(2.45u,7.25v); z102=(1.7u,7.5v); z103=(2.9u,9v);
+z104=(3u,8.05v); triaina(101,102,103,0.5); mpalla(104,1.7); z110=(2.8u,2.6v);
+z111=(4.25u,0.5v); z112=(4.8u,0.35v); z113=(6.35u,1.3v); z114=(5.7u,1.9v);
+z115=(5.25u,1.6v); z116=(5.5u,1.4v); z117=(5.25u,5v); z118=(7u,3.5v);
+z119=(6.6u,1.85v); z120=(6.85u,1.6v); z121=(7.05u,1.8v); z122=(6.1u,2.2v);
+z123=(5.35u,3v); z124=(5.7u,3.35v); z125=(6u,3v); z126=(5.1u,5.6v);
+z127=(8.4u,8v); z128=(7.4u,9.05v); z129=(6.65u,8.3v); z130=(7.3u,7.55v);
+z131=(7.15u,7.3v); z132=(6.25u,8.2v); z133=(6.7u,8.7v); z134=(7u,8.4v);
+z135=(6.2u,6v); z136=(8.8u,6.6v); z137=(8.25u,7.2v); z138=(7.6u,6.7v);
+z139=(8.1u,6.25v); z140=(8.35u,6.6v); z141=(7.65u,5.5v); z142=(8.9u,5.45v);
+z143=(8.6u,5.75v); z144=(8.35u,5.6v); z144'=(8.5u,5.4v); z145=(8.7u,3.4v);
+z146=(8.2u,v); z147=(8.8u,0.4v); z148=(9.1u,0.7v); z148'=(8.95u,0.85v);
+z149=(7.9u,1.5v); z150=(6.5u,0.5v); z151=(6.2u,0.25v); z152=(6.4u,0.05v);
+z153=(6.65u,0.2v); z154=(6.8u,0.3v); z155=(7.3u,0); z156=(7.5u,0.2v);
+z157=(3.6u,-0.3v); z158=(2.45u,0.3v); z159=(5.15u,1.1v); z28.25=z28';
+ka(28.25,159); ka(110,180); ka(111,-109); ka(112,-90); ka(113,0); ka(114,90);
+ka(115,180); ka(116,-90); kouki(116,6,1.3); ka(117,-90); ka(118,180);
+ka(119,180); ka(120,-90); ka(121,0); kouki(121,1,1); ka(122,90); ka(123,0);
+ka(124,-90); ka(125,180); ka(126,-59); ka(127,0); ka(128,90); ka(129,180);
+ka(130,-90); ka(131,90); ka(132,0); ka(133,-90); ka(134,180); ka(135,-90);
+ka(136,0); ka(137,90); ka(138,180); ka(139,-90); ka(140,0); ka(141,-62);
+ka(142,0); ka(143,90); ka(144,180); ka(145,180); ka(146,180); ka(147,-90);
+ka(148,0); kouki(148,1,1.6); ka(149,145); ka(150,112); ka(151,180);
+penpos152(1.5hair,-90); penpos153(0.3uv,-45); penpos154(0.25v,-90);
+ka(155,-90); ka(156,0); kouki(156,1,1.8); triaina(157,158,159,0.4); penstroke
+z28.25e{(1.55u,0)-(5.1u,9v)}... z110e...z111e...z112e...z113e...z114e...
+z115e...z116e{right}; mpalla(112,1.5); penstroke z28'e{(5.3u,9v)-(1.4u,0)}...
+z117e...z118e{down}...z119e...z120e... z121e{up}; mpalla(118,1.2); penstroke
+z118e{down}...z122e...z123e ...z124e...z125e{down}; z15'=z15; ka(15',0);
+penstroke z126e{(9u,7.7v)-(0,2.8v)}... z127e{up}...z128e...z129e...z130e...
+z15'e{up}; penstroke z15e{down}...z131e...z132e... z133e...z134e{down};
+kouki(134,3,1.2); penstroke z126e{(9u,7.7v)-(0,2.8v)}...
+z135e{right}...z136e{up}...z137e... z138e...z139e...z140e{up}; kouki(140,1,1.5);
+penstroke z135e{right}... z141e{(9u,4.6v)-(2.1u,9v)}...z142e{up}
+...z143e...z144e{down}; kouki(144,4,1); penstroke z141e{(9u,4.6v)-(2.1u,9v)}...
+z145e{down}...z146e{down}...z147e... z148e{up}; penstroke
+z145e{down}...z149e...z150e... z151e{down}...z152e{left}...z153e...
+z154e...z155e...z156e{up}; penlabels(range 1 thru 156);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitJ.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitJ.mf
new file mode 100644
index 00000000000..af8b930e1b0
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitJ.mf
@@ -0,0 +1,122 @@
+def the_letter_I=
+z1=(3.35u,6.25v); z2=(3.45u,6.5v); z3=(3.2u,6.75v); z4=(2.9u,6.65v);
+z5=(2.7u,7v); z6=(3.2u,7.35v); z7=(3.9u,6.5v); z8=(2.9u,5.55v); z9=(1.6u,6.8v);
+z10=(3.4u,8.3v); z11=(4.5u,7.85v); z12=(6.1u,7v); z13=(6.95u,7.8v);
+z14=(6.5u,8.3v); z15=(1.2u,0.9v); z16=(1.05u,1.1v); z17=(1.4u,1.45v);
+z18=(1.95u,0.9v); z19=(1.3u,0.35v); z20=(0.5u,1.3v); z21=(1.7u,2.5v);
+z22=(3.25u,1.6v); z23=(4.65u,0.53v); z24=(5.8u,0.85v); z25=(6.8u,2.9v);
+z26=(6.23u,4.23v); z27=(5.3u,5.8v); z28=(6.2u,6.7v); z29=(6.6u,6.4v);
+z30=(2.85u,3v); z31=(4.7u,4.5v); z32=(4.65u,3.9v); z33=(6u,2.3v); z34=(5u,1.13v);
+z35=(4.35u,1.7v); z36=(4.66u,2.15v); z37=(5u,1.85v); ka(1,-52);
+penpos2(1.5hair,0); penpos3(0.5v,90); penpos4(0.55v,90); penpos5(0.2u,0);
+ka(6,-90); ka(7,180); ka(8,90); ka(9,0); penpos10(0.6v,-90);
+penpos11(0.95uv,-138); penpos12(0.25v,-90); penpos13(hair,0); penpos14(hair,90);
+kouki(14,7,2.6); penstroke z1e{(6.1u,9v)-(0,3v)}...z2e{up}
+...z3e{left}...z4e{left}...z5e{up}... z6e...z7e...z8e...z9e...z10e...z11e...
+z12e...z13e...z14e{left}; ka(15,90); ka(16,0); ka(17,-90); ka(18,180);
+ka(19,90); penpos20(1.5hair,0); penpos21(0.55v,-90); penpos22(1.06uv,-139);
+penpos23(0.4v,-90); penpos24(1.5hair,-57); penpos25(0.55u,0);
+penpos26(0.85uv,40); penpos27(0.5u,0); penpos28(hair,-90); ka(29,180);
+kouki(29,3,2.5); z15'=z15; ka(15',-90); kouki(15',6,1.8); penstroke
+z15e{left}...z16e...z17e... z18e...z19e...z20e...z21e...z22e...
+z23e...z24e...z25e...z26e...z27e... z28e...z29e{down}; ka(30,-52); ka(31,180);
+penpos32(0.9uv,34); penpos33(0.3u,0); ka(34,90); ka(35,0); penpos36(0.5v,-90);
+penpos37(0.5u,180); filldraw z30l--z31r & z31r--z31l &
+z31l{(5.1u,0)-(4.4u,9v)}...z32r... z33r...z34l{left}...z35l{up}...z36l...
+z37l{down}..z37r{up}... z35r{down}...z34r{right}...z33l...(4.5u,3.5v)...
+z30r{z30-z31} & z30r--z30l & cycle; z40=(1.2u,0.1v); z41=(0.15u,1.4v);
+z41'=(0.23u,1.95v); z42=(2u,3.35v); z43=(3.6u,2v); z44=(2.7u,0.6v);
+z45=(2.3u,0.85v); z46=(3.8u,4.7v); z47=(3.1u,5.45v); z48=(2.6u,4.9v);
+z49=(3.1u,4.4v); z49'=(3.5u,4.75v); z50=(3.3u,5.1v); z51=(0.9u,4.1v);
+z52=(1.6u,4.5v); z53=(2.35u,3.6v); z54=(1.5u,2.7v); z55=(0.4u,4.1v);
+z56=(1.4u,5.65v); z57=(3.35u,7.3v); z58=(2u,8.65v); z59=(0.4u,7.6v);
+z60=(0.25u,7v); z61=(0.8u,4.9v); z62=(2.9u,3.45v); z63=(5.65u,2.05v);
+z63'=(5.1u,1.37v); z64=(4.8u,1.45v); z65=(5u,1.55v); z66=(5.45u,2.05v);
+z67=(4.55u,2.85v); z68=(2.7u,1.2v); z69=(3.75u,0); z70=(4.6u,0.7v);
+z70'=(3.8u,1.5v); z71=(4.8u,0.9v); z72=(5u,0.85v); z73=(6.35u,2.5v);
+z74=(5.65u,3.9v); z75=(4.4u,6.6v); z76=(5u,8v); z77=(5.65u,8v); z78=(5.3u,8.5v);
+z79=(5.9u,9v); z80=(4.9u,9v); z81=(4.5u,8.7v); z82=(4.75u,8.4v);
+z83=(6.65u,8.67v); z83'=(7u,8.6v); z83''=(7.4u,8.5v); z84=(8.4u,7.2v);
+z85=(7u,5.5v); z86=(6u,5.8v); z87=(4.6u,0.2v); z88=(7.6u,1.35v);
+z89=(8.43u,0.6v); z90=(7.9u,0); z91=(7.35u,0.5v); z92=(7.75u,v);
+z93=(8.1u,0.65v); z94=(7.9u,0.4v); z91'=z91; z95=(6.55u,0); z96=(6.6u,1.2v);
+z96'=(7.5u,3v); z97=(7.9u,2.3v); z98=(8.15u,2.7v); z99=(8.15u,3.25v);
+z100=(8.5u,3.45v); z101=(8.9u,3.1v); z102=(8.75u,2.95v); z103=(6.8u,4.5v);
+z104=(6.3u,5.7v); z105=(7.4u,6.9v); z106=(8.3u,5.9v); z107=(7.6u,5v);
+z108=(7.5u,4.35v); z109=(8u,4v); z110=(8.3u,4.35v); z111=(8u,4.6v);
+z111'=(7.85u,4.5v); z112=(6.9u,5.6v); z113=(7.5u,6.05v); z114=(7.9u,5.8v);
+z115=(7.7u,5.5v); z116=(0.7u,8.5v); z117=(0.4u,8.8v); z118=(0,8.55v);
+z119=(0.25u,8.3v); z120=(0,5.7v); z121=(-0.3u,5.5v); z122=(-0.1u,5.25v);
+z123=(0.85u,6.25v); z124=(u,6.15v); z125=(0,3.5v); z126=(-0.2u,3.7v);
+z127=(0,3v); z128=(-0.3u,2.7v); z129=(2.15u,5.85v); z130=(1.05u,6.85v);
+z131=(1.8u,7.7v); z132=(2.5u,7.1v); z133=(2.3u,6.85v); z134=(1.3u,5.6v);
+z135=(1.9u,4.9v); z136=(4.85u,4.75v); z137=(4.15u,5.2v); z138=(4.8u,6v);
+z139=(6.9u,2.6v); z140=(7.5u,3.2v); z141=(8.1u,1.4v); z13'=z13;
+z142=(8.4u,8.2v); z143=(8.1u,8.6v); z144=(4.6u,5.7v); ka(40,90); ka(41,0);
+ka(41',-9); ka(42,-90); ka(43,180); ka(44,90); ka(45,0); ka(46,0); ka(47,90);
+ka(48,180); ka(49,-90); ka(49',0); ka(50,90); ka(51,180); ka(52,90); ka(53,0);
+ka(54,-90); ka(55,180); ka(56,119); ka(57,180); ka(58,-90); ka(59,-22);
+ka(60,0); ka(61,32); ka(62,76); ka(63,0); ka(63',-90); ka(64,-124); ka(65,-90);
+ka(66,0); ka(67,90); ka(68,180); ka(69,-90); ka(70,0); ka(70',90); ka(71,-103);
+ka(72,-90); ka(73,0); ka(74,46); ka(75,0); ka(76,-51); ka(77,180); ka(78,0);
+ka(79,-90); ka(80,90); ka(81,180); ka(82,-90); ka(83,-90); ka(83',-103);
+ka(83'',-111); ka(84,180); ka(85,90); ka(86,64); ka(87,-90); ka(88,-90);
+ka(89,180); ka(90,90); ka(91,0); ka(92,-90); ka(93,180); ka(94,90); z91=z94';
+ka(94',90); ka(95,90); ka(96',0); ka(96,-49); ka(97,-46); penpos98(0.3u,0);
+penpos99(0.2uv,-35); ka(100,-90); ka(101,180); ka(102,90); ka(103,33);
+ka(104,0); ka(105,-90); ka(106,180); ka(107,90); ka(108,180); ka(109,-90);
+ka(110,0); ka(111,90); ka(111',180); ka(112,0); penpos113(0.4v,-90);
+ka(114,180); ka(115,90); ka(116,0); ka(117,90); ka(118,180); ka(119,-90);
+ka(120,90); ka(121,180); ka(122,-90); ka(123,-90); ka(124,180); ka(125,90);
+ka(126,0); ka(127,90); ka(128,180); ka(129,90); ka(130,0); ka(131,-90);
+ka(132,180); ka(133,90); ka(134,0); ka(135,-90); ka(136,44); ka(137,90);
+ka(138,-90); ka(13',-100); ka(142,0); ka(143,90); ka(144,0); penstroke
+z18e{down}...z40e...z41e... z41'e...z42e{right}...z43e...z44e... z45e{up};
+kouki(45,2,1.2); mpalla(41',1.8); penstroke z42e{right}...z46e{up}...
+z47e...z48e...z49e...z49'e...z50e{left}; kouki(50,7,2); penstroke
+z64e{(6.7u,0)-(0,5v)}... z63'e...z63e{up}...z62e...
+z61e{(0,6.4v)-(3.4u,0)}...z60e... z59e{(1.3u,9v)-(0,7.2v)}...z58e
+...z57e...z56e{(0,4.4v)-(9u,9v)} ...z55e{down}...
+z54e...z53e...z52e...z51e...{right}z42e; mpalla(60,1.5); mpalla(59,1.2);
+mpalla(61,1.2); penstroke z65e{right}...z66e{up}...
+z67e...z68e...z69e...z70e...z70'e{left}; penstroke z71e{(7.4u,0)-(0,2.75v)}...
+z72e...z73e...z74e... z136e{(u,9v)-(9u,0.35v)}...z75e...
+z76e{(6.3u,9v)-(0,4.2v)}...z77e{down}; mpalla(75,1.8); kouki(77,3,1); penstroke
+z76e{(6.3u,9v)-(0,4.2v)}... z78e{up}...z79e{right}; penstroke
+z78e{up}...z80e{left}... z81e...z82e{right}; kouki(82,6,1); penstroke
+z76e{(6.3u,9v)-(0,4.2v)}... z83e...z83'e...z83''e...z84e...z85e...
+z86e{(0,8.6v)-(9u,4.5v)}; mpalla(83,1.2); mpalla(83',1.7); mpalla(83'',1.2);
+mpalla(86,1.2); penstroke z87e{right}...z88e{right}...
+z89e...z90e...z91e...z92e...z93e... z94e...z94'e{left}...z95e{left};
+kouki(95,5,1.5); penstroke z87e{right}... z96e{(9u,3.2v)-(5.2u,0)}---z97e...
+z98e{up}...z99e{(9u,4.3v)-(5.5u,0)}... z100e{right}...z101e...z102e{left};
+kouki(102,5,1); penstroke z96e{(9u,3.2v)-(5.2u,0)}...
+z96'e{up}...z103e...z104e...z105e... z106e...z107e{left}...z108e...z109e...
+z110e...z111e{left}; kouki(111,7,1.3); penstroke z107e{left}...z112e; filldraw
+z112r{up}... z113r{(9u,4.6v)-(3.4u,9v)} & z113r{(9u,5.7v)-(0,0)}...z114r{down}
+& z114r--z114l & z114l{up}...z113l... z112l{down} & z112l--z112r & cycle;
+penstroke z114e{down}...z115e{left}; kouki(115,5,1); penstroke
+z59e{(0.8u,9v)-(0,6v)}... z116e...z117e...z118e...z119e{right}; kouki(119,6,1);
+penstroke z61e{(0,6.4v)-(3.4u,0)}... z120e...z121e...z122e{right};
+kouki(122,6,1.3); penstroke z61e{(0,6.4v)-(3.4u,0)}... z123e...z124e{down};
+kouki(124,3,1); penstroke z55e{down}...z125e...z126e{up}; kouki(126,2,1);
+penstroke z41'e{up}...z127e...z128e{down}; kouki(128,4,1.5); penstroke
+z57e{down}...z129e...z130e... z131e...z132e...z133e{left}; kouki(133,5,1.8);
+penstroke z56e{(0,4.4v)-(9u,9v)}... z134e{up}; kouki(134,2,1.3); penstroke
+z56e{(0,4.4v)-(9u,9v)}... z135e{right}; kouki(135,6,1); penstroke
+z136e{(u,9v)-(9u,0.35v)}... z137e{left}; kouki(137,7,1); penstroke
+z136e{(u,9v)-(9u,0.35v)}... z138e{right}; kouki(138,2,1);
+triaina(139,140,141,0.55); penstroke z13'e{(9u,7.2v)-(2.6u,9v)}...
+z142e...z143e{left}; kouki(143,7,1); kouki(94,5,1.3); mpalla(106,1.5);
+kouki(51,4,1.4); kouki(79,8,1.1); mpalla(58,1.2); penlabels(range 1 thru 145);
+enddef;
+
+
+.cmchar "The letter I";
+.beginchar("I",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); the_letter_I; .endchar;
+
+.cmchar "The letter J";
+.beginchar("J",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); the_letter_I; .endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitK.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitK.mf
new file mode 100644
index 00000000000..fe3562aa448
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitK.mf
@@ -0,0 +1,125 @@
+.cmchar "The letter K";
+.beginchar("K",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(2.2u,0.5v); z2=(2.8u,1.7v); z3=(4.17u,4.05v); z2'=(4.05u,3.15v);
+z4=(3.92u,4.75v); z5=(2.85u,5.95v); z6=(4u,7.95v); z7=(4.6u,5.85v);
+z8=(5.95u,8.8v); z9=(7.15u,7.4v); z10=(7.65u,8.2v); z11=(7.15u,8.85v);
+z12=(6.85u,8.7v); z16=(1.95u,1.95v); z17=(0.75u,3v); z18=(1.5u,3.85v);
+z19=(2.3u,3.2v); z20=(1.8u,2.7v); z21=(1.45u,2.95v); z22=(1.6u,3.2v);
+z23=(1.8u,3.15v); z27.2=(2.2u,4.7v); z24=(1.95u,3v); z25=(2.3u,1.7v);
+z26=(3.35u,3v); z27=(1u,4.2v); z28=(2.2u,5.6v); z28'=(3.1u,4.1v);
+z30=(6.6u,5.5v); z31=(7u,4.85v); z32=(7.85u,5.7v); z33=(7.5u,6.2v);
+z31'=(5.75u,4.15v); z34=(4.7u,3.1v); z35=(4.5u,2.5v); z36=(5.2u,1.9v);
+z37=(5.5u,2.4v); z38=(6.15u,3.45v); z39=(6.45u,1.95v); z40=(6.75u,1.35v);
+z41=(7.7u,1.5v); z42=(8.3u,2.2v); z43=(7.8u,2.7v); z44=(7.55u,2.4v);
+z45=(7.08u,0.5v); z46=(3.8u,4.9v); ka(1,-9); ka(2,-57); penpos3(0.8u,0);
+penpos4(uv,31); penpos5(uv,31); penpos6(1.5hair,-74); ka(7,120); ka(8,155);
+penpos9(2hair,-60); ka(10,0); ka(11,90); ka(12,180); penpos2'(0.45uv,-30);
+penpos16(0.85uv,70); penpos17(0.3u,0); penpos18(1.5hair,-90); ka(19,180);
+ka(20,90); penpos21(1.5hair,0); penpos22(0.3v,-90); penpos23(0.2uv,-135);
+ka(24,-135); ka(25,-47); penpos26(0.3u,0); ka(27,-67); ka(28,175);
+penpos27.2(0.9uv,59); ka(28',-20); penpos30(0.8uv,-150); ka(31,120); ka(32,180);
+ka(33,-90); z33'=z33; ka(33',90); ka(31',120); ka(34,160); ka(35,180);
+ka(36,-90); ka(37,0); penpos38(0.8uv,-150); penpos39(0.8u,180);
+penpos40(0.9uv,-132.5); penpos41(1.5hair,-90); ka(42,0); ka(43,90); ka(44,180);
+ka(45,0); ka(46,-53); filldraw z1r{(3.5u,9v)-(2.1u,0)}...
+z2r{(9u,6.7v)-(0.7u,0)}... (4.55u,4.1v){up}... z4r{(0,8.7v)-(7.25u,0)} &
+z4r--z4l & z4l{(7.25u,0)-(0,8.7v)}... (3.8u,3.55v){down}...
+z2l{(0.7u,0)-(9u,6.7v)} & z2l{(0.8,9v)-(3.2u,0)}... z16r...z17r{up} & z17r--z17l
+& z17l{down}... z16l...flex(z16l,(2.2u,1.2v),z1l) & z1l--z1r & cycle; penstroke
+z4e{(0,8.7v)-(7.25u,0)}...z5e... z6e{(6u,9v)-(0,6.6v)}; penstroke
+z17e{up}...z18e...z19e... z20e...z21e...z22e...z23e...z24e; filldraw
+z25r{(9u,8.2v)-(0.7u,0)}... z26r{up}...(3.55u,3.45v)...
+z27.2r...z28l{(1.8u,9v)-(2.8u,0)} & z28l--z28r & flex(z28r,(1.9u,4.8v),z27l) &
+z27l--z27r & z27r{(9u,7v)-(0,3.8v)} ...z27.2l...(3.1u,3.45v)...z26l{down}...
+z25l{(0.7u,0)-(9u,8.2v)} & z25l--z25r & cycle; filldraw z6r{(6u,9v)-(0,6.6v)}...
+(5.7u,7.4v)...z7r{z7-z9} ...z28'l{(1.4u,0)-(5.1u,9v)} & z28'l--z28'r &
+z28'r{(5.1u,9v)-(1.4u,0)}... z7l---z9r...z10r{up} & z10r--z10l &
+z10l{down}...z9l... (6.2u,7.75v)...z8l{(6.05u,9v)-(1.8u,0)} & z8l--z8r &
+z8r{(1.8u,0)-(6.05u,9v)}... (5.5u,8.3v)... z6l{(0,6.6v)-(6u,9v)} & z6l--z6r &
+cycle; penstroke z10e{up}...z11e...z12e{down}; kouki(12,4,1.5); filldraw
+z28'r{(5.1u,9v)-(1.4u,0)}... z46r... z30r{(8.7u,0)-(4.4u,9v)}... z31'r{z31'-z31}
+& z31'r--z31'l & z31'l{z31-z31'}...z31l...z32l{up}... z33l{left} & z33l--z33r &
+z33r{right}... z32r...z31r{z31'-z31} & z31r{up}...z30l{(5u,9v)-(9u,2.2v)}...
+z46l...z28'l{(1.4u,0)-(5.1u,9v)} & z28'l--z28'r & cycle; filldraw
+z31'r{z31'-z31}... z34r{(3.4u,0)-(7.2u,9v)}... z35r{down} & z35r--z35l &
+z35l{up}... z34l{(7.2u,9v)-(3.4u,0)}... z38r...z39r{down}...z40r...z45l{down} &
+z45l--z45r & z45r{up}... z41r{(9u,2.1v)-(4.6u,0)}... z42r{up} & z42r--z42l &
+z42l{down}... z41l{(4.6u,0)-(9u,2.1v)}... z40l...z39l{up}...z38l... z31'l{left}
+& z31'l--z31'r & cycle; kouki(33',7,1.5); penstroke z35e{down}...z36e...z37e{up};
+kouki(37,1,2); penstroke z42e{up}...z43e...z44e{down}; kouki(44,4,1.8);
+z50=(2.45u,0.4v); z51=(3.25u,1.75v); z52=(4.8u,4.1v); z53=(4.3u,5.46v);
+z54=(3.6u,6.9v); z55=(4.6u,7.75v); z56=(5.3u,7v); z57=(4.7u,6.45v);
+z58=(4.3u,6.85v); z59=(4.5u,7.15v); z60=(2.65u,0.2v); z61=(4.4u,1.75v);
+z62=(5.7u,0.8v); z63=(6.55u,0); z64=(6.85u,0.3v); z65=(4.9u,0);
+z66=(4.15u,0.65v); z67=(4.6u,1.25v); z68=(4.95u,v); z69=(4.775u,0.73v);
+z70=(4.73u,0.53v); z71=(5u,0.35v); z72=(2.1u,6.5v); z73=(4.6u,9.05v);
+z73'=(6u,8.6v); z74=(6.8u,7.2v); z75=(5.5u,5.5v); z76=(2.2u,8.9v);
+z77=(0.7u,7.5v); z78=(1.4u,5v); z79=(0.8u,4.2v); z80=(0.3u,4.6v); z81=(0.6u,5v);
+z82=(1.8u,5.4v); z83=(2.1u,5.8v); z84=(3.2u,6.8v); z85=(2.25u,8v);
+z86=(0.25u,8.5v); z87=(0.7u,9v); z88=(1.1u,8.7v); z89=(0.8u,8.4v);
+z90=(1.4u,7.3v); z91=(1.9u,6.7v); z92=(2.25u,7v); z93=(2.15u,7.2v);
+z94=(1.95u,7.4v); z95=(2.05u,7.55v); z96=(3.8u,8.35v); z97=(3.45u,8.05v);
+z98=(3u,8.55v); z99=(3.65u,9.1v); z100=(4.95u,7.6v); z101=(2.9u,3.2v);
+z102=(5u,0.8v); z103=(7.2u,2.4v); z104=(6.15u,4.14v); z105=(8.2u,5.75v);
+z106=(7.4u,6.55v); z107=(6.9u,6.1v); z108=(7.3u,5.7v); z108'=(7.55u,5.85v);
+z109=(8u,6.65v); z110=(8.6u,7.3v); z111=(8.15u,7.8v); z112=(7.8u,7.4v);
+z113=(8.1u,7.1v); z113'=(8.3u,7.3v); z114=(7.9u,8.6v); z115=(8.2u,9v); z116=z30;
+z117=(7.6u,3.8v); z118=(8.15u,4.3v); z119=(7.6u,4.8v); z120=(7.4u,4.5v);
+z121=(1.7u,3.05v); z122=(0.2u,1.8v); z123=(0.8u,0.35v); z124=(0.5u,0);
+z125=(0.2u,0.3v); z126=(1.2u,0.75v); z126.1=(2u,1.5v); z126.2=(1.4u,2.25v);
+z126.3=(0.8u,1.7v); z126.4=(1.1u,1.25v); z127=(7.4u,0.2v); z128=(7.55u,0.9v);
+z129=(8.6u,2.2v); z130=(7.9u,3v); z131=(8u,1.15v); z132=(8.5u,0.5v);
+z133=(8.1u,0.1v); z134=(7.7u,0.5v); z135=(7.9u,0.8v); z136=(8.15u,0.7v);
+z137=(5u,5.35v); z138=(5.85u,4.7v); z139=(5.4u,4.2v); z140=(5u,4.6v);
+z141=(5.3u,4.95v); z142=(5.5u,4.8v); z143=(8u,3.65v); z144=(8.35u,3.5v);
+z145=(3.1u,0.65v); z146=(3.35u,0.55v); z147=(3.6u,0.5v); z148=(3.75u,0.8v);
+z150=(1.2u,7.5v); z151=(1.85u,6.35v); z152=(0,6.4v); ka(50,-9); ka(51,-50);
+ka(52,0); ka(53,37); ka(54,0); ka(55,-90); ka(56,180); ka(57,90); ka(58,0);
+ka(59,-90); ka(60,-9); ka(61,-90); ka(62,180); ka(63,-90); ka(64,0); ka(65,90);
+ka(66,0); ka(67,-90); penpos68(0.3u,180); penpos69(0.35uv,141);
+penpos70(0.2u,180); ka(71,-114); ka(72,0); ka(73,-90); ka(73',-125); ka(74,180);
+ka(75,90); ka(76,90); ka(77,180); ka(78,180); ka(79,90); ka(80,0); ka(81,-90);
+mpalla(82,1.3); ka(83,-90); ka(84,0); ka(85,90); ka(86,0); ka(87,-90);
+ka(88,180); ka(89,90); ka(90,180); ka(91,-90); penpos92(0.2u,0);
+penpos93(0.3uv,53); penpos94(.15u,0); ka(95,-45); ka(96,180); z96'=z96;
+ka(96',0); ka(97,90); ka(98,0); ka(99,-90); ka(100,180); ka(101,180);
+ka(102,-90); ka(103,0); ka(104,90); z104'=z104; ka(104',-90); ka(105,0);
+ka(106,90); ka(107,180); ka(108,-90); ka(108',-22); ka(109,-90); ka(110,0);
+ka(111,90); ka(112,180); ka(113,-90); ka(113',0); ka(114,0); ka(115,-90);
+ka(116,180); ka(117,-90); ka(118,0); ka(119,90); ka(120,180); ka(121,90);
+ka(122,180); ka(123,180); ka(124,90); ka(125,0); ka(126,-90); ka(126.1,0);
+ka(126.2,90); ka(126.3,180); ka(126.4,-90); ka(127,0); ka(128,-40); ka(129,0);
+ka(130,90); ka(131,-90); ka(132,180); ka(133,90); ka(134,0); ka(135,-90);
+ka(136,180); ka(137,-90); ka(138,180); ka(139,90); ka(140,0); ka(141,-90);
+ka(142,180); ka(143,-90); ka(144,180); penpos145(0.15v,-90);
+penpos146(0.3uv,-124); penpos147(0.2v,-90); ka(148,0); penstroke
+z50e{(3.5u,9v)-(2.1u,0)}... z51e{(9u,6.4v)-(1.1u,0)}...z52e{up}...
+z53e...z54e{up}... z55e...z56e...z57e...z58e...z59e{right}; kouki(59,8,1.7);
+penstroke z60e{(3.5u,9v)-(2.1u,0)}... z61e...z62e{down}...z63e...z64e{up};
+kouki(64,1,1.2); penstroke z62e{down}...z65e...z66e...
+z67e{right}...z68e{down}...z69e... z70e{down}...z71e; z28''=z28; ka(28'',0);
+penstroke z28''e...z72e...z73e...z73'e...z74e
+...z75e...z58e...z76e...z77e{down}...z78e ...z79e...z80e...z81e{right};
+mpalla(76,1.2); mpalla(77,1.4); triaina(150,151,152,0.5); kouki(81,8,1.2);
+penstroke z77e{down}...z83e...z84e... z85e{left}...z86e....z87e...z88e...z89e;
+kouki(89,5,1); penstroke z85e{left}... z90e...z91e...z92e{up}...z93e...
+z94e{up}...z95e; kouki(96',1,2); z51''=z51'=z51; ka(51',-145); ka(51'',35);
+penstroke z96e{down}...z97e...z98e... z99e...z100e...z101e...z51'e...
+z102e...z103e...z104e{left}; penstroke z104'e{right}...z105e...z106e...
+z107e...z108e...z108'e; penstroke z73'e{(9u,6.4v)-(5.5u,9v)}...
+z109e...z110e...z111e...z112e... z113e...z113'e{up}; kouki(113,1,1.2); penstroke
+z111e{left}...z10e{up}... z115e{right}; kouki(115,8,1.1); z30'=z30; ka(30',180);
+penstroke z30'e{down} ...z117e...z118e...z119e... z120e{down}; kouki(120,4,1.6);
+penstroke z51''e...z121e...z122e...z123e ...z124e...z125e{up}; kouki(125,2,1);
+penstroke z122e{down}...z126e... z126.1e...z126.2e...z126.3e... z126.4e{right};
+kouki(126.4,6,1); penstroke z127e{up}...
+z128e{(u,v)-(0,0)}...z129e...z130e{left}; penstroke z128e{(u,v)-(0,0)}...z131e...
+z132e...z133e...z134e...z135e... z136e{down}; kouki(136,3,1); penstroke
+z28'e{(5.1u,9v)-(1.4u,0)}... z137e...z138e...z139e...z140e...
+z141e...z142e{down}; kouki(142,3,1.1); penstroke z103e...z143e...z144e{down};
+kouki(144,3,1); penstroke z60e{(3.5u,9v)-(2.1u,0)}...
+z145e...z146e{(4.5u,0)-(0,2.35v)}... z147e{right}...z148e; penlabels(range 1
+thru 150);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitL.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitL.mf
new file mode 100644
index 00000000000..b88fe0bf03e
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitL.mf
@@ -0,0 +1,107 @@
+.cmchar "The letter L";
+.beginchar("L",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(2.15u,1.45v); z2=(2.3u,1.7v); z3=(2.1u,1.95v); z4=(1.7u,1.9v);
+z5=(1.55u,2.3v); z6=(2.1u,2.65v); z7=(2.9u,1.7v); z8=(1.9u,0.8v); z9=(0.75u,2v);
+z10=(2.3u,3.4v); z11=(3.65u,2.75v); z12=(4.9u,1.4v); z13=(6.35u,v);
+z14=(7.9u,2.5v); z15=(7.1u,3.4v); z16=(6.4u,3v); z17=(6.45u,2.6v);
+z18=(6.85u,2.45v); z19=(6.8u,2.05v); z20=(6.5u,1.9v); z21=(4.05u,2.25v);
+z22=(4.2u,2.05v); z23=(4.3u,1.9v); z24=(4.4u,1.85v); z25=(4.4u,1.7v);
+z26=(4.6u,1.6v); z24'=(5.1u,3.3v); z25'=(3.85u,4.55v); z26'=(3.75u,5.2v);
+z27=(2.35u,3.95v); z28=(5.8u,4v); z29=(5.55u,4.8v); z30=(4.3u,5.7v);
+z31=(4.05u,6.5v); z32=(4.5u,7.4v); z33=(6.45u,8.3v); z34=(7.95u,7.25v);
+z35=(5u,5.25v); z36=(8.35u,8v); z37=(7.65u,8.7v); z38=(7.1u,8.2v);
+z39=(7.45u,7.7v); z40=(7.8u,8v); ka(1,-53); penpos2(0.2u,0); penpos3(0.45v,90);
+penpos4(0.6v,90); penpos5(0.3u,0); penpos6(1.2hair,-90); ka(7,180); ka(8,90);
+penpos9(1.2hair,0); penpos10(0.55v,-90); penpos11(0.85uv,-139);
+penpos12(0.9uv,-138); penpos13(0.5v,-90); penpos14(1.2hair,0); ka(15,90);
+penpos16(0.3u,180); penpos17(0.55uv,-123); penpos18(0.55uv,-121);
+penpos19(0.15u,180); ka(20,90); ka(21,-21.5); ka(22,-52); ka(23,-53);
+ka(24,-55); ka(25,-59); ka(26,-59); penpos24'(0.2u,0); penpos25'(0.75uv,69);
+ka(26',180); ka(27,-60); penpos28(0.4u,0); penpos29(0.85uv,46);
+penpos30(0.9uv,32); penpos31(0.55u,0); penpos32(1.5hair,-57); ka(33,156);
+ka(34,-56); ka(36,0); ka(37,90); ka(38,180); ka(39,-90); ka(40,0); ka(35,125);
+penstroke z1e...z3e{left}... z4e...z6e...z7e...z8e...
+z9e...z10e...z11e...z12e...z13e... z14e...z15e... z17e{(9u,1.3v)-(0,6.2v)}...
+z18e{(9u,1.3v)-(0,6.2v)} ...z20e{left}; filldraw z22l{(9u,6v)-(2u,0)}...
+z24'l...z25'l{(0,4.6v)-(9u,3.6v)}... z27r{z27-z34} & z27r--z27l &
+z27l{z34-z27}...z26'r{up} & z26'r--z26'l & z26'l{down}...
+z25'r{(9u,2.5v)-(0,6.75v)}... z24'r...z22r{(2u,0)-(9u,6v)} & z22r--z22l & cycle;
+penstroke z23e{(9u,5v)-(1.6u,0)}... z28e...z29e...z30e...z31e...
+z32e{(7.5u,9v)-(0,5v)}; filldraw z32r{(7.5u,9v)-(0,5v)}...
+(6.25u,7.1v)...z35r{z35-z34} & z35r--z35l & z35l---z34r...z36r{up} & z36r--z36l
+& z36l{down}...z34l{z35-z34} ...(6.6u,7.35v)...z33l{z33-z35} & z33l--z33r &
+z33r{z35-z33}... (6u,7.9v)...z32l{(0,5v)-(7.5u,9v)} & z32l--z32r & cycle;
+penstroke z36e{up}...z37e...z38e... z39e...z40e{up}; kouki(40,1,1.5);
+z41=(2.85u,4.15v); z42=(0.4u,2.5v); z43=(0.9u,0.8v); z44=(1.9u,0.5v);
+z45=(3.15u,1.7v); z46=(2u,2.9v); z47=(1.05u,2v); z48=(1.6u,1.2v);
+z49=(1.9u,1.1v); z50=(2.6u,1.8v); z51=(2u,2.4v); z41'=(1.3u,3.85v);
+z45'=(2.8u,2.6v); z52=(3.4u,0.5v); z53=(2.9u,0.1v); z54=(4.45u,0.15v);
+z54'=(3.7u,1.45v); z55=(6.1u,0.3v); z56=(7.3u,0.6v); z57=(8.4u,2.5v);
+z56'=(8u,1.3v); z58=(8.2u,3.4v); z59=(6.7u,4.3v); z60=(5.2u,3v);
+z61=(6.45u,1.6v); z62=(7.4u,2.5v); z63=(6.8u,3v); z64=(8.6u,0.3v); z65=(8.3u,0);
+z66=(8u,0.25v); z67=(8.5u,4v); z68=(6.15u,3v); z69=(6.8u,4.3v); z70=(7.9u,5.45v);
+z71=(8.7u,5.8v); z72=(8.6u,4.7v); z73=(8u,4.15v); z74=(7.6u,4.5v);
+z75=(5.9u,3.1v); z75'=(6.4u,4.2v); z76=(5.55u,5.65v); z77=(4.8u,7.2v);
+z78=(6.5u,8.8v); z79=(8u,7.2v); z80=(6.8u,5.85v); z81=(5.6u,7v);
+z82=(6.5u,7.9v); z83=(6.9u,7.6v); z84=(8.35u,8v); z85=(8.9u,8.35v);
+z86=(6.7u,5.5v); z87=(5.15u,8.25v); z88=(3.5u,8.7v); z89=(2.35u,8.4v);
+z90=(0.9u,7.7v); z91=(0.35u,8.4v); z92=(0.8u,8.9v); z93=(1.25u,8.75v);
+z94=(1.7u,8.65v); z95=(1.3u,8.4v); z95'=(0.95u,8.15v); z96=(u,6.4v);
+z97=(1.85u,5v); z98=(u,5.85v); z99=(0.35u,6.15v); z100=(0.3u,5.15v);
+z101=(0.9u,4.55v); z102=(1.35u,5v); z103=(1.05u,5.35v); z104=(4.75u,6.25v);
+z105=(3.1u,7.7v); z106=(2.5u,7.5v); z107=(2.05u,6.6v); z108=(2.25u,6v);
+z109=(3.2u,5.65v); z110=(0,0.65v); z111=(0.55u,0); z112=(u,0.3v);
+z113=(0.65u,0.8v); z114=(0.45u,0.7v); z115=(4.6u,2.9v); z120=(7.7u,1.9v);
+z121=(7.9u,2.5v); z122=(8.85u,1.4v); z130=(-0.2u,3.4v); z131=(0.3u,4.3v);
+z132=(1.1u,2.7v); z140=(3.5u,7v); z141=(2.9u,7.2v); z142=(4u,8.2v);
+z150=(3u,7v); z151=(3.7u,6.7v); z152=(1.9u,5v); z160=(2.1u,7.15v);
+z161=(1.8u,6.2v); z162=(0.25u,7.7v); ka(41,90); ka(41',123); ka(42,174);
+ka(43,-124); ka(44,-90); ka(45,0); ka(45',50); ka(46,90); ka(47,180);
+ka(48,-113); ka(49,-90); ka(50,0); ka(51,90); ka(52,180); ka(53,90); ka(54,-90);
+ka(55,-87); ka(54',-139); ka(56,-62); ka(56',-28); ka(57,0); ka(58,23);
+ka(59,90); ka(60,180); ka(61,-90); ka(62,0); ka(63,90); ka(64,180); ka(65,90);
+ka(66,0); ka(67,-90); ka(68,-36); ka(69,-17); ka(70,-90); ka(71,0); ka(72,180);
+ka(73,90); ka(74,0); ka(75,-35); ka(75',0); ka(76,50); ka(77,0); ka(78,-90);
+ka(79,180); ka(80,90); ka(81,0); ka(82,-90); ka(83,-153); ka(84,-90); ka(85,0);
+ka(86,0); ka(87,61); ka(88,90); ka(89,121); ka(90,90); ka(91,0); ka(92,-90);
+ka(93,-134); ka(94,-90); ka(95,180); ka(95',90); ka(96,180); ka(97,0); ka(98,90);
+ka(99,0); ka(100,180); ka(101,-90); ka(102,0); ka(103,90); ka(104,0);
+ka(105,90); ka(106,128); ka(107,180); ka(108,-129); ka(109,-112); ka(110,180);
+ka(111,-90); ka(112,0); ka(113,90); ka(114,180); ka(115,0); penstroke
+z21e{(8.3u,9v)-(2.7u,0)}... z41e{left}...z41'e...z42e...z43e... z44e...z45e...
+z45'e{(0,5.4v)-(5.4u,0)}...z46e... z47e...z48e...z49e...z50e...z51e;
+mpalla(42,1.8); z45''=z45'; ka(45'',-134); penstroke z45''e{(5.4u,0)-(0,5.4v)}...
+z52e...z53e{left}; kouki(53,5,1); penstroke z54'e{(5u,0)-(0,5.8v)}...
+z54e{right}; kouki(54,6,1); penstroke z45''e{(5.4u,0)-(0,5.4v)}...
+z54'e{(5u,0)-(0,5.8v)}... z55e...z56e{(9u,1.4v)-(6u,0)}...
+z56'...z57e...z58e...z59e...z60e... z61e...z62e...z63e; mpalla(56',1.5);
+mpalla(55,1.2); triaina(120,121,122,0.6); penstroke
+z56e{(9u,1.4v)-(6u,0)}...z64e...z65e... z66e{up}; kouki(66,2,1.2); penstroke
+z58e...z67e{right}; kouki(67,8,1.1); penstroke z26e{(9u,4.3v)-(2u,0)}...
+z68e...z69e...z70e{right}...z71e{up}; kouki(71,1,1.6); penstroke
+z70e{right}...z72e...z73e... z74e{up}; kouki(74,2,2); z77'=z87; ka(77',-39);
+z76'=(6.2u,5v); ka(76',30); penstroke z25e{(9u,4.3v)-(2u,0)}...
+z75e...z75'e...z76'e... z76e...z77e...z77'e...
+z78e...z79e...z80e...z81e...z82e... z83e{down}; kouki(83,3,1); z84'=(7.5u,8.4v);
+ka(84',-121); penstroke z84'e...z84e...z85e{up}; kouki(85,1,1.5); penstroke
+z75'e{(7.8u,9v)-(5.2u,0)}... z86e...z87e...z88e...
+z89e{(0,7v)-(3.4u,9v)}...z90e...z91e... z92e...z93e{(9u,2v)-(u,9v)}...
+z94e{right}; kouki(94,6,1.3); penstroke z93e{(9u,2v)-(u,9v)}...
+z95e...z95'e{left}; kouki(95',5,1.3); mpalla(89,1.6); z41''=z41; ka(41'',-90);
+penstroke z89e{(0,7v)-(3.4u,9v)}... z96e...z41''e{right}; mpalla(41',1.5);
+z41.2=z41'; ka(41.2,-55); penstroke z41.2... z97e...z98e{left}...z99e{up};
+kouki(99,2,1.2); penstroke z98e{left}...z100e...z101e... z102e...z103e{left};
+kouki(103,7,1.8); penstroke z41''e{right}...z104e...
+z105e...z106e...z107e...z108e--- z109e; z48'=z48; ka(48',66); penstroke
+z48'e{(0,2v)-(4u,0)}... z110e{down}...z111e...z112e...z113e ...z114e{down};
+kouki(114,4,1.3); penstroke z21e{(9u,6v)-(1.7u,0)}... z115e{up};
+kouki(115,1,1.1); triaina(130,131,132,0.4); triaina(140,141,142,0.5);
+triaina(150,151,152,0.39); triaina(160,161,162,0.5); z107.1=(3.2u,5.65v);
+z107.2=(3.6u,5.9v); z107.3=(3.95u,5.4v); z107.4=(3.4u,5.25v); filldraw
+z107.1{z107.3-z107.1}... z107.4{z107.4-z107.2} & z107.4{z107.2-z107.4}...
+z107.3{z107.3-z107.1} & z107.3{z107.1-z107.3}... z107.2{z107.2-z107.4} &
+z107.2{z107.4-z107.2}... z107.1{z107.1-z107.3} & cycle; penlabels(range 1 thru
+170);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitM.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitM.mf
new file mode 100644
index 00000000000..7fead3879ff
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitM.mf
@@ -0,0 +1,123 @@
+.cmchar "The letter M";
+.beginchar("M",8.9u#+1mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(2u,0.6v); z2=(2.5u,1.5v); z3=(1.95u,1.65v); z4=(0.65u,2.35v);
+z5=(0.45u,3.05v); z6=(1.4u,4.1v); z7=(2.2u,3.4v); z8=(1.65u,2.8v);
+z9=(1.2u,3.15v); z10=(5.25u,0.7v); z19=(5.9u,1.45v); z11=(5.2u,1.7v);
+z12=(3.7u,2.4v); z13=(3.4u,3.1v); z14=(4.35u,4.3v); z15=(5.3u,3.5v);
+z16=(4.65u,2.8v); z17=(4.05u,3.3v); z18=(8.15u,0.55v); z29=(7.85u,1.45v);
+z20=(8.8u,1.5v); z21=(9.5u,2.3v); z22=(6.6u,2.2v); z23=(6.2u,2.65v);
+z24=(5.8u,2.35v); z25=(6u,2v); z26=(8.85u,3.05v); z27=(8.3u,2.5v);
+z28=(8.7u,2.1v); z29=(7.85u,1.45v); z30=(7.37u,2.3u); z31=(7.1u,4.8v);
+z32=(7.4u,5.75v); z33=(8.05u,6.45v); z12'=z12; z34=(5.1u,5.45v);
+z35=(4.05u,7.3v); z36=(1.95u,7.2v); z37=(0.9u,6.85v); z38=(0,7.7v);
+z39=(0.6u,8.2v); z40=(0.95u,8.1v); z41=(1.4u,7.85v); z42=(1.65u,8.3v);
+z43=(1.7u,1.8v); z44=(3.15u,4.45v); z45=(2.45u,5.6v); z46=(u,5.3v);
+z47=(2.55u,6.4v); z48=(5.8u,3.45v); z49=(5.65u,3.7v); z50=(6.05u,4.05v);
+z51=(6.5u,3.5v); z52=(5.65u,2.8v); z53=(4.1u,5v); z54=(5u,7.2v);
+z55=(6.3u,7.75v); z56=(7.15u,7.35v); z57=(8.1u,6.75v); z58=(9u,7.6v);
+z59=(8.5u,8.1v); z60=(8.2u,7.8v); ka(1,0); ka(2,-58); penpos3(0.85uv,46);
+penpos4(0.75uv,53.5); penpos5(0.35u,0); ka(6,-90); ka(7,180); ka(8,90); ka(9,0);
+ka(10,0); ka(19,-58); penpos11(uv,49); penpos12(0.65uv,42.5); penpos13(0.3u,0);
+ka(14,-90); ka(15,180); ka(16,90); ka(17,0); ka(12',-47); ka(18,0);
+penpos20(0.2uv,-57); ka(21,0); ka(26,90); ka(27,180); ka(28,-90); ka(22,0);
+ka(23,90); ka(24,180); ka(25,-90); penpos29(0.85uv,56.5); penpos30(0.75u,0);
+penpos31(0.65u,0); penpos32(0.3uv,-34); ka(33,-58); penpos34(0.8u,0);
+penpos35(0.9uv,61); penpos36(0.8uv,121); penpos37(0.6v,90); ka(38,0);
+penpos39(0.3v,-90); penpos40(0.47uv,-138); penpos41(0.15v,-90); ka(42,0);
+ka(43,-39); penpos44(0.55u,0); penpos45(0.8uv,35); ka(47,180); ka(46,-61);
+ka(48,90); ka(49,0); ka(50,-90); ka(51,180); ka(52,90); ka(53,0);
+penpos54(1.5hair,-40); penpos55(0.4v,-90); penpos56(0.9uv,-140);
+penpos57(0.3v,-90); ka(58,0); ka(59,90); ka(60,180); filldraw z1l{up}...
+z3l{(0,2.6v)-(3.5u,0)}... z4l{(0,2.5v)-(2.3u,0)}...
+z5l{(1.3u,9v)-(0,1.7v)}...z6l{right} & z6l--z6r & z6r{left}...
+z5r{(1.6u,0)-(0,5.1v)}...z4r... z3r{(4.8u,0)-(0,3.6v)}... z2l{(3.15u,0)-(0,7v)}
+& z2l{(9u,5.6v)}...z12'l{(9u,7v)-(1.1u,0)} & z12'l--z12'r &
+z12'r{(1.1u,0)-(9u,7v)}...z2r{(-9u,-5.6v)} ...z1r{down} & z1r--z1l & cycle;
+penstroke z6e{right}...z7e...z8e... z9e{up}; kouki(9,2,2); filldraw
+z43r{(8u,9v)-(0.2u,0)}... z44r...(3.2u,5.3v)...z45r...z47l{up} & z47l--z47r &
+z47r{(0,3.5v)-z47}... z46l{z46-(9u,9v)} & z46l--z46r &
+z46r{(9u,8v)-z46}...z45l...z44l... z43l{(0.2u,0)-(8u,9v)} & z43l--z43r & cycle;
+penstroke z12'e{(9u,7v)-(1.1u,0)}... z34e...z35e...z36e...z37e...z38e...
+z39e...z40e...z41e...z42e{up}; filldraw z10l{up}...z11l...z12l...
+z13l...z14l{right} & z14l--z14r & z14r{left}...z13r...z12r...z11r
+...z19l{(6.4u,0)-(3u,9v)} & z19l{(9u,3.3v)-(3.4u,0)}...z22l{up} & z22l--z22r &
+z22r{down}... z19r{(3.4u,0)-(9u,3.3v)}... z10r{down} & z10r--z10l & cycle;
+penstroke z14e{right}...z15e...z16e... z17e{up}; kouki(17,2,1.5); penstroke
+z22e{up}...z23e...z24e... z25e{right}; kouki(25,6,1.1); filldraw
+z18l{up}...z29l... (7.1u,1.8v)...z30l... z31l...z32l...z33l{(9u,6.8v)-z33} &
+z33l--z33r & z33r{z33-(9u,6.8v)}... z32r...z31r...z30r...z29r...z20l ...z21l{up}
+& z21l--z21r & z21r{down}...z20r...z18r{down} & z18r--z18l & cycle; penstroke
+z21e{up}...z26e...z27e... z28e{right}; kouki(28,6,1.8); penstroke
+z48e{left}...z49e...z50e... z51e...z52e...z53e{up}...z54e...
+z55e...z56e{(9u,5.2v)-(5.7u,9v)} ...z57e...z58e...z59e... z60e{down};
+kouki(60,4,1.3); mpalla(53,1.4); z48'=z48; ka(48',-90); kouki(48',6,1.2);
+z61=(1.75u,0.35v); z62=(1.1u,1.3v); z63=(0.6u,0.7v); z64=(1.1u,0.3v);
+z65=(1.5u,0.7v); z66=(1.1u,v); z67=(0.95u,0.85v); z68=(-0.2u,3v);
+z69=(-0.15u,3.5v); z70=(0.7u,4.5v); z71=(1.3u,4.6v); z72=(2.4u,3.6v);
+z73=(1.6u,2.5v); z74=(0.9u,3.3v); z75=(1.1u,3.7v); z76=(2.2u,0.4v);
+z77=(4u,2.15v); z78=(5.85u,5.5v); z79=(5.7u,6.5v); z80=(5u,7.75v);
+z81=(3.15u,8.55v); z82=(0.05u,6.1v); z83=(2.2u,3.85v); z84=(3.8u,5.5v);
+z85=(2.6u,6.75v); z86=(1.5u,6v); z87=(2.2u,4.9v); z88=(3u,5.7v);
+z89=(0.4u,4.5v); z90=(-0.1u,5.1v); z91=(0.1u,5.5v); z92=(0.5u,6.15v);
+z93=(0.1u,6.6v); z94=(-0.2u,6.3v); z95=(0.45u,5.6v); z96=(0.8u,5.2v);
+z97=(0.5u,4.75v); z98=(0.6u,5.8v); z99=(0,7.7v); z100=(-0.5u,8.25v);
+z101=(-0.2u,8.6v); z102=(3.8u,1.3v); z103=(4.8u,0.45v); z104=(4.2u,-0.2v);
+z105=(3.65u,0.3v); z106=(4u,0.7v); z107=(4.2u,0.6v); z108=(4.1u,0.2v);
+z109=(4.4u,0.15v); z110=(4.7u,8.55v); z111=(4.3u,8.2v); z112=(4.5u,7.9v);
+z113=(6.6u,8.45v); z114=(7.6u,8v); z115=(8.8u,7v); z114'=(5.5u,8.5v);
+z116=(9.5u,7.9v); z117=(8.65u,8.6v); z118=(7.4u,7v); z119=(5.25u,0);
+z120=(7.4u,2.05v); z121=(8.4u,4.1v); z122=(7.6u,6.1v); z123=(6.6u,6.4v);
+z124=(5.45u,5.5v); z125=(6.4u,4.55v); z126=(7.15u,5.2v); z127=(6.5u,5.8v);
+z128=(6.15u,5.5v); z129=(6.5u,1.15v); z130=(7.25u,0.85v); z131=(6.8u,-0.15v);
+z132=(6.3u,0.3v); z133=(6.65u,0.65v); z134=(6.7u,0.35v); z135=(6.9u,0.2v);
+z136=(8.5u,-0.05v); z137=(9.15u,0.6v); z138=(8.85u,0.95v); z139=(8.7u,1.8v);
+z140=(7.9u,2.7v); z141=(7.7u,4.3v); z141'=(7.9u,5.8v); z142=(8.8u,6.2v);
+z143=(9.5u,5.6v); z144=(9.3u,5.15v); z145=(8.7u,5.4v); z146=(8.8u,4.5v);
+z147=(8.6u,4.95v); ka(61,0); ka(62,90); ka(63,180); ka(64,-90); ka(65,0);
+ka(66,90); ka(67,180); ka(68,0); ka(69,-17.5); ka(70,-65); ka(71,-90);
+ka(72,180); ka(73,90); ka(74,0); ka(75,-50); ka(76,-30); ka(77,-50); ka(78,0);
+ka(79,15); ka(80,45); ka(81,90); ka(82,180); ka(83,-90); ka(84,0); ka(85,90);
+ka(86,180); ka(87,-90); ka(88,0); ka(89,90); ka(90,0); ka(91,-51); ka(92,0);
+ka(93,90); ka(94,180); ka(95,-90); ka(96,180); ka(97,90); ka(99,90);
+ka(100,0); ka(101,-90); ka(102,-90); ka(103,180); ka(104,90); ka(105,0);
+ka(106,-90); penpos107(0.25uv,-160); penpos108(0.222uv,-157); ka(114,-146);
+ka(109,-90); ka(110,90); ka(111,180); ka(112,-90); ka(113,-90); ka(115,-90);
+ka(116,0); ka(117,90); ka(118,180); ka(119,-23); ka(120,-42); ka(121,0);
+ka(122,48); ka(123,90); ka(124,180); ka(125,-90); ka(126,0); ka(127,90);
+ka(128,180); ka(129,-90); ka(130,-139); ka(131,90); ka(132,0);
+penpos133(0.2uv,-134); penpos134(0.2u,180); ka(135,-90); ka(136,-90);
+ka(137,0); ka(138,90); ka(139,90); ka(140,0); ka(141,0); ka(141',-29);
+ka(142,-90); ka(143,180); ka(144,131); ka(145,0); ka(146,180); penstroke
+z61e{up}...z62e{left}... z63e...z64e...z65e... z66e...z67e{down};
+kouki(67,4,1.1); penstroke z62e{left}...z68e...z69e...
+z70e...z71e...z72e...z73e...z74e... z75e{(7u,9v)-z75}; z88'=z47+(0,-0.1v);
+ka(88',90); penstroke z76e{(7u,9v)-z76}... z77e...z78e...z79e...z80e...z81e...
+z82e...z83e...z84e...z85e...z86e{down}... z87e...z88e...z88'e; z70'=z70;
+ka(70',107); penstroke z86e{down}... z70'e...z89e...z90e... z91e...z95e...
+z96e...z97e{left}; kouki(97,5,1.2); mpalla(98,1.1); penstroke
+z91e{(4u,9v)-z91}...z92e... z93e...z94e{down}; kouki(94,4,1.1); z99'=(u,7.95v);
+ka(99',121); penstroke z99'e{(-u,-0.4v)}...z99e ...z100e...z101e{right};
+kouki(101,8,1); penstroke z76e{(7u,9v)-z76}... z102e{right}...z103e...z104e...
+z105e{up}...z106e{right}...z107e...z108e... z109e{right}; z84'=(4.3u,7.1v);
+z84''=z80; ka(84',-43); ka(84'',-54); penstroke z84e{up}...z84'e...
+z84''e{(6u,9v)-z84''} ...z110e...z111e...z112e{right}; kouki(112,6,1.1);
+penstroke z84''e{(6u,9v)-z84''}... z113e...z114e...z115e...z116e...
+z117e...z118e{down}; mpalla(114',1.5); mpalla(113,1.4); mpalla(116,1.3);
+penstroke z119e{(9u,9v)-z119}... z120e...z121e...z122e{(-3u,3v)}...
+z123e...z124e...z125e...z126e... z127e...z128e{down}; kouki(128,4,1.6);
+z118'=z118; ka(118',0); penstroke z122e{(-3u,3v)}...z118'e{up}; penstroke
+z119e{(9u,9v)-z119}... z129e...z130e{(8u,0)-z130}...
+z131e...z132e...z133e...z134e... z135e{right}; penstroke z130e{(8u,0)-z130}...
+z136e...z137e...z138e{left}; kouki(138,7,1.5); penstroke z139e{left}...z140e...
+z141e...z141'e...z142e...z143e... z144e{left}...z145e{up}; kouki(145,2,1.5);
+penstroke z144e{left}...z146e{down}; kouki(146,4,1.3); mpalla(147,1.2);
+z150=(2.7u,8.2v); z151=(1.9u,7.9v); z152=(2.4u,9v); z160=(5.2u,6.3v);
+z161=(4.9u,6.75v); z162=(6.2u,6.9v); triaina(150,151,152,0.8);
+triaina(160,161,162,0.45); mpalla(114,1.5); z148=(3.05u,0.65v); z149=(3.4u,0.6v);
+z149'=(3.7u,0.8v); z148'=(2.7u,0.85v); penpos148(0.4uv,-113);
+penpos149(0.1v,-90); ka(149',0); penpos148'(0.1v,-90); penstroke
+z76e{(7u,9v)-z76}... z148'e...z148e...z149e...z149'e{up}; kouki(149',1,1.2);
+penlabels(range 1 thru 150);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitN.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitN.mf
new file mode 100644
index 00000000000..218bc1349e9
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitN.mf
@@ -0,0 +1,109 @@
+.cmchar "The letter N";
+.beginchar("N",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.9u,0.6v); z2=(4.45u,1.55v); z3=(3.6u,1.75v); z4=(1.75u,2.3v);
+z5=(1.4u,3.15v); z6=(2.3u,4.15v); z7=(2.9u,3.5v); z8=(2.45u,2.95v);
+z9=(2u,3.3v); z10=(2.2u,3.52v); z11=(2.5u,3.45v); z12=(2.7u,3.6v);
+z13=(5.1u,2.1v); z14=(6.1u,3.3v); z15=(5.5u,4.05v); z16=(5u,3.65v);
+z17=(5.2u,3.3v); z18=(5.4u,3.35v); z19=(5.6u,3.3v); z20=(5.6u,3v);
+z21=(7.75u,0.8v); z22=(8.6u,1.8v); z23=(7.5u,1.7v); z24=(7u,2.6v);
+z25=(6.8u,4.95v); z26=(7.45u,6.2v); z27=(2.5u,2v); z28=(3.75u,4.5v);
+z29=(3.05u,6.05v); z30=(3u,6.6v); z31=(1.9u,5.65v); z32=(2.8u,2v);
+z33=(4.5u,5.55v); z35=(3u,7.45v); z34=(3.95u,6.9v); z36=(1.7u,7.15v);
+z37=(0.5u,7.65v); z38=(0.55u,8.05v); z39=(1.3u,8.3v); z40=(1.55u,8.15v);
+z41=(1.95u,8.25v); z42=(1.9u,8.5v); z43=(5.65u,7.95v);z44=(6.65u,7.55v);
+z45=(7.3u,6.8v); z34'=z34; z46=(8.2u,6.65v); z47=(8.8u,7.4v); z48=(8.3u,7.9v);
+z49=(7.9u,7.5v); z50=(9.05u,2.5v); z51=(8.5u,3.1v); z52=(8.05u,2.7v);
+z53=(8.25u,2.45v); ka(1,0); penpos2(1.5hair,-45); penpos3(0.9uv,60);
+penpos4(0.65uv,41); penpos5(0.25u,0); ka(6,-90); ka(7,180); ka(8,90); ka(9,0);
+penpos10(0.25v,-90); penpos11(0.2v,-111); ka(12,0); ka(13,-51); ka(14,0);
+ka(15,90); ka(16,180); penpos17(0.25uv,-108); penpos18(0.3uv,-57);
+penpos19(0.2uv,-133); ka(20,180); ka(21,0); penpos22(1.5hair,-54);
+penpos23(0.8uv,48); penpos24(0.75uv,15); penpos25(0.6u,-18); ka(26,-40);
+ka(27,-46); penpos28(0.35u,0); penpos29(0.8uv,40); ka(30,180); ka(31,-69);
+ka(32,-44); penpos33(0.6u,0); penpos34(0.85uv,42); ka(34',-52);
+penpos35(0.9uv,78); penpos36(0.75uv,110); penpos37(0.2u,18); ka(38,-35);
+penpos39(0.4uv,-129); penpos40(0.4uv,-106); penpos41(0.1uv,-45); ka(42,0);
+penpos43(0.3uv,-83); penpos44(0.8uv,-134); penpos45(0.6uv,-140);
+penpos46(0.1v,-90); ka(47,0); ka(48,90); ka(49,180); ka(50,0); ka(51,90);
+ka(52,180); ka(53,-90); filldraw z1r{up}...z2r{z2-(3u,0)}... z13r{(9u,5v)-z13} &
+z13r--z13l & z13l{z13-(9u,5v)}...z2l{(3u,0)-z2} &
+z2l{(0,9v)-z2}...z3r...z4r...z5r... z6r{right} & z6r--z6l & z6l{left}...
+z5l...z4l...z3l...z1l{down} & z1l--z1r & cycle; penstroke
+z6e{right}...z7e...z8e{left}... z9e{up}...z10e...z11e...z12e{up}; penstroke
+z13e{(9u,5v)-z13}...z14e... z15e...z16e...z17e...z18e...z19e... z20e{down};
+filldraw z21r{up}...z22r...z50r{up} & z50r--z50l & z50l{down}...z22l...
+z23r...z24r...z25r...z26r{(9u,8.3v)-z26} & z26r--z26l & z26l{z26-(9u,7.2v)}...
+z25l...z24l...z23l...z21l{down} & z21l--z21r & cycle; penstroke
+z50e{up}...z51e... z52e{down}; kouki(52,4,2); penstroke
+z34'e{(6.5u,9v)-z34'}...z43e... z44e...z45e...z46e...z47e...z48e... z49e{down};
+kouki(49,4,2); penstroke z32e{(9u,8.4v)-z32}...z33e
+...z34e...z35e...z36e...z37e...z38e... z39e...z40e...z41e...z42e; filldraw
+z27r{(8.6u,9v)-z27}...z28r... z29r...z30l{up} & z30l--z30r &
+z30r{(0,0)-z30}...z31l{z31-(8u,9v)} & z31l--z31r & z31r{(9u,7.2v)-z31}...
+z29l...z28l...z27l{z27-(8.6u,9v)} & z27l--z27r & cycle; z50'=(3.7u,0.2v);
+z51'=(2.9u,1.1v); z52'=(2.35u,0.6v); z53'=(2.8u,0.15v); z54=(3.15u,0.5v);
+z55=(2.9u,0.85v); z56=(0.85u,1.85v); z57=(0.25u,3.05v); z58=(3.75u,0.25v);
+z58'=(0.7u,4.55v); z580=(0,4.3v); z59=(1.9u,5.1v); z60=(3.25u,3.9v);
+z61=(1.8u,2.25v); z62=(0.3u,v); z63=(1.2u,0); z64=(1.9u,0.7v);
+z65=(1.3u,1.3v); z66=(0.85u,0.8v); z67=(0.3u,-0.05v); z68=(0.85u,3.3v);
+z69=(2u,4.5v); z70=(3.1u,4.4v); z71=(3.2u,2v); z72=(4.65u,3v);
+z73=(5.05u,2.65v); z74=(4.7u,2.3v); z75=(5.05u,4.7v); z76=(5.2u,6v);
+z77=(4.5u,8.3v); z78=(5.05u,8.9v); z79=(5.5u,8.5v); z80=(5.15u,8.2v);
+z81=(4.15u,8.75v); z82=(3.45u,8.25v); z83=(0.7u,6.35v); z84=(0.5u,7.75v);
+z85=(-0.05u,8.4v); z86=(0.25u,8.75v); z87=(0.55u,8.5v); z88=(0.1u,4.8v);
+z89=(1.3u,5.6v); z90=(2.3u,4.8v); z91=(4u,6.5v); z92=(1.4u,6.5v);
+z93=(2.2u,5.6v); z94=(2.9u,6.15v); z95=(2.4u,6.6v); z96=(6.9u,9v);
+z97=(8.3u,7.7v); z98=(7u,6.4v); z99=(6.1u,7.3v); z100=(7u,8.35v);
+z101=(8.15u,8.2v); z102=(8.6u,8.6v); z103=(3.95u,0.2v); z104=(4.4u,1.1v);
+z105=(5.95u,2.35v); z106=(8.3u,4.5v); z107=(7u,6v); z108=(5.5u,4.5v);
+z109=(6.7u,3.3v); z110=(7.75u,4.35v); z111=(6.8u,5.2v); z112=(6.05u,4.5v);
+z113=(6.8u,3.8v); z114=(5.5u,1.8v); z115=(7u,v); z116=(6.2u,0);
+z117=(5.6u,0.35v); z118=(6u,1.2v); z119=(4.8u,0.95v); z120=(4.35u,0.5v);
+z121=(6.45u,0.8v); z122=(6.2u,0.5v); z123=(8.15u,0); z124=(8.8u,0.7v);
+z125=(8.4u,1.2v); z126=(8u,0.8v); z127=(8.3u,0.45v); z128=(8.5u,2.9v);
+z129=(8.85u,2.5v); z130=(8.4u,2v); z131=(7.45u,4v); z132=(7.6u,5.4v);
+z133=(8.5u,6.3v); ka(50',6); ka(51',84); ka(52',180); ka(53',-90); ka(54,0);
+ka(55,90); ka(56,48); ka(57,0); ka(58,0); ka(58',-44); ka(59,-90); ka(60,180);
+ka(61,90); ka(62,180); ka(63,-90); ka(64,0); ka(65,90); ka(66,163); ka(67,90);
+ka(68,0); ka(69,-90); ka(70,-90); ka(580,0); ka(71,-45); ka(72,-90);
+ka(73,180); ka(74,90); ka(75,-13); ka(76,0); ka(77,0); ka(78,-90); ka(79,180);
+ka(80,90); ka(81,90); ka(82,69); ka(83,180); ka(84,90); ka(85,0); ka(86,-90);
+ka(87,180); ka(88,90); ka(89,-90); ka(90,-90); ka(91,0); ka(92,180);
+ka(93,-90); ka(94,0); ka(95,90); ka(96,-90); ka(97,180); ka(98,90); ka(99,0);
+ka(100,-90); ka(101,-105); ka(102,0); ka(103,-17); ka(104,-40); ka(105,-65);
+ka(106,0); ka(107,90); ka(108,180); ka(109,-90); ka(110,0); ka(111,90);
+ka(112,180); ka(113,-90); ka(114,-90); ka(115,-153); ka(116,90); ka(117,40);
+ka(118,-90); ka(119,90); ka(120,180); ka(121,180); ka(122,90); ka(123,-90);
+ka(124,0); ka(125,90); ka(126,180); ka(127,-90); ka(128,-90); ka(129,180);
+ka(130,90); ka(131,0); ka(132,-18); ka(133,-90); penstroke
+z50'e{(3u,9v)-z50'}... z51'e{left}...z52'e...z53'e...z54e... z55e{left};
+kouki(55,7,1.2); penstroke z51'e{left}...z56e...z57e{up}...
+z58'e...z59e...z60e...{left}z61e...z62e...
+z63e...z64e...z65e...z66e...z67e{left}; kouki(67,5,1.5); mpalla(57,1.3);
+mpalla(58',1.4); penstroke z57e{up}...z580e{up}; kouki(580,1,1); z61'=z61;
+ka(61',90); penstroke z61'e{left}...z68e...z69e... z70e{right}; kouki(70,6,1.2);
+penstroke z71e{(9u,7.5v)-z71}...z72e ...z73e...z74e{left}; kouki(74,5,1.3);
+penstroke z71e{(9u,7.5v)-z71}...z75e ...z76e{up}...z77e...z78e...z79e...z80e...
+z81e{left}; kouki(81,7,1); kouki(80,5,1.3); penstroke z76e{up}...z96e...z97e...
+z98e...z99e...z100e...z101e...z102e{up}; kouki(102,1,1.8); penstroke
+z103e{(7u,9v)-z103}... z104e{(9u,7v)-z104}...z105e...
+z106e...z107e...z108e...z109e...z110e... z111e...z112e...z113e; mpalla(105,1.5);
+mpalla(106,1.2); mpalla(107,1.4); z82'=z41; ka(82',75); penstroke
+z76e{up}...z82e... z82'e{(0,7.4v)-z82'}...z84e...z85e... z86e...z87e{down};
+kouki(87,3,1.1); penstroke z82'e{(0,7.4v)-z82'}... z83e{down}...z88e{left};
+kouki(88,5,1.2); penstroke z83e{down}...z90e...z91e...
+z92e...z93e...z94e...z95e{left}; kouki(95,7,1.4); z134=(5.8u,6.6v); ka(134,-90);
+penstroke z75e{(5.7u,9v)-z75}... z134e{right}; kouki(134,8,1); mpalla(75,1.5);
+z150=(3.05u,7.75v); z151=(2.35u,7.85v); z152=(3.15u,9v);
+triaina(150,151,152,0.5); penstroke z104e{(9u,7v)-z104}...
+z114e...z115e{z115-(4u,9v)}... z116e...z117e{(0.7u,9v)-z117}...
+z118e...z121e...z122e{left}; kouki(122,5,1.6); penstroke
+z117e{(0.7u,9v)-z117}... z119e...z120e{down}; kouki(120,4,1.6); penstroke
+z115e{z115-(4u,9v)}... z123e...z124e...z125e...z126e... z127e{right};
+kouki(127,6,1.6); mpalla(117,1.2); mpalla(83,1.7); z83'=(7.15u,0.3v);
+mpalla(83',1.3); penstroke z128e{right}...z129e...
+z130e...z131e...z132e...z133e{right}; kouki(133,8,1.1); penlabels(range 1 thru
+140);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitO.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitO.mf
new file mode 100644
index 00000000000..6c24b75cd5a
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitO.mf
@@ -0,0 +1,86 @@
+.cmchar "The letter O";
+.beginchar("O",8.9u#+0.1mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.9u,6.9v); z2=(3.1u,6.4v); z3=(1.65u,3.35v); z4=(2.35u,1.6v);
+z5=(4.4u,0.6v); z6=(7u,1.7v); z7=(7.9u,4.8v); z8=(5.65u,7.7v); z9=(3.35u,7.7v);
+z10=(1.85u,7.25v); z11=(0.75u,8.15v); z12=(1.4u,8.75v); z13=(1.9u,8.5v);
+z14=(2u,8.15v); z15=(2.5u,8.2v); z16=(3.7u,2.4v); z17=(4u,2.25v);
+z18=(4.7u,2.9v); z19=(4.35u,3.7v); z20=(3.4u,4.05v); z21=(3.4u,4.6v);
+z22=(2.3u,3.4v); z23=(3.85u,2.8v); z24=(3.5u,2.95v); z25=(3.35u,2.4v);
+z26=(4.4u,1.95v); z27=(5.7u,3.7v); z28=(5.4u,4.35v); z29=(3.9u,5.55v);
+z30=(4.9u,6.6v); z31=(5.8u,5.9v); z32=(5.6u,5.45v); z33=(4.85u,1.7v);
+z34=(5.6u,2.2v); z35=(6.6u,1.7v); z36=(7.15u,0.6v); z37=(8.15u,0.25v);
+z38=(8.85u,1.1v); z39=(8.4u,1.7v); ka(1,95); penpos2(1.5hair,119);
+penpos3(0.9u,183); penpos4(1.1uv,-135); penpos5(0.7v,-90); penpos6(0.15uv,-42);
+penpos7(0.65u,0); penpos8(1.05uv,65); penpos9(uv,106); penpos10(0.6v,90);
+penpos11(1.5hair,0); penpos12(0.2v,-90); penpos13(0.55v,-173);
+penpos14(0.4v,-156); ka(15,-27); penstroke z1e{(0,6.6v)-z1}...z2e...
+z3e...z4e...z5e...z6e...z7e...z8e... z9e...z10e...z11e...z12e...z13e...
+z14e...z15e; ka(16,180); penpos17(0.1v,-90); penpos18(0.5u,0);
+penpos19(0.62uv,59); penpos20(0.8uv,60); ka(21,180); ka(22,-58); filldraw
+z16r{down}...z17r...z18r... z19r...z20r...z21l{up} & z21l--z21r &
+z21r{down}...{z22-(9u,8.5v)}z22l & z22l--z22r &
+z22r{(9u,6.5v)-z22}...z20l...z19l...z18l...z17l... z16l{up} & z16l--z16r & cycle;
+penpos23(0.5u,12); penpos24(0.4v,90); ka(25,180); penpos26(0.1v,-90); filldraw
+z16l{right}...z23r...z24r ...{z25-(0,9v)}z25r...z26r{right} & z26r--z26l &
+z26l{left}... z25l{(0,9v)-z25}...z24l...z16l{down} & cycle; penpos27(0.9u,0);
+penpos28(uv,47); penpos29(0.9uv,12); penpos30(0.15v,-90); penpos31(0.1u,180);
+ka(32,90); kouki(31,3,3); penstroke z26e{right}...z27e...z28e
+...z29e...z30e...z31e{down}; z40=(2.6u,0.3v); z41=(2.35u,0.4v);
+z42=(1.55u,0.1v); z43=(1.2u,-0.05v); z44=(0.15u,1.15v); z45=(2.5u,3.9v);
+z46=(3.4u,5.5v); z47=(2.4u,6.9v); z48=(1.6u,6.3v); z49=(1.85u,5.95v);
+z50=(1.9u,0.8v); z51=(1.3u,1.35v); z52=(0.9u,0.75v); z53=(1.2u,0.45v);
+z54=(0.55u,0.75v); z55=(0.05u,0); z56=(4u,0); z57=(8.6u,4.6v); z58=(4.2u,9v);
+z59=(0.5u,6.55v); z60=(0.9u,5.2v); z61=(1.9u,4.65v); z62=(2.8u,3v);
+z63=(2.3u,1.55v); z64=(0,2.7v); z65=(u,3.7v); z66=(u,2.3v); z67=(0.6u,2.8v);
+z68=(0.3u,5.25v); z69=(-0.15u,4.85v); z70=(0.1u,4.5v); z71=(1.35u,8.2v);
+z72=(0.35u,7.6v); z73=(-0.1u,8.1v); z74=(0.3u,8.5v); z67'=(0.8u,4.75v);
+z75=(0.65u,8.2v); z76=(0.5u,8.8v); z77=(3.8u,3.4v); z78=(2.95u,2.8v);
+z79=(3.7u,1.65v); z80=(4.45u,1.5v); z81=(6.45u,3.7v); z82=(5.8u,5.35v);
+z83=(4.9u,7v); z84=(6.7u,9v); z84'=(7.5u,8.8v); z85=(8.4u,7.4v); z86=(7u,5.95v);
+z87=(5.85u,7.1v); z88=(7u,8.35v); z89=(7.75u,7.6v); z90=(8.7u,8.4v);
+z91=(9u,8.8v); z92=(8.75u,9.05v); z93=(6.8u,3.6v); z94=(6.7u,5.4v);
+z95=(6.25u,5.55v); z96=(7.2u,3.5v); z97=(8.6u,5.15v); z98=(8.6u,4.55v);
+z99=(8.7u,6.6v); z100=(7.3u,2.65v); z101=(8.15u,2.55v); z102=(9u,2.9v);
+z103=(8.7u,3.2v); z104=(8.7u,1.5v); z105=(7.7u,0.5v); z106=(6.9u,1.2v);
+z107=(7.6u,1.9v); z108=(8.15u,1.5v); z109=(7.75u,v); z110=(1.25u,6.8v);
+z111=(1.25u,5.9v); z112=(-0.2u,6.85v); z113=(0.85u,4v); z114=(2.4u,4.35v);
+z115=(6.1u,0.35v); z116=(6.6u,0.2v); z117=(6.95u,0.15v); z118=(7u,0.4v);
+ka(115,-66); penpos116(0.25uv,-147); ka(44,180); ka(43,-90); ka(42,-60);
+ka(41,-90); ka(40,180); ka(50,0); ka(51,90); ka(52,180); ka(53,-90); ka(54,161);
+ka(55,90); z44'=z44; ka(44',0); ka(45,-49); ka(46,0); ka(47,90); ka(48,180);
+ka(49,-90); ka(56,-92); ka(57,0); ka(58,90); ka(59,180); ka(60,-139); ka(61,-90);
+ka(62,180); ka(63,90); ka(64,0); ka(65,-90); ka(66,90); ka(67,0); ka(67',0);
+ka(68,90); ka(69,180); ka(70,-90); ka(71,120); ka(72,90); ka(73,0); ka(74,-90);
+ka(75,180); ka(76,0); ka(77,90); ka(78,180); ka(79,-114); ka(80,-90); ka(81,0);
+ka(82,36); ka(83,0); ka(84,-90); ka(85,180); ka(86,90); ka(87,0); ka(88,-90);
+ka(89,180); ka(90,-90); ka(91,0); ka(92,90); ka(93,0); ka(94,35); ka(95,90);
+ka(96,-24); ka(97,0); penpos98(0.3v,90); ka(99,-90); ka(100,-90); ka(101,-115);
+ka(102,0); ka(103,90); ka(104,180); ka(105,90); ka(106,0); ka(107,-90);
+ka(108,180); ka(109,90); ka(84',-74); penstroke z44e{down}...z43e...
+z42e{(9u,4.6v)-z42}...z41e... z40e{down}; kouki(40,3,1.2); penstroke
+z42e{(9u,4.6v)-z42}... z50e...z51e{left}...z54e...z55e{left}; kouki(55,5,1.5);
+penstroke z51e{left}...z52e... z53e{right}; kouki(53,6,1.1); penstroke
+z44'e{up}...z45e...z46e... z47e...z48e...z49e{right}; kouki(49,6,1.2);
+penstroke z56e{(9u,-0.2v)-z56}...z115e{(9u,1.5v)-z115}...
+z57e...z58e...z71e{(0,7.3v)-z71}...z59e... z60e{(4.8u,0)-z60}...z61e...z46e{up};
+mpalla(58,1.1); mpalla(60,1.5); penstroke z60e{(4.8u,0)-z60}...
+z62e...z63e...z64e{up}...z65e... z66e...z67e{up}; kouki(67,2,1.2);
+mpalla(64,1.2); penstroke z64e{up}...z67'e...z68e... z69e...z70e{right};
+kouki(70,6,1.5); penstroke z71e{(0,7.3v)-z71}...z72e
+...z73e...z74e{right}...z75e{down}; penstroke z74e{right}...z76e{up};
+kouki(75,3,1.2); kouki(76,1,1.4); penstroke z77e{left}...z78e...z79e
+...z80e{right}...z81e...z82e...z83e ...z84e...z84'e{(9u,8v)-z84'}...
+z85e...z86e...z87e...z88e... z89e{down}; kouki(89,3,1.4); penstroke
+z84'e{(9u,8v)-z84'}... z90e...z91e...z92e{left}; kouki(92,7,1.2);
+mpalla(84',1.4); mpalla(79,1.4); mpalla(81,1.5); penstroke
+z80e{right}...z93e...z94e ...z95e; penstroke z80e{right}...z100e...
+z101e{(9u,2.2v)-z101}...z104e... z105e...z106e...z107e...z108e... z109e{left};
+kouki(109,5,1.4); penstroke z101e{(9u,2.2v)-z101}... z102e...z103e{left};
+kouki(103,7,1.3); z97'=z97; ka(97',-90); penstroke z93e...z97'e{right}...
+z98e{left}; penstroke z97e{up}...z99e{right}; kouki(95,7,1); kouki(99,8,1.3);
+penpos117(0.1uv,-51); ka(118,0); penstroke z115e{(9u,1.5v)-z115}...
+z116e...z117e...z118e{up}; mpalla(114,1.3); mpalla(113,1.5);
+triaina(110,111,112,0.65); penlabels(range 1 thru 120);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitP.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitP.mf
new file mode 100644
index 00000000000..d86c000ca88
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitP.mf
@@ -0,0 +1,100 @@
+.cmchar "The letter P";
+.beginchar("P",8.9u#-0.4mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.7u,0); z2=(5.1u,1.27v); z3=(4.65u,1.65v); z4=(2.35u,2.45v);
+z5=(1.8u,3.4v); z6=(2.65u,4.35v); z7=(3.35u,3.75v); z8=(3u,3.3v);
+z9=(2.7u,2.3v); z10=(3.1u,2.1v); z11=(4.1u,4.7v); z12=(3.45u,6v);
+z13=(2.2u,5.6v); z14=(3.5u,6.7v); z15=(5u,5.55v); z16=(3.9u,7.4v);
+z17=(3u,7.6v); z18=(1.6u,7.2v); z19=(0.25u,8v); z20=(0.6u,8.55v);
+z21=(u,8.4v); z22=(1.15u,8.15v); z23=(1.6u,8.2v); z24=(4.65u,6.4v);
+z25=(5.9u,7.15v); z26=(6.5u,7.45v); z27=(7.45u,8.2v); z28=(7u,7.25v);
+z29=(8.15u,5.55v); z30=(6.2u,3.5v); z31=(5.2u,4.5v); z32=(5.9u,5.3v);
+z33=(6.5u,4.95v); z34=(7.35u,5.35v); z35=(6.05u,3.95v); z36=(5.6u,1.1v);
+z37=(6.8u,2.3v); z38=(6.1u,3.1v); z39=(5.5u,2.6v); penpos1(0.1u,0);
+penpos3(uv,62); penpos2(uv,28.5); penpos4(0.6uv,47); penpos5(0.3u,0);
+penpos6(1.5hair,-90); ka(7,180); ka(8,90); ka(9,-56); ka(10,-56);
+penpos11(0.5u,0); penpos12(0.95uv,35); ka(13,-67); ka(14,180); penpos15(0.7u,0);
+penpos16(uv,58); penpos17(1.05v,90); penpos18(0.8uv,106); ka(19,0);
+penpos20(0.15v,-90); penpos21(0.4uv,-137); penpos22(0.4uv,-137); ka(23,-50);
+penpos24(2hair,-56); penpos25(2hair,-63); penpos26(2hair,-63); ka(27,152);
+penpos28(1.05uv,39); penpos29(0.8u,0); penpos30(0.1v,-90); ka(31,180);
+penpos32(0.4v,90); penpos33(0.7uv,36); ka(35,180); ka(34,0);
+penpos36(1.5hair,-65); penpos37(1.2hair,0); ka(38,90); ka(39,180); filldraw
+z1r{(9u,9v)-z1}...z36r{z36-(2.5u,0)}... z37r...z38r{left} & z38r--z38l &
+z38l{right}...z37l... z36l{(2.5u,0)-z36} & z36l...z2r...z3r
+...z4r...z5r...z6r{right} & z6r--z6l & z6l{left}...z5l...z4l...
+z3l...z2l...z1l{z1-(7u,9v)} & z1l--z1r & cycle; penstroke
+z38e{left}...z39e{down}; kouki(39,4,2.5); penstroke z6e{right}...z7e...z8e{left};
+kouki(8,5,2.5); filldraw z9r{(9u,7v)-z9}...z11r... z12r...z14l{up} & z14l--z14r
+& z14r{(0,v)-z14}...z13l{z13-(9u,8v)} & z13l--z13r &
+z13r{(9u,7.6v)-z13}...z12l...z11l... z9l{z9-(9u,7v)} & z9l--z9r & cycle;
+penstroke z10e{(9u,7v)-z10}... z15e...z16e...z17e...z18e...z19e...
+z20e...z21e...z22e...z23e; filldraw z24r...z25r...z26r & z26r{down}
+...z28l...z29l...z30l...z31l{up}...z32l ...z33l...z35r{down} & z35r--z35l &
+z35l{up}...(6.4u,4.5v)---(7.2u,5v)... z34r{up} & z34r--z34l & z34l{down}...
+z33r...z32r{left}...z31r{down}...z30r...z29r... z28r...z27l{(8u,9v)-z27} &
+z27l--z27r & z27r{z27-(8u,9v)}...z26l...z25l... z24l & z24l--z24r & cycle;
+kouki(35,4,1.5); kouki(34,1,1.5); z40=(4.6u,0); z41=(3.4u,v); z42=(2.7u,0.3v);
+z43=(3.15u,-0.15v); z44=(3.45u,0.15v); z45=(3.4u,1.1v); z46=(2.45u,0.9v);
+z47=(0.9u,0); z48=(0,0.8v); z49=(0.4u,v); z50=(1.5u,0.7v); z51=(1.1u,1.05v);
+z52=(3.4u,1.2v); z53=(2.8u,1.3v); z54=(0.8u,3.3v); z55=(2.5u,5.2v);
+z56=(3.6u,4v); z57=(2.75u,2.9v); z60'=(1.5u,2.3v); z58=(2.15u,3.45v);
+z59=(2.5u,4v); z60=(1.4u,2.5v); z61=(2u,4.55v); z62=(2.3u,5.3v); z63=(1.4u,6.2v);
+z64=(0.6u,5.5v); z65=(0.7u,5.1v); z66=(0.55u,4.1v); z67=(1.3u,4.85v);
+z68=(1.6u,5.4v); z69=(1.05u,5.65v); z70=(0.8u,2.7v); z71=(0.25u,2.05v);
+z72=(0.8u,1.6v); z73=(1.2u,2v); z74=(3.6u,2v); z75=(5.6u,5.5v); z77=(3u,8.85v);
+z78=(0.5u,6.8v); z77.1=(u,8.95v); z77.2=(2.1u,8.5v); z77.3=(1.4u,8.75v);
+z79=(4u,5.9v); z80=(3.05u,6.85v); z81=(2u,6.1v); z82=(2.5u,5.2v);
+z83=(6.3u,7.35v); z84=(5.3u,8.9v); z85=(4.55u,8.5v); z86=(4u,8.2v);
+z87=(3.5u,8.55v); z88=(3.9u,9v); z89=(4.15u,8.75v); z76=(5.6u,5.8v);
+z90=(5.1u,7.5v); z91=(5.65u,8v); z92=(7.25u,8.75v); z93=(8.55u,7.4v);
+z94=(7.2u,6.15v); z95=(7.2u,8.2v); z96=(8.5u,7.9v); z97=(8.85u,8.3v);
+z98=(8.5u,8.65v); z99=(6.15u,6.45v); z100=(3.75u,1.9v); z100'=(5.6u,3.75v);
+z101=(6.75u,4.2v); z102=(8.45u,2.5v); z103=(8u,2.1v); z104=(7.1u,0.95v);
+z105=(5.85u,2v); z106=(6.8u,3.1v); z107=(7.55u,2.3v); z108=(7.5u,2v);
+z109=(7u,1.65v); z110=(6.45u,2.1v); z111=(5.6u,0.5v); z112=(7u,0.7v);
+z113=(7.6u,0); z114=(8u,0.6v); z115=(7.7u,0.9v); z116=(8.45u,0.35v);
+z117=(6.1u,-0.1v); z117'=(6.7u,v); z118=(4.8u,3.4v); z119=(5u,3.6v);
+z120=(5.4u,3.2v); z121=(5.2u,3v); ka(40,0); ka(41,90); ka(42,180); ka(43,-90);
+ka(44,0); ka(45,90); ka(46,125); ka(47,90); ka(48,0); ka(49,-90); ka(50,90);
+ka(51,0); ka(52,90); ka(53,76); ka(54,0); ka(55,-90); ka(56,180); ka(57,90);
+ka(58,0); ka(59,-71); ka(60,0); ka(61,-47); ka(62,0); ka(63,90); ka(64,180);
+ka(65,-146); ka(66,90); ka(60',23); ka(67,-90); ka(68,0); ka(69,140); ka(70,90);
+ka(71,180); ka(72,-90); ka(73,0); ka(74,-50); ka(75,-10); ka(76,0); ka(77,90);
+ka(78,180); ka(77.1,0); ka(77.2,180); ka(77.3,90); ka(79,0); ka(80,90);
+ka(81,180); ka(82,-90); ka(83,0); ka(84,90); ka(85,180); ka(86,90); ka(87,0);
+ka(88,-90); ka(89,180);ka(100',-48); ka(90,-90); ka(91,0); ka(92,-90);
+ka(93,180); ka(94,90); ka(95,-90); ka(96,-90); ka(97,0); ka(98,90); ka(100,-51);
+ka(101,-90); ka(102,180); ka(103,90); ka(104,90); ka(105,0); ka(106,-90);
+ka(107,180); ka(108,144); ka(109,90); ka(110,0); ka(111,180); ka(112,180);
+ka(113,-90); ka(114,0); ka(115,90); ka(116,-90); ka(117,90); ka(117',147);
+penstroke z40e{up}...z41e{left}... z42e...z43e...z44e{up}; kouki(44,1,1.6);
+penstroke z45e{left}...z46e...z47e... z48e...z49e{right}; kouki(49,8,1.7);
+penstroke z46e...z50e...z51e{up}; kouki(51,2,1.1); penstroke z40e{up}...z52e...
+z53e{(0,2v)-z53}... z60'e{(0,5v)-z60'}...z60e...z61e... z62e...z63e...z64e...
+z65e{(5u,0)-z65}...z66e{left}; kouki(66,5,1.3); penstroke
+z65e{(5u,0)-z65}...z67e... z68e...z69e{(0,4.5v)-z69}; ka(6',-90); z6l=z6'l;
+penstroke z60'e{(0,5v)-z60'}...z70e... z71e...z72e...z73e{up}; kouki(73,1,1.6);
+penstroke z74e{(9u,6.8v)-z74}...z75e ...z76e{up}...z77e...z78e...z6'e...
+z79e...z80e...z81e...z82e{right}; kouki(82,6,1); mpalla(76,1.3); mpalla(77,1.4);
+mpalla(53,1.2); penstroke z53e{(0,2v)-z53}...z54e...
+z55e...z56e...z57e...z58e...z59e{right}; penstroke
+z77e{left}...z77.3e...z77.1e{up}; penstroke z77e{left}...z77.2e{down};
+kouki(77.1,2,1); kouki(77.2,4,1); penstroke z76e{up}...z83e...z84e...
+z85e{(0,3v)-z85}...z86e...z87e... z88e...z89e; kouki(89,3,1.5); penstroke
+z85e{(0,3v)-z85}...z90e... z91e{up}; kouki(91,1,1.8); penstroke
+z76e{up}...z92e...z93e... z94e...z83e...z95e...z96e...z97e... z98e{left};
+kouki(98,7,1.5); mpalla(92,1.4); mpalla(99,1.5); penstroke z100e{(9u,6v)-z100}...
+z100'e...{right}z101e ...z102e{down}...z103e{left}; kouki(103,5,1.1); penstroke
+z102e{down}...z104e... z105e...z106e...z107e...
+z108e{(6u,0)-z108}...z109e...z110e{up}; kouki(110,2,1.7); penstroke
+z108e{(6u,0)-z108}...z111e {down}; kouki(111,4,1); penstroke
+z108e{(6u,0)-z108}...z112e ...z113e{right}...z114e...z115e{left};
+kouki(115,7,1.3); penstroke z108e{(6u,0)-z108}... z117'e...z117e {left};
+kouki(117,5,1.1); penstroke z113e{right}...z116e{right}; kouki(116,8,1);
+filldraw z118--z119--z120--z121-- cycle; z122=(6.35u,6v); z123=(7.4u,4.5v);
+ka(122,180); ka(123,0); penstroke z94e{left}...z122e{down}; penstroke
+z101e{right}...z123e{up}; kouki(122,4,1.1); kouki(123,1,1); mpalla(78,1.3);
+penlabels(range 1 thru 130);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitQ.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitQ.mf
new file mode 100644
index 00000000000..74cf5090ce8
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitQ.mf
@@ -0,0 +1,106 @@
+.cmchar "The letter Q";
+.beginchar("Q",8.9u#+1mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.9u,6.9v); z2=(3.1u,6.4v); z3=(1.65u,3.35v); z4=(2.35u,1.6v);
+z5=(4.4u,0.6v); z6=(7u,1.7v); z7=(7.9u,4.8v); z8=(5.65u,7.7v); z9=(3.35u,7.7v);
+z10=(1.85u,7.25v); z11=(0.75u,8.15v); z12=(1.4u,8.75v); z13=(1.9u,8.5v);
+z14=(2u,8.15v); z15=(2.5u,8.2v); z16=(3.7u,2.4v); z17=(4u,2.25v);
+z18=(4.7u,2.9v); z19=(4.35u,3.7v); z20=(3.4u,4.05v); z21=(3.4u,4.6v);
+z22=(2.3u,3.4v); z23=(3.85u,2.8v); z24=(3.5u,2.95v); z25=(3.35u,2.4v);
+z26=(4.4u,1.95v); z27=(5.7u,3.7v); z28=(5.4u,4.35v); z29=(3.9u,5.55v);
+z30=(4.9u,6.6v); z31=(5.8u,5.9v); z32=(5.6u,5.45v); z33=(4.85u,1.7v);
+z34=(5.6u,2.2v); z35=(6.6u,1.7v); z36=(7.15u,0.6v); z37=(8.15u,0.25v);
+z38=(8.85u,1.1v); z39=(8.4u,1.7v); ka(1,95); penpos2(1.5hair,119);
+penpos3(0.9u,183); penpos4(1.1uv,-135); penpos5(0.7v,-90); penpos6(0.15uv,-42);
+penpos7(0.65u,0); penpos8(1.05uv,65); penpos9(uv,106); penpos10(0.6v,90);
+penpos11(1.5hair,0); penpos12(0.2v,-90); penpos13(0.55v,-173);
+penpos14(0.4v,-156); ka(15,-27); penstroke z1e{(0,6.6v)-z1}...z2e...
+z3e...z4e...z5e...z6e...z7e...z8e... z9e...z10e...z11e...z12e...z13e...
+z14e...z15e; ka(16,180); penpos17(0.1v,-90); penpos18(0.5u,0);
+penpos19(0.62uv,59); penpos20(0.8uv,60); ka(21,180); ka(22,-58); filldraw
+z16r{down}...z17r...z18r... z19r...z20r...z21l{up} & z21l--z21r &
+z21r{down}...{z22-(9u,8.5v)}z22l & z22l--z22r &
+z22r{(9u,6.5v)-z22}...z20l...z19l...z18l...z17l... z16l{up} & z16l--z16r & cycle;
+penpos23(0.5u,12); penpos24(0.4v,90); ka(25,180); penpos26(0.1v,-90); filldraw
+z16l{right}...z23r...z24r ...{z25-(0,9v)}z25r...z26r{right} & z26r--z26l &
+z26l{left}... z25l{(0,9v)-z25}...z24l...z16l{down} & cycle; penpos27(0.9u,0);
+penpos28(uv,47); penpos29(0.9uv,12); penpos30(0.15v,-90); penpos31(0.1u,180);
+ka(32,90); kouki(31,3,3); penstroke z26e{right}...z27e...z28e
+...z29e...z30e...z31e{down}; ka(33,180); penpos34(0.25v,90);
+penpos35(0.75uv,30); penpos36(0.75uv,29); penpos37(0.4v,90); penpos38(0.1u,180);
+ka(39,-90); penstroke z39e{right}...z38e...z37e
+...z36e...z35e...z34e...z33e{down}; z39=z39'; ka(39',90); kouki(39',7,2.5);
+kouki(33,4,2.5); z40=(2.6u,0.3v); z41=(2.35u,0.4v); z42=(1.55u,0.1v);
+z43=(1.2u,-0.05v); z44=(0.15u,1.15v); z45=(2.5u,3.9v); z46=(3.4u,5.5v);
+z47=(2.4u,6.9v); z48=(1.6u,6v); z49=(2.4u,5.3v); z49.1=(2.9u,5.9v);
+z49.2=(2.45u,6.3v); z50=(1.9u,0.8v); z51=(1.3u,1.35v); z52=(0.9u,0.75v);
+z53=(1.2u,0.45v); z54=(0.55u,0.75v); z55=(0.05u,0); z56=(4u,0); z57=(8.6u,4.6v);
+z58=(4.2u,9v); z59=(0.5u,6.55v); z60=(0.9u,5.2v); z61=(1.9u,4.65v);
+z62=(2.8u,3v); z63=(2.3u,1.55v); z64=(0,2.7v); z65=(u,3.7v); z66=(u,2.3v);
+z67=(0.6u,2.8v); z68=(0.3u,5.25v); z69=(-0.15u,4.85v); z70=(0.1u,4.5v);
+z71=(1.35u,8.2v); z72=(0.35u,7.6v); z73=(-0.1u,8.1v); z74=(0.3u,8.5v);
+z67'=(0.8u,4.75v); z75=(0.65u,8.2v); z76=(0.5u,8.8v); z77=(3.8u,3.4v);
+z78=(2.95u,2.8v); z79=(3.7u,1.65v); z80=(4.45u,1.5v); z81=(6.45u,3.7v);
+z82=(5.8u,5.35v); z83=(4.9u,7v); z84=(6.7u,9v); z84'=(7.5u,8.8v);
+z85=(8.4u,7.4v); z86=(7u,5.95v); z87=(5.85u,7.1v); z88=(7u,8.35v);
+z89=(7.75u,7.6v); z90=(8.7u,8.4v); z91=(9u,8.8v); z92=(8.75u,9.05v);
+z93=(6.8u,3.6v); z94=(6.7u,5.4v); z95=(6.25u,5.55v); z96=(7.2u,3.5v);
+z97=(8.6u,5.15v); z98=(8.6u,4.55v); z99=(8.7u,6.6v); z100=(7.3u,2.65v);
+z101=(8.15u,2.55v); z102=(9u,2.9v); z103=(8.7u,3.2v); z104=(8.7u,1.5v);
+z105=(7.7u,0.5v); z106=(6.9u,1.2v); z107=(7.6u,1.9v); z108=(8.15u,1.5v);
+z109=(7.75u,v); z110=(1.25u,6.8v); z111=(1.25u,5.9v); z112=(-0.2u,6.85v);
+z113=(0.85u,4v); z114=(2.4u,4.35v); ka(44,180); ka(43,-90); ka(42,-60);
+ka(41,-90); ka(40,180); ka(50,0); ka(49.1,0); ka(49.2,90); ka(51,90);
+ka(52,180); ka(53,-90); ka(54,161); ka(55,90); z44'=z44; ka(44',0); ka(45,-49);
+ka(46,0); ka(47,90); ka(48,180); ka(49,-90); ka(56,-92); ka(57,0); ka(58,90);
+ka(59,180); ka(60,-139); ka(61,-90); ka(62,180); ka(63,90); ka(64,0);
+ka(65,-90); ka(66,90); ka(67,0); ka(67',0); ka(68,90); ka(69,180); ka(70,-90);
+ka(71,120); ka(72,90); ka(73,0); ka(74,-90); ka(75,180); ka(76,0); ka(77,90);
+ka(78,180); ka(79,-114); ka(80,-90); ka(81,0); ka(82,36); ka(83,0); ka(84,-90);
+ka(85,180); ka(86,90); ka(87,0); ka(88,-90); ka(89,180); ka(90,-90); ka(91,0);
+ka(92,90); ka(93,0); ka(94,35); ka(95,90); ka(96,-24); ka(97,-90);
+penpos98(0.3v,90); ka(99,-90); ka(100,-90); ka(101,-115); ka(102,0); ka(103,90);
+ka(104,180); ka(105,90); ka(106,0); ka(107,-90); ka(108,180); ka(109,90);
+ka(84',-74); penstroke z44e{down}...z43e... z42e{(9u,4.6v)-z42}...z41e...
+z40e{down}; kouki(40,3,1.2); penstroke z42e{(9u,4.6v)-z42}...
+z50e...z51e{left}...z54e...z55e{left}; kouki(55,5,1.5); penstroke
+z51e{left}...z52e... z53e{right}; kouki(53,6,1.1); penstroke
+z44'e{up}...z45e...z46e... z47e...z48e...z49e...z49.1e...z49.2e{left};
+kouki(49.2,7,1.3); penstroke z56e{(9u,-0.2v)-z56}...
+z57e...z58e...z71e{(0,7.3v)-z71}...z59e... z60e{(4.8u,0)-z60}...z61e...z46e{up};
+mpalla(58,1.1); mpalla(60,1.5); penstroke z60e{(4.8u,0)-z60}...
+z62e...z63e...z64e{up}...z65e... z66e...z67e{up}; kouki(67,2,1.2);
+mpalla(64,1.2); penstroke z64e{up}...z67'e...z68e... z69e...z70e{right};
+kouki(70,6,1.5); penstroke z71e{(0,7.3v)-z71}...z72e
+...z73e...z74e{right}...z75e{down}; penstroke z74e{right}...z76e{up};
+kouki(75,3,1.2); kouki(76,1,1.4); penstroke z77e{left}...z78e...z79e
+...z80e{right}...z81e...z82e...z83e ...z84e...z84'e{(9u,8v)-z84'}...
+z85e...z86e...z87e...z88e... z89e{down}; kouki(89,3,1.4); penstroke
+z84'e{(9u,8v)-z84'}... z90e...z91e...z92e{left}; kouki(92,7,1.2);
+mpalla(84',1.4); mpalla(79,1.4); z200=(6.2u,2.2v); z201=(7u,4.1v);
+z202=(6.85u,5.05v); z203=(6.5u,5.7v); z204=(6.25u,6.4v); z205=(6.3u,5.4v);
+z206=(5.75u,5v); z207=(6.1u,4.6v); z208=(6.4u,4.8v); z209=(6.4u,2.2v);
+z210=(7.2u,3.3v); z211=(7.7u,4.2v); z212=(7.5u,4.7v); z213=(8.4u,3.8v);
+z214=(9.35u,3v); z215=(8.6u,2.05v); z216=(7.7u,2.8v); z217=(8.4u,3.4v);
+z218=(8.75u,3.1v); z219=(5.3u,-0.1v); z220=(7.5u,1.25v); z221=(8.35u,2.3v);
+z222=(8.8u,2.5v); z223=(9.1u,2.7v); z224=(9u,2.9v); z225=(6.55u,0.1v);
+z226=(6.85u,-0.1v); z227=(8.4u,0.3v); z228=(9u,0.15v); z229=(9.2u,0.6v);
+ka(200,-36); ka(201,0); ka(202,19); ka(203,30); ka(204,0); ka(205,90);
+ka(206,180); ka(207,-90); ka(208,0); ka(209,-36); ka(210,-36); ka(211,0);
+ka(212,90); ka(213,-90); ka(214,180); ka(215,90); ka(216,0); ka(217,-90);
+ka(218,180); ka(219,-71); ka(220,-45); ka(221,-40); penpos222(0.2v,-90);
+ka(223,0); ka(224,20); penpos225(0.15uv,-142); ka(226,-90); ka(227,-70);
+penpos228(0.2v,-90); ka(229,0); z230=(6.45u,2.05v); z231=(7.2u,2.75v);
+ka(230,-46); ka(231,-90); penstroke z200e{(9u,6v)-z200}...z201e
+...z202e{(4.6u,9v)-z202}...z203e... z204e{up}; kouki(204,2,1.2); penstroke
+z202e{(4.6u,9v)-z202}... z205e...z206e...z207e...z208e{up}; kouki(208,1,1.6);
+mpalla(201,1.4); penstroke z209e{(9u,5.4v)-z209}... z210e{z210-z209}...z211e...
+z212e{left}; kouki(212,7,1.2); penstroke z210e{z210-z209}...z213e...
+z214e...z215e...z216e...z217e... z218e{down}; kouki(218,3,1.4); penstroke
+z219e{(9u,1.2v)-z219}... z220e...z221e...z222e...z223e... z224e; penstroke
+z219e{(9u,1.2v)-z219}... z225e...z226e{right}; kouki(226,6,1); penstroke
+z227e{(9u,0.5v)-z227}... z228e...z229e{up}; penstroke z230e{(9u,4.5v)-z230}...
+z231e{right}; kouki(231,8,1.1); mpalla(114,1.3); mpalla(113,1.5);
+triaina(110,111,112,0.65); penlabels(range 1 thru 231);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitR.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitR.mf
new file mode 100644
index 00000000000..e83e87a99e9
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitR.mf
@@ -0,0 +1,120 @@
+.cmchar "The letter R";
+.beginchar("R",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.8u,0.15v); z2=(4.6u,1.1v); z3=(5.05u,1.35v); z4=(4u,1.2v);
+z5=(2.65u,1.65v); z6=(1.5u,2.35v); z7=(1.32u,3v); z8=(2.3u,3.9v);
+z9=(2.9u,3.4v); z10=(2.6u,3v); z11=(2.3u,1.8v); z12=(2.5u,1.7v);
+z13=(2.75u,1.6v); z14=(3.6u,3.25v); z15=(3.95u,3.1v); z16=(3.85u,4.3v);
+z17=(4.6u,5.55v); z18=(3u,5.9v); z19=(3.1u,6.55v); z20=(1.8u,5.5v);
+z21=(3.8u,7.25v); z22=(2.8u,7.45v); z23=(1.6u,7.15v); z24=(0.5u,7.15v);
+z25=(0.1u,7.8v); z26=(0.6u,8.3v); z27=(0.95u,8.15v); z28=(1.3u,8.1v);
+z29=(1.55u,8.4v); z30=(4.35u,6.7v); z31=(6.15u,7.55v); z32=(6.85u,8.4v);
+z33=(6.7u,7.35v); z34=(7.35u,6.85v); z35=(7.7u,6.2v); z36=(6.35u,4.65v);
+z37=(5.5u,4v); z38=(5.05u,3.2v); z39=(5.45u,2.9v); z40=(5.75u,3.1v);
+z41=(6.35u,4.05v); z42=(6.75u,3.55v); z43=(7u,1.75v); z44=(7.6u,1.1v);
+z45=(7.5u,0.4v); z46=(8.4u,1.45v); z47=(8.75u,2v); z48=(8.3u,2.55v); ka(1,-16);
+penpos2(0.1uv,-57); penpos3(0.1uv,-62); penpos4(0.95uv,38); penpos5(0.8v,101);
+penpos6(0.45uv,35); penpos7(0.25u,0); penpos8(1.5hair,-90);
+penpos9(1.5hair,180); ka(10,90); ka(11,-47); ka(12,-49); ka(13,-50);
+penpos14(0.12uv,-14); penpos15(0.1uv,-14); penpos16(0.45u,0); penpos17(0.65u,0);
+penpos18(0.9uv,49); ka(19,180); ka(20,-71); penpos21(0.9uv,55);
+penpos22(0.9v,90); penpos23(0.85uv,105); penpos24(0.41uv,59); ka(25,0);
+penpos26(0.35v,-90); penpos27(0.4uv,-134); penpos28(0.2v,-90); ka(29,0);
+penpos30(0.1uv,-63); penpos31(0.1uv,-63); ka(32,164); penpos33(0.9uv,36);
+penpos34(0.77uv,40); penpos35(0.67u,0); ka(36,-61); penpos37(0.3uv,121.5);
+penpos38(1.5hair,180); ka(39,-90); ka(40,0); penpos41(0.7uv,51);
+penpos42(0.8u,8); penpos43(0.85u,12); penpos44(uv,49); ka(45,0);
+penpos46(0.15uv,-60); penpos47(1.5hair,0); ka(48,90); filldraw
+z1l{up}...z4l...z5l... z6l...z7l...z8l{right} & z8l--z8r & z8r{left}...
+z7r...z6r...z5r... z4r...{z2l-(u,9v)}z2l & {(9u,4v)-z2l}z2l...z3l & z3l--z3r &
+z3r...{z2r-(9u,4v)}z2r...z1r & z1r--z1l & cycle; penstroke z8e{right}...z9e...
+z10e{left}; kouki(10,5,2.5); filldraw z11l{(9u,8v)-z11}...z14l...
+z16l...z18l...z20r{(0,5.3v)-z20} & z20r--z20l & z20l{z20-(0,5.3v)}...
+z19r{(4.7u,9v)-z19} & z19r--z19l & z19l{z19-(2.6u,9v)}...z18r...
+(3.7u,5.85v)...z16r ...z14r...z11r{z11-(9u,8v)} & z11r--z11l & cycle; penstroke
+z12e{(9u,7.5v)-z12}... z15e...z17e...z21e...z22e...z23e...
+z24e...z25e...z26e...z27e...z28e... z29e{up}; kouki(29,1,1.2); filldraw z30l---
+z31l...z32r{(7.1u,9v)-z32} & z32r--z32l & z32l{down}...z33r...
+z34r...z35r{down}...z36r{z37r-z36r} & z36r--z36l & z36l{z36r-z37r}...
+z35l...z34l...z33l...z31r{up} & z31r--z30r--z30l & cycle; filldraw
+z39r{left}...z38r...z37r... z36l{z36r-z37r} & z36l--z36r &
+z36r{z37r-z36r}...z41r...z42r... z43r...z44r...z46l...z47l{up} & z47l--z47r &
+z47r{down}...z46r... z45r & z45r--z45l & z45l{up}...z44l
+...z43l...z42l...z41l...z37l... z38l...z39l{right} & z39l--z39r & cycle;
+penstroke z39e{right}...z40e{up}; penstroke z47e{up}...z48e{left};
+kouki(40,1,2); kouki(48,7,1.9); z50=(3.5u,-0.1v); z51=(2.75u,0.8v);
+z52=(2.15u,0.2v); z53=(2.5u,-0.1v); z54=(2.8u,0.2v); z55=(2.3u,0.9v);
+z56=(0.8u,0); z57=(0.25u,0.5v); z58=(0.35u,0.85v); z59=(0.7u,0.9v);
+z60=(0.9u,0.6v); z61=(0.55u,1.4v); z62=(0.95u,1.7v); z63=(0.75u,2.05v);
+z64=(0.55u,2.55v); z65=(u,3.4v); z66=(2.2u,5.3v); z67=(1.1u,6.4v);
+z68=(0.05u,5.3v); z69=(0.3u,4.7v); z70=(0.7u,4.1v); z71=(0.4u,3.8v);
+z72=(0.2u,4v); z73=(u,4.45v); z74=(1.7u,5.2v); z75=(1.2u,5.8v); z76=(0.8u,5.5v);
+z77=(0,6.3v); z78=(2.3u,4.55v); z79=(3.3u,3.5v); z80=(2.5u,2.55v);
+z81=(1.75u,3.2v); z82=(2.3u,3.7v); z83=(2.5u,3.2v); z84=(5.3u,5.3v);
+z85=(2.8u,8.7v); z86=(2.8u,8.2v); z87=(3.1u,9v); z88=(0.85u,7v);
+z89=(1.7u,5.85v); z90=(2.25u,6.15v); z91=(5.1u,8v); z92=(5u,8.4v);
+z93=(6.2u,8.9v); z94=(6.55u,8.6v); z95=(6u,6.45v); z96=(2.95u,3.8v);
+z97=(5.5u,1.6v); z98=(7.9u,3.3v); z99=(7.1u,4.55v); z100=(8.1u,5.2v);
+z101=(8.4u,5.75v); z102=(8.05u,4.1v); z103=(7.7u,5v); z104=(7.2u,5.55v);
+z105=(6.5u,7.1v); z106=(7.75u,8.6v); z107=(8.2u,8.5v); z108=(8.8u,8.7v);
+z109=(8.6u,7.8v); z110=(8.05u,7.2v); z111=(7.6u,7.6v); z112=(7.9u,8.05v);
+z113=(8.2u,7.8v); z114=(8.2u,6.8v); z115=(8.7u,6.6v); z116=(8.6u,6.3v);
+z117=(5.9u,5.85v); z118=(3.7u,4.3v); z119=(4u,3.25v); z120=(5.4u,2.5v);
+z121=(6.9u,4v); z122=(5.9u,5v); z123=(4.6u,3.9v); z124=(6.4u,0.6v);
+z125=(5.6u,-0.2v); z126=(5u,0.1v); z127=(4.35u,0.4v); z128=(4.9u,0.5v);
+z129=(5.45u,1.1v); z130=(5.9u,0.95v); z131=(5.7u,0.3v); z132=(6.7u,-0.1v);
+z133=(7.1u,0.2v); z134=(7.5u,0); z135=(8u,0.6v); z136=(9u,2v); z137=(8.8u,2.7v);
+z138=(8.4u,3.45v); z139=(8.65u,3.8v); z140=(9u,3.6v); z141=(8.3u,2.85v);
+z142=(7.7u,2.2v); z143=(8.1u,1.75v); z144=(8.5u,2.05v); z145=(8.75u,0.85v);
+z146=(8.75u,0.3v); ka(50,0); ka(51,90); ka(52,180); ka(53,-90); ka(54,0);
+ka(55,90); ka(56,90); ka(57,0); ka(58,-43); ka(59,-90); ka(60,180); ka(61,0);
+ka(62,32); ka(63,21); ka(64,0); ka(65,-40); ka(66,0); ka(67,90); ka(68,180);
+ka(69,-137); ka(70,180); ka(71,90); ka(72,0); ka(73,-90); ka(74,0); ka(75,90);
+ka(76,180); ka(77,0); ka(78,-90); ka(79,180); ka(80,90); ka(81,0); ka(82,-90);
+ka(83,90); ka(84,-3); ka(85,90); ka(88,180); ka(89,-90); ka(90,0); ka(91,16);
+ka(92,16); ka(93,-90); ka(94,180); ka(95,-90); ka(96,180); ka(97,-90);
+ka(98,-14); ka(99,90); ka(100,0); ka(101,-90); ka(102,0); ka(103,38); ka(104,54);
+ka(105,0); ka(106,-90); ka(107,-126); ka(108,0); ka(109,180); ka(110,90);
+ka(111,0); ka(112,-90); ka(113,180); ka(114,-137); ka(115,-139); ka(116,126);
+ka(117,90); ka(118,180); ka(119,-130); ka(120,-90); ka(121,0); ka(122,90);
+ka(123,180); ka(124,180); ka(125,90); ka(126,42); ka(127,90); ka(128,0);
+ka(129,-90); ka(130,-147); ka(131,90); ka(132,-90); ka(133,0); ka(134,-33);
+ka(135,-45); ka(136,0); ka(137,42); ka(138,0); ka(139,-90); ka(140,180);
+ka(141,90); ka(142,180); ka(143,-90); ka(144,0); ka(145,-78); ka(146,180);
+penstroke z50e{up}...z51e...z55e... z62e... z64e{up}...z78e...
+z79e...z80e...z81e... z82e...z83e{left}; penstroke z51e{left}...z52e...z53e...
+z54e{up}; kouki(54,1,1.5); penstroke z55e{left}...z56e...z57e...
+z58e{(8u,9v)-z58}...z61e{up}; kouki(61,1,1.5); penstroke
+z58e{(8u,9v)-z58}...z59e... z60e{down}; kouki(60,3,1.4); z200=(2u,0.2v);
+z201=(1.7u,-0.2v); z202=(1.5u,1.1v); triaina(200,201,202,0.7); penstroke
+z64e{up}...z65e...z66e... z67e...z68e... z69e{(5u,0)-z69}...z70e...z71e...
+z72e{up}; kouki(72,2,1.3); penstroke z69e{(5u,0)-z69}...z73e...
+z74e...z75e{left}...z76e{down}; kouki(76,4,2); penstroke z75e{left}...z77e{up};
+kouki(77,2,1.3); penstroke z13e{(9u,6v)-z13}...z84e
+{(5.6u,9v)-z84}...z85e...z88e... z89e...z90e{up}; kouki(90,1,1.6);
+mpalla(86,1.3); mpalla(87,1.3); mpalla(84,1.6); penstroke z84e{(5.6u,9v)-z84}...
+z91e...z92e; z210=(4.6u,7.9v); z211=(4.5u,8.3v); z212=(5.5u,8.15v);
+triaina(210,211,212,0.5); penstroke z84e{(5.6u,9v)-z84}...
+z93e{right}...z94e{down}; kouki(94,3,1.5); penstroke z84e{(5.6u,9v)-z84}...
+z95e{right}; kouki(95,8,1.4); z30'=z30; ka(30',117); z38'=z38; ka(38',-90);
+mpalla(64,1.5); mpalla(62,1.2); penstroke z30'e{z30-z31}...z96e...
+z97e...z98e{(9u,7v)-z98}...z102e... z103e...z104e{z86-z104}...z117e...
+z118e...z119e{z133-z119}...z120e... z121e...z122e...z123e...z38'e{right};
+penstroke z98e{(9u,7v)-z98}... z99e{left}; kouki(99,7,1.2); penstroke
+z98e{(9u,7v)-z98}...z100e ...z101e{right}; kouki(101,8,1.2); mpalla(103,1.3);
+penstroke z104e{z86-z104}...z105e... z106e...z107e...z109e...z110e...z111e
+...z112e...z113e{down}; penstroke z109e{down}...z114e... z115e...z116e{left};
+kouki(116,5,1); penstroke z107e{right}...z108e{up}; kouki(108,1,1);
+z119'=(5.6u,1.9v); ka(119',-71); penstroke z119e{z133-z119}...
+z119'e...{down}z124e... z125e...z126e...z128e...z129e...z130e ...z131e{left};
+kouki(131,5,1.8); penstroke z126e...z127e{left}; z130'=(6.2u,0.3v);
+ka(130',-167); penstroke z130e{(6.5u,0)-z130} ...z130'e...z132e{right}...z133e
+{up}; kouki(133,1,1.5); z230=(5.1u,2.8v); z231=(6.3u,2.1v); z232=(4.5u,2v);
+triaina(230,231,232,0.5); penstroke z134e{z136-z134}...z135e
+{(9u,1.5v)-z135}...z136e... z137e{z86-z137}...z141e...z142e... z143e...z144e{up};
+penstroke z135e{(9u,1.5v)-z135}... z145e{right}; penstroke
+z135e{(9u,1.5v)-z135}... z146e{down}; kouki(146,3,1.7); mpalla(137,1.2);
+penstroke z137e{z86-z137}...z138e... z139e...z140e{down}; kouki(140,3,1.25);
+penlabels(range 1 thru 150);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitS.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitS.mf
new file mode 100644
index 00000000000..e381e372758
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitS.mf
@@ -0,0 +1,117 @@
+.cmchar "The letter S";
+.beginchar("S",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.85u,0); z2=(4.7u,0.95v); z3=(4.05u,1.1v); z4=(3.2u,1.35v);
+z5=(1.85u,1.8v); z6=(1.55u,2.6v); z7=(2.4u,3.4v); z8=(3u,2.8v); z9=(2.6u,2.35v);
+z10=(2.25u,2.6v); z11=(6.2u,1.8v); z12=(7.35u,3.6v); z13=(7.05u,4.85v);
+z14=(5.55u,5.55v); z15=(4u,4.95v); z16=(3.25u,3.5v); z17=(4.4u,2.2v);
+z18=(6.2u,3.6v); z19=(5.3u,4.55v); z20=(4.4u,3.7v); z21=(4.9u,3.1v);
+z22=(5.6u,3.9v); z23=(6.1u,4.3v); z24=(6.4u,4.1v); z25=(6.2u,3.8v);
+z26=(6.05u,3.95v); z27=(5.4u,6.35v); z28=(7.1u,7.5v); z29=(7.6u,8.4v);
+z30=(7u,9.05v); z31=(6.5u,8.6v); z32=(6.85u,8.15v); z33=(7.05u,8.4v);
+z34=(5.5u,8.6v); z35=(3u,7.4v); z36=(2u,5.7v); z37=(2.4u,4.7v); z38=(3.4u,4.15v);
+z39=(5.3u,6v); z40=(4u,7.2v); z41=(3u,6.3v); z42=(3.2u,5.65v);
+z43=(3.75u,5.45v); z44=(4.4u,6v); z45=(4u,6.45v); ka(1,-13); ka(2,-59);
+penpos3(uv,51); penpos4(0.9uv,77); penpos5(0.65uv,33); penpos6(0.35u,0);
+penpos7(0.15v,-90); penpos8(0.1u,180); ka(9,90); ka(10,0); kouki(10,2,2.2);
+penpos11(0.2uv,-61); penpos12(0.9u,0); penpos13(uv,39); penpos14(0.4v,90);
+penpos15(0.15uv,122); ka(16,180); ka(17,-90); ka(18,0); ka(19,90); ka(20,180);
+ka(21,-90); ka(22,-23); ka(23,-90); ka(24,180); ka(25,90); ka(26,0);
+penpos27(0.1uv,-55); penpos28(0.25uv,-55); ka(29,0); ka(30,90); ka(31,180);
+ka(32,-90); ka(33,0); kouki(33,1,1.7); ka(34,156); penpos35(1.5hair,-61);
+penpos36(0.7u,0); penpos37(0.85uv,47); penpos38(0.7v,90); penpos39(0.15u,180);
+ka(40,-90); ka(41,0); ka(42,42); ka(43,90); ka(44,180); ka(45,-90); z45'=z45;
+ka(45',90); kouki(45',7,2); filldraw z1r{z34-z1}...z2r...z11r
+...z12r...z13r{(4.4u,9v)-z13r} & z13r--z13l & z13l{z13r-(4.4u,9v)}...
+z12l...z11l...z2l{(3u,0)-z2l} & z2l{up}...z3r...z4r...z5r...z6r...
+z7r...z8r...z9r...z10r{up} & z10r--z10l & z10l{down}...z9l...
+z8l...z7l...z6l...z5l...z4l...z3l... z1l{down} & z1l--z1r & cycle; penstroke
+z13e{(4.4u,9v)-z13r}... z14e...z15e...z16e...z17e{right}...
+z18e...z19e...z20e...z21e{right}... z22e...z23e...z24e...z25e... z26e{up};
+ka(15',-40); z15'l=z15r; filldraw z27l{z28-z27}... (5.4u,7.15v)...z35r{z35-z34} &
+z35r--z35l & z35l{z34-z35}... (4.95u,8.15v)...z34r{z34-z13} & z34r--z34l &
+z34l{z13-z34}... (5.7u,7.7v)...z28l{z28-z27}.. z29l{up} & z29l--z29r &
+z29r{down}...z28r{z27-z28}---z27r & z27r--z27l & cycle; kouki(26,2,1); penstroke
+z15'e{z32-z15}... z27e{z28-z27}; penstroke z29e{up}...z30e...z31e...
+z32e...z33e{up}; penstroke z45e{right}...z44e...z43e...
+z42e...z41e...z40e...z39e...z38e... z37e...z36e...z35e{z34-z35};
+z50=(5.45u,5.55v); z51=(4.8u,3.85v); z51'=(3.3u,2.2v); z52=(3.4u,2.8v);
+z53=(1.3u,1.8v); z54=(0.75u,v); z55=(1.5u,0.1v); z56=(2.6u,0.5v);
+z57=(3.2u,0.2v); z58=(2.05u,0.6v); z59=(1.7u,1.1v); z60=(0.5u,0);
+z60'=(0.15u,0.3v); z61=(1.9u,2.9v); z62=(0.25u,2.2v); z63=(0.65u,1.8v);
+z64=(0.9u,2v); z65=(0.5u,4v); z66=(0.7u,4.3v); z67=(0.5u,3v); z68=(0.05u,3.4v);
+z69=(3.2u,3.2v); z70=(1.4u,4.15v); z71=(0.8u,5.6v); z72=(1.05u,7v);
+z73=(1.4u,8.2v); z74=(0.7u,9v); z75=(0.1u,8.8v); z76=(-0.1u,9v); z77=(0,8.35v);
+z78=(0.5u,7.75v); z79=(u,8.1v); z80=(0.95u,8.3v); z81=(0.65u,8.4v);
+z82=(0.55u,8.15v); z83=(0.3u,8.3v); z84=(0.9u,7.4v); z85=(1.9u,7.95v);
+z86=(4.25u,8.9v); z87=(3.15u,8.5v); z88=(4.5u,8.4v); z89=(5.1u,8.9v);
+z90=(4.9u,9.2v); z91=(4.25u,7.5v); z92=(3.5u,6.7v); z93=(2.75u,7.4v);
+z94=(3.3u,7.95v); z95=(3.75u,7.5v); z96=(6.1u,8.3v); z97=(7.45u,7.15v);
+z98=(7.85u,6.45v); z98.1=(7.65u,6.7v); z98.2=(8.2u,6.2v); z99=(8.55u,6.1v);
+z100=(7.1u,6.85v); z101=(6.5u,6.1v); z102=(8u,7.4v); z103=(8.7u,8v);
+z104=(8.45u,8.25v); z105=(8.3u,8v); z106=(8u,7.9v); z107=(7.8u,8.9v);
+z108=(8.05u,8.75v); z109=(8.4u,8.85v); z110=(8.7u,8.7v); z111=(4.1u,0);
+z112=(5.75u,1.15v); z113=(8u,2.95v); z114=(7.85u,5.25v); z115=(8.8u,4.05v);
+z116=(6.5u,6.2v); z117=(4.4u,5.4v); z118=(4.3u,0); z119=(5.2u,0.3v);
+z120=(5.5u,0.6v); z121=(6.5u,0.3v); z122=(7.6u,0); z123=(8.25u,0.15v);
+z124=(8.25u,0.55v); z125=(8.7u,0.3v); z126=(8.65u,v); z127=(8.05u,1.6v);
+z128=(7.7u,1.3v); z129=(7.8u,1.05v); z130=(7.5u,0.65v); z131=(7.15u,0.9v);
+z132=(6.85u,0.85v); z133=(6.5u,v); z134=(6.5u,0.7v); z135=(5.5u,0.8v);
+z136=(6.25u,0.9v); z137=(4.9u,2.6v); z138=(4.65u,1.5v); z139=(5.5u,1.75v);
+z140=(5.1u,1.55v); ka(42.1,-138); z42.1=z42; ka(50,180); ka(51,136); ka(52,114);
+ka(51',180); ka(53,127); ka(54,180); ka(55,-90); penpos56(0.2v,-90);
+ka(57,-90); ka(58,0); ka(59,90); ka(60,90); ka(60',0); ka(61,90); ka(62,180);
+ka(63,-90); ka(64,0); ka(65,0); ka(66,-90); ka(67,90); ka(68,0); ka(69,90);
+ka(70,39); ka(71,0); ka(72,-29); ka(73,0); ka(74,90); ka(75,90); ka(76,0);
+ka(77,180); ka(78,-90); ka(79,0); penpos80(0.1uv,64); penpos81(0.3v,90);
+penpos82(0.25uv,129); ka(83,36); ka(84,180); ka(85,-50); ka(86,-90);
+ka(87,-90); ka(88,-90); ka(89,0); ka(90,90); ka(91,180); ka(92,90); ka(93,0);
+ka(94,-90); ka(95,180); ka(96,-130); ka(97,-145); ka(98.1,-130);
+penpos98(0.32uv,-130); ka(98.2,-130); ka(99,-90); ka(100,180); ka(101,90);
+ka(102,-90); ka(103,0); penpos104(0.25uv,113); penpos105(0.22v,180);
+ka(106,90); ka(107,-90); ka(108,-132); ka(109,-90); ka(110,-90); ka(111,-21);
+ka(112,-67); ka(113,-21); ka(114,36); ka(115,-90); ka(116,90); ka(117,129);
+ka(118,-44); ka(119,-90); ka(120,-90); ka(121,-112); ka(122,-90); ka(123,-56);
+ka(124,0); ka(125,-90); ka(126,0); penpos127(1.3hair,90); penpos128(0.33u,180);
+penpos129(0.4uv,-148); penpos130(1.3hair,90); ka(131,0); ka(135,-81);
+penpos136(0.15v,-81); ka(137,0); ka(138,90); ka(139,-90);
+% z50l=z39l;
+penstroke z50e{down}...z51e{z58-z51}...z52e...
+z53e...z54e...z55e...
+z58e...z59e{left}...z60e{left}...z60'e{up}; kouki(60',2,1.6); penstroke
+z55e{right}...z56e... {right}z57e; kouki(57,6,1.4); penstroke
+z51e{z58-z51}...z51'e{down}; kouki(51',4,1.2); penstroke
+z51e{z58-z51}...z61e{left} ...z62e{down}...z63e...z64e{up}; kouki(64,1,1.5);
+penstroke z61e{left}...z65e...z66e{right}; kouki(66,8,1.4); penstroke
+z61e{left}...z67e...z68e{up}; mpalla(67,1.3); kouki(68,2,1.3); penstroke
+z51e{z58-z51}...z69e...z70e ...z71e...z72e...z73e...z74e
+...z77e...z78e...z79e...z80e...z81e ...z82e...z83e{z83-z137}; penstroke
+z74e{left}...z75e... z76e{up}; kouki(76,2,1); penstroke z78e{right}...z84e{down};
+kouki(84,3,1); penstroke z72e{z73-z72}...z85e...z86e ...z96e{z99-z96}...z97e...
+z98.1e--z98e--z98.2e... z99e{right}; kouki(99,6,1.3); mpalla(70,1.3);
+mpalla(71,1.5); mpalla(85,1.4); penstroke z85e...z87e{right}...z88e
+...z89e...z90e{left}; kouki(90,7,1.4); penstroke z87e{right}...z91e...z92e...
+z93e...z94e...z95e{down}; kouki(95,3,1.5); penstroke z96e{z99-z96}...z102e...
+z103e...z104e...z105e...z106e{left}; penstroke z96e{z99-z96}...z100e...
+z101e{left}; kouki(101,5,1.75); penstroke z32e{right}...z107e{right}
+...z108e...z109e...z110e{right}; kouki(110,6,1.1); z42'=(3.15u,4.85v);
+ka(42',90); penstroke z42.1e{z51-z42}...z42'e{left}; kouki(42',5,1.2); penstroke
+z111e{z29-z111}...z112e... z113e...z114e...z116e...z117e; mpalla(113,1.7);
+mpalla(114,1.3); penstroke z113e{z98-z112}...z115e{right}; kouki(115,8,1);
+penstroke z118e{z115-z118}...z119e {right}; kouki(119,8,1.2); penstroke
+z118e{z115-z118}...z120e... z121e...z122e...z123e...z126e...
+z127e...z128e...z129e...z130e... z131e{up}; kouki(131,2,1.2); mpalla(132,1.2);
+mpalla(133,1.2); mpalla(134,1.2); filldraw z135r--z136r & z136r..z136l &
+z136l--z135l & z135l--z135r & cycle; penstroke z123e...z125e{right};
+kouki(125,8,1.2); penstroke z122e{right}...z124e{up}; kouki(124,1,1.15);
+penstroke z17e{right}...z137e{up}; kouki(137,1,1.2); penstroke
+z17e{right}...z138e{left}; kouki(138,5,1.25); penstroke
+z17e{right}...z139e{right}; kouki(139,6,1.3); mpalla(140,1.2);
+z200=(0.05u,6.1v); z201=(0.2u,7.15v); z202=(1.5u,5.9v); z210=(1.7u,8.65v);
+z211=(2.4u,9.1v); z212=(2.4u,7.5v); z220=(4.85u,3.7v); z221=(5.15u,4.15v);
+z222=(5.8u,3v); z230=(6.75u,2.4v); z231=(7.3u,3.05v); z232=(8.1u,1.6v);
+z240=(8.2u,7.6v); z241=(8.7u,7v); z242=(6.6u,6.4v); triaina(200,201,202,0.4);
+triaina(210,211,212,0.6); triaina(220,221,222,0.5); triaina(230,231,232,0.5);
+triaina(240,241,242,0.6); penlabels(range 1 thru 250);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitT.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitT.mf
new file mode 100644
index 00000000000..8ca2c14e165
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitT.mf
@@ -0,0 +1,113 @@
+.cmchar "The letter T";
+.beginchar("T",8.9u#+0.2mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(1.5u,1.3v); z2=(1.8u,1.1v); z3=(2.15u,1.4v); z4=(2.1u,1.7v); z5=(2.3u,2.1v);
+z6=(2.9u,1.8v); z7=(3u,1.3v); z8=(1.9u,0.4v); z9=(0.65u,1.7v);
+z10=(2.35u,3.15v); z11=(3.25u,3v); z12=(4.15u,2.15v); z13=(4.8u,1.25v);
+z14=(6.3u,0.7v); z15=(7.7u,1.3v); z16=(8.2u,2.6v); z17=(7.1u,3.7v);
+z18=(6.45u,3.25v); z19=(6.7u,2.75v); z20=(7u,2.75v); z21=(7.25u,2.4v);
+z22=(7u,2.25v); z23=(4.4u,1.85v); z24=(5.3u,3v); z25=(4.9u,3.8v);
+z26=(4.3u,4.1v); z27=(4.2u,4.65v); z28=(3.25u,3.7v); z29=(4.6u,1.6v);
+z30=(6u,3.3v); z31=(5.7u,4.4v); z32=(4.57u,5.25v); z33=(4.3u,6v);
+z34=(4.8u,6.55v); z35=(5.6u,6.1v); z36=(1.9u,6.2v); z37=(2.2u,6.1v);
+z38=(2.6u,6.55v); z39=(2.35u,6.85v); z40=(2.4u,7.4v); z41=(3.35u,7.35v);
+z42=(3.6u,6.5v); z43=(2.4u,5.4v); z44=(1.15u,6.8v); z45=(3.05u,8.6v);
+z46=(4.45u,8.1v); z47=(5.45u,7.35v); z48=(6.8u,6.75v); z49=(8.05u,7.95v);
+z50=(7.25u,8.65v); z51=(6.55u,8.1v); z52=(6.8u,7.7v); ka(1,-136);
+penpos2(0.08v,-90); penpos3(0.5u,0); penpos4(0.55uv,22); penpos5(0.3uv,-55);
+penpos6(1.5hair,-155); ka(7,180); ka(8,90); ka(9,0); penpos10(0.6v,-90);
+penpos11(0.92uv,-123); penpos12(1.05uv,-143); penpos13(uv,-143);
+penpos14(0.65v,-90); penpos15(0.2uv,-23); ka(16,0); penpos17(1.5hair,90);
+penpos18(0.25u,180); penpos19(0.6uv,-117); penpos20(0.55v,-90);
+penpos21(0.2uv,-163); ka(22,105); ka(23,-53); penpos24(0.25u,0);
+penpos25(0.55uv,48); penpos26(0.8uv,45); ka(27,180); ka(28,-65); ka(29,-57);
+penpos30(0.37u,0); penpos31(0.8uv,37); penpos32(0.9uv,44);penpos33(0.5u,0);
+penpos34(0.2uv,-67); ka(35,180); ka(36,-132); penpos37(0.1v,-90);
+penpos38(0.5u,6); penpos39(0.55uv,42); penpos40(0.3uv,-60);
+penpos41(1.5hair,-138); ka(42,180); ka(43,90); penpos44(1.5hair,0);
+penpos45(0.65v,-90); penpos46(1.1uv,-130); penpos47(1.03uv,-130);
+penpos48(0.6v,-90); penpos49(1.5hair,0); ka(50,90); ka(51,180); ka(52,-90);
+penstroke z1e{(1.6u,0)-z1}...z2e... z3e...z4e...z5e...z6e...z7e...z8e{left}...
+z9e{up}...z10e...z11e...z12e...z13e... z14e...z15e...z16e...z17e...z18e...
+z19e...z20e...z21e...z22e{left}; penstroke z29e{(9u,4.6v)-z29}...z30e
+...z31e...z32e...z33e...z34e... z35e{down}; kouki(35,3,2.1); filldraw
+z23r{(9u,4.6v)-z29}...z24r ...z25r...z26r...z27l{up} & z27l--z27r &
+z27r{z11r-z27}...z28l & z28l--z28r & z28r{z26r-z28}...z26l ...z25l...z24l...
+z23l{z29-(9u,4.6v)} & z23l--z23r & cycle; penstroke z36e{z30r-z36}...z37e...
+z38e...z39e{z39-z16}...z40e...z41e...z42e... z43e...z44e...z45e...z46e...z47e...
+z48e...z49e...z50e...z51e... z52e{right}; kouki(52,6,2.1); z60=(2.3u,1.7v);
+z61=(2.7u,1.4v); z62=(1.9u,0.7v); z63=(1.1u,1.5v); z64=(2.2u,2.55v);
+z65=(3.25u,1.9v); z66=(2u,0); z67=(0.1u,1.8v); z68=(1.1u,3.55v);
+z69=(2.5u,4.05v); z70=(4.3u,3.3v); z71=(4.65u,2.75v); z72=(4.8u,3.1v);
+z73=(5.15u,0.1v); z74=(6u,-0.05v); z75=(7.1u,0.2v); z76=(8.5u,0.8v);
+z77=(9u,0.4v); z78=(8.65u,0); z79=(8.4u,0.2v); z80=(8.87u,1.15v);
+z81=(8.75u,2.6v); z82=(8.6u,3.5v); z82'=(8.45u,3.7v); z82.1=z82;
+z83=(7.15u,4.45v); z84=(5.5u,3v); z85=(5.95u,1.75v); z86=(6.7u,2v);
+z87=(6.8u,1.4v); z88=(7.9u,2.6v); z89=(7.1u,3.4v); z90=(3.1u,0); z91=(4.3u,0);
+z92=(4.8u,1.4v); z93=(6.5u,3.7v); z94=(6u,5.2v); z95=(3.8u,6.25v);
+z96=(1.85u,5.2v); z97=(0.65u,3.9v); z98=(0.05u,4.4v); z99=(0.3u,4.8v);
+z100=(0.65u,4.75v); z101=(0.7u,4.5v); z102=(0.9u,4.3v); z103=(1.1u,4.5v);
+z104=(2.8u,3.5v); z105=(3.9u,4.5v); z106=(3u,5.3v); z107=(2.35u,4.8v);
+z108=(2.8u,4.25v); z109=(3.2u,4.6v); z110=(1.65u,6.5v); z111=(2.65u,7.9v);
+z112=(3.9u,6.6v); z113=(2.3u,4.8v); z114=(0.5u,7v); z115=(0.4u,8.05v);
+z116=(1.9u,8.9v); z117=(4.6u,8.9v); z118=(7u,7.3v); z119=(7.7u,7.9v);
+z120=(7.3u,8.3v); z121=(7.05u,8v); z122=(3u,6.1v); z123=(4.9u,8.85v);
+z124=(6.3u,9.2v); z125=(7.65u,9.05v); z126=(9u,6.4v); z127=(7.5u,4.8v);
+z128=(6.8u,5.25v); z129=(6.4u,6.2v); z130=(5.7u,6.4v); z131=(7u,7.75v);
+z131.1=(8.3u,7.5v); z131.2=(9u,8.1v); z131.3=(8.6u,8.5v); z131.4=(8.2u,8.2v);
+z131.5=(8.5u,7.95v); z132=(8.2u,6.5v); z133=(7.5u,5.65v); z134=(6.95u,6.15v);
+z135=(6.3u,8.4v); z136=(0.6u,8.45v); z137=(0.05u,8.9v); z138=(0.55u,9.15v);
+z139=(0.65u,8.95v); z140=(0.9u,8.85v); z141=(u,9v); z117'=(5.85u,8v);
+ka(60,-90); ka(61,180); ka(62,90); ka(63,0); ka(64,-90); ka(65,-145); ka(66,90);
+ka(67,0); ka(68,-51); ka(69,-90); ka(70,-133); ka(71,-180); ka(72,-90);
+ka(73,-106); ka(74,-90); ka(75,-68); ka(76,-90); ka(77,180); ka(78,90);
+ka(79,0); ka(81,0); ka(82,26); ka(82',32); penpos82.1(0.5uv,26); ka(83,90);
+ka(84,180); ka(85,-127); ka(86,0); ka(87,-90); ka(88,0); ka(89,90); ka(90,90);
+ka(91,-90); ka(92,-55); ka(93,0); ka(94,39); ka(95,90); ka(96,159); ka(97,90);
+ka(98,0); ka(99,-67.5); penpos100(0.3uv,-148); penpos101(0.25u,180);
+penpos102(1.5hair,-90); ka(103,0); ka(104,-90); ka(105,0); ka(106,90);
+ka(107,180); ka(108,-90); ka(109,0); ka(110,39); ka(111,-90); ka(112,180);
+ka(113,90); ka(114,0); ka(116,-61); ka(117,-115); ka(118,-90); ka(119,0);
+ka(120,90); ka(121,180); z70'=z70; ka(70',47); ka(122,0); ka(123,-59);
+ka(124,-90); ka(125,-120); ka(126,180); ka(127,90); ka(128,30); ka(129,90);
+ka(130,0); ka(131,-90); ka(131.1,-90); ka(131.2,0); ka(131.3,90); ka(131.4,180);
+ka(131.5,-90); ka(132,180); ka(133,90); ka(134,0); ka(135,180); z116'=z116;
+ka(116',119); ka(136,90); ka(137,0); penpos138(0.25uv,-139);
+penpos139(0.2uv,-145); ka(117',-133); penpos140(1.5hair,-90); ka(141,0);
+ka(142,0); z142=(8.9u,9.2v); penstroke z60e{right}...z61e...z62e
+...z63e...z64e...z65e{z91-z65}...z66e...z67e ...z68e...z69e...z70e{z85-z70}
+...z71e{down}; penstroke z70e{z85-z70}...z72e{right}; kouki(63,2,1.5);
+mpalla(68,1.4); mpalla(70,1.4); kouki(71,3,1.15); kouki(72,6,1.1); penstroke
+z65e{z91-z65}...z73e... z74e...z75e...z81e...z82e...z82'e...
+z83e...z84e...z85e...z87e...z88e... z89e{left}; mpalla(73,1.3); mpalla(75,1.3);
+penstroke z75e...z76e{right}...z77e ...z78e...z79e{up}; kouki(79,2,1.3);
+mpalla(80,1.4); z200=(8.6u,2.45v); kouti(81,200); penstroke z85e...z86e{up};
+kouki(86,1,1.3); penstroke z65e{z91-z65}...z90e{left}; z91'=(3.75u,0.5v);
+ka(91',-158); penstroke z65e{z91-z65}... z91'e...z91e{right}; kouki(90,5,0.8);
+kouki(91,6,0.8); penstroke z92e{z19-z92}...z93e...z94e
+...z95e...z96e{z9-z96}...z97e...z98e ...z99e...z100e{dir-45}...z101e...z102e...
+z103e{up}; penstroke z96e{z9-z96}...z104e... z105e...z106e...z107e...z108e...
+z109e{up}; z201=(5.95u,4.9v); kouti(94,201); kouki(109,1,1); z202=(3.7u,4.9v);
+z203=(3.6u,4.7v); ka(202,22); kouti(202,203); filldraw
+z81r{up}...z82.1r{z82r-z82l} & z82.1r{z82l-z82r}...z82'r & z82'r--z82'l &
+z82'l...z82.1l{z82l-z82r} & z82.1l{z82r-z82l}...z81l{down} & z81l--z81r & cycle;
+penstroke z110e{z138-z110}...z111e... z112e...z113e...z114e...z116e...z117e
+...z117'e ...z118e...z119e...z120e...z121e{down}; z205=(0.35u,6.9v);
+kouti(114,205); penstroke z70'e{z70-z85}...z122e...
+z123e...z124e...z125e{(9u,8.5v)-z125}...z126e...
+z127e{left}...z128e...z129e{left}; penstroke z127e{left}...z130e...
+z131e{right}...z131.1e...z131.2e... z131.3e...z131.4e...z131.5e{right};
+penstroke z131e{right}...z132e... z133e...z134e{up}; penstroke
+z123e{z124-z123}...z135e{down}; kouki(135,3,1.2); penstroke
+z125e{(9u,8.5v)-z125}...z142e{up}; kouki(142,1,1.1); mpalla(126,1.2);
+mpalla(115,1.5); kouki(128,2,1.4); kouki(131.5,6,1.1); kouki(133,5,1.9);
+penstroke z116'e{z115-z116}...z136e... z137e...z138e...z139e...z140e...
+z141e{up}; kouki(129,7,1.2); z143=(4.1u,7.15v); z144=(4.4u,6.9v); ka(143,-90);
+ka(144,180); penstroke z122e{up}...z143e...z144e {down}; kouki(144,3,1.2);
+z250=(7.5u,3.2v); z251=(6.9u,4.15v); z252=(9.3u,4.3v); z260=(-0.15u,3.3v);
+z261=(0.2u,3.9v); z262=(1.05u,2.6v); z270=(1.4u,6.5v); z271=(1.7u,5.55v);
+z272=(-0.2u,6v); z280=(0.4u,-0.2v); z281=(0,0.3v); z282=(1.4u,0.6v);
+triaina(250,251,252,0.5); triaina(260,261,262,0.45); triaina(270,271,272,0.6);
+triaina(280,281,282,0.4); penlabels(range 1 thru 282);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitU.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitU.mf
new file mode 100644
index 00000000000..17be2c16308
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitU.mf
@@ -0,0 +1,120 @@
+.cmchar "The letter U";
+.beginchar("U",8.9u#+0.2mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.3u,0.45v); z2=(5.15u,1.4v); z3=(4.45u,1.55v); z4=(3.25u,2v);
+z5=(2u,3.35v); z6=(2.8u,4v); z7=(3.4u,3.5v); z8=(3.2u,3.2v); z9=(7u,3.1v);
+z10=(7.85u,0.75v); z11=(8.5u,1.65v); z12=(9u,2.4v); z13=(8.5u,2.9v);
+z14=(8.1u,2.5v); z15=(7.7u,1.5v); z16=(7u,3.05v); z17=(7.05u,6v);
+z18=(7.4u,7.35v); z19=(7.8u,7.85v); z20=(8.65u,8.3v); z21=(8.8u,8.65v);
+z22=(3.6u,2v); z23=(5u,5.7v); z24=(4.25u,7.4v); z25=(3.1u,7.4v); z26=(1.4u,7.3v);
+z27=(1.1u,8v); z28=(1.8u,8.35v); z29=(2.4u,8.15v); z30=(2.9u,8.5v);
+z31=(3.4u,2v); z32=(4.15u,4.3v); z33=(4u,5.45v); z34=(3.4u,6v);
+z35=(3.65u,6.6v); z36=(2.6u,5.7v); ka(1,0); penpos2(0.18uv,-61); penpos3(uv,49);
+penpos4(0.85uv,112); penpos5(0.2u,0); penpos6(1.5hair,-90); ka(7,180); ka(8,90);
+penpos9(2hair,-48); penpos2'(2hair,-48); x2'=5.3u; z2'r=whatever[z2r,z9r];
+ka(10,0); penpos11(0.2uv,-58); penpos12(1.5hair,0); ka(13,90); ka(14,180);
+penpos15(0.95uv,54); penpos16(0.8u,0); penpos17(0.7u,0); penpos18(0.3uv,-34);
+penpos19(1.5hair,-58); ka(20,-61); ka(21,0); ka(22,-33); penpos23(0.7u,5);
+penpos24(1.1uv,59); penpos25(0.95uv,117); penpos26(0.35uv,61); ka(27,0);
+penpos28(0.55uv,-130); penpos29(0.2v,-90); ka(30,-77); ka(31,-27);
+penpos32(0.3u,0); penpos33(0.67uv,36); penpos34(uv,37); ka(35,160); ka(36,-74);
+filldraw z1r---z2r---z2'r---z9r & z9r--z9l & z9l---z2'l...z2l...z3r...
+z4r...z5r...z6r{right} & z6r--z6l & z6l{left}...z5l...z4l...z3l... z1l{down} &
+z1l--z1r & cycle; penstroke z6e{right}...z7e...z8e{left}; kouki(8,5,2.3);
+filldraw z10r{z13-z10}...z11r... z12r{up} & z12r--z12l & z12l{down}...
+z11l...z15r...z16r...z17r...z18r... z19r...z20r...z21r{up} & z21r--z21l &
+z21l{down}...z20l...z19l...z18l... z17l...z16l...z15l...z10l{z10-z25r} &
+z10l--z10r & cycle; kouki(21,1,1.8); penstroke z12e{up}...z13e...z14e{down};
+kouki(14,4,1.8); penstroke z22e{(8.1u,9v)-z22}...z23e
+...z24e...z25e...z26e...z27e... z28e...z29e...z30e{(5.5u,9v)-z30}; filldraw
+z31r{(7.3u,9v)-z31}...z32r ...z33r...z34r...z35l{up} & z35l--z35r &
+z35r{z34l-z35}...z36l{z36-z34r} & z36l--z36r & z36r...z34l...z33l...
+z32l...z31l{z31-(7.3u,9v)} & z31l--z31r & cycle; z40=(4.1u,0); z41=(3.55u,v);
+z42=(3.05u,0.4v); z43=(3.5u,-0.05v); z44=(3.85u,0.4v); z45=(3.65u,0.65v);
+z46=(2.8u,0.6v); z47=(2.75u,0.2v); z48=(2.65u,-0.1v); z49=(1.5u,0.1v);
+z50=(u,0.25v); z51=(0.6u,0.3v); z52=(0.65u,v); z53=(0.75u,1.6v);
+z54=(1.25u,1.5v); z55=(1.75u,v); z56=(1.4u,0.55v); z57=(1.1u,0.8v);
+z58=(1.2u,v); z59=(1.45u,0.97v); z60=(1.6u,1.1v); z61=(1.1u,2.4v);
+z62=(0.95u,3v); z63=(2.5u,4.75v); z64=(3.75u,3.7v); z65=(3u,2.8v);
+z66=(2.4u,3.3v); z67=(2.8u,3.75v); z68=(3u,3.45v); z69=(1.9u,5v);
+z70=(1.6u,5.4v); z71=(1.1u,6v); z72=(0.55u,5.25v); z73=(0.6u,4.55v);
+z74=(0.9u,5.05v); z75=(1.2u,5.4v); z76=(4u,5.6v); z77=(3u,6.6v);
+z78=(2.05u,5.9v); z79=(2.7u,5.15v); z80=(3.2u,5.7v); z81=(2.8u,6.15v);
+z81'=(4.05u,1.85v); z82=(3.2u,1.35v); z83=(1.5u,3v); z84=(2.8u,4.2v);
+z85=(4.8u,2.6v); z86=(5u,3.3v); z87=(5.85u,4.5v); z88=(5.6u,5.1v);
+z89=(5.95u,5.6v); z90=(3.8u,8.5v); z91=(1.65u,8v); z92=(u,7.75v);
+z93=(0.3u,8.4v); z94=(0.5u,8.7v); z94'=(0.3u,9v); z95=(0.85u,8.85v);
+z96=(1.15u,8.5v); z97=(0.9u,8.2v); z97'=(u,7v); z98=(0.85u,6v); z99=(4.3u,1.7v);
+z100=(5.6u,3.05v); z101=(5.5u,4.35v); z102=(5.25u,4.1v); z103=(6.1u,3.35v);
+z104=(7.7u,4.85v); z105=(8.8u,3.8v); z106=(8u,3v); z107=(7.4u,3.6v);
+z108=(7.95u,4.25v); z109=(8.4u,3.8v); z110=(8.1u,3.45v); z111=(4.4u,1.5v);
+z112=(6u,2.8v); z113=z111; z114=(5.8u,2v); z115=(6.3u,1.6v); z116=(6.9u,1.05v);
+z117=(6.2u,0.1v); z118=(4.85u,0.6v); z119=(5.65u,0.65v); z120=(6.1u,1.1v);
+z121=(6.45u,0.8v); z122=(6.3u,0.55v); z123=(7.35u,0); z124=(7.85u,0.3v);
+z125=(8.6u,0.4v); z126=(8.6u,1.1v); z127=(8.4u,1.6v); z128=(8.4u,2.7v);
+z129=(8.75u,2.4v); z130=(8.3u,1.95v); z131=(7.65u,3.2v); z132=(7.65u,6.65v);
+z133=(8.5u,7.8v); z134=(8.6u,7.6v); z135=(7.8u,8.7v); z136=(8.9u,7.4v);
+z137=(7.85u,6.25v); z138=(6.9u,7.15v); z139=(7.65u,8.05v); z140=(8.35u,7.4v);
+z141=(8u,7v); z142=(7u,8.1v); z143=(5.9u,8.8v); z144=(5.3u,8.2v);
+z145=(5.7u,7.8v); z146=(6.1u,8.2v); z147=(5.1u,8.6v); z148=(7.8u,3.8v);
+z149=(8.8u,4.95v); z150=(8.85u,6v); z151=(8.7u,6.3v); z152=(8.2u,5.8v);
+z152'=(8.5u,5.5v); z153=(8.5u,5.6v); z154=(8.45u,5.25v); ka(40,0); ka(41,90);
+ka(42,180); ka(43,-90); ka(44,0); ka(45,90); ka(46,166); ka(48,166);
+penpos47(0.3uv,166); ka(49,90); ka(50,62); ka(51,90); ka(52,0); ka(53,0);
+ka(54,-90); ka(55,180); ka(56,90); ka(57,0); penpos58(0.3uv,-69);
+penpos59(0.15v,-90); ka(60,0); ka(61,16); ka(62,0); ka(63,-90); ka(64,180);
+ka(65,90); ka(66,0); ka(67,-90); ka(68,180); ka(70,0); ka(71,90); ka(72,-140);
+ka(73,90); ka(74,-90); ka(75,0); ka(76,0); ka(77,90); ka(78,180); ka(79,-90);
+ka(80,0); ka(81,90); ka(81',-45); z82'=z81'; ka(82',135); ka(82,90); ka(83,0);
+ka(84,-90); ka(85,-41); ka(86,0); ka(87,-15); ka(88,90); ka(89,0); ka(90,90);
+ka(91,79); ka(92,90); ka(93,0); ka(94,-49); ka(94',131); ka(95,-90); ka(96,180);
+ka(97,90); ka(97',164); ka(98,180); ka(99,-50); ka(100,-36); ka(101,90);
+ka(102,180); ka(103,-90); ka(104,-90); ka(105,180); ka(106,90); ka(107,0);
+ka(108,-90); ka(109,180); ka(110,90); ka(111,-45); ka(112,-90); ka(113,-66);
+ka(114,-90); ka(115,180); ka(116,-165); ka(117,90); ka(118,90); ka(119,0);
+ka(120,-90); ka(121,180); ka(122,90); ka(123,-90); ka(124,-90); ka(125,-90);
+ka(126,0); ka(127,15); ka(128,-90); ka(129,180); ka(130,90); ka(131,0);
+ka(132,-6); ka(133,-90); ka(134,180); ka(135,-90); ka(136,180); ka(137,90);
+ka(138,0); ka(139,-90); ka(140,180); ka(141,90); ka(143,90); ka(144,180);
+ka(145,-90); ka(146,0); ka(147,90); ka(148,0); ka(149,-28); ka(150,0);
+ka(151,0); ka(152,180); ka(153,-90); ka(154,180); penstroke
+z40e{up}...z41e{left}... z42e...z43e...z44e...z45e{left}; kouki(45,7,1.4);
+penstroke z46e--z47e--z48e; penstroke z41e{left}...z49e{left}...
+z50e...z52e...z54e...z55e... z56e{left}...z57e{up}...z58e...z59e... z60e{up};
+penstroke z50e{(0,0.8v)-z50}...z51e{left}; kouki(51,7,1.25); penstroke
+z52e{up}...z53e{up}; kouki(53,1,1.2); penstroke z41e{left}...z61e...z62e...
+z63e...z64e...z65e...z66e...z67e... z68e{down}; penstroke
+z82'e{z81'-z153}...z83e... z84e...z7e{down}; mpalla(61,1.5); mpalla(69,1.5);
+penstroke z62e{up}...z70e...z71e... z72e{z65-z72}...z74e...z75e{up};
+kouki(75,1,1.5); penstroke z72e{z65-z72}...z73e{left}; kouki(73,5,1.6);
+penstroke z81'e{z153-z81'}...z85e... z87e...z89e...z90e...z91e{(0,6.85v)-z91}
+...z97'e...z98e...z84e{right}... z76e...z77e...z78e...z79e...z80e... z81e{left};
+kouki(81,7,1.1); penstroke z85e...z86e{up}; kouki(86,1,1); penstroke
+z87e...z88e{left}; kouki(88,7,1); mpalla(90,1.8); mpalla(89,2); mpalla(97',1.3);
+penstroke z91e{(0,6.85v)-z91}...z92e ...z93e...z94e...z95e...z96e... z97e{left};
+kouki(97,5,1.4); penstroke z99e{z153-z99}... z100e{z136-z100}...z104e...z105e...
+z106e...z107e...z108e...z109e... z110e{left}...z148e...z149e...z150e
+...z152e...z153e{right}; kouki(110,5,1.65); kouki(153,6,1); penstroke
+z100e{z136-z100}...z101e... z102e{down}; kouki(102,4,1.5); penstroke
+z100e{z136-z100}...z103e {right}; kouki(103,8,1.1); penstroke
+z152e{down}...z154e{down}; kouki(154,3,1.2); penstroke z150e{up}...z151e{up};
+kouki(151,2,1.5); penstroke z89e{up}...z135e...z136e...
+z137e...z138e{up}...z139e...z140e... z141e{left}; kouki(141,5,2.1); penstroke
+z138e{up}...z143e...z144e ...z145e...z146e{up}...z147e{left}; kouki(146,1,1.4);
+kouki(147,5,1.25); mpalla(142,1.5); z145'=z145; ka(145',3); penstroke
+z89e{up}...z145'e; penstroke z111e{z154-z111}...z112e {right}; kouki(112,8,1.2);
+penstroke z113e{z9r-z113}...z114e... z116e{z116-z103}...z117e...z118e {left};
+kouki(118,7,1.4); penstroke z117e{left}...z119e{up}...
+z120e...z121e...z122e{left}; kouki(122,5,1.5); mpalla(116,1.35); penstroke
+z114e{right}...z115e{down}; kouki(115,3,1.1); penstroke z116e{z116-z103}...z123e
+{right}; kouki(123,6,1); penstroke z116e{z116-z103}...z124e
+{right}...z125e{right}; kouki(125,8,1.5); penstroke z124e{right}...z126e...
+z127e; z131'=(7.6u,5v); ka(131',0); penstroke z128e{right}...z129e...z130e
+...z131e...z131'e...z132e...z133e...z134e {down}; kouki(134,3,1.1);
+z200=(0.35u,3.05v); z201=(0.35u,4.25v); z202=(1.6u,3.05v); z210=(5u,6v);
+z211=(6.9u,6v); z212=(5u,7.15v); z220=(1.35u,6.55v); z221=(1.35u,6.15v);
+z222=(0.35u,6.6v); triaina(200,201,202,0.5); triaina(210,212,211,0.4);
+triaina(220,221,222,0.6); z240=0.5[z112,z116]; mpalla(240,1.3); penlabels(range
+1 thru 240);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitV.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitV.mf
new file mode 100644
index 00000000000..029fcc4dcc0
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitV.mf
@@ -0,0 +1,96 @@
+.cmchar "The letter V";
+.beginchar("V",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.1u,1.05v); z2=(2.65u,1.35v); z3=(2.3u,1.1v); z4=(1.8u,0.8v);
+z5=(1.05u,1.6v); z6=(2.5u,2.7v); z7=(3.7u,2.1v); z8=(4.3u,1.4v); z9=(7u,1.1v);
+z10=(8u,3.7v); z11=(7.3u,5.05v); z12=(7.9u,6.47v); z13=(8.7u,6v);
+z14=(8.35u,5.65v); z15=(3.6u,2.2v); z16=(5.2u,5.4v); z17=(4.3u,7.3v);
+z18=(3.1u,7.6v); z19=(1.7u,6.8v); z20=(0.3u,7.6v); z21=(1.2u,8.15v);
+z22=(1.6u,8.05v); z23=(1.6u,8.6v); z24=z7; z25=(4.45u,4.6v); z26=(3.7u,6v);
+z27=(3.85u,6.55v); z28=(2.8u,5.8v); z29=(4.7u,7v); z30=(6.7u,7.75v);
+z31=(7.5u,6.95v); z32=(8.1u,6.8v); z33=(8.85u,7.6v); z34=(8.2u,8.3v);
+z35=(7.75u,7.9v); z36=(8.05u,7.55v); z36.1=(2.7u,1.9v); z36.2=(1.35u,3.2v);
+z36.3=(2.35u,4.15v); z36.4=(3.35u,3.5v); z1'=z1; ka(1,0); ka(1',180);
+penpos2(0.4v,90); penpos3(0.5uv,136); penpos4(0.4v,90); ka(5,0);
+penpos6(0.5v,-90); penpos7(0.95uv,-141); penpos8(0.9uv,-140);
+penpos9(1.5hair,-55); penpos10(0.9uv,17); penpos11(0.8uv,32.5);
+penpos12(1.5hair,-73); ka(13,180); ka(14,90); ka(15,-53); penpos16(0.63u,5);
+penpos17(1.1uv,56); penpos18(1.1uv,98); penpos19(0.85uv,121.5);
+penpos20(1.5hair,-14); penpos21(0.55uv,-130); penpos22(0.35v,-90); ka(23,38);
+ka(24,-29); penpos25(0.47u,0); penpos26(0.93uv,42); ka(27,171); ka(28,-78);
+ka(29,-50); penpos30(0.75uv,-137); penpos31(0.7uv,-142); penpos32(0.3v,-90);
+penpos33(1.5hair,0); ka(34,90); ka(35,180); ka(36,-90); ka(36.1,90); ka(36.2,0);
+penpos36.3(0.3v,-90); ka(36.4,180); kouki(1',3,1.4); penstroke
+z1e{up}...z2e...z3e...z4e... z5e...z6e...z7e...z8e...z9e...z10e...
+z11e...z12e...z13e...z14e{left}; kouki(14,5,1.6); penstroke
+z15e{z13-z15}...z16e...z17e... z18e...z19e...z20e...z21e...z22e... {z23-z9}z23e;
+penstroke z29e{z29-(0,3v)}...z30e... z31e...z32e...z33e...z34e...z35e...
+z36e{right}; kouki(36,6,1.85); filldraw z24r{(7.65u,9v)-z24}...z25r
+...z26r...z27l{up} & z27l--z27r & z27r{z5-z27}...{z28-z34}z28l & z28l--z28r &
+z28r...z26l...z25l... z24l{z24-(7.65u,9v)} & z24l--z24r & cycle; z15'=z15;
+ka(15',127); penstroke z15'e{z15-z13}...z36.1e{left}...
+z36.2e{up}...z36.3e...z36.4e{down}; kouki(36.4,3,1.3); z40=(2.3u,0.8v);
+z41=(1.85u,0.15v); z42=(0.6u,1.5v); z43=(2.5u,3.3v); z44=(3.7u,2.95v);
+z45=(0.7u,0); z46=(1.3u,0.9v); z47=(1.7u,1.8v); z48=(1.7u,1.3v); z49=(1.3u,1.7v);
+z50=(2u,2.3v); z51=(3.3u,1.55v); z52=(2.75u,0.25v); z53=(5.4u,0.2v);
+z54=(3.75u,0.45v); z55=(6.8u,0.5v); z56=(8.8u,0.5v); z57=(8.3u,0);
+z58=(7.9u,0.2v); z59=(7.35u,0.4v); z60=(8.15u,0.7v); z61=(8.9u,1.2v);
+z62=(8.1u,1.4v); z63=(8.5u,1.9v); z64=(8.85u,2.6v); z65=(9u,3.5v);
+z66=(6.2u,5.85v); z67=(5.8u,4.6v); z68=(6.85u,3.5v); z69=(6.85u,5.2v);
+z70=(6.6u,4.4v); z71=(4u,1.8v); z72=(5.2u,2.15v); z73=(5.2u,2.9v);
+z74=(6.1u,3.3v); z75=(7.05u,2.3v); z76=(6.3u,1.4v); z77=(5.85u,1.15v);
+z78=(5.45u,2.1v); z79=(5.9u,2.8v); z80=(6.45u,2.5v); z81=(6.3u,2.15v);
+z82=(6u,2.25v); z83=(5.8u,2v); z84=(5.9u,1.8v); z85=(6.9u,3.7v);
+z86=(6.5u,4.2v); z87=(6.25u,4.1v); z88=(6.45u,6.1v); z89=(8.1u,8.7v);
+z90=(8.8u,8.65v); z91=(3.8u,2v); z92=(5.87u,5.8v); z93=(5.4u,8.3v); z94=(6u,9v);
+z95=(6.35u,8.65v); z96=(6.15u,8.3v); z97=(5.9u,8.4v); z98=(6.8u,8.6v);
+z99=(4.7u,8.95v); z99'=(5.25u,8.05v); z100=(3u,8.6v); z101=(0.95u,6.5v);
+z102=(1.5u,5.6v); z103=(2.6u,4.5v); z104=(3.9u,5.7v); z105=(3u,6.6v);
+z106=(2.15u,5.7v); z107=(2.7u,5.3v); z108=(3.35u,2.4v); z109=(3.95u,3.8v);
+z109'=(1.55u,5.15v); z110=(0.45u,4.2v); z111=(u,4v); z112=(1.65u,3.4v);
+z113=(2.2u,4v); z114=(1.7u,4.5v); z115=(0.4u,5v); z116=(0.7u,7.7v);
+z117=(0.15u,8.2v); z118=(0.75u,8.65v); ka(40,-131); ka(41,90); ka(42,0);
+ka(43,-90); ka(44,-121.5); ka(45,-90); ka(46,0); ka(47,-90); ka(48,90); ka(49,0);
+ka(50,-90); ka(51,-147); ka(52,90); ka(53,-90); ka(55,-67); ka(56,180);
+ka(57,90); ka(58,31.5); ka(59,90); ka(60,-90); ka(61,0); ka(62,-42); ka(63,-90);
+ka(64,-18); ka(65,0); ka(66,90); ka(67,180); ka(68,-90); ka(69,90); ka(70,-90);
+ka(71,-51); ka(72,180); ka(73,-44); ka(74,-90); ka(75,180); ka(76,90);
+ka(77,180); ka(78,0); ka(79,-90); penpos80(1.5hair,180); penpos81(0.35v,99);
+penpos82(0.32uv,74); penpos83(0.1uv,155); ka(84,-137); ka(85,0); ka(86,90);
+ka(87,180); ka(88,-11); ka(89,-90); ka(90,-90); ka(91,-51); ka(92,0); ka(93,11);
+ka(94,-90); ka(95,180); ka(96,90); ka(97,0); ka(98,0); ka(99,24); ka(99',22);
+ka(100,90); ka(101,180); ka(102,-90); ka(103,-90); ka(104,0); ka(105,90);
+ka(106,180); ka(107,77); ka(108,-35); ka(109,0); ka(110,132); ka(109',118);
+ka(111,180); ka(112,-90); ka(113,0); ka(114,90); ka(115,0); ka(116,90);
+ka(117,0); penpos118(0.1uv,-131); penstroke z40e{z40-z47}...z41e...
+z42e...z43e...z44e{z72-z44}; z45'=z45; ka(45',90); kouki(45',5,1.4); penstroke
+z45e{right}...z46e...z47e ...z48e...z49e...z50e...z51e{z51-z114}...
+z53e...z55e... z62e...z64e...z65e...z66e... z67e...z68e...z69e...z70e{right};
+kouki(70,6,1.1); mpalla(54,1.4); mpalla(55,1.3); mpalla(64,1.5); penstroke
+z51e{z51-z114}...z52e{left}; kouki(52,5,1.2); kouki(47,7,1.1); penstroke
+z55e{(9u,1.5v)-z55}... z56e...z57e...z58e...z59e{left}; penstroke
+z58e...z60e{right}...z61e {up}; kouki(59,7,1.3); kouki(60,8,1.5);
+kouki(61,1,1.2); z200=(4.85u,2.75v); z201=(4.55u,2.85v); penpos200(0.1uv,-47);
+penstroke z71e{z71-z41}...z73e... z88e...z89e...z90e{right}; kouki(90,6,1.6);
+kouti(200,201); z202=(6.25u,6v); kouti(88,202); penstroke
+z73e...z74e...z75e...z76e ...z78e...z79e{right}...z80e...
+z81e...z82e...z83e...z84e{z84-z19}; penstroke z76e...z77e{down}; kouki(77,4,1);
+penstroke z79e{right}...z85e...z86e ...z87e{down}; kouki(87,4,1.3); penstroke
+z71e{z71-z41}...z72e{down}; kouki(72,3,1); z91.1=z2r; ka(91.1,-90); penstroke
+z91.1e{right}...z91e... z92e{up}...z93e...z94e...z95e{z11r-z95} ...z98e{up};
+penstroke z95e{z11r-z95}...z96e... z97e{up}; kouki(98,1,1.3); kouki(97,2,1.3);
+z203=(5.7u,5.65v); kouti(92,203); penstroke z92e{up}...z99'e...z99e; penstroke
+z92e{up}...z100e...z101e {down}...z103e...z104e... z105e...z106e{down};
+kouki(106,4,1.65); penstroke z101e{down}...z102e{right}; kouki(102,6,1.2);
+kouki(103,6,1.3); kouki(105,7,1.5); penstroke z108e{z89-z108}...z109e...
+z107e...z109'e{z109'-z98}...z115e{up}; penstroke z109'e{z109'-z98}...
+z110e{left}; kouki(110,5,0.8); penstroke z109'e{z109'-z98}...z111e
+...z112e...z113e...z114e{left}; kouki(114,7,1.4); kouki(115,2,1.5); z204=z22;
+ka(204,130); penstroke z204e{z102-z97}...z116e... z117e{up}; filldraw
+z117l{up}... {z85-z118}z118l & z118l..z118r & z118r{z118-z85}...z117r{down} &
+z117r--z117l & cycle; z210=(4.55u,8.1v); z211=(4.35u,8.65v); z212=(5.6u,8.55v);
+z220=(5.95u,6.55v); z221=(6.05u,7.1v); z222=(7.1u,6.3v); z230=(8.25u,4.6v);
+z231=(8u,5.05v); z232=(9.15u,5v); triaina(210,211,212,0.4);
+triaina(220,221,222,0.5); triaina(230,231,232,0.6); penlabels(range 1 thru 240);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitW.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitW.mf
new file mode 100644
index 00000000000..4006e0450aa
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitW.mf
@@ -0,0 +1,138 @@
+.cmchar "The letter W";
+.beginchar("W",8.9u#+2mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(2.5u,0.5v); z2=(3.4u,1.3v); z3=(3u,1.55v); z4=(2.55u,2v); z5=(1.2u,3.4v);
+z6=(2.2u,4.45v); z7=(2.85u,3.75v); z8=(2.35u,3.2v); z9=(2u,3.55v);
+z10=(2.2u,3.8v); z11=(2.35u,3.7v); z12=(2.6u,3.8v); z13=(5.9u,5.7v);
+z14=(4.65u,7.8v); z15=(3.45u,7.95v); z16=(2.05u,7.3v); z17=(0.1u,7.9v);
+z18=(0.9u,8.45v); z19=(1.3u,8.2v); z20=(1.5u,8.3v); z21=(1.55u,8.6v);
+z22=(6.5u,0.5v); z23=(7.2u,1.5v); z24=(6.7u,1.65v); z25=(6.25u,2v);
+z26=(5.2u,2.25v); z27=(4.5u,3.5v); z28=(5.4u,4.4v); z29=(6.25u,3.7v);
+z30=(5.65u,3.05v); z31=(5u,3.5v); z32=(8.45u,2.4v); z33=(8.85u,3.5v);
+z34=(8.45u,4.45v); z35=(7.95u,5.75v); z36=(8.7u,6.5v); z37=(9.3u,6v);
+z38=(9u,5.7v); z39=(5.35u,7.25v); z40=(7.2u,8.05v); z41=(7.82u,7.72v);
+z42=(8.2u,7.1v); z43=(9.25u,7.05v); z44=(9.5u,7.5v); z45=(9u,8.1v);
+z46=(2.9u,2.55v); z47=(3.85u,4.3v); z48=(3.4u,5.5v); z49=(2.8u,6v);
+z50=(3.1u,6.7v); z51=(1.6u,5.6v); ka(1,-29); ka(2,-69); penpos3(0.8uv,36);
+penpos4(0.9uv,64); penpos5(0.25u,0); penpos6(1.5hair,-90); ka(7,180); ka(8,90);
+ka(9,0); penpos10(0.3v,-90); penpos11(0.2uv,-118); ka(12,-31); penpos13(0.7u,0);
+penpos14(0.93uv,61); penpos15(0.85v,90); penpos16(0.75uv,119); ka(17,0);
+penpos18(0.4uv,-138); penpos19(0.35uv,-141); ka(20,-42); ka(21,0); ka(22,-17);
+ka(23,-54); penpos24(0.8uv,38); penpos25(0.9uv,77); penpos26(0.72uv,74);
+penpos27(0.22u,0); penpos28(1.5hair,-90); ka(29,180); ka(30,90); ka(31,0);
+penpos32(0.12uv,-40); penpos33(0.7u,2); penpos34(0.9uv,43); penpos35(0.37u,0);
+penpos36(1.5hair,-90); ka(37,180); ka(38,90); ka(39,-55); penpos40(0.5v,-90);
+penpos41(0.85uv,-151); penpos42(0.9uv,-152); penpos43(0.15uv,-61); ka(44,0);
+ka(45,90); ka(46,-46); penpos47(0.5u,0); penpos48(0.75uv,42);
+penpos49(0.85uv,43); ka(50,148); ka(51,-74); filldraw
+z1r{z40l-z1}...z2r{z33l-z2r} & z2r--z2l & z2l{up}...z3r...z4r...
+z5r...z6r{right} & z6r--z6l & z6l{left}...z5l...z4l...z3l... z1l{z1-z40l} &
+z1l--z1r & cycle; penstroke z6e{right}...z7e...z8e{left}...
+z9e{up}...z10e...z11e...z12e{z49r-z12}; penstroke z2e{z33l-z2r}...z13e...z14e
+...z15e...z16e...z17e{up}; filldraw z17r{up}...z18r...
+(1.05u,8v){right}...z20r... z21r{up} & z21r--z21l & z21l{down}...z20l...z19l...
+z18l...z17l{down} & z17l--z17r & cycle; filldraw z22r{z45-z22}...z23r{z36-z27l} &
+z23r--z23l & z23l{z14-z23}...z24r ...z25r...z26r...z27r...z28r{right} &
+z28r--z28l & z28l{left}...z27l... z26l...z25l...z24l...z22l{z22-z45} &
+z22l--z22r & cycle; penstroke z23e{z36-z27l}...z32e...
+z33e...z34e...z35e...z36e...z37e... z38e{left}; kouki(38,5,1.5);
+z31'=(5.15u,3.85v); penpos31'(0.2uv,-38); penstroke z28e{right}...z29e...z30e
+...z31e...z31'e; penstroke z39e{z40l-z6}...z40e...
+z41e...z42e...z43e...z44e...z45e{left}; kouki(45,7,1.4); filldraw
+z46r{z42r-z46}...z47r{up} ...z48r...z50l{z15-z50} & z50l--z50r & z50r{z50-z15}...
+z51l{z51-z49} & z51l--z51r & z51r{z49-z51}...z49l...z48l...
+z47l...z46l{z46-z42r} & z46l--z46r & cycle; z60=(2.3u,0.4v); z61=(2.4u,1.2v);
+z62=(0.5u,3.5v); z63=(1.9u,5.1v); z64=(3.3u,3.85v); z65=(3u,3v); z66=(2.5u,2.8v);
+z67=(1.6u,3.6v); z68=(2.2u,4.2v); z69=(0.5u,0.7v); z70=(1.35u,0); z71=(2u,0.7v);
+z72=(1.5u,1.25v); z73=(u,0.8v); z74=(1.35u,0.45v); z75=(0.2u,0); z76=(0.2u,2.1v);
+z77=(0.75u,2.6v); z78=(1.1u,2.25v); z79=(0.8u,1.9v); z80=(2.75u,0.5v);
+z81=(3.3u,v); z82=(6u,3.7v); z83=(6.45u,6v); z84=(4.55u,8.7v); z85=(2.2u,8.5v);
+z86=(0.95u,6.3v); z87=(2.6u,4.5v); z88=(4.15u,6v); z89=(3.1u,7.15v);
+z90=(u,5.4v); z91=(0.2u,5.1v); z92=(0.35u,6v); z93=(0.85u,6.55v);
+z94=(1.3u,6.2v); z95=(u,5.9v); z96=(2.2u,6.4v); z98=(3.6u,6.2v);
+z100=(2.5u,5.2v); z101=z3; z102=(4.1u,2.4v); z103=(4u,2.75v); z104=(3.9u,3.2v);
+z105=(3.35u,2.45v); z106=(3.6u,2.2v); z107=(6.45u,5.45v); z108=(6.8u,5v);
+z109=(6.15u,4.35v); z110=(5.25u,5.2v); z111=(6.3u,6.3v); z112=(7.5u,5v);
+z113=(6.1u,3.5v); z114=(4.65u,4.85v); z115=(6.5u,7.05v); z116=(7.2u,6.7v);
+z117=(6.5u,7.6v); z118=(5.6u,8.1v); z119=(5.85u,8.7v); z120=(5.55u,9v);
+z121=(5.3u,8.75v); z122=(7.8u,8.9v); z123=(9.35u,8.35v); z124=(10u,6.8v);
+z125=(8.7u,5.35v); z126=(7.5u,6.4v); z127=(8.5u,7.55v); z128=(9.4u,6.8v);
+z129=(2.95u,0.55v); z130=(3.9u,0.9v); z131=(5u,1.45v); z132=(4.8u,1.7v);
+z133=(4.85u,0.65v); z134=(5.7u,0.3v); z135=(6.15u,0.85v); z136=(5.65u,1.35v);
+z137=(5.25u,v); z138=(5.45u,0.75v); z139=(5.65u,0.9v); z141=(5.9u,0.8v);
+z142=(4.55u,0.45v); z143=(4.2u,0); z144=(3.2u,0.45v); z145=(3.05u,0.3v);
+z146=(3.75u,0.4v); z147=(4u,0.6v); z148=(6.6u,0.4v); z149=(8.1u,1.7v);
+z150=(9.5u,3.8v); z151=(8.65u,5.3v); z152=(8.35u,5.8v); z153=(8.75u,6.3v);
+z154=(6.75u,0.1v); z155=(8.45u,1.4v); z156=(9.5u,2.2v); z157=(9.1u,2.55v);
+z158=(9.2u,1.4v); z159=(9.75u,1.2v); z160=(9.15u,0.8v); z161=(9.5u,0.1v);
+z162=(8.6u,0.05v); z163=(8.15u,0.25v); z164=(8.7u,0.4v); z163'=(8.55u,0.65v);
+z165=(8.9u,0.6v); z166=(7.5u,0.65v); z167=(7.25u,0.4v); z168=(6.8u,1.4v);
+z169=(8.1u,2.9v); z170=(7.6u,4v); z171=(7.45u,3.55v); z172=(6.9u,3v);
+z173=(6.3u,3v); z174=(7.35u,2.45v); z175=(7.7u,2.7v); z176=(0.85u,7.75v);
+z177=(0,8.5v); z178=(0.4u,9v); z179=z123; z180=(9.65u,8.5v); z181=(9.5u,8.7v);
+z182=(9.7u,8.9v); ka(60,-18); ka(61,24); ka(62,0); ka(63,-90); ka(64,180);
+ka(65,134); ka(66,90); ka(67,0); ka(68,-90); ka(69,180); ka(70,-90); ka(71,0);
+ka(72,90); ka(73,180); ka(74,-90); ka(75,90); ka(76,0); ka(77,-90); ka(78,180);
+ka(79,90); ka(80,-8.5); ka(81,-55); ka(82,-27); ka(83,0); ka(84,76); ka(85,121);
+ka(86,180); ka(87,-90); ka(88,0); ka(89,90); ka(90,90); ka(91,180); ka(92,0);
+ka(93,-90); ka(94,180); ka(95,90); ka(96,180); ka(98,0); ka(100,0); ka(101,-90);
+ka(102,0); ka(103,33); ka(104,0); ka(105,180); ka(106,-90); ka(107,-126);
+ka(108,180); ka(109,90); ka(110,0); ka(111,-90); ka(112,180); ka(113,90);
+ka(114,0); ka(115,-90); ka(116,180); ka(118,-40); ka(119,0); ka(120,90);
+ka(121,180); ka(122,-90); ka(123,-130); ka(124,180); ka(125,90); ka(126,0);
+ka(127,-90); ka(128,180); ka(129,-57.5); ka(130,-90); ka(131,0); ka(132,90);
+ka(133,-127); ka(134,-90); ka(135,0); ka(136,90); ka(137,180);
+penpos138(0.2v,-90); penpos139(0.2uv,-34); ka(140,-129); ka(141,-129);
+ka(142,180); ka(143,90); ka(144,90); ka(145,180); ka(146,0); ka(147,-90);
+ka(148,-13); ka(149,-57); ka(150,0); ka(151,48); ka(152,0); ka(153,-90);
+ka(154,-13); ka(155,-90); ka(156,0); ka(157,90); ka(158,-90); ka(159,180);
+ka(160,180); ka(161,-90); ka(162,90); ka(163,47); penpos163'(0.25uv,-119);
+penpos164(0.15v,-90); ka(165,-41); ka(166,90); ka(167,180); ka(168,-53.5);
+ka(169,0); ka(170,0); ka(171,90); ka(172,180); ka(173,0); ka(174,-90);
+ka(175,0); ka(176,90); ka(177,0); ka(178,-90); ka(179,-45); penpos180(0.4u,0);
+penpos181(0.2uv,34); ka(182,-90); z12'=z12; ka(12',180); z61'=(1.65u,1.65v);
+ka(61',66); z65'=(1.9u,2.35v); ka(65',120); z81'=(5.25u,2.3v); ka(81',-41);
+z85'=(1.55u,8v); ka(85',140); penstroke z85'e{z63-z119}...z176e{left}
+...z177e...z178e{right}; penstroke z60e{z64-z60}...z61e... z61'e...
+z62e...z63e...z64e...z65e{z65-z83} ...z66e...z67e...z68e...z12'e{down};
+penstroke z65e{z65-z83}... z65'e...{down}z69e ...z70e...z71e...z72e{left}...
+z73e...z74e{right}; penstroke z69e{down}...z75e{left}; penstroke
+z72e{left}...z76e... z77e...z78e...z79e{left}; kouki(74,6,1.5); kouki(75,5,1.2);
+kouki(79,5,1.4); penstroke z80e{z121-z80}...z81e... z81'e...
+z83e...z84e...z85e{z176-z85} ...z86e...z87e...z88e...z89e{left}
+...z90e{left}...z92e...z93e... z94e...z95e{left}; z200=(4.65u,8.5v);
+kouti(84,200); mpalla(85,1.5); penstroke z85e{z176-z85}...z176e
+...z177e...z178e{right}; z99=(1.4u,5.1v); ka(99,-137.5); penstroke
+z99e{z103-z99}...z100e{up}; penstroke z89e{left}...z96e{down} ...z98e{up};
+penstroke z90e{left}...z91e{down}; kouki(178,8,1.1); kouki(100,1,1.3);
+kouki(98,1,1.3); kouki(91,4,1.15); kouki(95,5,1.4); penstroke
+z101e{right}...z102e{up} ...z105e{down}...z106e{right}; penstroke
+z102e...z104e{up}; kouki(106,6,1.3); kouki(104,2,1.1); penstroke
+z107e{z33r-z107}... z108e...z109e...z110e...z111e... z112e...z113e...z114e{up}...
+z115e...z116e{down}; z201=(4.4u,4.6v); kouti(114,201); kouki(116,3,1.4);
+mpalla(112,1.4); kouki(108,3,1.2); penstroke z114e{up}...z39e{z40l-z6};
+penstroke z114e{up}...z118e{z118-z77}... z122e...z123e...z124e...z125e...
+z126e...z127e...z128e{down}; penstroke z118e{z118-z77}...z119e
+...z120e...z121e{down}; kouki(121,4,1.2); kouki(126,2,1.2); kouki(128,3,1.3);
+mpalla(122,1.4); mpalla(117,1.4); penstroke z179e...z180e...z181e
+...z182e{z37-z115}; z202=(4.4u,6.9v); mpalla(202,1.4); penstroke
+z129e{z132-z129}... z130e{right}...z131e...z132e{left}; penstroke
+z130e{right}...z133e... z134e...z135e...z136e...z137e... z138e...z139e...
+z141e{z141-z96}; penstroke z130e{right}...z142e... z143e...z144e...z145e{down};
+penstroke z143e...z146e...z147e {right}; kouki(132,7,1.3); kouki(147,8,1.1);
+kouki(145,4,1.3); mpalla(130,1.3); z206=(7.9u,3.4v); ka(206,54); penstroke
+z168e{z168-z135}... z169e...z206e...z171e...z172e...z174e... z175e{up};
+kouki(175,1,1.7); z204=(9u,6v); ka(204,180); penstroke z206e{z15r-z206}...
+z170e{up}; kouki(170,2,1.3); penstroke z148e{z175-z148}...
+z149e...z150e...z151e...z152e... z153e...z204e{down}; penstroke
+z154e{z34r-z154}... z155e{right}...z156e...z157e {left}; penstroke
+z155e{right}...z158e... z159e{down}; penstroke z155e{right}...z160e
+{down}...z162e...z163e{z173-z163}...z163'e... z164e...z165e{up}; penstroke
+z160e{down}...z161e {right}; penstroke z163e{z173-z163}...z166e{left}...
+z167e{down}; z205=(8.3u,1.6v); kouti(155,205); kouki(157,7,1.3);
+kouki(159,3,0.8); kouki(161,6,1.3); kouki(167,4,1.4); penstroke
+z172e{down}...z173e{up}; kouki(173,2,1.25); z210=(0,4v); z211=(0.25u,4.85v);
+z212=(u,3.6v); triaina(210,211,212,0.75); mpalla(62,1.25); penlabels(range 1
+thru 220);
+.endchar;
+ \ No newline at end of file
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitX.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitX.mf
new file mode 100644
index 00000000000..38f319dc405
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitX.mf
@@ -0,0 +1,126 @@
+.cmchar "The letter X";
+.beginchar("X",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(1.7u,0.5v); z2=(2.65u,1.65v); z3=(2u,1.8v); z12=(3.9u,5v);
+z13=(3.75u,4.55v); z14=(2.6u,3.6v);z15=(3.2u,3.05v); z16=(3.6u,3.4v);
+z17=(5.05u,4v); z18=(5.05u,4.9v); z19=(5.25u,4.4v); z20=(6.75u,5.4v);
+z21=(6.1u,6.2v); z22=(5.55u,5.75v); z23=(5.75u,5.45v); z24=(5.25u,6.75v);
+z25=(6.4u,7.85v); z26=(6.8u,7.6v); z27=(7.8u,7.15v); z28=(8.4u,7.8v);
+z29=(7.95u,8.35v); z30=(7.7u,8.2v);z31=(6.1u,0.55v); z32=(6.85u,1.55v);
+z33=(8u,2.8v); z34=(7.35u,3.7v); z35=(6.75u,3.15v); z36=(7u,2.75v);
+z37=(6u,1.35v); z38=(4.8u,2.05v);z39=(4.5u,3.35v); z40=(4.4u,6.3v);
+z41=(3.65u,7.65v); z42=(2.85u,7.85v); z43=(1.6u,7.35v); z44=(0.4u,8v);
+z45=(1.15u,8.65v); z46=(1.35u,8.4v); z47=(1.8u,8.45v); z48'=z48;
+z48=(1.75u,8.85v); z4=(1.05u,2.35v); z5=(0.65u,3.15v); z6=(1.5u,3.95v);
+z7=(2.05u,3.35v); z8=(1.7u,2.95v); z9=(1.35u,3.2v);z10=(2.95u,1.8v);
+z11=(3.9u,4.1v); ka(1,-30); penpos2(0.2u,-64); penpos3(0.9uv,51);
+penpos4(0.7uv,67); penpos5(0.235u,0); penpos6(1.5hair,-90); ka(7,180); ka(8,90);
+ka(9,0); ka(10,-53); ka(11,0); ka(12,0); penpos13(0.67v,90);
+penpos14(0.12u,180); ka(15,-90); ka(16,0); ka(17,0); ka(18,0);
+penpos19(0.65u,-90); penpos20(1.5hair,0); ka(21,90); ka(22,180); ka(23,-90);
+penpos24(1.5hair,-14); penpos25(0.6v,-90); penpos26(0.7uv,-136);
+penpos27(0.45v,-90); ka(28,0); ka(29,90); ka(30,180); ka(31,-9);
+penpos32(0.35uv,-32); penpos33(1.5hair,0); ka(34,90); ka(35,180); ka(36,-90);
+penpos37(0.88uv,69); penpos38(0.92uv,42); penpos39(0.72u,5); penpos40(0.8u,0);
+penpos41(0.9uv,56); penpos42(0.95v,90); penpos43(0.75uv,113.5);
+penpos44(1.5hair,0); penpos45(0.5uv,-120); penpos46(0.45u,-149);
+penpos47(0.1uv,-56); ka(48,34); filldraw z1l{z13l-z1}...z3l...z4l...
+z5l...z6l{right} & z6l--z6r & z6r{left}...z5r...z4r...(2.1u,2.4v) ...z3r...
+z2l...z10l{z39r-z10}...z11l{up}... z13l{left}...z14l{down}...z15l {right} &
+z15l--z15r & z15r{left}...z14r{up}...z13r{right} ...z12l{up} & z12l--z12r &
+z12r---z11r{down}...z10r{z10-z39r}... z2r...z1r{z1-z13l} & z1r--z1l & cycle;
+penstroke z6e{right}...z7e...z8e... z9e{up}; kouki(9,2,1.7); penstroke
+z15e{right}...z16e{up}; kouki(16,1,1.7); filldraw
+z21r{right}...z20r{down}...z19r {left}...z17r{down} & z17r--z17l &
+z17l---z18l{up}...z24l...z25l... z26l...z27l...z28l{up} & z28l--z28r &
+z28r{down}...z27r...z26r...(6.1u,7.65v)... z24r...z18r{down}...z19l{right}...
+z20l{up}...z21l{left} & z21l--z21r & cycle; penstroke
+z21e{left}...z22e...z23e{right}; kouki(23,6,1.7); penstroke
+z28e{up}...z29e...z30e{down}; kouki(30,4,1.7); filldraw
+z31l{z26-z31}...z37l...z38l ...z39l...z40l...z41l...z42l...z43l ...z44l{up} &
+z44l--z44r & z44r{down} ...z43r...(2u,8.05v)...z42r...z41r...z40r...z39r
+...z38r...z37r...z32l...z33l{up} & z33l--z33r & z33r{down}...z32r...
+z31r{z31-z26} & z31r--z31l & cycle; penstroke z33e{up}...z34e...z35e...
+z36e{right}; kouki(36,6,1.7); penstroke z44e{up}...z45e...z46e...
+z47e...z48e{z48-z17}; z50=(2.15u,1.65v); z51=(2.9u,2.6v); z52=(2.5u,3.05v);
+z53=(2.3u,2.8v); z53'=(2.3u,1.55v); z54=(3.6u,4.3v); z55=(3.35u,5.45v);
+z56=(3.1u,7v); z57=(5.1u,9.05v); z58=(6.55u,7.7v); z59=(5.45u,6.4v);
+z60=(4.6u,7.75v); z61=(5.1u,8.05v); z62=(5.8u,7.4v); z63=(5.4u,7v);
+z64=(5.05u,7.3v); z65=(5.35u,8.4v); z66=(6.5u,8.55v); z67=(6.85u,8.8v);
+z68=(4.8u,8.5v); z69=(4.15u,9.2v); z70=(2.6u,8.5v); z71=(2.25u,8.8v);
+z72=(3.6u,8.6v); z73=(4u,8.2v); z74=(4.3u,8.4v); z78=(1.7u,6.7v);
+z79=(0.67u,6.3v); z80=(0.4u,6.05v); z81=(0.2u,5.7v); z82=(0.1u,5.15v);
+z83=(0.7u,4.5v); z84=(1.15u,3.5v); z85=(1.9u,2.15v); z86=(1.5u,2v);
+z87=(0.75u,0.95v); z88=(0,0.3v); z89=(0.9u,2.4v); z90=(0.15u,1.7v);
+z91=(1.05u,0.5v); z92=(3.2u,1.5v); z93=(4.25u,0.68v); z94=(3.65u,0);
+z95=(3.1u,0.55v); z96=(3.5u,1.05v); z97=(4.1u,1.7v); z98=(3.75u,2.05v);
+z99=(2.1u,0.5v); z100=(2.7u,v); z101=(4.8u,0.1v); z102=(5.3u,0.5v);
+z103=(5u,0.95v); z104=(5.8u,0.5v); z105=(6.55u,0.3v); z106=(1.5u,3.6v);
+z107=(2.65u,4.8v); z108=(2.35u,5.55v); z109=(1.7u,5.85v); z110=(0.95u,5.2v);
+z111=(1.4u,4.8v); z112=(1.85u,4.9v); z113=(2.15u,4.5v); z114=(0,8v);
+z115=(u,9.15v); z116=(7.2u,3v); z117=(7u,3.25v); z118=(7.3u,3.45v);
+z119=(7.75u,2.85v); z120=(6.7u,2v); z121=(5.9u,2.75v); z122=(6.1u,3.15v);
+z123=(6.35u,3.75v); z124=(6.05u,4.05v); z125=(5.85u,3.95v); z126=(6.6u,3v);
+z127=(5.3u,3.8v); z128=(7.45u,6.7v); z129=(8.53u,6.13v); z130=(8.8u,5.3v);
+z131=(8.3u,4.7v); z132=(7.5u,3.9v); z133=(6.4u,5v); z134=(7.25u,6.1v);
+z135=(7.95u,5.45v); z141=(6.85u,1.55v); z142=(8u,0.25v); z143=(8.85u,1.15v);
+z144=(8.5u,1.8v); z145=(8.2u,2.45v); z146=(8.4u,2.7v); z147=(7.55u,1.3v);
+z148=(7.9u,0.8v); z150=(8.4u,1.05v); z149=(8.8u,0.3v); y136=y135;
+x136=x135-0.5u; z137=z136+(0,-0.5v); z138=(7.3u,4.6v); z137.5=(7.7u,4.85v);
+z139=(7.5u,4.3v); ka(50,-45); ka(51,0); ka(52,90); ka(53,180); ka(53',-47);
+ka(54,0); ka(55,20); ka(56,0); ka(57,-90); ka(58,180); ka(59,90); ka(60,-35);
+ka(61,-90); ka(62,180); ka(63,90); ka(64,0); ka(65,-70); ka(66,-90); ka(67,0);
+ka(68,0); ka(69,90); ka(70,90); ka(71,0); ka(72,180); ka(73,-90); ka(74,0);
+ka(78,90); ka(79,128); ka(80,143); ka(81,157); ka(82,180); ka(83,-90);
+ka(84,-125); ka(85,141); ka(86,180); ka(87,77); ka(88,180); ka(89,122);
+ka(90,158); ka(91,-90); ka(92,-90); ka(93,180); ka(94,90); ka(95,0); ka(96,-59);
+ka(97,0); ka(98,90); ka(99,0); ka(100,-90); ka(101,-90); ka(102,0); ka(103,90);
+ka(104,-90); ka(105,-90); ka(106,-90); ka(107,0); ka(108,41); ka(109,90);
+ka(110,180); penpos111(0.4uv,-67.5); penpos112(0.3v,-90); ka(113,180);
+ka(114,0); ka(115,-90); ka(48',-146); ka(116,90); ka(117,0); ka(118,-90);
+ka(119,180); ka(120,90); ka(121,0); ka(122,-53); ka(123,0); ka(124,90);
+ka(125,180); ka(126,180); ka(127,0); ka(128,-90); ka(129,-146); ka(130,180);
+ka(131,90); ka(132,90); ka(133,0); ka(134,-90); ka(135,180);
+penpos138(1.5hair,180); ka(139,-90); ka(141,-171); ka(142,-90); ka(143,0);
+ka(144,54); ka(145,0); ka(146,-90); ka(147,180); ka(148,-90); ka(149,180);
+ka(150,0); penstroke z50e{z128-z50}...z51e... z52e...z53e{down};
+kouki(53,4,1.3); penstroke z53'e{z20-z53'}...z54e...
+z55e{z55-z103}...z56e...z57e...z58e ...z59e...z60e{z60-z8}...z61e...
+z62e...z63e...z64e{up}; kouki(64,2,1.2); mpalla(55,1.45); penstroke
+z55e{z55-z103}...z78e... z79e...z80e...z81e...z82e{down}...z83e{right}; penstroke
+z60e{z60-z8}...z65e...z66e ...z67e{up}; kouki(67,1,1.3); penstroke
+z60e{z60-z8}...z68e...z69e {left}...z72e...z73e...z74e{up}; kouki(74,1,1.25);
+penstroke z69e{left}...z70e...z71e{up}; kouki(71,2,1.5); penstroke
+z82e{down}...z106e...z107e...
+z108e{z108-z37}...z109e{left}...{down}z110e...z111e... z112e...z113e{down};
+kouki(113,3,1.6); penstroke z108e{z108-z37}...z114e...z115e... z48'e;
+kouki(83,6,1.2); penstroke z106e{right}...z85e{z85-z59}; penstroke
+z89e{z89-z18}...z90e...z91e ...z92e...z93e...z94e...z95e...z96e
+{right}...z97e...z98e{left}; kouki(98,7,1.4); kouki(96,8,1.4); penstroke
+z99e{up}...z100e...z101e... z102e...z103e{left}; z99'=z99; ka(99',180);
+kouki(99',4,1.3); penstroke z101e{right}...z104e...z105e{right};
+kouki(105,6,1.4); penstroke z86e{down}...z87e...z88e{down}; kouki(88,4,1.5);
+kouki(103,7,1.75); penstroke z141e{down}...z142e...z143e
+...z144e{z12-z144}...z147e...z148e {right}...z150e{up}; kouki(150,1,1.75);
+penstroke z144e{z12-z144}...z145e... z146e{right}; kouki(146,8,1.6); penstroke
+z148e{right}...z149e{down}; kouki(149,3,1.3); z151=(3.3u,6.85v);
+z152=(2.7u,7.125v); z153=(1.9u,6.4v); z154=(2.4u,5.9v); z155=(2.8u,6.25v);
+ka(151,44); ka(152,90); ka(153,180); ka(154,-90); ka(155,0); penstroke
+z12e{up}...z151e...z152e... z153e...z154e...z155e{up}; kouki(155,1,1.6);
+mpalla(108,1.4); mpalla(79,1.25); mpalla(81,1.25); mpalla(80,1.45);
+mpalla(57,1.4); penstroke z116e{left}... z118e...z119e...z120e{left}...z17e{up};
+penstroke z120e{left}...z127e... z128e...z129e...z130e...z132e...
+z133e...z134e{right}...z135e{down}; filldraw z135r{down}...z136{up} &
+z136{left}...z137{right} & z137{left} ...z138r{down} & z138r--z138l &
+z138l{up}...z137.5...z135l{up} & z135l--z135r & cycle; penstroke
+z138e{down}...z139e{right}; kouki(139,6,1.25); mpalla(134,1.35);
+z156=(8.8u,7.8v); z157=(7.9u,8.9v); z158=(7.25u,8.2v); z159=(7.7u,7.7v);
+z160=(7.85u,7.95v); ka(156,0); ka(157,90); ka(158,180); ka(159,-90); ka(160,0);
+penstroke z134e{right}...z156e...z157e ...z158e...z159e...z160e{up}; penstroke
+z120e{left}...z121e... z122e{z131-z122}...z126e{down}; penstroke
+z122e{z131-z122}...z123e... z124e...z125e{down}; kouki(126,3,1.3);
+kouki(125,4,1.25); penstroke z130e{down}...z131e{left}; kouki(131,5,1.3);
+z200=(1.7u,0.9v); z201=(1.25u,0.55v); z202=(0.85u,1.85v);
+triaina(200,201,202,0.5); penlabels(range 1 thru 210);
+.endchar;
+ \ No newline at end of file
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitY.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitY.mf
new file mode 100644
index 00000000000..d4ad77f0f00
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitY.mf
@@ -0,0 +1,110 @@
+.cmchar "The letter Y";
+.beginchar("Y",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(1.5u,1.7v); z2=(1.75u,1.9v); z3=(2.25u,1.4v); z4=(1.6u,0.8v);
+z5=(0.95u,1.6v); z6=(2.3u,2.65v); z7=(3.3u,2.05v); z8=(4.15u,1.05v);
+z9=(7u,1.15v); z10=(7.9u,3.2v); z11=(7.05u,5.25v); z12=(7.75u,7.1v);
+z13=(8.65u,7v); z14=(8.25u,8.55v); z15=(8.6u,8v); z16=(8.1u,7.5v);
+z17=(7u,7.95v); z18=(5.35u,8v); z19=(4.65u,7.5v); z20=(3.55u,1.9v);
+z21=(5.2u,3.35v); z22=(6.1u,4.5v); z23=(5.5u,5.2v); z24=(4.65u,3.6v);
+z25=(3.8u,4.05v); z26=(2.95u,5.15v); z27=(3.55u,5.7v); z28=(3.8u,5.5v); z29=z25;
+z30=(4.35u,5.5v); z31=(3.8u,6.75v); z32=(3.7u,7.4v); z33=(2.6u,6.5v);
+z34=(4.1u,4.05v); z35=(5.05u,6.5v); z36=(4.05u,8.1v); z37=(3.3u,8.25v);
+z38=(2.5u,7.95v); z39=(0.6u,8.1v); z40=(1.15u,8.75v); z41=(1.5u,8.6v);
+z42=(2u,8.65v); z43=(2u,9.1v); ka(1,0); ka(2,-90); ka(3,180); ka(4,90);
+penpos5(1.5hair,0); penpos6(0.6v,-90); penpos7(0.9uv,-149); penpos8(0.9uv,-136);
+penpos9(1.5hair,-54); penpos10(0.75uv,22); penpos11(0.875uv,28);
+penpos12(1.5hair,-59); ka(13,180); ka(14,-90); ka(15,180); penpos16(0.25v,90);
+penpos17(0.8uv,44); penpos18(1.5hair,129); ka(19,129); ka(20,-46);
+penpos21(2hair,-53); penpos22(1.5hair,0); ka(23,90); penpos24(uv,45);
+penpos25(0.9v,90); penpos26(0.22u,0); penpos27(1.5hair,-90); ka(28,180);
+ka(29,-26); penpos30(0.3u,0); penpos31(0.7uv,53); ka(32,180); ka(33,-73);
+ka(34,-35); penpos35(0.62u,5); penpos36(0.9uv,62); penpos37(0.95v,90);
+penpos38(0.83v,110); penpos39(1.5hair,16); penpos40(0.3v,-90);
+penpos41(0.5uv,-127); penpos42(1.5hair,-44); ka(43,21); penstroke
+z1e{up}...z2e...z3e...z4e ...z5e...z6e...z7e...z8e...z9e...z10e
+...z11e...z12e...z13e{down}; z1'=z1; ka(1',180); kouki(1',4,2.25);
+kouki(13,3,1.7); z23'=(5.2u,4.9v); ka(23',180); filldraw
+z20r{z11-z20}...z21r{z21-z4} & z21r--z21l & z21l{z37-z21}...z24r...z25r...z26r
+...z27r{right} & z27r--z27l & z27l{left}...z26l...z25l...z24l... z20l{z20-z11}
+& z20l--z20r & cycle; penstroke z21e{z21-z4}...z22e... z23e...z23'e{down};
+kouki(23',4,2.2); penstroke z27e{right}...z28e{down}; kouki(28,3,2); filldraw
+z29r{z29-z4}...z30r...z31r ...z32l{up} & z32l--z32r & z32r{z4-z32}
+...z33l{z33-z16} & z33l--z33r & z33r{z16-z33}...z31l...z30l... z29l{z4-z29} &
+z29l--z29r & cycle; penstroke z34e{z34-z4}...z35e...z36e
+...z37e...z38e...z39e...z40e...z41e ...z42e...z43e{z43-z28}; penstroke
+z19e{z19-z31}...z18e... z17e...z16e...z15e...z14e{left}; kouki(14,7,2);
+z50=(2.1u,2.05v); z51=(2.7u,1.3v); z52=(2.2u,0.35v); z53=(1.6u,0.15v);
+z54=(0.05u,1.65v); z55=(2.15u,3.4v); z56=(4u,2.3v); z57=(5.5u,1.2v);
+z58=(7.05u,2.6v); z59=(4.8u,4.9v); z60=(2.3u,2.4v); z61=(5.3u,0);
+z62=(5.8u,0.05v); z63=(6.3u,0.15v); z65=(8.6u,3.2v); z66=(8u,5v);
+z67=(7.55u,6.2v); z68=(4.4u,1.75v); z69=(4.5u,2.45v); z70=(5.2u,4v);
+z71=(6.15u,3.2v); z72=(5u,1.75v); z73=(5u,4.35v); z74=(6.45u,6.55v);
+z75=(8.4u,9.15v); z76=(8.9u,8.8v); z77=(6.25u,7.4v); z78=(6.2u,8.9v);
+z79=(6.55u,9.02v); z80=(6.85u,9v); z81=(7.25u,9.2v); z82=(5.8u,6.8v);
+z83=(5.55u,8.15v); z84=(4.9u,8.7v); z85=(5.4u,9.2v); z86=(3.05u,9.25v);
+z87=(0.5u,8.15v); z88=(0.1u,8.4v); z89=(0.3u,8.7v); z90=(0.25u,9.1v);
+z91=(1.8u,7.6v); z92=(3.3u,6v); z93=(3.75u,8.85v); z94=(3.2u,7.3v);
+z95=(3.7u,7.8v); z96=(3.6u,5.7v); z97=(2.1u,6.7v); z98=(0.45u,5v);
+z99=(1.55u,3.9v); z100=(2.5u,4.7v); z101=(1.8u,5.55v); z102=(1.25u,5.15v);
+z103=(u,5.95v); z104=(0.45u,6.55v); z105=(0.8u,7.1v); z106=(1.05u,6.9v);
+z108=(8.5u,2.5v); z109=(9u,3.35v); z110=(8.5u,4.8v); z111=(7.9u,5.9v);
+z112=(8.4u,7.1v); z113=(8.6u,5.5v); z114=(9u,6v); z115=(8.55u,6.3v);
+z116=(8.4u,6.1v); z117=(8u,0.1v); z118=(8.9u,v); z119=(8.2u,1.7v);
+z120=(7.7u,1.3v); z121=(8.1u,0.8v); z122=(8.3u,1.05v); z56.1=(4.3u,3.9v);
+z56.2=(4.4u,3.75v); ka(56.1,-32); ka(56.2,-41); ka(50,-90); ka(51,180);
+ka(52,124); ka(53,90); ka(54,0); ka(55,-90); ka(56,-144); ka(57,-90); ka(58,0);
+ka(59,90); ka(60,180); ka(61,-79); ka(63,-72); ka(65,0); ka(66,27); ka(67,0);
+ka(68,-145); ka(69,-90); ka(70,-90); ka(71,180); ka(72,180); ka(73,-48);
+ka(74,-22); ka(75,-90); ka(76,180); ka(77,-6); ka(78,0); penpos79(0.25v,-108);
+penpos80(0.15uv,-59); ka(81,-90); ka(82,0); ka(83,27); ka(84,90); ka(85,0);
+ka(86,106); ka(87,90); ka(88,0); ka(90,90); penpos89(0.15uv,-42); ka(91,180);
+ka(92,-90); ka(93,90); ka(94,-90); ka(95,0); ka(96,0); ka(97,90); ka(98,180);
+ka(99,-90); ka(100,0); ka(101,90); ka(102,160); ka(103,90); ka(104,0);
+ka(105,-90); ka(106,180); ka(108,-90); ka(109,0); ka(110,31); ka(111,26.5);
+ka(112,-90); ka(113,-90); ka(114,0); ka(115,90); ka(116,180); ka(117,-90);
+ka(118,0); ka(119,90); ka(120,180); penpos121(0.3v,-90); penpos122(0.25u,0);
+penstroke z1e{up}...z50e...z51e... z52e...z53e...z54e...z55e...z56e...
+z57e...z58e...z59e...z60e... z61e{z63-z61}; z112'=z112+(0.15u,-0.15v);
+ka(112',180); penstroke z63e{z63-z61}...z65e...z66e
+...z67e...z112e{right}...z112'e{down}; mpalla(61,1.3); mpalla(62,1.6);
+mpalla(63,1.3); z58'=z58; ka(58',180); penstroke z58'e{down}...
+z117e...z118e...z119e...z120e... z121e...z122e{up}; filldraw z122l--z122r &
+z122r{up}..z122l & cycle; z56'=z56; ka(56',36); penstroke
+z56'e{z97-z56}...z96e{up}...z97e...z98e ...z99e...z100e...z101e...z102e{down};
+mpalla(99,1.4); penstroke z56'e{z97-z56}...z56.2e...z70e... z71e{down};
+kouki(72,4,1.4); mpalla(101,1.3); penstroke z56.2e{z75-z56.2}...z73e...
+z74e...z75e...z76e{down}; kouki(76,3,1.2); z56.4=(5.15u,4.9v); ka(56.4,-40);
+penstroke z56'e{z97-z56}...z56.1e ...z56.4e...z82e...
+z83e{z83-z10}...z86e{z87-z86}... z91e{down}...z92e{right}...z93e{left}
+...z94e{right}...z95e{up}; penstroke z83e{z83-z10}...z85e{up}; kouki(85,2,1.3);
+penstroke z83e{z83-z10}...z84e{left}; kouki(84,7,1.2); mpalla(86,1.2); penstroke
+z86e...z87e{left} ...z88e...z89e...z90e{left}; kouki(90,7,1.1); penstroke
+z91e{down}...z103e...z104e ...z105e...z106e{down}; kouki(106,3,1.6);
+z200=(6.15u,2.9v); z201=(5.8u,2.45v); z203=(5.3u,2.9v); z204=(6.15u,1.7v);
+z205=(5.35u,2.15v); ka(200,180); penpos201(2hair,131); ka(203,0); ka(204,-90);
+ka(205,76); penpos206(0.4uv,131); z206=z201; z207=z206l; z208=z206r; penstroke
+z71e{down}...z200e...z201e {z201-z110}...z205e...z72e{down}; penstroke
+z201e{z201-z110}... z203e{up}; penstroke z201e{z201-z110}... z204e{right};
+mpalla(200,1.5); mpalla(207,1.7); mpalla(208,1.7); mpalla(205,1.5);
+kouki(203,2,1); kouki(204,6,1); z123=(2.6u,6.5v); z124=(2.05u,6v);
+z125=(2.3u,5.75v); ka(123,90); ka(124,180); ka(125,-90); penstroke
+z96e{up}...z123e...z124e ...z125e{right}; kouki(125,6,1.3); z56.3=z23+(0.05u,0);
+ka(56.3,-20); penstroke z56.3e{z17-z56.3}...z77e...
+z78e{up}...z79e{z15-z79}...z80e...z81e{right}; mpalla(77,1.5); mpalla(54,1.35);
+z68'=z68; ka(68',38); penstroke z68'e{z105-z68}...z69e{right}; kouki(69,8,1.5);
+penstroke z108e{right}...z109e... z110e...z111e...z112e{right}; z108'=z108;
+ka(108',90); kouki(108',5,1.3); z111'=z111; ka(111',-151); penstroke
+z111'e{z111-z78}...z113e... z114e...z115e...z116e{down}; kouki(116,4,1);
+z52'=z52; ka(52',-55); z126=(3.2u,0.8v); z127=(3.65u,0.45v); z128=(3.4u,0);
+ka(126,-90); ka(127,180); ka(128,90); penstroke z52'e{z110-z52}...z126e...
+z127e...z128e{left}; kouki(128,5,1.3); z210=(1.9u,5.05v); z211=(1.9u,4.5v);
+z212=(0.65u,5.05v); z220=(1.6u,2.55v); z221=(0.8u,2.2v); z222=(u,4v);
+z230=(1.05u,1.15v); z231=(1.35u,0.6v); z232=(-0.3u,0.4v);
+triaina(210,211,212,0.45); triaina(220,221,222,0.3); triaina(230,231,232,0.5);
+z131=z6l; z129=(2.8u,3.6v); z130=(2u,3.8v); ka(131,0); ka(130,90); ka(129,-90);
+kouki(130,7,1.1); kouki(129,8,1.2); penstroke z131e{up}...z129e{right};
+penstroke z131e{up}...z130e{left}; z240=(6.3u,5.3v); mpalla(240,1.4);
+penlabels(range 1 thru 240);
+.endchar;
+ \ No newline at end of file
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitZ.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitZ.mf
new file mode 100644
index 00000000000..7ab4aa07ab6
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitZ.mf
@@ -0,0 +1,114 @@
+.cmchar "The letter Z";
+.beginchar("Z",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.05u,-0.1v); z2=(4.9u,1.1v); z3=(4.2u,1.3v); z4=(3.25u,1.55v);
+z5=(1.75u,3.15v); z6=(3u,4.2v); z7=(3.85u,3.4v); z8=(3.2u,2.65v);
+z9=(2.65u,3.2v); z10=(2.85u,3.45v); z11=(7.15u,4.15v); z12=(4.5u,5v);
+z13=(4.27u,4.32v); z21=(5.5u,5.55v); z20=(4.85u,4.45v); z22=(7.35u,8.25v);
+z23=(7.7u,8v); z24=(6.25u,6.95v); z25=(4.85u,7.6v); z26=(3.3u,8.3v);
+z27=(1.5u,6.6v); z28=(2.55u,5.45v); z29=(3.4u,6.2v); z30=(3u,6.95v);
+z31=(2.5u,6.75v); z32=(2.7u,6.35v); z33=(2.5u,5.95v); z34=(2.2u,6v);
+z14=(4.6u,5.7v); z15=(5u,6.2v); z16=(5.35u,6.02v); z17=(6u,5.75v);
+z18=(6.4u,6.1v); z19=(6.2u,6.4v); ka(1,-15); penpos2(1.5hair,-55);
+penpos3(1.2uv,42); penpos4(0.9uv,81); penpos5(0.45u,-11); penpos6(1.5hair,-90);
+ka(7,180); ka(8,90); ka(9,0); ka(10,-90); penpos11(uv,7); penpos12(2hair,73);
+penpos13(0.3uv,-155); ka(20,-50); ka(21,-17); ka(22,-90); ka(23,180);
+penpos24(0.4v,90); penpos25(1.15uv,39); penpos26(0.65v,90);
+penpos27(1.5hair,180); ka(28,-90); ka(29,0); penpos30(2hair,90);
+penpos31(0.6u,170); penpos32(0.5u,-150); penpos33(0.2uv,111); ka(34,90);
+ka(14,90); penpos15(0.35v,-90); penpos16(0.4uv,-134); penpos17(0.27v,-90);
+penpos18(1.5hair,0); ka(19,90); filldraw z1r{z22-z1}...z2r{(9u,4v)-z2} &
+z2r--z2l & z2l{up}...z3r...z4r... z5r...z6r...z7r...z8r...z9r...z10r{right} &
+z10r--z10l & z10l{left}...z9l... z8l...z7l...z6l...z5l...z4l...z3l... z1l{down}
+& z1l--z1r & cycle; penstroke z2e{(9u,4v)-z2}...z11e...
+z12e...z13e...z20e...z21e...z22e... z23e...z24e...z25e...z26e...z27e...
+z28e...z29e{up}...z30e...z31e...z32e... z33e...z34e{left}; penstroke
+z14e{left}...z15e...z16e... z17e...z18e...z19e{left}; kouki(10,8,2.2);
+kouki(14,6,1.3); kouki(19,7,1.3); z50=(3.7u,1.45v); z51=(1.6u,0);
+z52=(0.9u,0.25v); z53=(0.4u,v); z54=(1.1u,1.65v); z55=(1.6u,1.15v);
+z56=(1.25u,0.75v); z57=(0.85u,1.1v); z58=(0.3u,2v); z59=(0,1.7v);
+z60=(7.15u,4.85v); z61=(8.7u,3.4v); z62=(7.4u,2.05v); z63=(6.3u,3v);
+z64=(7.15u,4.1v); z65=(8.1u,3.5v); z66=(6.5u,1.55v); z67=(4.45u,0); z67'=z67;
+z68=(5.6u,0.35v); z69=(6.1u,0.3v); z70=(6.8u,0.15v); z71=(7.7u,0.4v);
+z72=(8u,1.2v); z73=(7.4u,1.75v); z74=(6.85u,1.2v); z75=(7.25u,0.85v);
+z76=(7.6u,1.1v); z77=(8.4u,0.6v); z78=(8.5u,2.65v); z79=(8.15u,1.8v);
+z80=(7.7u,2.6v); z81=(8.15u,4v); z82=(5.6u,6.2v); z83=(2.9u,3.8v);
+z84=(4.6u,2.05v); z85=(5.9u,3.3v); z86=(5.5u,4.1v); z87=(4.1u,3.4v);
+z88=(4.8u,2.75v); z89=(5.4u,3.35v); z90=(4.9u,3.8v); z91=(4.6u,3.55v);
+z92=(4.45u,6.5v); z93=(5.15u,8.15v); z94=(5.9u,8.3v); z95=(6.35u,8.2v);
+z96=(6.6u,8.4v); z97=(6.05u,7.95v); z98=(5.8u,7.7v); z99=(6.8u,8.9v);
+z100=(8u,8.5v); z101=(8.6u,8.65v); z102=(8.45u,7.65v); z103=(8.15u,6.6v);
+z104=(7.4u,6.25v); z105=(6.5u,7v); z106=(7.35u,7.9v); z107=(7.9u,7.3v);
+z108=(7.5u,6.8v); z109=(8.1u,5.15v); z110=(8.3u,5v); z111=(7.65u,5.9v);
+z112=(4.4u,3.9v); z113=(4u,6.25v); z114=(3u,8.3v); z115=(3.6u,9.05v);
+z116=(4.15u,8.8v); z117=(4.5u,9v); z118=(3.85u,7.1v); z119=(1.3u,8.4v);
+z120=(2.05u,8.95v); z121=(2.25u,8.6v); z122=(2.55u,8.85v); z123=(2.1u,6.45v);
+z124=(0.5u,5v); z125=(1.5u,4v); z126=(2.4u,4.8v); z127=(1.8u,5.4v);
+z128=(1.25u,5v); z129=(1.8u,4.5v); z130=(3.3u,5.25v); z131=(3.8u,4.8v);
+z132=(3.55u,4.5v); z133=(3.3u,4.7v); z134=(0.4u,7.6v); z135=(0.55u,8.15v);
+z136=(0.75u,8.8v); z137=(1.35u,8.55v); z138=(2.1u,7.75v); z139=(1.5u,7v);
+z140=(0.85u,7.6v); z141=(1.25u,7.95v); z142=(1.45u,7.75v); z143=(0.2u,5.8v);
+z144=(0.2u,6.8v); z145=(1.05u,3.3v); z146=(0.8u,2.6v); z147=(0.7u,2v);
+z148=(0,3v); z149=(0.15u,3.3v); z150=(0.45u,3.9v); z151=(0.6u,3.3v);
+z152=(0.55u,2.95v); z153=(0.2u,4.25v); z154=(1.3u,3.65v); ka(50,147); ka(51,90);
+ka(52,59); ka(53,0); ka(54,-90); ka(55,180); ka(56,90); ka(57,0);
+penpos58(0.4v,90); ka(59,180); z50'=z50; ka(50',-33); ka(60,-90); ka(61,180);
+ka(62,90); ka(63,0); ka(65',0); ka(64,-90); ka(65,180); ka(66,117); ka(67,152);
+ka(67',-28); ka(68,-90); ka(69,-109); ka(70,-90); ka(71,-58); ka(72,0);
+ka(73,90); ka(74,180); ka(75,-90); ka(76,0); ka(77,-90); ka(78,147); ka(79,180);
+ka(80,146); z65'=z65; ka(82,90); ka(83,180); ka(84,-90); ka(85,0); ka(86,57);
+ka(87,180); ka(88,-90); ka(89,0); ka(90,90); ka(91,180); ka(92,0); ka(93,-46);
+ka(94,-128); ka(95,-90); ka(96,0); ka(97,180); ka(98,90); ka(99,-90);
+ka(100,-126); ka(101,0); ka(102,180); ka(103,141); ka(104,90); ka(105,0);
+ka(106,-90); ka(107,180); ka(108,90); ka(109,180); ka(110,-90); ka(112,0);
+ka(113,26); ka(114,0); ka(115,-90); ka(116,-90); ka(117,-90); ka(118,0);
+ka(119,0); penpos120(0.3uv,-135); penpos121(0.3uv,-111); ka(122,-8); ka(123,90);
+ka(124,180); ka(125,-90); ka(126,0); ka(127,90); ka(128,180); ka(129,-90);
+ka(130,-90); ka(131,180); ka(132,90); ka(133,0); ka(134,0); ka(135,-32);
+ka(136,0); ka(137,-90); ka(138,180); ka(139,90); ka(140,0); ka(141,-90);
+ka(142,180); ka(143,180); ka(144,0); ka(145,180); ka(146,135); ka(147,-90);
+ka(148,0); ka(149,-49); ka(150,0); ka(151,-146); ka(152,90); ka(153,90);
+penstroke z50e{z50-z104}...z51e... z52e...z53e{up}...z54e...z55e...
+z56e...z57e{up}; kouki(57,2,1.5); penstroke z53e{up}...z58e{left}... z59e{down};
+z52'=(0.35u,0.5v); ka(52',90); penstroke z52e{z150-z5r}...z52'e{left};
+kouki(52',7,1.6); z155=(3.7u,-0.05v); z156=(3.15u,0.35v); z157=(2.7u,0.15v);
+z158=(2.6u,0.95v); z159=(2.3u,0.6v); z160=(1.6u,0.5v); ka(155,0); ka(156,90);
+ka(157,180); ka(158,90); ka(159,180); ka(160,180); penstroke
+z155e{z123-z155}...z156e... z157e{down}; kouki(157,4,1); penstroke
+z155e{z123-z155}...z158e{left} ...z159e{down}; kouki(159,4,1.1); penstroke
+z158e{left}...z160e{down}; kouki(160,4,1.2); penstroke z50'e{z104-z50}...z60e...
+z61e...z78e{z79-z78}...z62e...z63e...z64e...
+z65e{down}...z80e...z66e...z67e{z67-z103}; penstroke z78e{z79-z78}..z79e{down};
+kouki(79,4,1.6); kouki(65,3,1.5); z200=z65; ka(200,180); kouki(200,4,1.5);
+mpalla(80,1.75); penstroke z67'e{z79-z67}..z68e...
+z69e...z70e...z71e...z72e...z73e... z74e...z75e...z76e{up}; kouki(76,1,1.6);
+penstroke z65'e{up}...z82e...z83e... z84e...z85e...z86e...z87e...z88e...
+z89e...z90e...z91e{down}; kouki(91,4,1.8); penstroke z50'e{z104-z50}...
+z92e...z93e{z93-z150}...z99e...z100e {z85-z28}...z102e...z103e{z51-z103}
+...z104e...z105e...z106e...z107e... z108e{left}; kouki(108,5,1.4);
+mpalla(99,1.5); penstroke z100e{z85-z28}...z101e{up}; kouki(101,1,1.5);
+mpalla(102,1.4); penstroke z103e{z51-z103}...z109e{down} ...z110e{right};
+kouki(110,6,1.3); mpalla(111,1.3); penstroke z93e{z93-z150}...
+z94e{z103-z94}...z95e...z96e{up}; kouki(96,1,1.3); penstroke
+z94e{z103-z94}...z97e.. z98e{left}; kouki(98,5,1.2); penstroke
+z112e{up}...z113e{z113-z66} ...z118e{up}; kouki(118,2,1.2); penstroke
+z113e{z113-z66}...z114e... z115e...z116e...z117e{right}; kouki(117,8,1.25);
+penstroke z113e{z113-z66}...z119e{up} ...z120e...z121e...z122e{z122-z54};
+penstroke z112e{up}...z123e{z123-z111}... z134e...z135e{z26-z124}...z137e...z138e
+...z139e...z140e...z141e...z142e{down}; kouki(142,3,1.5); penstroke
+z135e{z26-z124}...z136e{up}; kouki(136,1,1.55); penstroke
+z123e{z123-z111}...z144e{up}; kouki(144,2,1.4); penstroke
+z123e{z123-z111}...z143e{down}; kouki(143,4,1.4); penstroke
+z123e{z123-z111}...z124e... z125e...z126e...z127e...z128e...z129e
+...z130e...z131e...z132e...z133e{up}; kouki(133,2,1.3); penstroke
+z124e{down}..z145e{down} ...z146e{z146-z18}...z148e...z149e
+{z94-z149}...z150e...z153e{left}; kouki(153,7,1.3); penstroke
+z146e{z146-z18}...z147e{right}; kouki(147,6,1.3); penstroke
+z149e{z94-z149}...z151e... z152e{left}; kouki(152,5,1.2); mpalla(154,1.3);
+z250=(1.7u,5v); ka(250,-90); penstroke z123e{left}...z250e{right};
+kouki(250,6,1.2); x251=0.5[x69,x70]; y251=y75+0.1v; ka(251,0); penstroke
+z68e{right}...z251e{up}; kouki(251,1,1.1); penstroke z71e...z77e{right};
+kouki(77,8,1.55); z252=(5.5u,4.61v); mpalla(252,1.6); penlabels(range 1 thru
+252);
+.endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitas.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitas.mf
new file mode 100644
index 00000000000..da8530d32be
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitas.mf
@@ -0,0 +1,114 @@
+% THIS IS A PATCHED VERSION OF YINIT.MF
+% patched on march 27, 1994 by Andeas Schrell
+% patches affect the size and positioning of the letters.
+
+% This is CMR10.MF in text format, as of Mar 31, 1986.
+% Computer Modern Roman 10 point
+if unknown cmbase: input cmbase fi
+input yintbase % -sl 15-3-1991
+
+font_identifier:="YINITAS";
+
+u#:=160/36pt#;
+v#:=160/36pt#;
+
+font_size 8.7u#;
+
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=40/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=40pt#; % height of tallest characters
+asc_height#:=40pt#; % height of lowercase ascenders
+cap_height#:=40pt#; % height of caps
+fig_height#:=40pt#; % height of numerals
+x_height#:=800/36pt#; % height of lowercase without ascenders
+math_axis#:=720/36pt#; % axis of symmetry for math symbols
+bar_height#:=320/36pt#; % height of crossbar in lowercase e
+comma_depth#:=560/36pt#; % depth of comma below baseline
+desc_depth#:=560/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=32/36pt#; % diameter of rounded corners
+fine#:=28/36pt#; % diameter of sharply rounded corners
+thin_join#:=28/36pt#; % width of extrafine details
+numeric m; m:=1;
+hair#:=2/36u#;
+stem#:=200/36pt#; % lowercase stem breadth
+curve#:=240/36pt#; % lowercase curve breadth
+ess#:=216/36pt#; % breadth in middle of lowercase s
+flare#:=264/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=288/36pt#; % diameter of dots
+cap_hair#:=88/36pt#; % uppercase hairline breadth
+cap_stem#:=256/36pt#; % uppercase stem breadth
+cap_curve#:=296/36pt#; % uppercase curve breadth
+cap_ess#:=280/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=1.6pt#; % thickness of lines in math symbols
+
+dish#:=8/36pt#; % amount erased at top or bottom of serifs
+bracket#:=160/36pt#; % vertical distance from serif base to tangent
+jut#:=224/36pt#; % protrusion of lowercase serifs
+cap_jut#:=296/36pt#; % protrusion of uppercase serifs
+beak_jut#:=80/36pt#; % horizontal protrusion of beak serifs
+beak#:=560/36pt#; % vertical protrusion of beak serifs
+vair#:=64/36pt#; % vertical diameter of hairlines
+notch_cut#:=80pt#; % maximum breadth above or below notches
+bar#:=88/36pt#; % lowercase bar thickness
+slab#:=88/36pt#; % serif and arm thickness
+cap_bar#:=88/36pt#; % uppercase bar thickness
+cap_band#:=88/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=80pt#; % max breadth above/below uppercase notches
+serif_drop#:=32/36pt#; % vertical drop of sloped serifs
+stem_corr#:=8/36pt#; % for small refinements of stem breadth
+vair_corr#:=8/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=64/36pt#; % amount of overshoot for curves
+apex_o#:=64/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+mode_setup;
+font_setup;
+u:=160/36pt;
+v:=160/36pt; uv:=u;
+generate yinitA;
+generate yinitB;
+generate yinitC;
+generate yinitD;
+generate yinitE;
+generate yinitF;
+generate yinitG;
+generate yinitH;
+generate yinitJ;
+generate yinitK;
+generate yinitL;
+generate yinitM;
+generate yinitN;
+generate yinitO;
+generate yinitP;
+generate yinitQ;
+generate yinitR;
+generate yinitS;
+generate yinitT;
+generate yinitU;
+generate yinitV;
+generate yinitW;
+generate yinitX;
+generate yinitY;
+generate yinitZ;
+end.
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yinitdd.mf b/Master/texmf-dist/fonts/source/public/gothic/yinitdd.mf
new file mode 100644
index 00000000000..7b9fe2f1b35
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yinitdd.mf
@@ -0,0 +1,109 @@
+% This is CMR10.MF in text format, as of Mar 31, 1986.
+% Computer Modern Roman 10 point
+if unknown cmbase: input cmbase fi
+input yintbase % -sl 15-3-1991
+
+font_identifier:="CMR"; font_size 10pt#;
+
+u#:=160/36pt#;
+v#:=160/36pt#;
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=40/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=40pt#; % height of tallest characters
+asc_height#:=40pt#; % height of lowercase ascenders
+cap_height#:=40pt#; % height of caps
+fig_height#:=40pt#; % height of numerals
+x_height#:=800/36pt#; % height of lowercase without ascenders
+math_axis#:=720/36pt#; % axis of symmetry for math symbols
+bar_height#:=320/36pt#; % height of crossbar in lowercase e
+comma_depth#:=560/36pt#; % depth of comma below baseline
+desc_depth#:=560/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=32/36pt#; % diameter of rounded corners
+fine#:=28/36pt#; % diameter of sharply rounded corners
+thin_join#:=28/36pt#; % width of extrafine details
+numeric m; m:=1;
+hair#:=2/36u#;
+stem#:=200/36pt#; % lowercase stem breadth
+curve#:=240/36pt#; % lowercase curve breadth
+ess#:=216/36pt#; % breadth in middle of lowercase s
+flare#:=264/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=288/36pt#; % diameter of dots
+cap_hair#:=88/36pt#; % uppercase hairline breadth
+cap_stem#:=256/36pt#; % uppercase stem breadth
+cap_curve#:=296/36pt#; % uppercase curve breadth
+cap_ess#:=280/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=1.6pt#; % thickness of lines in math symbols
+
+dish#:=8/36pt#; % amount erased at top or bottom of serifs
+bracket#:=160/36pt#; % vertical distance from serif base to tangent
+jut#:=224/36pt#; % protrusion of lowercase serifs
+cap_jut#:=296/36pt#; % protrusion of uppercase serifs
+beak_jut#:=80/36pt#; % horizontal protrusion of beak serifs
+beak#:=560/36pt#; % vertical protrusion of beak serifs
+vair#:=64/36pt#; % vertical diameter of hairlines
+notch_cut#:=80pt#; % maximum breadth above or below notches
+bar#:=88/36pt#; % lowercase bar thickness
+slab#:=88/36pt#; % serif and arm thickness
+cap_bar#:=88/36pt#; % uppercase bar thickness
+cap_band#:=88/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=80pt#; % max breadth above/below uppercase notches
+serif_drop#:=32/36pt#; % vertical drop of sloped serifs
+stem_corr#:=8/36pt#; % for small refinements of stem breadth
+vair_corr#:=8/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=64/36pt#; % amount of overshoot for curves
+apex_o#:=64/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+mode_setup;
+font_setup;
+u:=160/36pt;
+v:=160/36pt;
+uv:=u; % -sl 15-3-1991
+%readfrom("yinitbase"); % -sl 15-3-1991
+generate yinitD; end.
+generate yinitB;
+generate yinitC;
+generate yinitD;
+generate yinitE;
+generate yinitF;
+generate yinitG;
+generate yinitH;
+generate yinitJ;
+generate yinitK;
+generate yinitL;
+generate yinitM;
+generate yinitN;
+generate yinitO;
+generate yinitP;
+generate yinitQ;
+generate yinitR;
+generate yinitS;
+generate yinitT;
+generate yinitU;
+generate yinitV;
+generate yinitW;
+generate yinitX;
+generate yinitY;
+generate yinitZ;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yintbase.mf b/Master/texmf-dist/fonts/source/public/gothic/yintbase.mf
new file mode 100644
index 00000000000..05b45f1178e
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yintbase.mf
@@ -0,0 +1,229 @@
+def kouki(suffix $)(expr arij, meg)=
+if arij=1: penpos$.1(hair,0); penpos$.2(hair,90);
+z$.1=z$; z$.2=z$.1+(-.1meg*u-.5hair,.2meg*v-.5hair);
+z$.3=z$.2r-(.1meg*u,.1meg*v); z$.4=z$.2r-(0,.2meg*v);
+z$.5=z$.2r+(.1meg*u,-.1meg*v); penstroke z$.1e{up}...{left}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=2: penpos$.1(hair,0); penpos$.2(hair,-90);
+z$.1=z$; z$.2=z$.1+(.1meg*u+.5hair,.2meg*v-.5hair);
+z$.3=z$.2l+(.1meg*u,-.1meg*v); z$.4=z$.2l-(0,.2meg*v);
+z$.5=z$.2l-(.1meg*u,.1meg*v); penstroke z$.1e{up}...{right}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=3: penpos$.1(hair,-180); penpos$.2(hair,90);
+z$.1=z$; z$.2=z$.1+(-.1meg*u-.5hair,-.2meg*v+.5hair);
+z$.3=z$.2l-(.1meg*u,-.1meg*v); z$.4=z$.2l+(0,.2meg*v);
+z$.5=z$.2l+(.1meg*u,+.1meg*v); penstroke z$.1e{down}...{left}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=4: penpos$.1(hair,-180); penpos$.2(hair,-90);
+z$.1=z$; z$.2=z$.1+(.1meg*u+.5hair,-.2meg*v+.5hair);
+z$.3=z$.2r-(-.1meg*u,-.1meg*v); z$.4=z$.2r+(0,.2meg*v);
+z$.5=z$.2r+(-.1meg*u,+.1meg*v); penstroke z$.1e{down}...{right}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=5: penpos$.1(hair,90); penpos$.2(hair,0);
+z$.1=z$; z$.2=z$.1-(.2meg*u-.5hair,-.1meg*v-.5hair);
+z$.3=z$.2l+(.1meg*u,.1meg*v); z$.4=z$.2l+(.2meg*u,0);
+z$.5=z$.2l+(.1meg*u,-.1meg*v); penstroke z$.1e{left}...{up}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=6: penpos$.1(hair,-90); penpos$.2(hair,0);
+z$.1=z$; z$.2=z$.1-(-.2meg*u+.5hair,-.1meg*v-.5hair);
+z$.3=z$.2r+(-.1meg*u,.1meg*v); z$.4=z$.2r+(-.2meg*u,0);
+z$.5=z$.2r+(-.1meg*u,-.1meg*v); penstroke z$.1e{right}...{up}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=7: penpos$.1(hair,90); penpos$.2(hair,-180);
+z$.1=z$; z$.2=z$.1-(.2meg*u-.5hair,.1meg*v+.5hair);
+z$.3=z$.2r+(.1meg*u,-.1meg*v); z$.4=z$.2r+(.2meg*u,0);
+z$.5=z$.2r+(.1meg*u,.1meg*v); penstroke z$.1e{left}...{down}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=8: penpos$.1(hair,-90); penpos$.2(hair,-180);
+z$.1=z$; z$.2=z$.1+(.2meg*u-.5hair,-.1meg*v-.5hair);
+z$.3=z$.2l-(.1meg*u,.1meg*v); z$.4=z$.2l-(.2meg*u,0);
+z$.5=z$.2l-(.1meg*u,-.1meg*v); penstroke z$.1e{right}...{down}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle;
+fi
+enddef;
+def mpalla(suffix $)(expr meg)= z$.1=z$; z$.2=z$.1+(0,.1meg*v);
+z$.3=z$.1+(-.1meg*u,0); z$.4=z$.1+(0,-.1meg*v); z$.5=z$.1+(.1meg*u,0);
+filldraw z$.2...z$.3...z$.4...z$.5...cycle
+enddef;
+def kordella(suffix $,$$)=
+(z$.1-z$$)=whatever * (z$$l-z$$r); z$.1-z$=whatever * dir(angle(z$r-z$l)+90);
+(z$.2-z$)=whatever * (z$l-z$r); z$.2-z$$=whatever * dir(angle(z$$r-z$$l)+90);
+z$.3=.5[z$,z$.2]; z$.4=.25[z$,z$$];
+z$.5-z$$=z$-z$.4; z$.6-z$.2=z$-z$.4;
+z$.7=0.25[z$.1,z$$];
+filldraw z$r{z$.1-z$}...{z$.2-z$}z$.4...{z$-z$.1}z$.3...
+{z$.2-z$}z$.6...{z$.1-z$}z$$r
+& z$$r--z$$l & z$$l{z$-z$.1}...{z$-z$.2}z$.5...{z$-z$.2}z$.7...
+{z$-z$.1}z$l & z$l--z$r & cycle
+enddef;
+def ka(suffix $)(expr angle)= penpos$(hair,angle) enddef;
+
+def triaina(suffix $,$$,$$$)(expr alpha)=
+numeric theta;
+theta:= angle(z$$$-z$);
+z$.1=(0.5-0.5alpha)[z$,z$$$];
+z$.1'=(0.5-0.5alpha)[z$$$,z$];
+z$.2=.5[z$.1,z$.1']+1/8(z$$-z$);
+z$.3=.5[z$.1,z$.1']+5/8(z$$-z$);
+z$.4=.25[z$.1,z$.1']+5/8(z$$-z$);
+z$.4'=.75[z$.1,z$.1']+5/8(z$$-z$);
+z$.5=z$.1+1/6(z$$-z$);
+z$.5'=z$.1'+1/6(z$$-z$);
+z$.7=z$$+.25(z$$$-z$);
+z$.7'=z$$+.75(z$$$-z$);
+z$.8=2/3[z$,z$$]; z$.8'=z$.8+(z$$$-z$);
+penpos$.8(hair,theta);
+penpos$.7(hair,theta-90);
+penpos$.4(hair,theta+180);
+penpos$.5(hair,theta+180);
+penpos$.1(hair,theta-135);
+penpos$.2(3hair,theta-90);
+penpos$.1'(hair,theta-45);
+penpos$.5'(hair,theta);
+penpos$.4'(hair,theta);
+penpos$.7'(hair,theta-90);
+penpos$.8'(hair,theta+180);
+%filldraw z$.1--z$.3 & z$.3--z$.1' &
+%z$.1' -- z$.1 & cycle;
+penstroke z$.8e{z$$-z$}...z$.7e{z$$$-z$}
+...z$.4e{z$-z$$}...z$.5e...z$.1e...
+{z$$$-z$}z$.2e...z$.1'e...z$.5'e...
+z$.4'e{z$$-z$}...z$.7'e{z$$$-z$}...
+z$.8'e{z$-z$$};
+z$.11=z$.8l; z$.13=z$.11+(alpha/3)*(z$$$-z$);
+z$.11'=z$.8'l; z$.13'=z$.11'-(alpha/3)*(z$$$-z$);
+filldraw z$.11...z$.13...cycle;
+filldraw z$.11'...z$.13'...cycle
+enddef;
+
+def kouti(suffix $,$$)=
+z$$.2=z$r+(z$l-z$$); z$'=z$;
+z$$.1-z$$=whatever*dir(angle(z$r-z$l)+90);
+z$$.1-z$$.2=whatever*(z$l-z$r);
+z$$.3=z$$+(z$$.2-z$$.1);
+filldraw z$$--z$$.1--z$$.2--z$$.3--z$$ & cycle
+enddef;
+
+def louloudi(suffix $) (expr alpha) =
+x$.2=x$.6=x$-0.5alpha*u; x$.8=x$.4=x$+0.5alpha*u;
+x$.1=x$.5=x$-0.05alpha*u; x$.3=x$.7=x$+0.05alpha*u;
+z$.3-z$=whatever*dir45; z$.4=whatever[z$,z$.3];
+z$.5=whatever[z$,z$.3]; z$.6=whatever[z$,z$.3];
+z$.1-z$=whatever*dir135; z$.2=whatever[z$,z$.1];
+z$.7=whatever[z$,z$.1]; z$.8=whatever[z$,z$.1];
+filldraw z$.3{right}..z$.4{up} & z$.4{left}..z$.3{down} & cycle;
+filldraw z$.1{up}..z$.2{left} & z$.2{down}..z$.1{right} & cycle;
+filldraw z$.6{right}..z$.5{up} & z$.5{left}..z$.6{down} & cycle;
+filldraw z$.8{up}..z$.7{left} & z$.7{down}..z$.8{right} & cycle;
+enddef;
+
+def laimoc_swab =
+penpos1.1(stem,0); penpos1.3(stem,0);
+penpos1.4(hair,90); penpos1.5(hair,-90);
+y1.1=y1.1'=foot; x1.1l=x1.2=0.413stem;
+x1.1'=x1.4=0; x1.3=x1.1; x1.5=x1.1r+0.761stem;
+y1.5l=cap_height+apex_o;
+z1.5l-z1.4r=whatever*dir17;
+y1.3=0.828cap_height; y1.2=0.273cap_height;
+filldraw z1.1'...z1.2---z1.3l...
+z1.4l & z1.4l--z1.4r--z1.5l--z1.5r
+& z1.5r{left}...z1.3r---z1.1r &
+z1.1r--z1.1' & cycle enddef;
+
+def podi_swab (expr theta) =
+penpos2.1(1.304stem,theta);
+penpos2.2(1.304stem,theta);
+z2.1l=(0,foot);
+z2.1l-z2.2l=whatever*dir151;
+y2.2l=-apex_o; penpos2.3(hair,theta-90);
+z2.3r=z2.2;
+z2.05=(2/3apex_o,2/3apex_o);
+penpos2.1'(1.304stem,theta);
+z2.1'=0.5[z2.1,z2.2]+z2.05;
+penstroke z2.2e..z2.1'e..z2.1e
+enddef;
+
+def long_s = numeric w',h',d';
+w':=6.038u; h':=1.414x_height;
+d':=3.208u;
+penpos1.1(2/3hair,0);
+z1.1=(0.313w',-d');
+penpos1.2(1.283stem,0);
+z1.2=(0.344w',0.589h');
+penpos1.4(hair,90);
+z1.4l=(0,y1.2-1/3stem);
+z1.3=(z1.1l..{dir92.5}z1.2l)
+intersectionpoint
+((0,y1.4l)--(w',y1.4l));
+z1.5=(0.35w',0.761h');
+penpos1.6(0.957stem,-118);
+z1.6l=(0.669w',h');
+penpos1.7(1.174stem,-125);
+z1.7l=(w',0.962h'); penpos1.8(hair,-35);
+z1.8r=z1.7l; z1.9-z1.8l=whatever*(z1.7l-z1.7r);
+x1.9=0.9w';
+penpos1.11(2/3stem,-90); y1.11=y1.2;
+x1.11=0.763w';
+penpos1.12(2/3stem,-90); z1.12=z1.2;
+filldraw z1.1r..z1.2r{dir87} &
+z1.2r{dir126}..z1.5{up}..z1.6r{right}
+..z1.7r{right}--z1.8r--z1.8l--z1.9
+& z1.9{left}..z1.6l{left}..
+z1.4r{dir218}--z1.4l{right}--
+z1.3{dir272.5}..z1.1l--z1.1r & cycle;
+if isitf: filldraw z1.11r--z1.12r--
+z1.12l--z1.5{down}...(x1.2r,y1.11l){right}
+---z1.11l--z1.11r & cycle; fi
+enddef;
+
+def dexi_podi_swab (expr yy) =
+penpos1.2(stem,0);
+z1.2r=(1.63stem,0.694x_height);
+penpos1.1(whatever,24);
+penpos1.3(whatever,43);
+x1.1l=x1.2l; z1.3l=z1.2l;
+x1.1r=x1.2r=x1.3r; y1.1l=yy;
+penpos1.4(1.348stem,43);
+x1.4l=0; y1.4r=x_height+apex_o;
+penstroke z1.1e---z1.3e...
+z1.4e{dir133} enddef;
+
+def aristero_podi_swab (expr xx) =
+w':=5.057u; penpos2.1(stem,0);
+z2.1l=(xx+1.261stem,0.694x_height);
+penpos2.2(whatever,34);
+z2.2l=(x2.1l,-apex_o); x2.2r=xx+w';
+penpos2.3(hair,-90); z2.3r=z2.2r;
+z2.4=(x2.1r,0.378x_height);
+z2.6=(xx+0.545w',x_height+apex_o);
+penpos2.5(hair,-90);
+z2.5l-z2.6=whatever*dir-40;
+x2.5=xx+0.9w';
+penpos2.7(hair,-90);
+z2.6-z2.7l=whatever*dir33;
+x2.7=xx; z2.8-z2.7r=whatever*(z2.6-z2.7l);
+z2.8=whatever[z2.6,z2.5r];
+penpos2.9(1.217stem,33);
+z2.9r=z2.8;
+z2.9l-z2.11=whatever*(z2.6-z2.5l);
+x2.11=x2.1l;
+filldraw z2.7r--z2.9l--z2.11--
+z2.2l--z2.3r--z2.3l{z2.2l-z2.2r}..{up}
+z2.4---z2.1r...z2.5r{right}--
+z2.5l--z2.6--z2.7l--z2.7r &
+cycle enddef;
+
+def e_umlaut(suffix $) =
+penpos$.1(2u,45); z$.1=z$;
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.2=z$.1r; z$.3=z$.1l; rt x$.4=rt x$.2; top y$.4=y$;
+draw z$.3--z$.2..z$.3..z$.4;
+enddef;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/ysmfrak.mf b/Master/texmf-dist/fonts/source/public/gothic/ysmfrak.mf
new file mode 100644
index 00000000000..366b7f9f433
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/ysmfrak.mf
@@ -0,0 +1,137 @@
+if unknown cmbase: input cmbase fi
+input yfrabase; % -sl 15-3-1991
+
+font_identifier:="ysmfrak"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+lower_u#:=20/36pt#;
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=167/36pt#; % height of lowercase without ascenders
+%x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=6/36pt#; % lowercase hairline breadth
+%hair#:=9/36pt#; % lowercase hairline breadth
+%stem#:=25/36pt#; % lowercase stem breadth
+stem#:=22/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+%cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_hair#:=7/36pt#;
+cap_amount#:=8/36pt#;
+%cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_stem#:=30/36pt#;
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=5/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+numeric usual_right, usual_left;
+usual_right#:=0.75u#;
+usual_left#:=0.45u#;
+
+granularity:=1.01;
+%aspect_ratio:=2/3aspect_ratio;
+
+mode_setup;
+font_setup;
+cap_amount:=8/36pt;
+foot:=0.207x_height;
+num_height:=1.242x_height;
+cap_kern:=4/36pt;
+boolean ligature; ligature:=false;
+numeric alpha; alpha:=0;
+numeric coef, gencoef; gencoef:=1;
+
+%granularity:=1.01;
+
+%readfrom("yfrakbase"); % -sl 15-3-1991
+%currenttransform:=identity xscaled 1.1;
+if proofing>1: generate ycurrent; fi % switch to the driver file%
+%generate yfraklower;
+generate yfraklow; % -sl 15-3-1991
+%generate yfrakmisc;
+generate yfrakmis; % -sl 15-3-1991
+%generate yfrakupper; % switch to the driver file
+generate yfrakupp; % -sl 15-3-1991
+generate yfraknum;
+%currenttransform:=identity;
+%generate yfrakother;
+generate yfrakoth; % -sl 15-3-1991
+
+font_slant slant; font_x_height x_height#;
+font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+
+%ligtable "a": "e"=:oct"032";
+ligtable "c": "h"=:oct"205", "k"=:oct"206";
+ligtable "f": "f"=:oct"204";
+ligtable "s": ":"=:oct"215", "s"=:oct"201", "t"=:oct"202", "z"=:oct"032",
+"f"=:oct"203", "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#,
+"l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+ligtable "t": "z"=:oct"213";
+ligtable oct"042": "a"=:oct"212", "e"=:oct"221", "o"=:oct"232", "u"=:oct"237",
+"s"=:oct"032";
+ligtable "*": "a"=:oct"211", "e"=:oct"220", "o"=:oct"231", "u"=:oct"236";
+ligtable "`": "`"=:oct"134";
+ligtable "'": "'"=:oct"042";
+ligtable "-": "-"=:oct"173";
+ligtable oct"173": "-"=:oct"174";
+ligtable oct"201": "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#
+, "l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+
+end.
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yswab.mf b/Master/texmf-dist/fonts/source/public/gothic/yswab.mf
new file mode 100644
index 00000000000..8e6bc4ef3b1
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yswab.mf
@@ -0,0 +1,138 @@
+if unknown cmbase: input cmbase fi
+input yswabase % -sl 15-3-1991
+
+font_identifier:="yswab"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=167/36pt#; % height of lowercase without ascenders
+%x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=8/36pt#; % lowercase hairline breadth
+%hair#:=9/36pt#; % lowercase hairline breadth
+%stem#:=25/36pt#; % lowercase stem breadth
+stem#:=34/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+%cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_hair#:=9/36pt#;
+cap_amount#:=8/36pt#;
+%cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_stem#:=42/36pt#;
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=5/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+numeric usual_right, usual_left;
+usual_right#:=0.3u#;
+usual_left#:=0.2u#;
+
+mode_setup;
+font_setup;
+cap_amount:=8/36pt;
+foot:=27/36pt;
+num_height:=1.242x_height;
+cap_kern:=4/36pt;
+boolean ligature; ligature:=false;
+numeric alpha;
+alpha:=0;
+
+
+if proofing>1: generate ycurrent; fi % switch to the driver file%
+%generate yswablower;
+%generate yswabnum;
+%generate yswabmisc;
+%generate yswabupper; % switch to the driver file
+generate yswablow; % -sl 15-3-1991
+generate yswabnum; % -sl 15-3-1991
+generate yswabmis; % -sl 15-3-1991
+generate yswabupp; % -sl 15-3-1991
+
+font_slant slant; font_x_height x_height#;
+font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+
+ligtable "f": "f"=:oct"204", "b" kern 0.78u#, "h" kern 0.78u#, "k" kern 0.78u#,
+"l" kern 0.78u#;
+ligtable "s": ":"=:oct"215", "s"=:oct"201", "t"=:oct"202", "z"=:oct"032",
+"f"=:oct"203", "b" kern 2u#, "h" kern 2u#, "k" kern 2u#, "l" kern 2u#,
+"d" kern 1.03u#, "i" kern 0.815u#, "j" kern 0.815u#;
+ligtable oct"042": "a"=:oct"212", "e"=:oct"221", "o"=:oct"232", "u"=:oct"237",
+"s"=:oct"032";
+ligtable "`": "`"=:oct"134";
+ligtable "'": "'"=:oct"042";
+ligtable "-": "-"=:oct"173";
+ligtable oct"173": "-"=:oct"174";
+ligtable "*": "a"=:oct"211", "e"=:oct"220", "o"=:oct"231", "u"=:oct"236";
+ligtable oct"201": "b" kern 2u#, "h" kern 2u#, "k" kern 2u#, "l" kern 2u#,
+"d" kern 1.03u#, "i" kern 0.815u#, "j" kern 0.815u#;
+ligtable oct"203": "b" kern 0.78u#, "h" kern 0.78u#, "k" kern 0.78u#,
+"l" kern 0.78u#;
+ligtable oct"204": "b" kern 0.78u#, "h" kern 0.78u#, "k" kern 0.78u#,
+"l" kern 0.78u#;
+ligtable "c": "h"=:oct"205", "k"=:oct"206";
+ligtable "r": "z" kern -0.565u#;
+ligtable "x": "z" kern -0.565u#; % -sl 15-3-1991
+ligtable "l": "b" kern -0.71u#, "f" kern -0.85u#, "h" kern -0.71u#, "k" kern -0.71u#,
+"l" kern -0.71u#, "m" kern -0.85u#, "n" kern -0.85u#, "t" kern -u#, "x" kern -0.85u#,
+"y" kern -0.85u#;
+ligtable "L": "A" kern -1.7u#;
+ligtable "C": "I" kern -1.7u#, "J" kern -1.7u#, "K" kern -1.275u#;
+ligtable "D": "Y" kern -2u#;
+end.
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yswabase.mf b/Master/texmf-dist/fonts/source/public/gothic/yswabase.mf
new file mode 100644
index 00000000000..6e9afdfa4d5
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yswabase.mf
@@ -0,0 +1,103 @@
+def laimoc_swab =
+penpos1.1(stem,0); penpos1.3(stem,0);
+penpos1.4(hair,90); penpos1.5(hair,-90);
+y1.1=y1.1'=foot; x1.1l=x1.2=0.413stem;
+x1.1'=x1.4=0; x1.3=x1.1; x1.5=x1.1r+0.761stem;
+y1.5l=cap_height+apex_o;
+z1.5l-z1.4r=whatever*dir17;
+y1.3=0.828cap_height; y1.2=0.273cap_height;
+filldraw z1.1'...z1.2---z1.3l...
+z1.4l & z1.4l--z1.4r--z1.5l--z1.5r
+& z1.5r{left}...z1.3r---z1.1r &
+z1.1r--z1.1' & cycle enddef;
+
+def podi_swab (expr theta) =
+penpos2.1(1.304stem,theta);
+penpos2.2(1.304stem,theta);
+z2.1l=(0,foot);
+z2.1l-z2.2l=whatever*dir151;
+y2.2l=-apex_o; penpos2.3(hair,theta-90);
+z2.3r=z2.2;
+z2.05=(2/3apex_o,2/3apex_o);
+penpos2.1'(1.304stem,theta);
+z2.1'=0.5[z2.1,z2.2]+z2.05;
+penstroke z2.2e..z2.1'e..z2.1e
+enddef;
+
+def long_s = numeric w',h',d';
+w':=6.038u; h':=1.414x_height;
+d':=3.208u;
+penpos1.1(2/3hair,0);
+z1.1=(0.313w',-d');
+penpos1.2(1.283stem,0);
+z1.2=(0.344w',0.589h');
+penpos1.4(hair,90);
+z1.4l=(0,y1.2-1/3stem);
+z1.3=(z1.1l..{dir92.5}z1.2l)
+intersectionpoint
+((0,y1.4l)--(w',y1.4l));
+z1.5=(0.35w',0.761h');
+penpos1.6(0.957stem,-118);
+z1.6l=(0.669w',h');
+penpos1.7(1.174stem,-125);
+z1.7l=(w',0.962h'); penpos1.8(hair,-35);
+z1.8r=z1.7l; z1.9-z1.8l=whatever*(z1.7l-z1.7r);
+x1.9=0.9w';
+penpos1.11(2/3stem,-90); y1.11=y1.2;
+x1.11=0.763w';
+penpos1.12(2/3stem,-90); z1.12=z1.2;
+filldraw z1.1r..z1.2r{dir87} &
+z1.2r{dir126}..z1.5{up}..z1.6r{right}
+..z1.7r{right}--z1.8r--z1.8l--z1.9
+& z1.9{left}..z1.6l{left}..
+z1.4r{dir218}--z1.4l{right}--
+z1.3{dir272.5}..z1.1l--z1.1r & cycle;
+if isitf: filldraw z1.11r--z1.12r--
+z1.12l--z1.5{down}...(x1.2r,y1.11l){right}
+---z1.11l--z1.11r & cycle; fi
+enddef;
+
+def dexi_podi_swab (expr yy) =
+penpos1.2(stem,0);
+z1.2r=(1.63stem,0.694x_height);
+penpos1.1(whatever,24);
+penpos1.3(whatever,43);
+x1.1l=x1.2l; z1.3l=z1.2l;
+x1.1r=x1.2r=x1.3r; y1.1l=yy;
+penpos1.4(1.348stem,43);
+x1.4l=0; y1.4r=x_height+apex_o;
+penstroke z1.1e---z1.3e...
+z1.4e{dir133} enddef;
+
+def aristero_podi_swab (expr xx) =
+w':=5.057u; penpos2.1(stem,0);
+z2.1l=(xx+1.261stem,0.694x_height);
+penpos2.2(whatever,34);
+z2.2l=(x2.1l,-apex_o); x2.2r=xx+w';
+penpos2.3(hair,-90); z2.3r=z2.2r;
+z2.4=(x2.1r,0.378x_height);
+z2.6=(xx+0.545w',x_height+apex_o);
+penpos2.5(hair,-90);
+z2.5l-z2.6=whatever*dir-40;
+x2.5=xx+0.9w';
+penpos2.7(hair,-90);
+z2.6-z2.7l=whatever*dir33;
+x2.7=xx; z2.8-z2.7r=whatever*(z2.6-z2.7l);
+z2.8=whatever[z2.6,z2.5r];
+penpos2.9(1.217stem,33);
+z2.9r=z2.8;
+z2.9l-z2.11=whatever*(z2.6-z2.5l);
+x2.11=x2.1l;
+filldraw z2.7r--z2.9l--z2.11--
+z2.2l--z2.3r--z2.3l{z2.2l-z2.2r}..{up}
+z2.4---z2.1r...z2.5r{right}--
+z2.5l--z2.6--z2.7l--z2.7r &
+cycle enddef;
+
+def e_umlaut(suffix $) =
+penpos$.1(2u,45); z$.1=z$;
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.2=z$.1r; z$.3=z$.1l; rt x$.4=rt x$.2; top y$.4=y$;
+draw z$.3--z$.2..z$.3..z$.4;
+enddef;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yswablow.mf b/Master/texmf-dist/fonts/source/public/gothic/yswablow.mf
new file mode 100644
index 00000000000..383dfe5a669
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yswablow.mf
@@ -0,0 +1,700 @@
+.cmchar "The Schwabacher letter a";
+.beginchar("a",6.943u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.13stem,45);
+penpos3(stem,45); x1r=w; y1l=-apex_o;
+z3l=(0.337w,-apex_o);
+penpos2(hair,-45); z2r=z3;
+penpos4(hair,-45);
+z4-z2=whatever*dir45; x4r=x1l-hair;
+z5=whatever[z2r,z4r];
+z5-z1l=whatever*dir130;
+penpos11(0.913stem,29); z11l=(0,0.396h);
+penpos9(1.217stem,35);
+z9r=(0.658w,h+apex_o);
+penpos8(1.13stem,50);
+x8r=w; z9r-z8r=whatever*dir144;
+penpos7(cap_hair,angle(z8l-z9l));
+z7r=z8l; penpos10(cap_hair,angle(z7r-z7l));
+z10l=z9l;
+z6=(x7,0.459h);
+filldraw z1r{z5-z1l}..z6{up}...
+z8l---z8r--z9r---z9l...z11l{down}
+..z3l--z3r..z11r{up}..z10r{z9r-z9l}
+& z10r--z7l--z5--z1l--z1r & cycle;
+penstroke z2e--z4e;
+.endchar;
+
+.cmchar "The Schwabacher letter b";
+.beginchar("b",7.358u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+laimoc_swab; podi_swab(27);
+penpos3(1.087stem,27);
+z3=whatever[z2.1l,z2.1r]; x3r=w;
+penpos4(1.304stem,40);
+z4r=(0.711w,x_height+apex_o);
+penpos5(hair,-50);
+penpos6(hair,-50); z6l=z4;
+z6-z5=whatever*dir40; x5=x1.1;
+penstroke z2.3e{z2.2r-z2.2l}..
+z3e{up}..z4e;
+penstroke z5e--z6e;
+.endchar;
+
+.cmchar "The Schwabacher letter c";
+.beginchar("c",5.057u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.935stem,53);
+penpos2(whatever,34);
+z1r=(w,0.874h); y2r=h+apex_o;
+z2-z1=whatever*dir148;
+z2r-z1r=whatever*dir148;
+penpos3(hair,angle(z1l-z2l));
+z3l=z2l; penpos4(1.348stem,45);
+z4l=(0,0.45h); z5=(0.422w,-apex_o);
+penpos7(hair,-57);
+z7r-z5=whatever*dir33; x7r=w;
+z6=(0.627w,0.176h);
+penstroke z1e--z2e;
+filldraw z7l{z5-z7r}..z6{left}..
+z4r{up}..z3r{z2r-z2l} & z3r--z3l &
+z3l{z2l-z2r}..z4l{down}..z5 &
+z5--z7r--z7l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter d";
+.beginchar("d",7.208u#,1.383x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,109); penpos2(stem,205);
+z1=(0.524w,0.619h);
+z2r=(0,0.326h); z3=(0.429w,-apex_o);
+z4=(0.639w,0.107h);
+penpos5(hair,-67); x5=0.733w;
+z5r-z3=whatever*dir23;
+penpos6(0.978stem,39);
+z6r=(w,y2); z7=z1; penpos7(1.043stem,56.5);
+penpos8(1.109stem,7);
+z8l=(0.094w,0.821h);
+penpos9(hair,-90); z9l=(0.461w,h);
+filldraw z5r{z5r-z3}..z6r{up}..z7r
+..z8r{up}..z9r--z9l &
+z9l{left}..z8l{down}..z7l..z6l{down}
+..z5l{z3-z5r} & z5l--z5r & cycle;
+filldraw z1r{dir199}..z2r{down}..
+z3 & z3--z5r--z5l & z5l..z4{left}..
+z2l{up}..z1l{dir19} & z1l--z1r &
+cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter e";
+.beginchar("e",5.17u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90); z1r=(0.934w,0.189h);
+z3=(0.642w,y1r); z2=(0.343w,-apex_o);
+penpos4(1.391stem,42); z4l=(0,0.459h);
+z5=(0.175w,0.874h);
+penpos6(hair,-57); penpos8(hair,-57);
+z6l=(0.693w,h+apex_o);
+z8=whatever[z6l,z6r]; x8r=w;
+penpos10(stem,angle(z6l-z5)); z10r=z6l;
+penpos7(hair,-57);
+z8-z7=whatever*dir33; x7=x4;
+penpos9(whatever,angle(z8r-z7r));
+z9r=z8r;
+z9l-z10l=whatever*(z8r-z10r);
+filldraw z1r--z2..z4l{up}...z5---
+z6l--z6r{z5-z6l}..z4r{down}..
+z3{right}..z1l{z1r-z2}--z1r & cycle;
+penstroke z7e--z8e;
+penstroke z9e--z10e;
+.endchar;
+
+.cmchar "The Schwabacher letter f";
+.beginchar("f",6.038u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#-1.12u#);
+boolean isitf; isitf:=true; long_s; .endchar;
+
+.cmchar "The Schwabacher letter g";
+.beginchar("g",8.528u#,x_height#,3.623u#);
+.adjust_fit(usual_left#-0.35u#,usual_right#);
+penpos1(1.217stem,-130); z1r=(0,-2/3d);
+penpos2(hair,-90); z2l=z1r;
+penpos3(0.8stem,-130); z3r=(0.4w,-d);
+penpos3'(hair,-47);
+z3'=(0.704w,-0.594d);
+penpos4(1.283stem,49); z4=(0.832w,-0.5apex_o);
+penpos6(stem,0); z6=(x4-0.5stem,0.898h);
+penpos5(whatever,28); x5l=x6l;
+x5r=x6r; z9=(0.261w,0);
+z5-z9=whatever*dir28;
+penpos8(hair,-62); z8r=z5r;
+penpos10(stem,0);
+z10=(0.235w,y6);
+z9-z11=whatever*dir-62; x11=x10l;
+z9'-z8l=whatever*(z9-z8r);
+z9'=whatever[z11,z9]; z11'=(x10r,y11);
+z9''-z11'=whatever*(z9-z11);
+z9''=whatever[z9',z8l];
+penpos13(stem,-90); z13l=z10l;
+z12=(x10,h+apex_o); z7=(x6,h+apex_o);
+penpos14(whatever,-108); x14l=w;
+y14l=y13l; y14r=y13r;
+%
+%
+%
+filldraw z2r..z3r{right}..z3'r..z4r{up}
+..z5r--z5l..z4l{down}..z3'l..z3l{left}
+..z1l{dir140} & z1l--z2l--z2r &
+cycle;
+filldraw z9--z8r--z8l--z9''--z11'
+--z10r--z12--z10l--z11--z9 & cycle;
+filldraw z5l--z6l--z7--z6r--z5r--
+z5l & cycle;
+penstroke z13e--z14e;
+.endchar;
+
+.cmchar "The Schwabacher letter h";
+.beginchar("h",7.585u#,cap_height#,3.358u#);
+.adjust_fit(usual_left#,usual_right#);
+laimoc_swab; z2=(0.279w,-apex_o);
+penpos3(hair,-90); z3r=(0.547w,y1.1);
+z4=(0.428w,y1.1); z5=(x1.1r,y1.2);
+filldraw z1.1'--z2--z3r--z3l
+{z2-z3r}..z4{left}..z5{up}--z1.1--
+z1.1' & cycle;
+%
+%
+%
+penpos6(hair,-40); penpos8(1.217stem,50);
+penpos9(1.043stem,24);
+penpos10(hair,-45);
+z10r=(x5,-d); z9r=(w,0.459x_height);
+z7=(0.582w,x_height+apex_o);
+x6=x1.1; z7-z6l=whatever*dir50;
+z8r=z7;
+penpos8'(hair,-40); z8'l=z8;
+penstroke z6e--z8'e;
+penstroke z10e{dir45}..z9e{up}..
+z8e{dir140};
+.endchar;
+
+.cmchar "The Schwabacher letter i";
+.beginchar("i",4u#,1.387x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(1.739stem,0);
+penpos3(0.5hair,90); penpos4(0.5hair,-90);
+z2l=(0,0.815x_height); x1=x2;
+y1=0.252x_height; z3l=z2l; z4r=z2r;
+z5=(x1,x_height+apex_o);
+penpos1'(stem,0); x1'=x1; y1'=0.7x_height;
+filldraw z1r---z1'r...{right}z2r--z4l--z5--
+z3r--z2l{right}...z1'l---z1l--z1r & cycle;
+%
+% teleia
+%
+penpos6(hair,145);
+z6=(0.375[x2l,x2r],1.090x_height);
+z7=(0.875[x2l,x2r],1.387x_height);
+z8=(1.125[x2l,x2r],1.324x_height);
+filldraw z6l{dir34}..z8{up}..z7{left}
+..z6r{dir259}--z6l & cycle;
+%
+% podi tou i
+%
+penpos9(hair,90); penpos11(hair,-90);
+z9r=(0,foot); z11r=(w,foot);
+z12=(0.717w,foot); z10=(0.472w,-apex_o);
+filldraw z1l{down}..z9r{left}--z9l
+--z10--z11r--z11l{z10-z11r}..z12{left}
+..z1r{up} & z1r--z1l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter j";
+.beginchar("j",3.283u#,1.387x_height#,2.943u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(1.739stem,0);
+penpos3(0.5hair,90); penpos4(0.5hair,-90);
+z2l=(0,0.815x_height); x1=x2;
+y1=0.252x_height; z3l=z2l; z4r=z2r;
+z5=(x1,x_height+apex_o);
+penpos1'(stem,0); x1'=x1; y1'=0.7x_height;
+filldraw z1r---z1'r...{right}z2r--z4l--z5--
+z3r--z2l{right}...z1'l---z1l--z1r & cycle;
+%
+% teleia
+%
+penpos6(hair,145);
+z6=(0.375[x2l,x2r],1.090x_height);
+z7=(0.875[x2l,x2r],1.387x_height);
+z8=(1.125[x2l,x2r],1.324x_height);
+filldraw z6l{dir34}..z8{up}..z7{left}
+..z6r{dir259}--z6l & cycle;
+%
+% podi tou j
+%
+penpos9(hair,0); z9l=(0,-d);
+penpos10(stem,0); z10=(x1,0);
+filldraw z9l{z10r-z9r}...z10l---
+z1l--z1r--z10r--z9r--z9l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter k";
+.beginchar("k",6.189u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+laimoc_swab;
+penpos10(1.305hair,-90); z10=(x1.2,x_height);
+penpos20(hair,-50);
+penpos3(1.087stem,40); z3r=z20l;
+z3-z10l=whatever*dir40;
+y20l=1.423x_height; penpos4(0.957stem,37);
+z4r=(w,1.194x_height);
+penpos6(0.957stem,-117);
+z6l=(w-2/3apex_o,x_height-apex_o);
+penpos8(whatever,-90);
+y8l=y6l; y8r=y6r; z7=(0,y6r);
+z8l-z7=whatever*dir48;
+penpos5(hair,-90);z5r=(x1.1r,y6r);
+penstroke z10e--z20e;
+penstroke z5e{dir40}..z4e{up}..
+z3e{dir130};
+filldraw z7--z6r--z6l--z8l--z7 &
+cycle;
+podi_swab(37);
+penpos11(hair,angle(z2.3r-z2.3l));
+z11-z2.3=whatever*dir37;
+x11r=0.921w;
+penstroke z2.3e--z11e;
+.endchar;
+
+.cmchar "The Schwabacher letter l";
+.beginchar("l",4.149u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+laimoc_swab; w:=7.585u;
+z2=(0.279w,-apex_o);
+penpos3(hair,-90); z3r=(0.547w,y1.1);
+z4=(0.428w,y1.1); z5=(x1.1r,y1.2);
+filldraw z1.1'--z2--z3r--z3l
+{z2-z3r}..z4{left}..z5{up}--z1.1--
+z1.1' & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter m";
+.beginchar("m",11.925u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+dexi_podi_swab(-apex_o);
+penpos3(stem,0); z3=(1/2w,y1.2);
+aristero_podi_swab (x3r);
+z0=z2.1r-z3r;
+penpos4(hair,-90); y4=y2.7;
+x4=x1.2r;
+z5=z2.6-z0; z6=z2.8-z0;
+z8=z2.11-z0; penpos7(1.217stem,33);
+z7=z2.9-z0;
+z9=whatever[z5,z6]; x9=x3r;
+filldraw z4r--z7l--z8--z3l--
+z3r--z9--z5--z4l--z4r & cycle;
+penpos10(whatever,24);
+z10l=(x3l,-apex_o); x10r=x3r;
+penstroke z10e--z3e;
+.endchar;
+
+.cmchar "The Schwabacher letter n";
+.beginchar("n",7.925u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+dexi_podi_swab(-apex_o);
+aristero_podi_swab (x1.2r);
+.endchar;
+
+.cmchar "The Schwabacher letter o";
+.beginchar("o",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,0); z1=(0.428w,-apex_o);
+penpos4(1.326stem,53); z4l=z1;
+penpos2(1.065stem,47);
+z2l=(0,0.491h);
+penpos6(hair,angle((w,0)-(0,h)));
+z6=whatever[(w,0),(0,h)];
+x6=0.202w;
+penpos7(hair,angle((w,0)-(0,h)));
+z7=whatever[(w,0),(0,h)];
+x7=0.798w;
+z6'=((0,h)--(w,0)) intersectionpoint
+((x2r,0)--(x2r,h));
+z7'=((0,h)--(w,0)) intersectionpoint
+((0,y4r)--(w,y4r));
+penpos5(whatever,-133);
+z5=whatever[z2l,z2r]; y5r=y6';
+y5l=h+2apex_o;
+penpos3(whatever,40);
+x3l=x7'; x3r=w; y3r=0.563h;
+%
+%
+%
+filldraw z1r{dir45}..z3r{up}..
+z5l{dir150}--z5r{right}..z3l{down}
+..z4r{left}..z2r{up}..z6r..
+z5r{right}--z5l & z5l{z5r-z5l}
+..z6l..z2l{down}..z1l{dir-45}--z1r
+& cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter p";
+.beginchar("p",8.151u#,x_height#,3.057u#);
+.adjust_fit(usual_left#,usual_right#);
+dexi_podi_swab(-apex_o);
+z2=(0.457[x1.1l,x1.1r],-d);
+filldraw z2..z1.1l{up}--z1.1r{down}
+..z2 & cycle;
+penpos3(1.152stem,36);
+penpos4(1.152stem,36);
+z3l=(0.574w,0);
+z4-z3=whatever*dir157;
+x4=x1.1l;
+penstroke z3e--z4e;
+penpos6(1.217stem,36); z6r=(w,0.586h);
+penpos5(hair,angle(z3r-z4r));
+z5r=z3r; penpos7(1.196stem,45);
+z7r=(0.722w,h+apex_o);
+penpos8(hair,-45);
+z8l=z7; penpos9(hair,-45);
+z8-z9=whatever*dir45; x9=x2;
+penstroke z9e--z8e;
+penstroke z5e{z3r-z3l}..z6e{up}..
+z7e{dir135};
+.endchar;
+
+.cmchar "The Schwabacher letter q";
+.beginchar("q",7.774u#,x_height#,3.057u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.791w,0.1h);
+penpos7(1.174stem,18); z7l=(0,0.523h);
+penpos5(1.196stem,30);
+x5l=x7r; y5r=h+apex_o;
+penpos4(2/3hair,-90); x4=w;
+z5r-z4l=whatever*dir155;
+penpos3(whatever,30); z3r=z4r;
+z3l-z5l=whatever*(z4l-z5r);
+penpos11(stem,0); z11=(x1,y4);
+z2=(x1,-d); penpos2(eps,0);
+penstroke z2e...z1e---z11e;
+filldraw z5l--z3l--z4r--z4l &
+flex(z4l,0.5[z5r,z4l]-
+(apex_o,apex_o),z5r) &
+z5r--z5l & cycle;
+penpos8(1.152stem,40);
+z8l=(0.379w,0);
+penpos6(hair,angle(z3l-z5l));
+z6l=z5l; penpos9(hair,-50);
+penpos10(hair,-50);
+z9r=z8; z10-z9=whatever*dir40;
+x10=x1;
+penstroke z8e{dir130}..z7e{up}..
+z6e{z5r-z5l};
+penstroke z9e--z10e;
+.endchar;
+
+.cmchar "The Schwabacher letter r";
+.beginchar("r",6.038u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.152stem,35);
+penpos2(1.152stem,35);
+x2l=0; z1l=(1.5stem,-apex_o);
+z2-z1=whatever*dir148;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4r=whatever[z1l,z1r];
+x4=0.813w;
+dexi_podi_swab(y2l-hair);
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+%
+%
+%
+penpos7(2/3hair,-90);
+penpos6(hair,-55);
+penpos10(hair,-55);
+z6l=(0.838w,h+apex_o);
+z6-z10=whatever*dir35; x10=x1.1;
+z7l-z6l=whatever*dir-45; x7=w;
+z7r-z8=whatever*dir45;
+x8=0.825w; z9-z8=whatever*(z6l-z7l);
+z9=whatever[z10r,z6r];
+penstroke z10e--z6e;
+filldraw z6l--z7l--z7r--z8--z9--
+z6l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher long s";
+.beginchar("s",6.038u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#-2.33u#);
+boolean isitf; isitf:=false; long_s;
+.endchar;
+
+.cmchar "The Schwabacher short s";
+.beginchar(oct"215",6.34u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1'(hair,-40); penpos2(hair,-40);
+z1'l=(0,0.108h); z2r=(w-0.5apex_o,0.919h);
+penpos1(whatever,0); z1l=z1'l;
+z1r=whatever[z1'r,z2r];
+penstroke z1e--z2e;
+penpos5(0.826stem,37); z5r=(w,0.387h);
+penpos6(whatever,0);
+z6l=whatever[z1l,z2l];
+z6r=whatever[z1r,z2r]; y6=0.275h;
+z7=whatever[z1r,z2r]; x7=0.488w;
+z8=whatever[z1r,z2r]; x8=0.702w;
+z3=(0.435w,-apex_o);
+penpos4(hair,-55);
+z4r-z3=whatever*dir35; x4=0.774w;
+penpos9(0.6stem,90); z9l=z1l;
+filldraw z1l---z1r...{dir-28}z3 &
+z3---z4r...z5r{up}..z8 & z8--z7
+{right}..z5l{down}..z4l{z3-z4r}
+..z6r{z1r-z3}--z6l{z1-z2}..
+z9r{left}--z1l & cycle;
+%
+%
+%
+penpos10(0.913stem,37);
+z10l=(0,0.613h); z12=(0.524w,h+apex_o);
+penpos11(hair,-53);
+z12-z11l=whatever*dir37; x11l=x10r+0.5apex_o;
+z15=0.488[z1l,z2l];
+z14=0.736[z1l,z2l];
+z13=(0.827w,y2r);
+filldraw z6l{z2l-z1l}..z10l{up}
+...z11l---z12 & z12{dir-30}..z13{right}..
+z2l{z2-z1} & z2l--z2r--z14 &
+z14{z12-z13}..z11r{z11l-z12}..z10r{down}
+..z15{z2r-z2l}--z6l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter t";
+.beginchar("t",5.66u#,1.27x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.152stem,35);
+penpos2(1.152stem,35);
+x2l=hair; z1l=(1.826stem,-apex_o);
+z2-z1=whatever*dir148;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4r=whatever[z1l,z1r];
+x4r=w;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+%
+%
+%
+penpos5(stem,0); z5r=(x1l-apex_o,y2l);
+penpos6(stem,0); z6=(x5,0.811x_height);
+penpos7(0.826stem,-90);
+z7r=(w,y6); z8=(0,y6); z9=(x6r,h);
+filldraw z5l--z6l--z8--z9--(x9,y7l)
+--z7l--z7r--z6r--z5r--z5l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter u";
+.beginchar("u",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.283stem,35);
+penpos2(1.283stem,35);
+z1l=(0.337w,-apex_o);
+z2-z1=whatever*dir142; x2=0.168w;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4-z3=whatever*dir35;
+penpos8(stem,0); x8=0.798w=x4;
+z8l=whatever[z3r,z4r];
+penpos10(stem,0); z10=(x2+0.5stem-apex_o,y2l);
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+z11=(x10l,0.775h); z12=(0.478[x10l,x10r],h+apex_o);
+penpos13(hair,-90); x13=0;
+z12-z13l=whatever*dir33;
+filldraw z13r{z12-z13l}...z11---
+z10l--z10r---(x10r,y11)...z12
+& z12--z13l--z13r & cycle;
+%
+%
+%
+z5=(0.609[x8l,x8r],-apex_o);
+penpos9(whatever,24);
+y9r=h+apex_o; x9l=x8l; x9r=x8r;
+penpos6(eps,-90);
+z6r-z5=whatever*dir43;
+x6=w; z7=whatever[z1l,z1r]; x7=x8r;
+filldraw z5...z8l---z9l--z9r---
+z7...z6l--z6r--z5 & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter v";
+.beginchar("v",8.302u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.261stem,37);
+penpos2(1.261stem,45);
+penpos4(1.261stem,38);
+penpos3(1/3hair,-52);
+x1l=0; y1r=h+apex_o; z2=(0.295w,0.586h);
+z4=(0.145w,0.239h); z3r=z4l;
+filldraw z3r--z4r..z2r{up}..z1r--
+z1l..z2l{down}..z3l{z4l-z4r}--
+z3r & cycle;
+%
+%
+%
+penpos5(whatever,48); z5l=(0.473w,-apex_o);
+z5r-z4r=whatever*(z5l-z4l);
+penpos6(1.174stem,34); z6r=(w,0.631h);
+z8=(0.695w,h+apex_o);
+penpos9(hair,-55);
+z8-z9l=whatever*dir35; x9=x2;
+x7=0.518w; z7=whatever[z2l,z8];
+filldraw z9r{z8-z9l}..z7{right}..
+z6l{down}...z5r---z5l & z5l{dir39}..
+z6r{up}..z8--z9l--z9r & cycle;
+penstroke z5e--z4e;
+.endchar;
+
+.cmchar "The Schwabacher letter w";
+.beginchar("w",12.604u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+podi_swab(36);
+dexi_podi_swab(foot);
+unfilldraw (0,0)--(hair,0)--
+(hair,0.5h)--(0,0.5h)--(0,0) &
+cycle;
+penpos3(hair,-54); penpos4(stem,0);
+z3-z2.3=whatever*dir36;
+x4=0.539w; z4l-z2.3=whatever*dir36;
+x3=x4; penpos15(whatever,28);
+x15l=x4l; x15r=x4r;
+penpos8(1.304stem,42);
+z8r=(0.796w,h+apex_o);
+z15r=whatever[z8l,z8r];
+penpos9(hair,-48);
+z8-z9l=whatever*dir42; x9=x4;
+penpos13(hair,-48); z13l=z8;
+penstroke z2.3e--z3e;
+penpos6(1.174stem,37);
+z6r=(0.431w,h+apex_o);
+penpos5(hair,-53); z6-z5l=whatever*dir37;
+x5=x1.1; penpos14(hair,-53); z14l=z6;
+penstroke z5e--z14e;
+penstroke z4e---z15e...z6e{dir147};
+penpos10(1.087stem,31.5);
+z10l=(x8l,-apex_o); penpos10'(whatever,36);
+z10'r-z10r=whatever*dir142;
+z10'l-z10l=whatever*dir142;
+z10'=whatever[z2.3,z3];
+penstroke z10e--z10'e;
+penpos11(hair,-58.5);
+z11r=z10; penpos12(1.304stem,43);
+z12r=(w,0.595h);
+penstroke z9e--z13e;
+penstroke z11e{z10r-z10l}..z12e{up}
+..z8e{dir148};
+.endchar;
+
+.cmchar "The Schwabacher letter x";
+.beginchar("x",6.038u#,x_height#,3.019u#);
+.adjust_fit(usual_left#,usual_right#);
+dexi_podi_swab(0.162h);
+penpos1(1.043stem,45);
+penpos2(1.043stem,45);
+x2l=x1.1l; z1l=(0.606w,-apex_o);
+z2-z1=whatever*dir153;
+penpos3(hair,-45); penpos4(hair,-45);
+z3r=z1; z4r=whatever[z1l,z1r];
+x4r=w-apex_o;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+%
+%
+%
+penpos7(2/3hair,-90);
+penpos6(hair,-55);
+penpos10(hair,-55);
+z6l=(0.838w,h+apex_o);
+z6-z10=whatever*dir35; x10=x1.1;
+z7l-z6l=whatever*dir-45; x7=w;
+z7r-z8=whatever*dir45;
+x8=0.825w; z9-z8=whatever*(z6l-z7l);
+z9=whatever[z10r,z6r];
+penstroke z10e--z6e;
+filldraw z6l--z7l--z7r--z8--z9--
+z6l & cycle;
+%
+%
+%
+penpos11(0.783stem,0);
+z11l=z1.1l+(0,apex_o);
+penpos12(hair,0); z12r=(0,-d);
+penstroke z12e{dir63}..z11e{up};
+.endchar;
+
+.cmchar "The Schwabacher letter y";
+.beginchar("y",7.585u#,x_height#,3.547u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.2hair,0); penpos2(1.2hair,0);
+z2=(0.896w,0.649h);
+z2-z1=whatever*dir62; y1=-d;
+penstroke z1e--z2e;
+penpos3(1.522stem,62);
+penpos4(1.522stem,62);
+z3=whatever[z1,z2]; y3=0;
+z4-z3=whatever*dir107; x4=0.25w;
+penpos5(1.174stem,55); y5r=h+apex_o;
+x5l=0;
+penstroke z3e---z4e...z5e;
+%
+%
+%
+penpos9(0.565stem,0); z9r=z2r;
+penpos6(whatever,42); z6l=z9l;
+x6r=w; penpos7(1.087stem,53);
+z7r=(0.7w,h+apex_o);
+penpos8(hair,151); z8=whatever[z3,z4];
+x8=0.31w; z9'=whatever[z1l,z2l];
+y9'=y8l;
+filldraw z9'{z2-z1}..%z6l{up}..
+z7l{left}..z8l{z1-z2}--z8r{z2-z1}
+..z7r{right}..z6r{down}..z9r{z1-z2}
+--z9' & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter z";
+.beginchar("z",5.358u#,x_height#,3.321u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.87stem,-139);
+penpos2(0.85stem,-139);
+penpos3(1.043stem,41);
+z1r=(0,-0.682d); z2r=(0.239w,-d);
+x3r=w; y3l=0; z4=(0.38w,0.261h);
+penpos6(hair,-38);
+z5-z6l=whatever*dir45; x5=0.577w;
+z6=(0.12w,0.189h);
+penpos2'(hair,-45);
+z2'=(0.648w,-0.625d);
+penstroke z1e{dir-49}..
+z2e{right}..z2'e..z3e{up};
+filldraw z3r{up}..z5{dir142} &
+z5--z6l--z6r{z5-z6l}..z4{right}..
+z3l{down} & z3l--z3r & cycle;
+%
+%
+%
+penpos7(hair,-38); penpos8(hair,-38);
+penpos9(hair,-38); penpos10(hair,-38);
+z9r=z5; z7-z9=whatever*dir45;
+z8-z10=whatever*dir45;
+x10l=0; y8l=h+apex_o; x7r=0.93w;
+x8=0.479w;
+penstroke z10e--z8e;
+penpos11(1.217stem,45); z11l=z9l;
+penpos12(1.217stem,45);
+z12-z11=whatever*(z8-z7);
+z12=whatever[z10r,z8r];
+penstroke z9e--z7e;
+penstroke z11e--z12e;
+z9'=whatever[z6l,z5]; x9'=x8l;
+filldraw z6l{z5-z6l}..z9l{z11r-z11l}
+--z9r--z6l & cycle;
+.endchar; \ No newline at end of file
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yswabmis.mf b/Master/texmf-dist/fonts/source/public/gothic/yswabmis.mf
new file mode 100644
index 00000000000..8e0ace7c38c
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yswabmis.mf
@@ -0,0 +1,1300 @@
+cmchar "The Schwabacher exclamation point";
+beginchar("!",5u#+width_adj#,x_height#,0);
+italcorr asc_height#*slant-2u#-.5width_adj#+.5dot_size#;
+adjust_fit(0,0);
+pickup tiny.nib; pos3(dot_size,0); pos4(dot_size,90);
+lft x3l=hround(.5w-.5dot_size); bot y4l=0; z3=z4; %dot(3,4); % dot
+penpos10(stem,45); penpos11(stem,45);
+penpos10'(stem,-45);
+x10l=x3; z10l=z10'r; z11l=z10'l;
+y10l=-apex_o; penstroke z10e--z11e;
+numeric bot_width;
+bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
+pickup fine.nib; pos1(dot_size,0); pos2(bot_width,0);
+x1=x2=x3; bot y2=.2[top y4r,x_height]+1;
+if square_dots: top y1=h;
+ filldraw stroke z1e--z2e; % stem
+else: top z0=(x1,h+o); y1+.5dot_size=h+o;
+ filldraw z1r...z0...z1l---z2l--z2r---cycle; fi % stem and bulb
+penlabels(0,1,2,3,4); endchar;
+
+.cmchar "The schwabacher question mark";
+.beginchar("?",4.83u#,1.027x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,45); penpos1'(stem,-45);
+penpos2(stem,45);
+z1l=(0.5w,-apex_o); z1'r=z1l;
+z2l=z1'l;
+penstroke z1e--z2e;
+penpos3(hair,-8); penpos4(hair,-8);
+z3l=(0.086w,0.289h);
+z4l-z3l=whatever*dir82; y4l=0.539h;
+penpos5(0.87stem,-98);
+penpos6(0.87stem,-98);
+z5l=z4l; z8'=(w,0.798h);
+z8'-z6=whatever*dir82;
+z6l=whatever[z4l,z4r];
+penpos7(hair,-8); z7r=z6r;
+penpos9(0.87stem,82); z9r=z8';
+penpos8(whatever,0); z8r=z8';
+z8l-z7l=whatever*(z8r-z7r);
+penstroke z5e--z6e;
+penstroke z3e--z4e;
+penstroke z7e--z8e;
+penpos10(whatever,74);
+z10r-z8r=whatever*dir159;
+z10l-z9l=whatever*dir159;
+x10l=0; penpos11(hair,0); z11l=(0,1.088h);
+penstroke z9e--z10e;
+filldraw z10l--z11l--z11r--z10r--z10l
+& cycle;
+.endchar;
+
+.cmchar "The Schwabacher comma";
+.beginchar(",",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+%penstroke z1e--z2e;
+penpos10(0.11785*(x_height+2apex_o),-30);
+z10l=(x2l-apex_o,-1.3y2r);
+filldraw z10l--z2l+(hair,0){up}..{down}
+z1r--z10r--z10l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher Umlaut";
+.beginchar(oct"175",6u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+y0=0; 0.5[x60,x62']=0.5w;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher dotless i";
+.beginchar(oct"020",4u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(1.739stem,0);
+penpos3(0.5hair,90); penpos4(0.5hair,-90);
+z2l=(0,0.815x_height); x1=x2;
+y1=0.252x_height; z3l=z2l; z4r=z2r;
+z5=(x1,x_height+apex_o);
+penpos1'(stem,0); x1'=x1; y1'=0.7x_height;
+filldraw z1r---z1'r...{right}z2r--z4l--z5--
+z3r--z2l{right}...z1'l---z1l--z1r & cycle;
+%
+% podi tou i
+%
+penpos9(hair,90); penpos11(hair,-90);
+z9r=(0,foot); z11r=(w,foot);
+z12=(0.717w,foot); z10=(0.472w,-apex_o);
+filldraw z1l{down}..z9r{left}--z9l
+--z10--z11r--z11l{z10-z11r}..z12{left}
+..z1r{up} & z1r--z1l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher dotless j";
+.beginchar(oct"021",3.019u#,x_height#,2.943u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(1.739stem,0);
+penpos3(0.5hair,90); penpos4(0.5hair,-90);
+z2l=(0,0.815x_height); x1=x2;
+y1=0.252x_height; z3l=z2l; z4r=z2r;
+z5=(x1,x_height+apex_o);
+penpos1'(stem,0); x1'=x1; y1'=0.7x_height;
+filldraw z1r---z1'r...{right}z2r--z4l--z5--
+z3r--z2l{right}...z1'l---z1l--z1r & cycle;
+%
+% podi tou j
+%
+penpos9(hair,0); z9l=(0,-d);
+penpos10(stem,0); z10=(x1,0);
+filldraw z9l{z10r-z9r}...z10l---
+z1l--z1r--z10r--z9r--z9l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter a with Umlaut";
+.beginchar(oct"212",6.943u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.13stem,45);
+penpos3(stem,45); x1r=w; y1l=-apex_o;
+z3l=(0.337w,-apex_o);
+penpos2(hair,-45); z2r=z3;
+penpos4(hair,-45);
+z4-z2=whatever*dir45; x4r=x1l-hair;
+z5=whatever[z2r,z4r];
+z5-z1l=whatever*dir130;
+penpos11(0.913stem,29); z11l=(0,0.396h);
+penpos9(1.217stem,35);
+z9r=(0.658w,h+apex_o);
+penpos8(1.13stem,50);
+x8r=w; z9r-z8r=whatever*dir144;
+penpos7(cap_hair,angle(z8l-z9l));
+z7r=z8l; penpos10(cap_hair,angle(z7r-z7l));
+z10l=z9l;
+z6=(x7,0.459h);
+filldraw z1r{z5-z1l}..z6{up}...
+z8l---z8r--z9r---z9l...z11l{down}
+..z3l--z3r..z11r{up}..z10r{z9r-z9l}
+& z10r--z7l--z5--z1l--z1r & cycle;
+penstroke z2e--z4e;
+%
+%
+%
+y0=0; x62'=w;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter e with Umlaut";
+.beginchar(oct"221",5.17u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90); z1r=(0.934w,0.189h);
+z3=(0.642w,y1r); z2=(0.343w,-apex_o);
+penpos4(1.391stem,42); z4l=(0,0.459h);
+z5=(0.175w,0.874h);
+penpos6(hair,-57); penpos8(hair,-57);
+z6l=(0.693w,h+apex_o);
+z8=whatever[z6l,z6r]; x8r=w;
+penpos10(stem,angle(z6l-z5)); z10r=z6l;
+penpos7(hair,-57);
+z8-z7=whatever*dir33; x7=x4;
+penpos9(whatever,angle(z8r-z7r));
+z9r=z8r;
+z9l-z10l=whatever*(z8r-z10r);
+filldraw z1r--z2..z4l{up}...z5---
+z6l--z6r{z5-z6l}..z4r{down}..
+z3{right}..z1l{z1r-z2}--z1r & cycle;
+penstroke z7e--z8e;
+penstroke z9e--z10e;
+%
+%
+%
+y0=0; x62'=w;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter o with Umlaut";
+.beginchar(oct"232",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,0); z1=(0.428w,-apex_o);
+penpos4(1.326stem,53); z4l=z1;
+penpos2(1.065stem,47);
+z2l=(0,0.491h);
+penpos6(hair,angle((w,0)-(0,h)));
+z6=whatever[(w,0),(0,h)];
+x6=0.202w;
+penpos7(hair,angle((w,0)-(0,h)));
+z7=whatever[(w,0),(0,h)];
+x7=0.798w;
+z6'=((0,h)--(w,0)) intersectionpoint
+((x2r,0)--(x2r,h));
+z7'=((0,h)--(w,0)) intersectionpoint
+((0,y4r)--(w,y4r));
+penpos5(whatever,-133);
+z5=whatever[z2l,z2r]; y5r=y6';
+y5l=h+2apex_o;
+penpos3(whatever,40);
+x3l=x7'; x3r=w; y3r=0.563h;
+%
+%
+%
+filldraw z1r{dir45}..z3r{up}..
+z5l{dir150}--z5r{right}..z3l{down}
+..z4r{left}..z2r{up}..z6r..
+z5r{right}--z5l & z5l{z5r-z5l}
+..z6l..z2l{down}..z1l{dir-45}--z1r
+& cycle;
+%
+%
+%
+y0=0; 0.5[x60,x60']=x5l-hair;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter u with Umlaut";
+.beginchar(oct"237",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.283stem,35);
+penpos2(1.283stem,35);
+z1l=(0.337w,-apex_o);
+z2-z1=whatever*dir142; x2=0.168w;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4-z3=whatever*dir35;
+penpos8(stem,0); x8=0.798w=x4;
+z8l=whatever[z3r,z4r];
+penpos10(stem,0); z10=(x2+0.5stem-apex_o,y2l);
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+z11=(x10l,0.775h); z12=(0.478[x10l,x10r],h+apex_o);
+penpos13(hair,-90); x13=0;
+z12-z13l=whatever*dir33;
+filldraw z13r{z12-z13l}...z11---
+z10l--z10r---(x10r,y11)...z12
+& z12--z13l--z13r & cycle;
+%
+%
+%
+z5=(0.609[x8l,x8r],-apex_o);
+penpos9(whatever,24);
+y9r=h+apex_o; x9l=x8l; x9r=x8r;
+penpos6(eps,-90);
+z6r-z5=whatever*dir43;
+x6=w; z7=whatever[z1l,z1r]; x7=x8r;
+filldraw z5...z8l---z9l--z9r---
+z7...z6l--z6r--z5 & cycle;
+%
+%
+%
+y0=0; 0.5[x60,x60']=0.5[x10,x9];
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter a with variant Umlaut";
+.beginchar(oct"211",6.943u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.13stem,45);
+penpos3(stem,45); x1r=w; y1l=-apex_o;
+z3l=(0.337w,-apex_o);
+penpos2(hair,-45); z2r=z3;
+penpos4(hair,-45);
+z4-z2=whatever*dir45; x4r=x1l-hair;
+z5=whatever[z2r,z4r];
+z5-z1l=whatever*dir130;
+penpos11(0.913stem,29); z11l=(0,0.396h);
+penpos9(1.217stem,35);
+z9r=(0.658w,h+apex_o);
+penpos8(1.13stem,50);
+x8r=w; z9r-z8r=whatever*dir144;
+penpos7(cap_hair,angle(z8l-z9l));
+z7r=z8l; penpos10(cap_hair,angle(z7r-z7l));
+z10l=z9l;
+z6=(x7,0.459h);
+filldraw z1r{z5-z1l}..z6{up}...
+z8l---z8r--z9r---z9l...z11l{down}
+..z3l--z3r..z11r{up}..z10r{z9r-z9l}
+& z10r--z7l--z5--z1l--z1r & cycle;
+penstroke z2e--z4e;
+%
+%
+%
+y0=x_height+2u; x0=0.5w;
+z0'=z0+(u,0);
+e_umlaut(0');
+.endchar;
+
+.cmchar "The Schwabacher letter e with variant Umlaut";
+.beginchar(oct"220",5.17u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90); z1r=(0.934w,0.189h);
+z3=(0.642w,y1r); z2=(0.343w,-apex_o);
+penpos4(1.391stem,42); z4l=(0,0.459h);
+z5=(0.175w,0.874h);
+penpos6(hair,-57); penpos8(hair,-57);
+z6l=(0.693w,h+apex_o);
+z8=whatever[z6l,z6r]; x8r=w;
+penpos10(stem,angle(z6l-z5)); z10r=z6l;
+penpos7(hair,-57);
+z8-z7=whatever*dir33; x7=x4;
+penpos9(whatever,angle(z8r-z7r));
+z9r=z8r;
+z9l-z10l=whatever*(z8r-z10r);
+filldraw z1r--z2..z4l{up}...z5---
+z6l--z6r{z5-z6l}..z4r{down}..
+z3{right}..z1l{z1r-z2}--z1r & cycle;
+penstroke z7e--z8e;
+penstroke z9e--z10e;
+%
+%
+%
+y0=x_height+2u; x0=0.5w;
+z0'=z0+(u,0);
+e_umlaut(0');
+.endchar;
+
+.cmchar "The Schwabacher letter o with variant Umlaut";
+.beginchar(oct"231",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,0); z1=(0.428w,-apex_o);
+penpos4(1.326stem,53); z4l=z1;
+penpos2(1.065stem,47);
+z2l=(0,0.491h);
+penpos6(hair,angle((w,0)-(0,h)));
+z6=whatever[(w,0),(0,h)];
+x6=0.202w;
+penpos7(hair,angle((w,0)-(0,h)));
+z7=whatever[(w,0),(0,h)];
+x7=0.798w;
+z6'=((0,h)--(w,0)) intersectionpoint
+((x2r,0)--(x2r,h));
+z7'=((0,h)--(w,0)) intersectionpoint
+((0,y4r)--(w,y4r));
+penpos5(whatever,-133);
+z5=whatever[z2l,z2r]; y5r=y6';
+y5l=h+2apex_o;
+penpos3(whatever,40);
+x3l=x7'; x3r=w; y3r=0.563h;
+%
+%
+%
+filldraw z1r{dir45}..z3r{up}..
+z5l{dir150}--z5r{right}..z3l{down}
+..z4r{left}..z2r{up}..z6r..
+z5r{right}--z5l & z5l{z5r-z5l}
+..z6l..z2l{down}..z1l{dir-45}--z1r
+& cycle;
+%
+%
+%
+y0=x_height+2u; x0=0.5w;
+z0'=z0+(u,0);
+e_umlaut(0');
+.endchar;
+
+.cmchar "The Schwabacher letter u with variant Umlaut";
+.beginchar(oct"236",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.283stem,35);
+penpos2(1.283stem,35);
+z1l=(0.337w,-apex_o);
+z2-z1=whatever*dir142; x2=0.168w;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4-z3=whatever*dir35;
+penpos8(stem,0); x8=0.798w=x4;
+z8l=whatever[z3r,z4r];
+penpos10(stem,0); z10=(x2+0.5stem-apex_o,y2l);
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+z11=(x10l,0.775h); z12=(0.478[x10l,x10r],h+apex_o);
+penpos13(hair,-90); x13=0;
+z12-z13l=whatever*dir33;
+filldraw z13r{z12-z13l}...z11---
+z10l--z10r---(x10r,y11)...z12
+& z12--z13l--z13r & cycle;
+%
+%
+%
+z5=(0.609[x8l,x8r],-apex_o);
+penpos9(whatever,24);
+y9r=h+apex_o; x9l=x8l; x9r=x8r;
+penpos6(eps,-90);
+z6r-z5=whatever*dir43;
+x6=w; z7=whatever[z1l,z1r]; x7=x8r;
+filldraw z5...z8l---z9l--z9r---
+z7...z6l--z6r--z5 & cycle;
+%
+%
+%
+y0=x_height+2u; x0=0.5w;
+z0'=z0+(u,0);
+e_umlaut(0');
+.endchar;
+
+.cmchar "The Schwabacher ligature ch";
+.beginchar(oct"205",5.057u#+6.585u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+w:=5.057u;
+penpos101(0.935stem,53); penpos102(whatever,34); z101r=(w,0.874h); y102r=h+apex_o;
+z102-z101=whatever*dir148; z102r-z101r=whatever*dir148;
+penpos103(hair,angle(z101l-z102l)); z103l=z102l; penpos104(1.348stem,45);
+z104l=(0,0.45h); z105=(0.422w,-apex_o); penpos107(hair,-57);
+z107r-z105=whatever*dir33; x107r=w; z106=(0.627w,0.176h); penstroke z101e--z102e;
+filldraw z107l{z105-z107r}..z106{left}.. z104r{up}.. z103r{z102r-z102l} &
+z103r--z103l & z103l{z102l-z102r}..z104l{down}..z105 & z105--z107r--z107l & cycle;
+z0=(w-u,0); w:=7.585u; h:=cap_height; d:=3.358u; penpos1.1(stem,0);
+penpos1.3(stem,0); penpos1.4(hair,90); penpos1.5(hair,-90); y1.1=y1.1'=foot;
+x1.1l=x1.2=x0+0.413stem; x1.1'=x1.4=x0; x1.3=x1.1; x1.5=x1.1r+0.761stem;
+y1.5l=cap_height+apex_o; z1.5l-z1.4r=whatever*dir17; y1.3=0.828cap_height;
+y1.2=0.273cap_height; filldraw z1.1'...z1.2---z1.3l... z1.4l &
+z1.4l--z1.4r--z1.5l--z1.5r & z1.5r{left}...z1.3r---z1.1r & z1.1r--z1.1' & cycle;
+z2=(x0+0.279w,-apex_o); penpos3(hair,-90); z3r=(x0+0.547w,y1.1);
+z4=(x0+0.428w,y1.1); z5=(x1.1r,y1.2); filldraw z1.1'--z2--z3r--z3l
+{z2-z3r}..z4{left}..z5{up}--z1.1-- z1.1' & cycle; penpos6(hair,-40);
+penpos8(1.217stem,50); penpos9(1.043stem,24); penpos10(hair,-45); z10r=(x5,-d);
+z9r=(x0+w,0.459x_height); z7=(x0+0.582w,x_height+apex_o); x6=x1.1;
+z7-z6l=whatever*dir50; z8r=z7; penpos8'(hair,-40); z8'l=z8; penstroke z6e--z8'e;
+penstroke z10e{dir45}..z9e{up}.. z8e{dir140};
+.endchar;
+
+.cmchar "The Schwabacher ligature ck";
+.beginchar(oct"206",5.057u#+5.189u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+w:=5.057u;
+penpos101(0.935stem,53); penpos102(whatever,34); z101r=(w,0.874h); y102r=h+apex_o;
+z102-z101=whatever*dir148; z102r-z101r=whatever*dir148;
+penpos103(hair,angle(z101l-z102l)); z103l=z102l; penpos104(1.348stem,45);
+z104l=(0,0.45h); z105=(0.422w,-apex_o); penpos107(hair,-57);
+z107r-z105=whatever*dir33; x107r=w; z106=(0.627w,0.176h); penstroke z101e--z102e;
+filldraw z107l{z105-z107r}..z106{left}.. z104r{up}.. z103r{z102r-z102l} &
+z103r--z103l & z103l{z102l-z102r}..z104l{down}..z105 & z105--z107r--z107l & cycle;
+z0=(w-u,0); w:=6.189u; h:=cap_height; penpos1.1(stem,0); penpos1.3(stem,0);
+penpos1.4(hair,90); penpos1.5(hair,-90); y1.1=y1.1'=foot; x1.1l=x1.2=x0+0.413stem;
+x1.1'=x1.4=x0; x1.3=x1.1; x1.5=x1.1r+0.761stem; y1.5l=cap_height+apex_o;
+z1.5l-z1.4r=whatever*dir17; y1.3=0.828cap_height; y1.2=0.273cap_height; filldraw
+z1.1'...z1.2---z1.3l... z1.4l & z1.4l--z1.4r--z1.5l--z1.5r &
+z1.5r{left}...z1.3r---z1.1r & z1.1r--z1.1' & cycle; penpos10(1.305hair,-90);
+z10=(x1.2,x_height); penpos20(hair,-50); penpos3(1.087stem,40); z3r=z20l;
+z3-z10l=whatever*dir40; y20l=1.423x_height; penpos4(0.957stem,37);
+z4r=(x0+w,1.194x_height); penpos6(0.957stem,-117);
+z6l=(x0+w-2/3apex_o,x_height-apex_o); penpos8(whatever,-90); y8l=y6l; y8r=y6r;
+z7=(x0,y6r); z8l-z7=whatever*dir48; penpos5(hair,-90);z5r=(x1.1r,y6r); penstroke
+z10e--z20e; penstroke z5e{dir40}..z4e{up}.. z3e{dir130}; filldraw
+z7--z6r--z6l--z8l--z7 & cycle; penpos2.1(1.304stem,37); penpos2.2(1.304stem,37);
+z2.1l=(x0,foot); z2.1l-z2.2l=whatever*dir151; y2.2l=-apex_o; penpos2.3(hair,-53);
+z2.3r=z2.2; z2.05=(x0+2/3apex_o,2/3apex_o); penpos2.1'(1.304stem,37);
+z2.1'=0.5[z2.1,z2.2]+z2.05-z0; penstroke z2.2e..z2.1'e..z2.1e;
+penpos11(hair,angle(z2.3r-z2.3l)); z11-z2.3=whatever*dir37; x11r=x0+0.921w;
+penstroke z2.3e--z11e;
+.endchar;
+
+.cmchar "The Schwabacher ligature sz";
+.beginchar(oct"032",7.9u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#);
+w:=6.038u;
+boolean isitf; isitf:=false; long_s;
+penpos10(hair,-41);
+penpos9(hair,-41);
+penpos8(1.154stem,49);
+penpos7(1.14stem,49);
+penpos6(hair,-41);
+x6l=w+0.5u; y6r=y1.11l;
+z9=whatever[z6l,z6r];
+z10=(x1.1,0.6x_height);
+z8r=z9l; z9l-z10l=whatever*dir49;
+z7r=z6l; penpos4(hair,-41);
+z6-z4=whatever*dir49; y4=0.324x_height;
+z5=whatever[z4r,z6r]; x5=x1.11+0.5u;
+penpos3(0.731stem,35); z3r=(w+0.5u,0.27x_height);
+penpos2(hair,-49); z2=(0.556w,-0.541d);
+filldraw z2r{dir41}..z3r{up}..
+z5{z9-z6}--z4l--z4r{z6r-z4r}..
+z3l{down}..z2l{dir221}--z2r &
+cycle;
+penstroke z4e--z6e;
+penstroke z10e--z9e;
+penstroke z7e--z8e;
+.endchar;
+
+.cmchar "The Schwabacher ligature sz";
+.beginchar(oct"247",7.9u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#);
+w:=6.038u;
+boolean isitf; isitf:=false; long_s;
+penpos10(hair,-41);
+penpos9(hair,-41);
+penpos8(1.154stem,49);
+penpos7(1.14stem,49);
+penpos6(hair,-41);
+x6l=w+0.5u; y6r=y1.11l;
+z9=whatever[z6l,z6r];
+z10=(x1.1,0.6x_height);
+z8r=z9l; z9l-z10l=whatever*dir49;
+z7r=z6l; penpos4(hair,-41);
+z6-z4=whatever*dir49; y4=0.324x_height;
+z5=whatever[z4r,z6r]; x5=x1.11+0.5u;
+penpos3(0.731stem,35); z3r=(w+0.5u,0.27x_height);
+penpos2(hair,-49); z2=(0.556w,-0.541d);
+filldraw z2r{dir41}..z3r{up}..
+z5{z9-z6}--z4l--z4r{z6r-z4r}..
+z3l{down}..z2l{dir221}--z2r &
+cycle;
+penstroke z4e--z6e;
+penstroke z10e--z9e;
+penstroke z7e--z8e;
+.endchar;
+
+.cmchar "The Schwabacher ligature st";
+.beginchar(oct"202",8.338u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#);
+boolean isitf; isitf:=false;
+numeric w',h',d';
+w':=6.038u; h':=1.414x_height;
+d':=3.208u;
+penpos1.1(2/3hair,0);
+z1.1=(0.313w',-d');
+penpos1.2(1.283stem,0);
+z1.2=(0.344w',0.589h');
+penpos1.4(hair,90);
+z1.4l=(0,y1.2-1/3stem);
+z1.3=(z1.1l..{dir92.5}z1.2l)
+intersectionpoint
+((0,y1.4l)--(w',y1.4l));
+z1.5=(0.35w',0.761h');
+penpos1.6(0.957stem,-118);
+z1.6l=(0.669w',h');
+penpos1.7(1.174stem,-125);
+z1.7l=(w',0.962h'); penpos1.8(hair,-35);
+z1.8r=z1.7l; z1.9-z1.8l=whatever*(z1.7l-z1.7r);
+x1.9=0.9w';
+penpos1.11(2/3stem,-90); y1.11=y1.2;
+x1.11=0.763w';
+penpos1.12(2/3stem,-90); z1.12=z1.2;
+filldraw z1.1r..z1.2r{dir87} &
+z1.2r{dir126}..z1.5{up}..z1.6r{right}
+--z1.6l{left}..
+z1.4r{dir218}--z1.4l{right}--
+z1.3{dir272.5}..z1.1l--z1.1r & cycle;
+if isitf: filldraw z1.11r--z1.12r--
+z1.12l--z1.5{down}...(x1.2r,y1.11l){right}
+---z1.11l--z1.11r & cycle; fi
+w':=4.2u; h':=1.27x_height;
+penpos1(1.152stem,35);
+penpos2(1.152stem,35);
+z0=(x1.6l-hair,0);
+x2l=x0+hair; z1l=(x0+1.826stem,-apex_o);
+z2-z1=whatever*dir148;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4r=whatever[z1l,z1r];
+x4r=x0+w';
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+%
+%
+%
+penpos5(stem,0); z5r=(x1l-apex_o,y2l);
+penpos6(stem,0); z6=(x5,0.811x_height);
+penpos7(0.826stem,-90);
+z7r=(x0+w',y6); z8=(x0,y6); z9=(x6r,h');
+filldraw z5l--z6l--z8--z9--(x9,y7l)
+--z7l--z7r--z6r--z5r--z5l & cycle;
+%
+%
+%
+penpos20(hair,angle(z9-z8));
+z20r=z9; penpos21(stem,angle(z9-z8));
+z21r=z20l;
+filldraw z1.6l{right}..z21r--z21l
+..z1.6r{left}--z1.6l & cycle;
+.endchar;
+
+def long_ss (expr xx) = numeric w',h',d';
+w':=6.038u; h':=1.414x_height;
+d':=3.208u;
+penpos1.1(2/3hair,0);
+z1.1=(xx+0.313w',-d');
+penpos1.2(1.283stem,0);
+z1.2=(xx+0.344w',0.589h');
+penpos1.4(hair,90);
+z1.4l=(xx,y1.2-1/3stem);
+z1.3=(z1.1l..{dir92.5}z1.2l)
+intersectionpoint
+((0,y1.4l)--(w',y1.4l));
+z1.5=(xx+0.35w',0.761h');
+penpos1.6(0.957stem,-118);
+z1.6l=(xx+0.669w',h');
+penpos1.7(1.174stem,-125);
+z1.7l=(xx+w',0.962h'); penpos1.8(hair,-35);
+z1.8r=z1.7l; z1.9-z1.8l=whatever*(z1.7l-z1.7r);
+x1.9=xx+0.9w';
+penpos1.11(2/3stem,-90); y1.11=y1.2;
+x1.11=xx+0.763w';
+penpos1.12(2/3stem,-90); z1.12=z1.2;
+filldraw z1.1r..z1.2r{dir87} &
+z1.2r{dir126}..z1.5{up}..z1.6r{right}
+..z1.7r{right}--z1.8r--z1.8l--z1.9
+& z1.9{left}..z1.6l{left}..
+z1.4r{dir218}--z1.4l{right}--
+z1.3{dir272.5}..z1.1l--z1.1r & cycle;
+if isitf: filldraw z1.11r--z1.12r--
+z1.12l--z1.5{down}...(x1.2r,y1.11l){right}
+---z1.11l--z1.11r & cycle; fi
+enddef;
+
+.cmchar "The Schwabacher ligature ss";
+.beginchar(oct"201",9.738u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#-2.33u#);
+boolean isitf; isitf:=false;
+numeric w',h',d'; w':=6.038u;
+h':=1.414x_height; d':=3.208u;
+penpos1.1'(2/3hair,0);
+z1.1'=(0.313w',-d');
+penpos1.2'(1.283stem,0);
+z1.2'=(0.344w',0.589h');
+penpos1.4'(hair,90);
+z1.4'l=(0,y1.2'-1/3stem);
+z1.3'=(z1.1'l..{dir92.5}z1.2'l)
+intersectionpoint
+((0,y1.4'l)--(w',y1.4'l));
+z1.5'=(0.35w',0.761h');
+penpos1.6'(0.957stem,-118);
+z1.6'l=(0.669w',h');
+penpos1.7'(1.174stem,-125);
+z1.7'l=(w',0.962h'); penpos1.8'(hair,-35);
+z1.8'r=z1.7'l; z1.9'-z1.8'l=whatever*(z1.7'l-z1.7'r);
+x1.9'=0.9w';
+penpos1.11'(2/3stem,-90); y1.11'=y1.2';
+x1.11'=0.763w';
+penpos1.12'(2/3stem,-90); z1.12'=z1.2';
+filldraw z1.1'r..z1.2'r{dir87} &
+z1.2'r{dir126}..z1.5'{up}..z1.6'r{right}
+--z1.6'l{left}..
+z1.4'r{dir218}--z1.4'l{right}--
+z1.3'{dir272.5}..z1.1'l--z1.1'r & cycle;
+if isitf: filldraw z1.11'r--z1.12'r--
+z1.12'l--z1.5'{down}...(x1.2'r,y1.11'l){right}
+---z1.11'l--z1.11'r & cycle; fi
+long_ss(x1.11'-2hair);
+%
+%
+%
+z7=(z1.4r{dir38}..z1.6l{right})
+intersectionpoint ((0,y1.7r)--
+(w,y1.7r));
+penpos8(stem,-125); z8r=z7;
+penstroke z1.6'e{right}..z8e;
+.endchar;
+
+.cmchar "The Schwabacher ligature sf";
+.beginchar(oct"203",9.738u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#-1.12u#);
+boolean isitf; isitf:=false;
+numeric w',h',d'; w':=6.038u;
+h':=1.414x_height; d':=3.208u;
+penpos1.1'(2/3hair,0);
+z1.1'=(0.313w',-d');
+penpos1.2'(1.283stem,0);
+z1.2'=(0.344w',0.589h');
+penpos1.4'(hair,90);
+z1.4'l=(0,y1.2'-1/3stem);
+z1.3'=(z1.1'l..{dir92.5}z1.2'l)
+intersectionpoint
+((0,y1.4'l)--(w',y1.4'l));
+z1.5'=(0.35w',0.761h');
+penpos1.6'(0.957stem,-118);
+z1.6'l=(0.669w',h');
+penpos1.7'(1.174stem,-125);
+z1.7'l=(w',0.962h'); penpos1.8'(hair,-35);
+z1.8'r=z1.7'l; z1.9'-z1.8'l=whatever*(z1.7'l-z1.7'r);
+x1.9'=0.9w';
+penpos1.11'(2/3stem,-90); y1.11'=y1.2';
+x1.11'=0.763w';
+penpos1.12'(2/3stem,-90); z1.12'=z1.2';
+filldraw z1.1'r..z1.2'r{dir87} &
+z1.2'r{dir126}..z1.5'{up}..z1.6'r{right}
+--z1.6'l{left}..
+z1.4'r{dir218}--z1.4'l{right}--
+z1.3'{dir272.5}..z1.1'l--z1.1'r & cycle;
+if isitf: filldraw z1.11'r--z1.12'r--
+z1.12'l--z1.5'{down}...(x1.2'r,y1.11'l){right}
+---z1.11'l--z1.11'r & cycle; fi
+isitf:=true;
+long_ss(x1.11'-2hair);
+%
+%
+%
+z7=(z1.4r{dir38}..z1.6l{right})
+intersectionpoint ((0,y1.7r)--
+(w,y1.7r));
+penpos8(stem,-125); z8r=z7;
+penstroke z1.6'e{right}..z8e;
+.endchar;
+
+.cmchar "The Schwabacher ligature ff";
+.beginchar(oct"204",9.738u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#-1.12u#);
+boolean isitf; isitf:=true;
+numeric w',h',d'; w':=6.038u;
+h':=1.414x_height; d':=3.208u;
+penpos1.1'(2/3hair,0);
+z1.1'=(0.313w',-d');
+penpos1.2'(1.283stem,0);
+z1.2'=(0.344w',0.589h');
+penpos1.4'(hair,90);
+z1.4'l=(0,y1.2'-1/3stem);
+z1.3'=(z1.1'l..{dir92.5}z1.2'l)
+intersectionpoint
+((0,y1.4'l)--(w',y1.4'l));
+z1.5'=(0.35w',0.761h');
+penpos1.6'(0.957stem,-118);
+z1.6'l=(0.669w',h');
+penpos1.7'(1.174stem,-125);
+z1.7'l=(w',0.962h'); penpos1.8'(hair,-35);
+z1.8'r=z1.7'l; z1.9'-z1.8'l=whatever*(z1.7'l-z1.7'r);
+x1.9'=0.9w';
+penpos1.11'(2/3stem,-90); y1.11'=y1.2';
+x1.11'=0.763w';
+penpos1.12'(2/3stem,-90); z1.12'=z1.2';
+filldraw z1.1'r..z1.2'r{dir87} &
+z1.2'r{dir126}..z1.5'{up}..z1.6'r{right}
+--z1.6'l{left}..
+z1.4'r{dir218}--z1.4'l{right}--
+z1.3'{dir272.5}..z1.1'l--z1.1'r & cycle;
+if isitf: filldraw z1.11'r--z1.12'r--
+z1.12'l--z1.5'{down}...(x1.2'r,y1.11'l){right}
+---z1.11'l--z1.11'r & cycle; fi
+long_ss(x1.11'-2hair);
+%
+%
+%
+z7=(z1.4r{dir38}..z1.6l{right})
+intersectionpoint ((0,y1.7r)--
+(w,y1.7r));
+penpos8(stem,-125); z8r=z7;
+penstroke z1.6'e{right}..z8e;
+.endchar;
+
+.cmchar "The Schwabacher semicolon";
+.beginchar(":",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+penstroke z5e--z6e;
+.endchar;
+
+.cmchar "The Schwabacher point";
+.beginchar(".",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+.endchar;
+
+.cmchar "Grave accent";
+.beginchar(oct"022",9u#,min(asc_height#,2x_height#),0);
+.adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1-.5stem=hround 2u; x2=2/3[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ lft x1l=hround 1.5u; rt x2r=hround(.5w+.25u+.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Acute accent";
+.beginchar(oct"023",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant-if serifs: 1.5 fi u#;
+.adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1+.5stem=hround(w-2u); x2=2/3[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ rt x1r=hround(w-1.5u); lft x2l=hround(.5w-.25u-.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Hachek (check) accent";
+.beginchar(oct"024",9u#,.75[x_height#,min(asc_height#,2x_height#)],0);
+h':=vround min(asc_height,2x_height); % height of circumflex being inverted
+if serifs: italcorr h#*slant+.5hair#-1.75u#;
+ .adjust_fit(0,0);
+ pickup crisp.nib; pos2'(.5[vair,curve],90); top y2'r=h;
+ pos2(.5[vair,curve],90); x2=.5w;
+ x1=w-x3=good.x 2.25u; top y1=top y3=h; y1-y2=.5(y2'-x_height);
+ pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
+ filldraw stroke z1e--z2e--z3e; % diagonals
+else: italcorr h#*slant-.5stem#+.5vair#-.75u#;
+ .adjust_fit(0,0);
+ pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
+ pos2(stem,0); bot y2=vround(1/12[x_height,h']+o); x2=.5w;
+ top y1=top y3=h+o; lft x1l=hround(rt x2r-3.25u-.5vair);
+ z0=whatever[z1r,z2r]=whatever[z2l,z3l];
+ y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
+ filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi % diagonals
+penlabels(0,1,2,3,4); .endchar;
+
+.cmchar "Breve accent";
+.beginchar(oct"025",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant+.5vair#-1.5u#;
+.adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,-180); pos3(vair,0);
+top y1=top y3=h; lft x1r=w-rt x3r=hround(2u-.5vair);
+numeric mid_thickness; mid_thickness=vround 1/3[vair,stem];
+pos2(mid_thickness,-90); x2=.5w;
+bot y2r=vround max(x_height+o+tiny,1/3[x_height,h]+o-.5mid_thickness);
+filldraw stroke z1e{down}...z2e{right}...{up}z3e; % stroke
+penlabels(1,2,3); .endchar;
+
+.cmchar "Macron (bar) accent";
+numeric macron_breadth#; macron_breadth#=.2[vair#,stem#];
+.beginchar(oct"026",9u#,.4[x_height#,asc_height#]+macron_breadth#,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric macron_breadth; macron_breadth:=Vround .2[vair,stem];
+pickup if serifs: crisp.nib else: fine.nib fi;
+pos1(macron_breadth,90); pos2(macron_breadth,90);
+top y1r=top y2r=h+o; lft x1=w-rt x2=hround 1.25u;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Scandinavian circle accent";
+.beginchar(oct"027",9u#,cap_height#,0);
+.adjust_fit(0,0);
+penpos0.1(2u,45); z0.1=z0=(0.5w,1.283x_height);
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z0.2=z0.1r; z0.3=z0.1l; rt x0.4=rt x0.2; top y0.4=y0;
+draw z0.2..z0.3..z0.2;
+penlabels(1,2,3,4); .endchar;
+
+def par_s(suffix $) =
+h':=cap_height; w':=0.379h';
+z$.1=z$+(0.5w',0.5h');
+penpos$.1(stem,30);
+penpos$.2(2hair,0);
+penpos$.3(hair,-90);
+penpos$.4(hair,180);
+penpos$.5(hair,90);
+z$.2l=z$+(0,0.8h'); z$.3l=(x$.1,y$+h');
+z$.4=z$+(0.84w',0.886h');
+z$.5=(x$.4r,y$+0.826h');
+penstroke z$.2e{up}..z$.3e
+{right} if panw: ..z$.4e{down}..z$.5e{left} fi;
+penpos$.6(2hair,90); z$.6l=z$.5l;
+if panw:
+filldraw z$.6r..z$.6l..z$.6r & cycle;
+fi
+penpos$.1'(stem,-150);
+penpos$.2'(2hair,180);
+penpos$.3'(hair,90);
+penpos$.4'(hair,0);
+penpos$.5'(hair,-90);
+z$.1=z$.1';
+z$.2'r=z$+(w',0.2h'); z$.3'r=(x$.1,y$);
+z$.4'=z$+(0.16w',0.114h');
+z$.5'=(x$.4'r,y$+0.174h');
+penpos$.2''(2hair,0); z$.2''=z$.2';
+z$.25=(z$.2''{up}..z$.2{up})
+intersectionpoint (z$+(0,0.5h')--
+z$+(w',0.5h'));
+penpos$.25(stem,30);
+penstroke z$.2''e{up}..z$.25e..
+z$.2e{up};
+penstroke z$.2'e{down}..z$.3'e
+{left} if katw: ..z$.4'e{up}..z$.5'e{right} fi;
+penpos$.6'(2hair,-90); z$.6'l=z$.5'l;
+if katw:
+filldraw z$.6'r..z$.6'l..z$.6'r & cycle;
+fi
+enddef;
+
+.cmchar "The Fraktur paragraph sign";
+.beginchar(oct"074",7.4u#,cap_height#,3.167u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+boolean panw, katw;
+panw:=true; katw:=false;
+z0=(0.17h,0); par_s(0);
+panw:=false; katw:=true;
+z1=(0,-0.3h); par_s(1);
+.endchar;
+
+.cmchar "The Fraktur paragraph sign";
+.beginchar(oct"244",7.4u#,cap_height#,3.167u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+boolean panw, katw;
+panw:=true; katw:=false;
+z0=(0.17h,0); par_s(0);
+panw:=false; katw:=true;
+z1=(0,-0.3h); par_s(1);
+.endchar;
+
+.cmchar "Cedilla accent";
+.beginchar(oct"030",8u#,0,.875desc_depth#);
+.adjust_fit(0,0);
+x1=.5w+.5u;
+if serifs: pickup crisp.nib; pos1(eps,0); pos2(stem,0);
+ pos3(vair,90); pos4(stem,0); pos5(vair,-90);
+ x1=x2; z3l=z2l; x4=x2+1.5u; x5=x3-1.5u;
+ bot y1=-o; bot y2=-vround 2/7d-o; y4=.5[y3,y5]; bot y5=-d-o;
+ filldraw stroke z1e--z2e; % stem
+ filldraw stroke z3e{right}...z4e{down}...{left}z5e; % hook
+else: pickup fine.nib; pos1(vair,0); top y1=-o-2;
+ pos2(.5[vair,stem],0); bot y2=-d-o; x2=x1-1.25u;
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2,3,4,5); .endchar;
+
+.cmchar "Circumflex (hat) accent";
+.beginchar(oct"136",9u#,min(asc_height#,2x_height#),0);
+if serifs: italcorr .5[x_height#,h#]*slant+.5hair#-1.75u#;
+ .adjust_fit(0,0);
+ pickup crisp.nib; pos2(.5[vair,curve],90); top y2r=h; x2=.5w;
+ x1=w-x3=good.x 2.25u; y1=y3=.5[x_height,y2];
+ pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
+ filldraw stroke z1e--z2e--z3e; % diagonals
+else: italcorr 2/3[x_height#,h#]*slant-.5stem#+.5vair#-.75u#;
+ .adjust_fit(0,0);
+ pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
+ pos2(stem,0); top y2=h; x2=.5w; bot y1=bot y3=vround 2/3[h,x_height]-eps;
+ lft x1l=hround(rt x2r-3.25u-.5vair); % same slope as in the acute accent
+ z0=whatever[z1r,z2r]=whatever[z2l,z3l];
+ y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
+ filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi % diagonals
+penlabels(0,1,2,3,4); .endchar;
+
+iff ligs>0: .cmchar "Dot accent";
+numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
+.beginchar(oct"137",5u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
+define_whole_blacker_pixels(dot_diam);
+italcorr h#*slant+.5dot_diam#-2u#;
+.adjust_fit(0,0);
+pickup tiny.nib; pos1(dot_diam,0); pos2(dot_diam,90);
+x1=x2=.5w; top y2r=h+1;
+if bot y2l<x_height+o+slab: y2l:=min(y2r-eps,x_height+o+slab+.5tiny); fi
+y1=.5[y2l,y2r]; dot(1,2); % dot
+penlabels(1,2); .endchar;
+
+iff ligs>0: .cmchar "Long Hungarian umlaut accent";
+.beginchar(oct"175",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant-u#;
+.adjust_fit(0,0);
+x3-x1=x4-x2=hround 3u; y3=y1; y4=y2;
+if serifs: pickup crisp.nib; x3+.5stem=hround(w-1.5u); x2=2.5u;
+ y1+.5stem=h; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ pos3(stem,theta); pos4(hair,theta);
+ filldraw circ_stroke z1e--z2e; % left diagonal
+ filldraw circ_stroke z3e--z4e; % right diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ pos3(stem,0); pos4(vair,0);
+ rt x3r=hround(w-1.5u); lft x4l=hround(.5w+u-.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; % left diagonal
+ filldraw stroke z3e--z4e; fi % right diagonal
+penlabels(1,2,3,4); .endchar;
+
+.cmchar "Tilde (squiggle) accent";
+.beginchar(oct"176",9u#,min(asc_height#,10/7x_height#+.5dot_size#),0);
+italcorr h#*slant-u#;
+.adjust_fit(0,0);
+if serifs: numeric theta; theta=angle(1/6(6u-vair),1/4(h-x_height));
+ pickup crisp.nib; numeric mid_width; mid_width=.4[vair,stem];
+ pos1(vair,theta+90); pos2(vair,theta+90);
+ pos3(vair,theta+90); pos4(vair,theta+90);
+ z2-z1=z4-z3=(mid_width-crisp)*dir theta;
+ lft x1r=w-rt x4l=hround 1.5u; top y4r=h;
+ bot y1l=vround(bot y1l+min(2/3[x_height,h],y3l-.25vair)-top y1r);
+ pair delta; ypart delta=3(y3l-y1l); delta=whatever*dir theta;
+ filldraw z1l..controls(z1l+delta)and(z3l-delta)..z3l..z4l
+ --z4r..controls(z4r-delta)and(z2r+delta)..z2r..z1r--cycle; % stroke
+else: pickup fine.nib; pos1(vair,180); pos2(vair,90);
+ pos3(.5[vair,slab],90); pos4(vair,90); pos5(vair,180);
+ lft x1r=w-rt x5l=hround 1.5u; x2-x1=x3-x2=x4-x3=x5-x4;
+ bot y1=bot y4l=vround(.75[x_height,h]-vair);
+ top y2r=top y5=h; y3=.5[y2,y4];
+ filldraw stroke z1e{up}...z2e{right}..z3e..{right}z4e...{up}z5e; fi % stroke
+penlabels(1,2,3,4,5); .endchar;
+
+.cmchar "The Schwabacher hyphen";
+.beginchar(oct"055",4u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(2hair,-90);
+penpos2(2hair,-90);
+penpos3(2hair,-90);
+penpos4(2hair,-90); penpos5(2hair,-90);
+z2-z1=whatever*dir35;
+z4-z3=whatever*dir35;
+z3r=z5l; z5r=z1l; x1=0;
+x2=x4=w;
+y1r=foot;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+.endchar;
+
+.cmchar "Opening Gaensefuesschen";
+.beginchar(oct"134",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant+dot_size#-4.1u#;
+.adjust_fit(0,0);
+x2+.5dot_size=hround(w-.6u); y2-.5dot_size=0;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+comma(1,a,dot_size,.25u,comma_depth); % left dot and tail
+comma(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2); .endchar;
+
+
+.cmchar "Closing Gaensefuesschen";
+.beginchar(oct"042",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant-.1u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround .6u;
+ y1+.5dot_size=h-comma_depth;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+ammoc(1,a,dot_size,.25u,comma_depth); % left dot and tail
+ammoc(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2);
+.endchar;
+
+.cmchar "En dash";
+.beginchar(oct"173",9u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Em dash";
+.beginchar(oct"174",18u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(letter_fit#,letter_fit#);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Hash mark (number sign)";
+if monospace: compute_spread(.6x_height#,.7x_height#);
+else: compute_spread(.45x_height#,.55x_height#); fi
+.beginchar("#",15u#,asc_height#,asc_depth#);
+italcorr (math_axis#+.5(spread#+rule_thickness#))*slant-.5u#;
+.adjust_fit(0,0);
+pickup rule.nib; lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+lft x6=hround 3u; rt x7=hround(w-3u); x5-x6=x7-x8;
+x8=good.x if monospace: .6 else: .5 fi\\w;
+top y5=top y7=h+eps; bot y6=bot y8=-d-eps;
+y15=y1; z15=whatever[z5,z6]; y36=y3; z36=whatever[z5,z6];
+y27=y2; z27=whatever[z7,z8]; y48=y4; z48=whatever[z7,z8];
+draw z5--if x5>x6+1:(good.x(x15+.5),y1)--(good.x(x15-.5),y1)
+ --(good.x(x36+.5),y3)--(good.x(x36-.5),y3)--fi\\z6; % left diagonal
+draw z7--if x7>x8+1:(good.x(x27+.5),y2)--(good.x(x27-.5),y2)
+ --(good.x(x48+.5),y4)--(good.x(x48-.5),y4)--fi\\z8; % right diagonal
+labels(1,2,3,4,5,6,7,8,15,27,36,48); .endchar;
+
+.cmchar "Per cent sign";
+.beginchar("%",9u#+max(6u#,2fudge*(hair#+stem#)),
+ body_height#,body_height#-asc_height#);
+italcorr if hefty: .4asc_height#*slant-.5u# else: h#*slant-u# fi;
+.adjust_fit(0,0); pickup fine.nib;
+numeric left_curve,right_curve;
+left_curve=hround 5/6[fudged.hair,fudged.stem];
+right_curve=max(fine.breadth,hround(fudged.hair if hefty:-2stem_corr fi));
+pos1(vair,90); pos2(left_curve,180); pos3(vair,270); pos4(right_curve,360);
+top y1r=h; lft x2r=hround u; rt x4r=hround(.5w-1.5u);
+bot y3r=floor(if monospace: .7 else: .5 fi\\ asc_height);
+x1=x3=.5[x2,x4]; y2=y4=.5[y1,y3];
+filldraw stroke pulled_super_arc.e(1,2)(superpull)
+ & pulled_super_arc.e(2,3)(superpull); % left half of upper bowl
+filldraw stroke super_arc.e(3,4) & super_arc.e(4,1); % right half of upper bowl
+pos5(vair,90); pos6(left_curve,180); pos7(vair,270); pos8(right_curve,360);
+bot y7r=-d; rt x8r=hround(w-u); lft x6r=hround(.5w+1.5u);
+top y5r=vround(if monospace: .3 else: .5 fi\\ asc_height);
+x5=x7=.5[x6,x8]; y6=y8=.5[y5,y7];
+filldraw stroke pulled_super_arc.e(5,6)(superpull)
+ & pulled_super_arc.e(6,7)(superpull); % left half of lower bowl
+filldraw stroke super_arc.e(7,8) & super_arc.e(8,5); % right half of lower bowl
+pickup rule.nib; top y9=h; bot y10=-d;
+if hefty: x9=good.x(x5-eps); x10=good.x(x1+eps);
+ draw z9--z10; % diagonal
+else: rt x9=hround(w-2.5u); lft x10=hround 2.5u; draw z9--z10; % diagonal
+ pickup fine.nib; pos9(rule_thickness,angle(z9-z10)+90);
+ pos11(vair,angle(z1r-z4r)-90); pos12(vair,angle(z9-z10)+90);
+ path p; p=super_arc.r(1,4); z11r=point 2/3 of p; z12r=z9r;
+ filldraw stroke z11e{direction 2/3 of p}...{z9-z10}z12e; fi % link
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12); .endchar;
+
+.cmchar "Apostrophe";
+.beginchar("'",5u#,asc_height#,0);
+italcorr asc_height#*slant+.5dot_size#-2u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h;
+if monospace: comma(1,a,dot_size,.28u,vround 1.5comma_depth); % large comma
+else: comma(1,a,dot_size,.25u,comma_depth); fi % comma with increased jut
+penlabels(1); .endchar;
+
+.cmchar "Left parenthesis";
+.beginchar("(",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+rt x1r=rt x3r=hround(w-u); lft x2l=hround(x1-4u if monospace: +4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Right parenthesis";
+.beginchar(")",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr math_axis#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+lft x1l=lft x3l=hround u; rt x2r=hround(x1+4u if monospace: -4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Asterisk";
+.beginchar("*",9u#,
+ if low_asterisk:math_axis#+.5x_height# else: body_height# fi,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric ast_flare; ast_flare=hround .7[thin_join,stem];
+x0=.5w; y0=h-.5x_height;
+for d=-150 step 60 until 150: z[d]=z0+.5dir d xscaled 7.5u yscaled x_height;
+ numeric theta; theta=angle(z[d]-z0);
+ fill z0+.5(0,-thin_join)rotated theta
+ ---z[d]+.5(-ast_flare,-ast_flare)rotated theta
+ ..z[d]..z[d]+.5(-ast_flare,ast_flare)rotated theta
+ ---z0+.5(0,thin_join)rotated theta--cycle; endfor % diagonal at angle |d|
+labels(0,[-150],[-90],[-30],30,90,150); .endchar;
+
+.cmchar "Plus sign";
+beginarithchar("+"); pickup rule.nib;
+x1=x2=good.x .5w; top y1=h+eps; .5[y1,y2]=math_axis;
+lft x3=hround u-eps; x4=w-x3; y3=y4=math_axis;
+draw z1--z2; % stem
+draw z3--z4; % crossbar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Virgule (slash)";
+.beginchar("/",9u#,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+rt x1=hround(w-u)+eps; top y1=h+eps;
+lft x2=hround u-eps; bot y2=-d-eps;
+draw z1--z2; % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Equals sign";
+compute_spread(.45x_height#,.55x_height#);
+.beginchar("=",14u#,v_center(spread#+rule_thickness#));
+italcorr h#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Left bracket";
+numeric wd#; wd#=max(5u#,4.5u#+.5if hefty:stem# else:rule_thickness# fi);
+.beginchar("[",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; lft x1l=lft x2l=hround(2.5u-.5side_thickness)-1-eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1l; rt x4=rt x6=ceiling(w-.4u)+eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+.cmchar "Right bracket";
+numeric wd#; wd#=max(5u#,4.5u#+.5if hefty:stem# else:rule_thickness# fi);
+.beginchar("]",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant-2u#+.5if hefty:stem# else:rule_thickness# fi;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; rt x1r=rt x2r=hround(w-2.5u+.5side_thickness)+1+eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1r; lft x4=lft x6=floor .4u-eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+.cmchar "Reverse apostrophe";
+.beginchar("`",5u#,asc_height#,0);
+italcorr asc_height#*slant+.5dot_size#-2u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h-comma_depth;
+if monospace: ammoc(1,a,dot_size,.28u,vround 1.5comma_depth); % large ammoc
+else: ammoc(1,a,dot_size,.25u,comma_depth); fi % normal ammoc
+penlabels(1); .endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yswabnum.mf b/Master/texmf-dist/fonts/source/public/gothic/yswabnum.mf
new file mode 100644
index 00000000000..d79136dd70f
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yswabnum.mf
@@ -0,0 +1,288 @@
+.cmchar "The Schwabacher numeral 0";
+.beginchar("0",8.377u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.107cap_stem,47);
+z1l=(0.432w,-apex_o);
+penpos5(0.946cap_stem,33);
+z5l=(0,0.475h); z7=(0.365w,0.85h);
+penpos2(whatever,52.5); z2r=(0.55w,h+apex_o);
+penpos7(cap_hair,-47);
+z2l=whatever[z7l,z7r];
+penpos4(cap_hair,-37.5); z4l=z2;
+penstroke z1e{dir137}..z5e{up}..
+z7e..z4e{dir52.5};
+%
+%
+%
+penpos3(cap_hair,-64);
+penpos6(0.893cap_stem,28);
+z1r=2/3[z3l,z3r]; z6r=(w,0.529h);
+filldraw z1l{z1r-z1l}..
+%z3r{dir26}..
+z6r{up}..
+z2r{dir133}--z2l{dir-24}..z6l{down}
+..z3l{dir206}--(x1,y3l)--z1l
+& cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 1";
+.beginchar("1",5.509u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-58); x1l=0;
+y1r=-apex_o; penpos2(cap_hair,60);
+z2=(0.932w,0.171h);
+penpos3(0.93cap_stem,0);
+penpos4(0.93cap_stem,0);
+x3=x4=0.589w; y3=0.354h; y4=0.823h;
+penpos5(cap_hair,-90);
+penpos6(cap_hair,-90);
+z6l=(w,h+apex_o); z5l=(0.301w,0.951h);
+filldraw z1r{dir32}..z2l{dir-30} &
+z2l--z2r{dir150}...z3r---z4r...
+z6r--z6l--z5l--z5r...z4l---
+z3l...z1l{dir212}--z1r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 2";
+.beginchar("2",8.415u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-45); z2=(0.359w,h-apex_o);
+x1l=0; z2-z1l=whatever*dir48;
+z3=whatever[z1l,z2]; y3=h+apex_o;
+penpos5(1.154cap_stem,27);
+z5=(0.789w,0.607h);
+z4=(0.323w,0.768h);
+filldraw z5r{up}..z2{dir149}--
+z1l--z1r{z2-z1l}..z4..z5l{down}
+& z5l--z5r & cycle;
+z3'=(z5r{up}..z2{dir149})
+intersectionpoint ((0,0.963h)--
+(w,0.963h));
+filldraw z3'{dir149}..z3{up} &
+z3--z1l--z3' & cycle;
+%
+%
+%
+penpos6(1.3cap_hair,-53);
+penpos7(hair,0); z7l=(0,-apex_o);
+z6=(0.363w,0.314h);
+penstroke z7e{up}..z6e..z5e{up};
+penpos8(cap_stem,-124);
+penpos9(1.179cap_stem,-123);
+z8=(0.395w,0.14h); z9r=(0.731w,-apex_o);
+penstroke z7e{up}..z8e{right}..
+z9e;
+penpos10(cap_hair,-33);
+penpos11(cap_hair,-33);
+z10r=z9; z11-z10=whatever*dir57;
+x11r=w;
+penstroke z10e--z11e;
+.endchar;
+
+.cmchar "The Schwabacher numeral 3";
+.beginchar("3",6.302u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos5(cap_hair,-72); z5=(0.132w,0.454h);
+z4=(0.749w,0.753h);
+penpos4(0.857cap_stem,34);
+penpos2(0.964cap_stem,90);
+x2=0.377w; y2r=h+apex_o;
+penpos1(cap_hair,-41);
+z1l=(0,0.78h);
+penstroke z5e{dir18}..z4e{up}..
+z2e{left};
+filldraw z1l--z2r--z2l{left}..
+z1r{z1l-z2r}--z1l & cycle;
+%
+%
+%
+penpos11(1.071cap_stem,56);
+penpos10(cap_stem,32);
+penpos9(cap_hair,-64);
+penpos8(0.571cap_stem,-135);
+y11l=y5l; x11r=x4l; x10r=w;
+y10=0.332h; z9=(0.515w,0.049h);
+z8r=(0.228w,-apex_o);
+penstroke z8e{right}..z9e..
+z10e{up}..z11e{left};
+filldraw z5{dir18}..z11r{z11r-z11l}
+--z11l{left}..z5r--z5 & cycle;
+z6=(apex_o,y8l); z7=(0.198w,0.146h);
+filldraw z8r{left}..z6{up}..
+z7{right}..z8l{right}--z8r &
+cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 4";
+.beginchar("4",8.377u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(3/4cap_stem,90);
+penpos2(whatever,56);
+x1=w; x2l=0; y1=0.46h; y2l=y1l;
+y2r=y1r; z3'=whatever[z2l,z2r];
+y3'=h; penpos4(0.93cap_stem,0);
+z4l=z3'; penpos12(cap_hair,-34);
+penpos13(cap_hair,-34);
+z12l=z2; z13l=z3';
+penpos5(whatever,25); x5l=x4l;
+x5r=x4r; y5=0.268h;
+penstroke z12e--z13e;
+penstroke z5e--z4e;
+penstroke z1e--z2e;
+%
+%
+%
+penpos10(cap_hair,-90);
+penpos11(cap_hair,-90);
+y10=0; x10=0.36w; z11=(0.964w,0.162h);
+filldraw z10r{right}..z11r{right}
+--z11l{left}..z5r{up}--z5l{down}
+..z10l{left}--z10r & cycle;
+penpos6(0.5cap_hair,90);
+penpos8(0.5cap_hair,0);
+z6r=(w-cap_hair,h); z8r=(w,0.61h);
+z7=(x4r,0.841h);
+filldraw z7{up}..z6l{right}--
+z6r--z4r--z7 & cycle;
+filldraw z1r--z8r--z8l{down}..
+{left}(x4r,y1r)--z1l--z1r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 5";
+.beginchar("5",5.623u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-65);
+penpos2(0.93cap_stem,33);
+penpos3(0.964cap_stem,57.5);
+z1=(0.134w,0); z2=(0.779w,0.369h);
+z3=(0.477w,0.567h);
+z4=(0,0.579h); z5=(0.174w,0.759h);
+z6=(0.221w,h);
+penpos8(2/3cap_hair,0);
+z8r=(w,h+apex_o);
+penpos9(1.161cap_stem,-108);
+z9l=z8r;
+filldraw z1r..z2r{up}..
+z3r..z5{up}..z9r{right}--z9l--
+z8l & flex(z8l,(0.5[x6,x8],h-apex_o),
+z6) & z6..z4{down} & z4..z3l..
+z2l{down}..z1l--z1r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 6";
+.beginchar("6",7.472u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.464cap_stem,-43);
+z1r=(0.187w,-apex_o);
+z2=(0.737w,0.433h); penpos2(cap_hair,-32);
+penpos3(0.964cap_stem,44);
+z3r=(w,0.747h);
+z4=(0.631w,h+apex_o);
+z5=(0.5w,0.838h); penpos6(0.93cap_stem,-150);
+z6r=(0,0.579h);
+z7=(0.343w,0.341h); z8=(x5,0.482h);
+penpos9(cap_hair,-48);
+z9=(2/3w,0.512h); penpos10(cap_hair,132);
+y10r=y5; x10l=x7;
+penstroke z1e..z2e..z3e{up};
+filldraw z3r{up}..z4{dir156}---z10r...
+z6r{down}..z7--z9r--z9l{z7-z9r}..
+z8{left}..z6l{up}..z5{right}..z3l
+{down}--z3r & cycle;
+%
+%
+%
+transform metatopish;
+metatopish=identity
+reflectedabout ((0,0.5h),(w,0.5h));
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+transform metatopish;
+metatopish=identity
+reflectedabout ((0.5w,0),(0.5w,h));
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The Schwabacher numeral 7";
+.beginchar("7",8.302u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos2(1.068cap_stem,61);
+z2r=(w,0.95h);
+penpos3(2/3cap_hair,0);
+penpos4(2/3cap_hair,0);
+z3l=(0,0.686h); z4-z3=whatever*dir73;
+y4=h; penpos1(whatever,73);
+y1l=y2l; y1r=y2r; z1=whatever[z3l,z4l];
+penpos1'(whatever,73);
+y1'r=y1r; y1'l=y1l; x1'=x1+0.182w;
+penpos6(cap_hair,0);
+penpos5(0.939cap_stem,0);
+z6r=z2l; z5=(0.382w,0);
+filldraw z2r---z1'r...z4r{up}--z4l
+--z3l--z3r{z4r-z3r}...z1'l---z2l
+--z2r & cycle;
+penstroke z5e{up}..z6e{z2r-z2l};
+.endchar;
+
+.cmchar "The Schwabacher numeral 8";
+.beginchar("8",8.226u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.5cap_hair,0);
+z1=(0.45w,-apex_o); penpos2(cap_hair,-60);
+z2=(0.761w,0.157h); penpos3(0.857cap_stem,37);
+z3r=(w,0.383h); penpos4(0.93cap_stem,72);
+z4=(0.463w,0.546h); penpos5(0.714cap_stem,31);
+z5=(0.138w,0.735h);
+penpos6(cap_hair,-56);
+z7=(0.523w,h+apex_o);
+z7-z6l=whatever*dir34; x6=0.266w;
+penpos8(3/4cap_stem,65);
+z8=(0.596w,0.895h); penpos9(0.875cap_stem,33);
+y9l=y5l; x9=x3l+apex_o;
+penpos10(cap_hair,-56); x10=x8;
+y10l=y4; penpos11(cap_hair,-48);
+y11l=y4; x11l=x6r; penpos12(0.8cap_stem,30);
+z12l=(0,y3l); penpos13(0.893cap_stem,48);
+x13=x6l; y13=y2l;
+%
+%
+%
+filldraw z1r{dir60}..z2r..z3r{up}..
+z4r{dir162}..z5r{up}..z6r..z8l..
+z9l{down}..z10l{dir214}--z10r
+{dir34}..z9r{up}..z8r..z7 &
+z7---z6l...z5l{down}..z4l{dir-18}
+..z3l{down}..z2l..z13r..%{dir161}..
+z12r{up}..z11r{dir34}--z11l{dir214}
+..z12l{down}..z13l..z1l{dir-60}--
+z1r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 9";
+.beginchar("9",7.472u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.464cap_stem,-43);
+z1r=(0.187w,-apex_o);
+z2=(0.737w,0.433h); penpos2(cap_hair,-32);
+penpos3(0.964cap_stem,44);
+z3r=(w,0.747h);
+z4=(0.631w,h+apex_o);
+z5=(0.5w,0.838h); penpos6(0.93cap_stem,-150);
+z6r=(0,0.579h);
+z7=(0.343w,0.341h); z8=(x5,0.482h);
+penpos9(cap_hair,-48);
+z9=(2/3w,0.512h); penpos10(cap_hair,132);
+y10r=y5; x10l=x7;
+penstroke z1e..z2e..z3e{up};
+filldraw z3r{up}..z4{dir156}---z10r...
+z6r{down}..z7--z9r--z9l{z7-z9r}..
+z8{left}..z6l{up}..z5{right}..z3l
+{down}--z3r & cycle;
+.endchar; \ No newline at end of file
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf b/Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf
new file mode 100644
index 00000000000..d1fd5976a5f
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf
@@ -0,0 +1,1179 @@
+.cmchar "The Schwabacher letter A";
+.beginchar("A",11.755u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);penpos1(0.714cap_stem,16);
+z1l=(apex_o,0.718h);
+z2=(0,0.767h); penpos3(cap_hair,-58);
+y3=0.474[h,y2]; x3=0.13w;
+z4=(0.278w,h+apex_o);
+penpos5(1.036cap_stem,-158);
+x5l=0.574w; y5=0.638h+cap_hair;
+penpos6(0.6cap_hair,-155); x6=x3r;
+y6l=0.132h; penpos7(1.286cap_stem,33);
+penpos8(1.143cap_stem,33);
+penpos9(1.071cap_stem,33);
+z7l=z6l; x9r=x5l; y9l=-apex_o;
+z8=0.472[z7,z9]+(0.5cap_hair,0.5cap_hair);
+penpos10(cap_hair,-57); z10r=z9l;
+penpos17(cap_stem,0); x17l=0.657w;
+y17=0.724h; penpos11(cap_hair,-57);
+z11-z10=whatever*dir33; x11=x17;
+z15=whatever[z10,z11]; x15=x17l;
+z15-z12=whatever*dir123; y12=-apex_o;
+penpos13(cap_hair,-90); z13r=(w,y6l);
+z14=(0.567[x17r,w],y13r);
+z16=(x17r,0.591[y17,y14]);
+penpos18(0.6cap_hair,-90); z18l=(w,h);
+z19=(x17l,0.822h);
+z7'=(z6{z7r-z7l}..z5{up})
+intersectionpoint (z7r+(2u,-2u)--
+z7r--z7r+(-2u,2u));
+%
+%
+%
+filldraw z1r{z3l-z3r}..z3r{z4-z3l}
+..z5r{down}..z6r{z7l-z7r} & z6r--z6l
+& z6l{z7r-z7l}..z5l{up}..z4{dir155}
+& z4---z3l...z2{down}..z1l &
+z1l--z1r & cycle;
+penstroke z9e..z8e..z7e;
+penstroke z10e--z11e;
+filldraw z12--z13r--z13l & z13l{z12-z13r}
+..z14{left}...z16---z17r...z18r{right}
+& z18r--z18l & z18l{left}..z19{z5r-z19}
+& z19--z15--z12 & cycle;
+filldraw z7r--z7' & z7'{z6-z7'}..
+z6{z7l-z7r} & z6--z6l--z7r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter B";
+.beginchar("B",13.811u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);penpos1(cap_hair,-70);
+penpos2(1.667cap_hair,-70);
+penpos3(1.071cap_stem,23);
+penpos4(2/3cap_hair,90);
+penpos5(1.571cap_stem,32);
+x1l=0; y1=0.282h; z2r-z1r=whatever*dir12.5;
+x2=0.24w; z3=(0.464w,0.672h);
+y5r=h+apex_o; x5r=0.295w; z4r=z5l;
+filldraw z1r---z2r...z3r{up}..
+z5r{dir163} & z5r--z5l--z4l &
+z4l{right}..z3l{down}..z2l..z1l
+{z1r-z2r} & z1l--z1r & cycle;
+%
+%
+%
+penpos6(cap_hair,-46); penpos7(cap_hair,-46);
+penpos9(cap_stem,44); penpos10(cap_hair,-46);
+z6r=z3; z7-z6=whatever*dir44;
+y7l=h+apex_o; z9r=z7l;
+z10=whatever[z7l,z7r]; x10r=0.951w;
+z8=(x6,0.552h); penpos8(cap_hair,-90);
+z11'-z9l=whatever*(z10-z7);
+x11'=w;
+z11=(z8{right}..z10{dir44})
+intersectionpoint (z11'--z9l);
+penstroke z8e{right}..z10e{dir44};
+penstroke z6e--z7e;
+filldraw z9r--z10r--z11--z9l--z9r &
+cycle;
+%
+%
+%
+%.endchar; end.
+path pipi;
+pipi:=z8{right}..z10{dir44};
+numeric titi,uuuu;
+(titi,uuuu)=pipi
+intersectiontimes
+((0.781w,0)--(0.781w,h));
+z12= point titi of pipi;
+penpos13(0.964cap_stem,39);
+z13r=(w,0.362h); penpos14(cap_hair,-57);
+z14=(0.822w,0.071h); z14'=(0.623w,-apex_o);
+z15=whatever[z1l,z1r];
+penpos15(cap_hair,-70);
+y1r-y15l=cap_hair;
+penpos16(1.857cap_stem,-167.5);
+z16r=z15l;
+filldraw subpath (0,titi) of pipi
+ & z12{right}
+..{down}z13r..z14r..z14'{left}..
+z15r{left} & z15r--z15l--z16l &
+z16l{dir-34}..z14l..z13l{up}..
+z8r{left} & z8r--z8 & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter C";
+.beginchar("C",10.151u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);z1=(w,0.276h); penpos2(cap_stem,68);
+z2l=(0.533w,-apex_o); penpos3(0.911cap_stem,45);
+z3l=(0,0.442h);
+penpos4(cap_hair,-60);
+z4l=(x2l-cap_stem,0.914h);
+penpos5(cap_stem,-90); z5l=(x2l,h);
+penpos6(1.1cap_stem,-72);
+z7=(0.911w,h+apex_o);
+z6l=(0.5[x5,x7],h-apex_o);
+penpos8(cap_stem,0); z8r=(x2l,0.337h);
+penpos10(cap_hair,-56);
+z8r-z10r=whatever*dir34; x10=x8l-0.5cap_stem;
+z9=z8l-(0,cap_hair);
+filldraw z1..z2r{left}..z3r{up}..
+z4r{z5l-z4l} & z4r--z4l &
+z4l{z4l-z5l}..z3l{down}..z2l{right}
+..z1{up} & cycle;
+filldraw z10l{z8r-z10r}..z9{up}--
+z4l--z5l..z6l{right}..z7 &
+z7{down}..z6r{left}..z5r{dir170} &
+z5r--z8r--z10r--z10l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter D";
+.beginchar("D",13.736u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-50); penpos2(1.071cap_stem,-118);
+z1=(0.06w,0); z2=(0.302w,0.15h);
+z3=(0.585w,-apex_o);
+penpos4(cap_hair,-41);
+z4=(0.876w,0.193h); penpos5(0.5cap_stem,38);
+z5r=(w,0.472h); penpos6(cap_stem,74);
+penpos7(cap_stem,74); penpos8(cap_stem,74);
+penpos10(0.5cap_hair,0);
+z6l=(0.72w,0.675h);
+z8l-z6l=whatever*dir170;
+x8l=cap_hair; x10r=x8; y10=h+apex_o;
+z7=0.426[z8,z6]+(0,-apex_o);
+z9=whatever[z7l,z8l]; x9=0;
+filldraw z1r{dir40}..z2r{right}..z3
+& z3..z4r..z5r{up}...
+z7r---z8r
+{z8r-z7r}..z10r{up} & z10r--z10l & z10l..
+z9{down} & z9..z8l{z7r-z8r}---z7l
+...z5l{down}..z4l..z2l{left}..z1l{dir220}
+& z1l--z1r & cycle;
+%
+%
+%
+penpos17(cap_hair,0); z17r=z2;
+penpos18(0.536cap_stem,34);
+z19=(cap_hair,y5l); y18=0.464[y2l,y19];
+x18=x2r-apex_o; z20=(0.203w,0.52h);
+penpos21(cap_hair,-60);
+z21=whatever[z7,z6]; x21=0.44w;
+filldraw z17r{up}..z18r..z20{up}..
+z21r{dir30} & z21r--z21l &
+z21l{dir210}..z19 & z19{right}..
+z17l{down} & z17l--z17r & cycle;
+%
+%
+%
+penpos12(cap_hair,-60); penpos13(cap_hair,-60);
+penpos14(cap_hair,-60); penpos11(cap_hair,-60);
+penpos15(cap_stem,30); penpos16(cap_stem,30);
+z16r=z12r; z15l=z13l; z14=whatever[z6,z7];
+z12=(0.563w,0.387h);
+z15r-z12=whatever*(z12l-z12r);
+x13l=0.287w;
+z14l=whatever[z15l,z15r];
+z11r=whatever[z16l,z16r]; x11=x17;
+penstroke z11e--z12e;
+penstroke z16e--z15e;
+penstroke z13e--z14e;
+z22=(z17r{up}..z18r..z20{up})
+intersectionpoint ((0,y2l+cap_hair)
+--(w,y2l+cap_hair));
+z23=1/3[z11l,z12l];
+z23'=2/3[z13l,z16l];
+z24=1/3[z15r,z12r];
+z25=whatever[z6l,z7l];
+z25=whatever[z13r,z14r];
+filldraw z22{right}..z23{z12l-z11l}
+..z23'{z13-z16l} & z23'--z16--z11
+--z22 & cycle;
+filldraw z24{z15r-z12}..z25{z14r-z13r}
+& z25--z15--z24 & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter E";
+.beginchar("E",12.302u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90); z1r=(0,0.227h);
+penpos2(cap_stem,0); penpos3(cap_stem,0);
+penpos4(cap_hair,-90);
+z2r=(0.31w,0.509h);
+z3=(x2,0.761h); y4l=h+apex_o;
+x4=0.393w;
+penstroke z1e{dir31}..z2e---z3e...
+z4e{dir22};
+penpos5(cap_hair,-64); penpos6(cap_hair,-51);
+penpos7(cap_stem,0); penpos8(cap_stem,0);
+penpos9(1.607cap_stem,18);
+penpos10(cap_hair,-90);
+z5=(0.049w,0.12h); z6l=(x4,0.337h);
+x9=x8=x7; z7l=(0.446w,y2);
+y8=y3; z10r=z9r; y10l=h+apex_o;
+penstroke z5e{dir31}..z6e{dir36}...z7e---
+z8e...z9e;
+filldraw z9l--z10l--z10r--z9l & cycle;
+%
+%
+%
+penpos11(0.6cap_hair,-90);
+z11=whatever[z7r,z8r]; y11r=0.862h;
+z12-z11l=whatever*dir30;
+penpos14(0.679cap_stem,-90);
+y14=0.589h; x14=x11;
+penpos15(whatever,-114);
+x15=0.926w; y15r=y14r; y15l=y14l;
+penstroke z14e--z15e;
+z13=(x15l,y11r);
+z17=(x12-apex_o,0.588[y13,y15l]);
+z12-z11l=whatever*dir30; y12=h+apex_o;
+penpos16(cap_hair,0);
+z16=whatever[z14l,z15l]; x16r=x17;
+filldraw z11l--z12 & z12..z13{down}
+--z16r{dir222} & z16r--z16l &
+z16l..z17{up}..z11r{left} &
+z11r--z11l & cycle;
+%
+%
+%
+z18=(0.417w,0.3h); z19=(0.267w,0.169h);
+z20=(0.834w,0.101h); z21=(0.7w,-apex_o);
+penpos22(cap_hair,-50);
+x22r=w; y22=0.132h;
+filldraw z5r{dir31}..z19{right}..
+z21{right}..z22r{dir40} &
+z22r--z22l & z22l{dir220}..z20{left}
+..z18{left}..z5l{dir211} & z5l--z5r
+& cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter F";
+.beginchar("F",9.925u#,cap_height#,2.943u#);
+.adjust_fit(usual_left#,usual_right#);penpos1(2/3cap_hair,-90);
+penpos2(1.286cap_stem,180);
+penpos2'(1.071cap_stem,-142.5);
+penpos3(cap_hair,-90);
+penpos4(1.214cap_stem,42.5);
+penpos5(1.125cap_stem,40);
+penpos6(0.786cap_stem,38);
+penpos6'(1.2cap_stem,53);
+penpos7(4/3cap_hair,-127);
+z1r=(0,3/2cap_hair); z2r=z1l;
+y3r=-d-apex_o; x3=0.55w;
+x4=0.821w; y4=-y4l; z5=(0.687w,0.368h);
+z6=(0.439w,0.807h);
+x7l=x5; y7l=h+apex_o;
+z8=(w,y7r); z10=z8-(0,cap_stem);
+z9=z10-(cap_stem,0);
+z2'l=z2l; z6'r=z6r;
+filldraw z2l{dir-79}..z3l{right}..
+z4l{up}..z5l..z6'l{up}..z7l{right}
+..z8 & z8--z10--z9 &
+z9{up}..z7r{left}..z6r{down}..
+z5r..z4r{down}..z3r{left}..
+z2'r..z1r{left} & z1r--z1l--z2l
+& cycle;
+%
+%
+%
+penpos11(2/3cap_hair,-90);
+penpos12(0.786cap_stem,-114);
+y11r=y12r=0.506h; x12l=w-apex_o;
+x11=0.29w;
+filldraw z11r--z11l & z11l{dir40}..
+z6{up} & z6--z6r--(x6r,y12l)--
+z12l--z12r--z11r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter G";
+.beginchar("G",13.434u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);penpos1(2cap_stem,-142);
+z1l=(0.815w,0.742h);
+penpos1'(cap_hair,-90); z1'l=z1r;
+penpos2(1.179cap_stem,-142);
+z2l=(w,0.466h); penpos3(cap_hair,77);
+z3=(0.764w,0.067h);
+z4=(0.59w,-apex_o);
+penpos5(1.179cap_stem,32);
+z5l=(0,0.457h);
+penpos6(cap_hair,-56.5);
+z7=(x4-0.643cap_stem,h+apex_o);
+z7-z6l=whatever*dir33.5;
+penpos8(1.286cap_stem,-130);
+z8r=z1l+(-apex_o,apex_o);
+z6r-z8r=whatever*(z7-z8l);
+filldraw z1'r{dir45}..z2r{down}..
+z3r{dir207}..z5r{up}..z6r{z7-z6l} &
+z6r--z8r--z8l--z7---z6l...
+z5l{down}..z4{right}..z3l{dir27}..
+z2l{up}..z1l{1/3[z6l,z7]-z1l}
+& z1l--z1r--z1'r & cycle;
+%
+%
+%
+penpos9(cap_stem,0); penpos10(cap_stem,0);
+penpos11(cap_hair,-32);
+penpos12(cap_hair,-52);
+x9r=x10r=x4; y9=0.3h; y10=0.681h;
+z12-z8=whatever*(z7-z8l);
+z12l-z10l=whatever*dir27;
+z9-z11''=whatever*dir58; y11''=0;
+z11=(z2{down}..z3{dir207}..z5{up})
+intersectionpoint (z11''--z9);
+z11'=whatever[z11,z9]; x11'=x9l;
+penstroke z9e--z10e;
+filldraw z11r{z9-z11}..z9r{z9r-z11'}
+& z9r--z9l & z9l{down}..z11l{z11-z9}
+& z11l--z11r & cycle;
+filldraw z10r{up}..z12r{z12l-z10l}
+& z12r--z12l--z10l--z10r & cycle;
+%
+%
+%
+penpos13(cap_hair,angle(z8l-z7));
+z13r=z8l; penpos14(1.5cap_hair,-15);
+x14r=w-cap_hair; y14l=h+apex_o;
+penstroke z13e{z8l-z8r}..z14e{up};
+.endchar;
+
+.cmchar "The Schwabacher letter H";
+.beginchar("H",11.736u#,cap_height#,2.566u#);
+.adjust_fit(usual_left#,usual_right#);penpos1(1.5cap_stem,-16);
+z1l=(0.637w,h); penpos2(cap_hair,-106);
+z2l=whatever[z1l,z1r]; y2l=h+apex_o;
+penpos3(cap_hair,-106); z3l=z1;
+penstroke z2e--z3e;
+penpos4(1.071cap_stem,18);
+penpos5(1.071cap_stem,18);
+z4l=(0,0.393h);
+z4r-z5r=whatever*dir120; x5r=0.286w;
+filldraw z4l---z4r...z1r{dir59} &
+z1r--z1l & z1l{dir260}..{dir208}z4l & cycle;
+penstroke z5e--z4e;
+%
+%
+%
+penpos6(cap_hair,angle(z5r-z4r));
+z6r=z5r; z7=(0.804w,0.503h);
+z8=(x1l,0.337h); penpos9(1.071cap_stem,180);
+z9r=(x7,0.147h); z10=(0.592w,-d-apex_o);
+z11=(0.498w,-0.809d);
+z12=(0.386w,-0.397d);
+z13=(0.473w,0.043h);
+z14=(x12,0.123h);
+z15=(x5r,0);
+filldraw z6r{z5r-z5l}..z8{right}..
+z9r{down}..z11{left}..z12{up}..
+z13{up}..z14{left}..z15{down}..
+z10{right}..z9l{up}..z7 & z7--z6l
+--z6r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter I";
+.beginchar("I",12.943u#,cap_height#,3.019u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.786cap_stem,32);
+z1l=(apex_o,0.653h);
+penpos2(0.821cap_stem,29);
+z2l=(0,0.715h); z4=(0.198w,0.85h);
+z5=(0.321w,h+apex_o);
+penpos3(cap_hair,-55); y3=y4;
+z5-z3l=whatever*dir35;
+penpos6(1.125cap_stem,-119);
+penpos8(cap_hair,-37);
+z6=(0.636w,0.822h);
+z8=(0.845w,h); penpos9(cap_hair,-37);
+penpos9'(cap_amount,-37);
+z9'l=z8r; z9l=z9'r;
+penpos10(1.304cap_stem,47);
+x10r=x8; y10r=y2;
+penpos11(1.107cap_stem,26);
+z11r=(w,0.215h); z12=(x10l,-0.313d);
+z13=(0.545w,-d-apex_o);
+z14=(0.19w,-0.45d);
+penpos15(cap_hair,-37); x15l=0;
+y15=-0.688d; penpos16(2.25cap_stem,-131);
+z16r=z15l;
+filldraw z1r{dir122}..z2r{up}..
+z3r..z4{right}..z6r{right}..
+z8r{dir57} & z8r--z8l &
+z8l{dir237}..z6l{left}..z5 &
+z5---z3l...z2l{down}..z1l{dir302}
+& z1l--z1r & cycle;
+%
+%
+%
+filldraw z15r{dir49}..z14{right}..
+z13 & z13{dir31}..z11r{up}..z10r{up}
+..z9r{dir57} & z9r--z9l &
+z9l{dir237}..z10l{down}..z11l{down}
+..z12{left}..z16l{dir139} &
+z16l--z16r--z15r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter J";
+.beginchar("J",12.943u#,cap_height#,3.019u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.786cap_stem,32);
+z1l=(apex_o,0.653h);
+penpos2(0.821cap_stem,29);
+z2l=(0,0.715h); z4=(0.198w,0.85h);
+z5=(0.321w,h+apex_o);
+penpos3(cap_hair,-55); y3=y4;
+z5-z3l=whatever*dir35;
+penpos6(1.125cap_stem,-119);
+penpos8(cap_hair,-37);
+z6=(0.636w,0.822h);
+z8=(0.845w,h); penpos9(cap_hair,-37);
+penpos9'(cap_amount,-37);
+z9'l=z8r; z9l=z9'r;
+penpos10(1.304cap_stem,47);
+x10r=x8; y10r=y2;
+penpos11(1.107cap_stem,26);
+z11r=(w,0.215h); z12=(x10l,-0.313d);
+z13=(0.545w,-d-apex_o);
+z14=(0.19w,-0.45d);
+penpos15(cap_hair,-37); x15l=0;
+y15=-0.688d; penpos16(2.25cap_stem,-131);
+z16r=z15l;
+filldraw z1r{dir122}..z2r{up}..
+z3r..z4{right}..z6r{right}..
+z8r{dir57} & z8r--z8l &
+z8l{dir237}..z6l{left}..z5 &
+z5---z3l...z2l{down}..z1l{dir302}
+& z1l--z1r & cycle;
+%
+%
+%
+filldraw z15r{dir49}..z14{right}..
+z13 & z13{dir31}..z11r{up}..z10r{up}
+..z9r{dir57} & z9r--z9l &
+z9l{dir237}..z10l{down}..z11l{down}
+..z12{left}..z16l{dir139} &
+z16l--z16r--z15r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter K";
+.beginchar("K",12.943u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90); z1=(1/10w,0);
+penpos3(cap_stem,0); z3=(0.419w,0.5h);
+z2=(x3l,0.261h); z4=(x3,0.853h);
+penpos4(cap_stem,0);
+penpos5(1.286cap_stem,-140);
+z5r=(0,0.773h); z6=(0.131w,0.69h);
+z7=(0.251w,0.828h); penpos8(cap_hair,-50);
+x8r=x3r; y8=h;
+filldraw z1r{right}...z3r---z4r--
+z8r--z4l---z2...z1l{left} & z1l--z1r &
+cycle;
+filldraw z8r--z8l & z8l{z4l-z8r}..z7{left}
+..z5l{dir130} & z5l--z5r & z5r{dir-50}
+..z6{right}..z8r{z8r-z4l} & cycle;
+%
+%
+%
+penpos9(whatever,-90);
+penpos10(cap_hair,-50);
+z10=(0.681w,h); z9l=z4r;
+z9r-z10r=whatever*(z9l-z10l);
+penpos12(cap_hair,-50);
+z12=whatever[z10l,z10r];
+penpos11(whatever,-90);
+z11r=z3r; z11r-z12r=whatever*(z9r-z10r);
+z11l-z12l=whatever*(z9r-z10r);
+penpos13(1.107cap_stem,angle(z12-z11));
+penpos14(1.107cap_stem,angle(z12-z11));
+z13r=z12r; z14r=z10r;
+penstroke z9e--z10e;
+penstroke z11e--z12e;
+penstroke z13e--z14e;
+%
+%
+%
+penpos16(1.071cap_stem,30);
+x16r=w; y16l=-apex_o;
+penpos15(whatever,angle(z12-z11));
+z15=whatever[z11r,z12r];
+z15r-z16r=whatever*dir124;
+z15l-z16l=whatever*dir124;
+penstroke z16e--z15e;
+%
+%
+%
+z17=(x3,1.5cap_amount);
+z18=(x3r,0.221h);
+penpos19(1.071cap_stem,45);
+z19l=(0.613w,-apex_o);
+filldraw z1r{right}..z17{right}..
+z19l & z19l--z19r--z18 &
+z18{dir220}..z1l{left} & z1l--z1r &
+cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter L";
+.beginchar("L",10.377u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90);
+penpos1'(cap_amount,-90);
+penpos2(cap_hair,-90);
+x1=x1'=x2=0; y1r=y1'l; y1'r=y2l;
+y1'=0.135h; penpos3(whatever,28);
+penpos6(whatever,28);
+x3r=0.349w; x6l=0.505w;
+x3l=x3r-.95cap_stem; x6r=x6l+.95cap_stem;
+y3r=0.472h;
+z6=whatever[z3l,z3r]+(0,-u);
+penpos4(whatever,18);
+penpos7(whatever,0);
+x4l=x3l; x4r=x3r; x7l=x6l; x7r=x6r;
+y4r=0.779h; z7=whatever[z4l,z4r];
+penpos5(cap_hair,-70);
+x5=x7r; y5=0.45[h,y7];
+penpos8(cap_hair,-57);
+x8=0.753w; y8=h;
+penpos9(cap_stem,-148);
+penpos10(0.893cap_stem,-137);
+penpos11(cap_hair,-53);
+z9=(0.287w,0.178h);
+x10=x8; y10r=-apex_o;
+x11r=w; y11r=y9r;
+%
+%
+%
+penstroke z1e{dir23}...z3e---z4e...
+z5e{right};
+penstroke z1e{dir23}...z6e---z7e...
+z8e{right};
+penstroke z2e{dir23}..z9e{right}
+..z10e{right}..z11e{dir37};
+.endchar;
+
+.cmchar "The Schwabacher letter M";
+.beginchar("M",17.736u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.25cap_stem,47);
+penpos2(1.25cap_stem,47);
+penpos3(1.107cap_stem,42.5);
+penpos4(1.143cap_stem,47);
+penpos5(0.5cap_hair,0);
+penpos6(cap_hair,-43);
+penpos7(cap_hair,-43);
+x2l=0; y1l=-apex_o;
+z2-z1=whatever*dir143;
+y2l=0.141h; z3r=(0.207w,0.638h);
+x4l=0; y4r=h+apex_o; z5l=z4r;
+z6r=z1; z7r=whatever[z1l,z1r];
+penpos11(cap_stem,0);
+x11=0.494w; x9=0.423[x3r,x11l];
+x9=x7;
+penstroke z6e--z7e;
+penstroke z1e--z2e;
+filldraw z2r{z2r-z2l}..z3r{up}..
+z5r{up} & z5r--z5l--z4l &
+z4l{dir-56}..z3l{down}..z2l{z2l-z2r}
+& z2l--z2r & cycle;
+%
+%
+%
+penpos8(1.214cap_hair,-90);
+z8=(x3,y3r); y11=0.709h;
+z10=(x11l,h+apex_o);
+z9-z8r=whatever*(z10-z8l);
+filldraw z8r---z9...z11l{down} &
+z11l--z11r & z11r{up}..z10{left}
+& z10--z8l--z8r & cycle;
+penpos12(whatever,30);
+y12l=-apex_o; x12l=x11l; x12r=x11r;
+penstroke z12e--z11e;
+%
+%
+%
+penpos13(1.25cap_hair,-90);
+z13r=z11r; %penpos24(1.036cap_stem,-129);
+%penpos25(1.036cap_stem,-129);
+penpos20(2/3cap_hair,-52);
+penpos18(whatever,11);
+penpos19(whatever,31);
+x18l=x19l=0.768w;
+x18r=x19r=x18l+cap_stem;
+y18l=0.187h; y19l=0.54h;
+z20r=(w,0.856h); penpos22(cap_hair,-61);
+z22r=(w,0.184h); penpos21(cap_hair,-61);
+y21=0; x21r=0.749w;
+filldraw z21r--z22r--z22l &
+z22l{z21r-z22r}...z18r{up}---
+z19r..z20r{dir34} & z20r--z20l &
+z20l{dir214}...z19l{down}---z18l..
+z21l{dir235} & z21l--z21r & cycle;
+%
+%
+%
+penpos24(1.036cap_stem,-128);
+penpos25(1.036cap_stem,-128);
+z25=(0.789w,0.911h);
+z24=z25-(0.714cap_stem,0);
+z26-z25r=whatever*dir-34;
+x26=w;
+z17=(z18{up}---z19...z20{dir34})
+intersectionpoint (z25r--z26);
+filldraw z13r---z24r...z25r---
+z17 & z17--z20--z20l &
+z20l{dir214}..{z25r-z17}z25l...
+z24l---z13l & z13l--z13r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter N";
+.beginchar("N",14.868u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.107cap_stem,55);
+z1l=(0.348w,-apex_o);
+z3=(0.056w,0.184h);
+z2=(0.231w,0.089h);penpos4(cap_hair,0);
+z4l=(0.152w,0.445h);
+penpos5(1.25cap_stem,49);
+x5l=0; y5r=h+apex_o; penpos6(0.5cap_hair,0);
+z7=(0.129w,0.945h);
+penpos15(cap_hair,-35);
+z15-z14=whatever*dir55;
+penpos14(cap_hair,-35);
+z14r=z1; x15=0.576w; z8'=(x15r,0);
+penpos16(cap_stem,-123.5);
+x16=0.497w; y16l=h+apex_o;
+penpos10(1.071cap_stem,-135);
+z10r=(0.797w,0.656h);
+filldraw z1l--z1r{z3-z1l}..z4r{up}
+& z4r--z4l & z4l{down}..z3 &
+flex(z3,z2,z1l) & cycle;
+penstroke z14e--z15e;
+penstroke z4e{up}..z16e{right}..
+z10e{dir-45};
+z6l=z5r;
+%z8'-z7=whatever*dir-58; y8'=0;
+z8=(z7--z8') intersectionpoint
+(z4{up}..z16{right});
+filldraw z4l{up}..z5l--z5r--z6r
+& z6r...z7---z8 & z8--z4--z4l &
+cycle;
+%
+%
+%
+penpos11(cap_hair,-45); penpos12(cap_hair,-45);
+z11r=z10; z12-z11=whatever*dir45;
+x12r=w; z13=(0.891w,0.862h);
+filldraw z16--z16l{right}..z13..
+z12l{z12-z11} & z12l--z12r--z11r
+--z11l & z11l..z16{left} & cycle;
+%
+%
+%
+penpos19(2/3cap_hair,0);
+penpos20(cap_hair,-90);
+z19r=(x11r,-apex_o);
+x20=w; z20-z19=whatever*dir40;
+z21=(0.694[x19,x20],y20r);
+z18=(0.701w,0.301h);
+z22=(0.827w,0.485h);
+filldraw z19r--z20r--z20l &
+z20l..z21{left}..z22{up}..z12r{z12r-z11r}
+& z12r--z12l--z10r &
+z10r{z10r-z10l}..z18{down}..z19l &
+z19l--z19r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter O";
+.beginchar("O",12.528u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,115);
+penpos8(cap_stem,0); x8r=0.536w;
+y8=0.451h; penpos9(whatever,25);
+x9l=x8l; x9r=x8r; y9r=h+apex_o;
+z1r=z9l; penpos2(0.929cap_stem,-154);
+z2r=(0,0.5h); penpos3(1.071cap_stem,-128.5);
+x3=x8r; y3r=-apex_o;
+penpos4(0.946cap_stem,29);
+z4r=(w,0.54h); z5=(0.735w,0.837h);
+penpos5(1.107cap_stem,44);
+penpos6(1.286cap_stem,47);
+z6r=(x5,h+apex_o);
+penpos10(cap_hair,-43);
+penpos11(cap_hair,-43);
+z11l=z6; z11-z10=whatever*dir47;
+x10=x8;
+z8r-z7'=whatever*dir49;
+y7'=0; penpos7(cap_hair,-41);
+z7r=(z7'--z8r) intersectionpoint
+(z2{down}..z3{right});
+z3''=whatever[z2,z4]; x3''=x8r;
+z3'=whatever[z3'',(w,cap_hair)];
+penpos3'(cap_hair,angle((w,cap_hair)-z3''));
+x3'=0.819w;
+penstroke z1e{z9l-z9r}..z2e{down}
+..z3e{right}..z3'e..z4e{up}...z5e{z6-z5}...
+z6e;
+filldraw z7r--z8r--z9r--z9l---z8l
+...z7l{z7r-z8r} & z7l--z7r & cycle;
+penstroke z10e--z11e;
+.endchar;
+
+.cmchar "The Schwabacher letter P";
+.beginchar("P",11.849u#,cap_height#,3.2u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos2(cap_stem,0); x2=0.226w;
+y2=0.08h; penpos1(0.1cap_hair,0);
+z1=(x2,-d-apex_o);
+penpos3(whatever,35);
+penpos4(1.25cap_stem,47);
+x4l=0; y4r=h+apex_o;
+x3l=x2l; x3r=x2r; y3r=0.761h;
+penstroke z1e--z2e---z3e{up}...z4e;
+%
+%
+%
+penpos5(whatever,-122);
+x5r=0; x5l=x2l;
+y5r=y2+2/3cap_hair;
+penpos6(cap_stem,-140);
+z6r=(0.534w,-apex_o);
+penpos8(cap_hair,-50);
+z8r=whatever[z6l,z6r]; x8=0.752w;
+penpos9(1.107cap_stem,36);
+z9r=(w,y3l); z10=(0.536w,h+apex_o);
+z11=(0.513w,0.831h);
+penpos12(cap_hair,90); x12=x1;
+y12=2/3h; z7=(0.634w,0.156h);
+z5'=(x2l,0.135h);
+filldraw z5r{right}..z6r &
+z6r---z6l...z8r..z9r{up}..z10 &
+z10--z12r--z12l & z12l{z10-z12r}..
+z11{right}..z9l{down}..z8l..z7{left}..
+z5l{left} & z5l--z5r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter Q";
+.beginchar("Q",12.528u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#+1.208u#);
+penpos1(cap_hair,115);
+penpos8(cap_stem,0); x8r=0.536w;
+y8=0.451h; penpos9(whatever,25);
+x9l=x8l; x9r=x8r; y9r=h+apex_o;
+z1r=z9l; penpos2(0.929cap_stem,-154);
+z2r=(0,0.5h); penpos3(1.071cap_stem,-128.5);
+x3=x8r; y3r=-apex_o;
+penpos4(0.946cap_stem,29);
+z4r=(w,0.54h); z5=(0.735w,0.837h);
+penpos5(1.107cap_stem,44);
+penpos6(1.286cap_stem,47);
+z6r=(x5,h+apex_o);
+penpos10(cap_hair,-43);
+penpos11(cap_hair,-43);
+z11l=z6; z11-z10=whatever*dir47;
+x10=x8;
+z8r-z7'=whatever*dir49;
+y7'=0; penpos7(cap_hair,-41);
+z7r=(z7'--z8r) intersectionpoint
+(z2{down}..z3{right});
+z3''=whatever[z2,z4]; x3''=x8r;
+z3'=whatever[z3'',(w,cap_hair)];
+penpos3'(cap_hair,angle((w,cap_hair)-z3''));
+x3'=0.819w;
+penstroke z1e{z9l-z9r}..z2e{down}
+..z3e{right}..z3'e..z4e{up}...z5e{z6-z5}...
+z6e;
+filldraw z7r--z8r--z9r--z9l---z8l
+...z7l{z7r-z8r} & z7l--z7r & cycle;
+penstroke z10e--z11e;
+%
+%
+%
+penpos12(cap_hair,-30);
+x12=0.3[x5,x3']; y12=cap_hair;
+penpos13(1.179cap_stem,-118);
+z13l=(w+1.408u,0.288h);
+penstroke z12e{dir60}..z13e{dir-28};
+.endchar;
+
+.cmchar "The Schwabacher letter R";
+.beginchar("R",12.792u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.143cap_stem,33);
+penpos2(1.143cap_stem,33);
+z1l=(0.342w,-apex_o);
+penpos16(cap_hair,-57);
+penpos17(cap_hair,-57);
+z16r=z1; z17-z16=whatever*dir33;
+x17=0.625w; x2=0.242w; z2-z1=whatever*dir133;
+penpos3(cap_hair,-47);
+z3r=z2l; penpos4(cap_stem,22);
+z4=(0.451w,0.583h);
+penpos5(1.5cap_stem,48);
+x5l=0; y5r=h+apex_o;
+penstroke z16e--z17e;
+penstroke z1e--z2e;
+filldraw z3r---z2r...z4r{up}..z5r{left}
+& z5r--z5l & z5l{right}..z4l{down}..
+z3l{z2l-z2r} & z3l--z3r & cycle;
+z7=(0.687w,h+apex_o);
+z7-z7'=whatever*dir45;
+x7'=0; z6=(z7'--z7) intersectionpoint
+(z4r{up}..z5r{left});
+z6'=z6-(0,cap_hair);
+penpos8(cap_stem,-147);
+penpos12(cap_hair,90);
+z8=(0.802w,0.804h); x12=x4; y12=0.552h;
+penpos8'(1.179cap_stem,-135);
+z8'l=z8l;
+penpos13(cap_stem,17);
+z13=(0.708w,0.506h);
+penpos14(1.464cap_stem,25);
+x14r=w; y14l=-apex_o; penpos15(2/3cap_hair,-90);
+z15r=z14r; z13'-z13r=whatever*(z13l-z14l);
+z13'=whatever[z4r,z8];
+z11=(0.735w,0.712h);
+penpos11'(cap_hair,angle(z13'-z13r));
+z11'r=z11;
+filldraw z6--z7..z8'l{down}..z11'l
+{dir201} & z11'l---z13r...z15l{right}
+& z15l--z15r--z14l---z13l...z12l{dir187}
+& z12l--z12r & z12r{dir7}..z11..
+z8'r{up}..z6'{dir208} & z6'--z6 &
+cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter S";
+% made in Athens, Greece on july 21, 1990
+.beginchar("S",13.887u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,148);
+penpos2(cap_hair,180);
+penpos3(cap_hair,-90);
+penpos4(1.107cap_stem,25);
+penpos5(1.125cap_stem,72);
+penpos6(1.071cap_stem,84);
+penpos7(0.875cap_stem,48);
+penpos8(1.036cap_stem,-136);
+penpos9(1.161cap_stem,-111);
+penpos10(cap_hair,-42); penpos11(cap_hair,-42);
+z1=(0.109w,0.799h); z2r=(0,0.552h);
+z3r=(0.533w,-apex_o); z4r=(w,0.345h);
+z5=(0.685w,0.497h); z6=(0.402w,0.451h);
+z7=whatever[z2r,z1l]; x7r=x1l;
+z8l=(0.413w,h+apex_o); z9r=(0.832w,0.683h);
+y10r=y9l; x10r=w-apex_o;
+z10r-z11r=whatever*dir48; y11=y5;
+penstroke z1e..z2e{down}..z3e{right}
+..z4e{up}..z5e{left}..z6e{left}..
+z7e{up}..z8e{right}..z9e{right};
+penstroke z11e--z10e;
+filldraw z9l{right}..{z10-z11}z10l--z10r--
+z9r--z9l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter T";
+.beginchar("T",11.811u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.893cap_stem,51);
+y1l=-apex_o; x1r=w-1.3apex_o;
+penpos2(cap_hair,-61);
+z2l=z1r; %x2r=w;
+penpos3(cap_hair,angle(z2r-z2l));
+z2-z3=whatever*dir45; y3r=-apex_o;
+penpos4(cap_stem,90);
+x4=0.633w; y4l=-apex_o;
+penpos5(3/4cap_stem,30);
+z5r=(0.217w,0.5h);
+penpos6(cap_hair,-51);
+z6r=(0.396w,h-apex_o-cap_stem);
+penstroke z3e--z2e;
+penstroke z4e{left}...
+z5e{up}..z6e{dir39};
+filldraw z4r{right}..z2l{z2-z3} &
+z2l--z3r--z4l--z4r & cycle;
+%
+%
+%
+penpos10(cap_stem,-90);
+penpos11(whatever,-115);
+x10=0.115w; y10l=h-apex_o;
+z11l=(w,h+apex_o); penpos10'(cap_stem,-90);
+y11r=y10r; y10'=y10; x10'=x3;
+penstroke z10e---z10'e...z11e;
+penpos13(cap_hair,-34);
+x13l=0; y13=0.732h;
+z12=whatever[z10r,z11r]; x12=x5;
+filldraw z13r{dir56}..z12{right} &
+z12--z10l--z13l--z13r & cycle;
+%
+%
+%
+penpos9(cap_stem,0);
+penpos8(cap_stem,0);
+z9=(0.511w,y10r); z8=(x9,0.381h);
+penstroke z8e--z9e;
+penpos7(0.5cap_hair,-52);
+z8r-z7r=whatever*dir38;
+y7r=y4r; z14=(x8l,0.1[y8,y4r]);
+filldraw z7r--z8r--z8l---z14...
+z7l{z7r-z8r} & z7l--z7r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter U";
+.beginchar("U",11.811u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_stem,0); penpos2(cap_stem,0);
+penpos3(2.375cap_stem,0); penpos5(cap_stem,0);
+penpos6(cap_stem,0);
+x1=w-1.188cap_stem=x2=x3=x4;
+y1=0.152h; y2=0.72h; y3=0.848h;
+y4=h+apex_o;
+penstroke z1e--z2e;
+filldraw z2r{up}..z3r{right} &
+z3r--z4--z3l & z3l{right}..z2l{down}
+& z2l--z2r & cycle;
+penpos9(cap_hair,90); penpos10(whatever,40);
+z10l=(x1l,-apex_o); y10r=y1;
+x9=w-0.04w; z9r=whatever[z10l,z10r];
+filldraw z10l--z9l
+& z9l--z9r & z9r{left}..(x1r,0.274h){up}
+--z1l--z10l & cycle;
+%
+%
+%
+penpos11(1.148cap_stem,39);
+penpos12(1.148cap_stem,39);
+x5r=0.288w; y5=y1; x6=x5; y6=0.817h;
+z11l=(0.393w,-apex_o);
+z12l=z5l; penpos13(cap_hair,-51);
+penpos14(cap_hair,-51);
+z14r=whatever[z11l,z11r];
+z13r=z11; x14l=x1l;
+penstroke z13e--z14e;
+penstroke z11e--z12e;
+penstroke z5e--z6e;
+penpos8(cap_hair,90); z8l=(w-x9,y9l);
+filldraw z11l{z12l-z11l}..z8l
+& z8l--z8r & z8r{right}..(x5l,0.274h){up}
+--z5r--z11l & cycle;
+penpos7(whatever,55);
+z7l=(0,y6); y7r=h+apex_o;
+filldraw z6r{up}..z7r{dir138} &
+z7r--z7l & z7l{right}..(x6l,y2) &
+(x6l,y2)--z6r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter V";
+.beginchar("V",12.189u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.143cap_stem,43);
+penpos2(1.5cap_stem,25);
+penpos3(1.2cap_stem,16);
+penpos4(1.393cap_stem,50);
+z1l=(0.526w,-apex_o);
+z2=(0.251w,0.186h);
+z3=(0.303w,0.494h); x4l=0; y4r=h+apex_o;
+%filldraw z1l{dir138}..z2l{left}
+%& z2l{dir68}..z3l{up}..z4l{dir150}
+%& z4l--z4r & z4r{dir-30}..z3r{down}
+%..z2r & z2r{dir-13}..z1r{dir-33} &
+%z1r--z1l & cycle;
+penstroke z2e..z3e{up}..z4e{dir150};
+penstroke z1e{dir143}..z2e{left};
+%
+%
+%
+penpos5(1.232cap_stem,46);
+z5r=(w,0.61h); z6=(0.557w,0.82h);
+z8=(0.681w,h+apex_o);
+penpos7(cap_hair,-55);
+z8-z7l=whatever*dir37;
+x7r=x3;
+filldraw z1l{dir30}..z5r{up}..z8 &
+z8--z7l--z7r & z7r{z8-z7l}..z6{right}
+..z5l{down}..z1r{dir210} &
+z1r--z1l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter W";
+.beginchar("W",18.189u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-56);
+penpos2(cap_hair,-56);
+z2r=(0.245w,-apex_o);
+z1r-z2r=whatever*dir34;
+y1l=0.216h-cap_hair;
+penstroke z2e--z1e;
+penpos3(cap_hair,90);
+y3l=y1l; x3=x2r-1.393cap_stem;
+penpos6(cap_stem,0); z6r=(x2r,y3r);
+z4=0.592[z2l,z1l];
+z5-z4=whatever*(z3l-z2r); x5=x6r;
+z7=(x6l,0.36h);
+penpos8(cap_stem,0); x8=x6;
+y8=0.704h;
+penpos9(1.179cap_stem,57);
+x9l=0; y9r=h+apex_o;
+penstroke z6e---z8e...z9e;
+filldraw z2r--z3l--z3r..z7{up}
+& z7--(x6r,y7)--
+z5--z4--z2r & cycle;
+%
+%
+%
+penpos11(cap_hair,-90); z12=(0.444w,h+apex_o);
+z11r=z8r; z13=(.763[x11,x12],0.802h);
+penpos16(cap_stem,0); x16=0.548w;
+y16=0.104h; penpos14(cap_stem,0);
+z14=(x16,y8); z14'=(x14r,y13);
+filldraw z11r{z12-z11l}...z13{right}
+...z14l---z16l--z16r---z14'...z12{dir170}
+& z12--z11l--z11r & cycle;
+penpos18(1.179cap_stem,40);
+penpos18'(1.179cap_stem,40);
+penpos17(1.179cap_stem,40);
+z17l=z16l; z18-z17=whatever*dir-23;
+y18l=-apex_o;
+z18'=0.4[z17,z18]+(apex_o,apex_o);
+penstroke z18e..z18'e..z17e;
+%
+%
+%
+penpos15(cap_hair,-90); z22=(x15-x11+0.444w,h+apex_o);
+z15r=z14r; z21=(.763[x15,x22],0.802h);
+penpos20(1.071cap_stem,35); x20r=w;
+y20=0.552h; penpos19(cap_hair,-60);
+z19r=z18l;
+penstroke z19e{dir30}..z20e{up};
+filldraw z20l{up}..z21{left}..
+z15r{z15l-z22} & z15r--z15l--z22 &
+z22..z20r{down} & z20r--z20l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter X";
+.beginchar("X",11.472u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.179cap_stem,-130);
+penpos2(1.179cap_stem,-122);
+penpos3(0.8cap_hair,-17);
+penpos4(cap_hair,-22);
+penpos5(1.2cap_hair,-23);
+penpos6(1.107cap_stem,-120);
+penpos7(1.125cap_stem,-124);
+z1r=(0,0.065h); z2r=(0.128w,-apex_o);
+z3=(0.414w,0.28h);
+z4=(0.49w,0.509h); z5=(0.625w,0.765h);
+z6l=(0.878w,h+apex_o);
+z7l=(w,0.945h);
+penstroke z1e..z2e{right}..z3e..z4e
+..z5e..z6e{right}..z7e;
+%
+%
+%
+penpos8(cap_hair,90); penpos9(1.393cap_stem,40);
+penpos10(0.964cap_stem,82);
+penpos11(1.036cap_stem,42);
+penpos12(cap_stem,0);
+penpos13(1.036cap_stem,43);
+penpos14(1.321cap_stem,43);
+x9r=w; y9l=-apex_o; z8l=z9r; z10l=z9l;
+z11=(0.612w,0.186h); z12=z4;
+z13=(0.395w,0.835h); z14r=(0.217w,h+apex_o);
+penstroke z10e{left}..z11e..z12e..z13e..
+z14e{left};
+filldraw z9r--z8r..z10r{left}--z10l
+--z9r & cycle;
+%
+%
+%
+penpos15(cap_hair,0);
+penpos21(0.8cap_stem,-90);
+penpos17(cap_hair,0);
+z21=z4; y19=y18=y21r; y16=y20=y21l;
+y15=y21-0.821cap_stem; y17=y21+0.643cap_stem;
+x15=0.118w; x16=0.204w; x17=0.928w;
+x18=0.836w; x19=0.263w; x20=3/4w;
+filldraw z15r...z19---z18--z17r--
+z17l...z20---z16--z15l--z15r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter Y";
+.beginchar("Y",12.302u#,cap_height#,2.34u#);
+.adjust_fit(usual_left#,usual_right#);
+z1=(0.868w,-d); penpos2(cap_stem,7);
+z4=(0.788w,-0.274d);
+z2=(0.856w,-0.613d);
+penpos5(5/3cap_hair,120);
+penpos6(1.2cap_hair,158);
+penpos7(1.2cap_hair,-55);
+penpos8(1.161cap_stem,22);
+z5l=(0.294w,0.171h);
+z6r=(0,0.035h);
+z7r=(0.221w,-0.6d);
+z8r=(w,0.683h); z11=(0.767w,h+apex_o);
+penpos12(cap_stem,0); z12=(0.485w,0.421h);
+x9=0.325[x12r,x8l]; y9=0.835h;
+penpos10(cap_hair,128.5);
+z11-z10r=whatever*dir38.5;
+x10l=x12;
+penstroke z5e{left}..z6e{down}..z7e{right}
+..z8e{up};
+filldraw z1{right}..z2r{up}..z5r{left}
+& z5r--z5l & z5l{right}..z4{down}..
+z2l{down}..z1{right} & cycle;
+filldraw z8l{up}..z9{left}..z10l
+{z10r-z11} & z10l--z10r--z11 &
+z11..z8r{down} & z8r--z8l & cycle;
+%
+%
+%
+penpos13(whatever,33); x13r=x12r;
+z13=(z7{right}..z8{up})
+intersectionpoint ((x12,-d)--z12);
+penpos14(cap_hair,90);
+penpos15(1.464cap_stem,31);
+y15r=h+apex_o; x15l=0; z14r=z15l;
+filldraw z13r---z12r...z15r{left}
+& z15r--z15l--z14l &
+z14l{dir20}...z12l---z13l--z13r &
+cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter Z";
+.beginchar("Z",7.736u#,cap_height#,1.132u#);
+.adjust_fit(usual_left#,usual_right#);
+z1=(apex_o,0.866h);
+penpos2(1.125cap_stem,-135);
+penpos3(1.125cap_stem,-135);
+penpos4(1.125cap_stem,-135);
+penpos5(cap_hair,-45);
+z5r=(w,0.89h);
+penpos6(whatever,-90); x6=0.205w;
+z5r-z6r=whatever*dir45;
+z5l-z6l=whatever*dir45;
+z4l=z5l; z3=(0.722w,0.826h);
+z2l=(0.312w,h+apex_o);
+penstroke z2e{right}..z3e{right}..
+z4e;
+penstroke z6e--z5e;
+filldraw z1..z2l{right}--z2r{left}
+..z1 & cycle;
+%
+%
+%
+z10=(0,0.128h); z12=(0.327w,y10);
+z13=(0.263w,apex_o);
+penpos9(cap_hair,-90);
+z9r=(0.439w,-d);
+penpos8(1.071cap_stem,36);
+z8r=(w,0.317h);
+penpos7(cap_stem,68);
+z7r=whatever[z6r,z5r];
+y7l=y6l; penstroke z9e{right}..
+z8e{up}..z7e{left};
+filldraw z6r{z5r-z6r}..z7l{right}
+& z7l--z7r--z6r & cycle;
+filldraw z9r{left}..z10{up}..z12{down}
+..z13{down}..z9l{right} & z9l--z9r &
+cycle;
+.endchar;