beginchar("v",.3em#,4cap#/7,.5dth#); "ksi";
path p[];
 save ww,hh,dd;

 ww = w/3; hh = h/4; dd = d/1;
 b := .3ww;

z0 = (2.5ww,3.8hh);
x1 = x3 = x5 = .8ww;
x2 = x4 = x6 = 2.2ww;
y5 = .25hh;
y3 = 1.6hh;
y1 = 3.3hh;
y4 = 1.1hh;
y2 = 2.6hh;
y6 = y7 = -.5dd;
x7 = 1.7ww;

p0 = z0{dir160}..z1{down}..z2{dir25};
z8 = point 1.6 of p0;
p1 = z2{left}..z3{down}..z4{dir25};
z9 = point 1.6 of p1;
p2 = z4{left}..z5{down}..z6{down}..z7;

penpos0(2b,250);
penpos1(2b,0);
penpos2(2b,90);
penstroke z0e{dir160}..z1e{down}..z2e{dir25};

z10 = z2;
penpos10(2b,250);
penpos8(2b,270);
penpos3(2b,0);
penpos4(2b,90);
penstroke z10e{dir160}..z8e..z3e{down}..z4e{dir25};

z11 = z4;
penpos11(2b,90);
penpos9(2b,90);
penpos5(2b,210);
penpos6(3b,190);
penpos7(2b,0);
penstroke z4e{left}..z5e{down}..z6e{down}..z7e;

endchar;