beginchar(65,7);
endchar(5);
draw z1 -- z2 -- z3 withcolor col;
draw z1 .. z2 .. z3 withcolor col;
draw z1 {left} .. {right}z2 .. z3 withcolor col;
draw z1 {dir 50} .. z2 .. z3 withcolor col;
top y2 := capHeight * uy;
bot y1 := 0*uy;
z4 := .5[z1,z2];
fill z1 -- z2 -- z3 -- z1 -- cycle withcolor red;
pickup pensquare scaled .5 ux;
pickup pencircle scaled .5 ux;
linecap:=rounded;
linecap:=squared;