beginchar("s",.3em#,3cap#/7,.5dth#); "sigma teliko"; path p[]; save ww,hh,dd,phdr; ww = w/3; hh = h/3; dd = d/1; b := .2ww; x0 = x2 = 2.3ww; x3 = 1.8ww; x1 = .1ww; y0 = 3hh - y2 = 2.9hh; y1 = .5[y0,y2]; y3 = -.4dd; z4 = z2; p0 = z0{left}..z1{down}..{right}z2; z5 = point 1.5 of p0; phdr = angle direction 1.5 of p0; penpos0(3b,270); penpos1(b,0); penpos2(b,90); penpos4(b,angle(z3-z2)+90); penpos3(b,angle(z3-z2)+90); penpos5(2.5b,phdr+90); penstroke z0e{left}..z1e{down}..z5e..{right}z2e; penstroke z4e{z3-z2}..{z3-z2}z3e; pickup pencircle scaled 3b; drawdot z0; endchar;