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;
.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;

