beginchar("T",em#,5cap#/7,0dth#); "Taf"; path p[]; save ww,hh,dd; ww = w/10; hh = h/5; b := ww; x5 = x6 = x0 = x1 = x2 = 5ww; y7 = y8 = y3 = y2 = y4 = 9hh; x3 = 10ww - x4 = ww; y10 = y11 = y0 = 0; y1 = 5hh; y5 = .5[y0,y1]; y12 = y13 = y6 = .5[y2,y1]; x7 = .5[x2,x3]; x8 = .5[x2,x4]; z9 = z2; x10 = 10ww - x11 = 2.5ww; x12 = 10ww - x13 = 2.5ww; penpos0(2b,0); penpos5(.6b,0); penpos1(1.7b,0); penpos6(.6b,0); penpos2(b,0); penpos3(b,90); penpos7(.6b,90); penpos9(1.7b,90); penpos8(.6b,90); penpos4(b,90); penstroke z0e{up}..z5e..z1e..z6e..{up}z2e; penstroke z3e{right}..z7e..z9e..z8e..{right}z4e; pickup pencircle scaled b; drawdot z3; drawdot z4; pickup pencircle scaled .4pt; draw z10{up}..z1..{up}z13; draw z11{up}..z1..{up}z12; draw fullcircle scaled .5b shifted (z12); draw fullcircle scaled .5b shifted (z13); endchar;