beginchar("H",3wedge_wid#/stem_porp,let_height#,0); wlen(1) := 3wedge_wid/stem_porp; wccw(1) = (0, h); rot(2) := -90; rot(3) := -90; rot(4) := -90; wcw(2) = mid(1); wcw(3) = wccw(2); wcw(4) = wccw(3); wccw(5) = mid(2); wlen(5) := wedge_len*1.5; wmid(6) = mstem(2); wedgeset(1, 6); endchar;