1 files changed, 1578 insertions, 0 deletions
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