summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf1179
1 files changed, 1179 insertions, 0 deletions
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;