beginchar("M",5wedge_wid#,let_height#,0); wlen(1) := let_height; rot(1) := -90; wlen(2) := let_height; rot(2) := -90; wlen(3) := let_height; rot(3) := -90; wlen(4) := let_height; rot(4) := -90; wlen(5) := w; wlen(6) := w; wccw(1) = wcw(2); wccw(2) = wcw(3); wccw(3) = wcw(4); wccw(4) = (w, h); wpnt(5) = (w, ypart mid(4)); wccw(6) = wcw(5); wedgeset(1, 6); endchar;