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;