beginchar("c",.3em#,3cap#/7,0dth#); "sigma"; picture sigma; path p[]; save ww,hh; ww = w/3; hh = h/3; b := .2ww; x1 = x3 = 1.1ww; y0 = y2 = hh; x0 = .1ww; x2 = 2ww; y1 = 0; y3 = 2.3hh; z4 = (2.6ww,2.6hh); p0 = z0{down}..z1{right}..z2{up}..z3{left}..cycle; p1 = z3--z4; pickup pencircle scaled 2b; draw p0; draw p1; sigma = currentpicture; endchar;