beginchar(4, (2 + (cosd 60))*wedge_len#,let_height#,0); wcw(1) = wccw(2) = (0, h/2); tback(3) = wpnt(2); tmid(4) = tmid(5); rot(4) := 60; rot(5) := -60; .5[wccw(4), wcw(5)] = mid(1); tmid(6) = tmid(7); rot(6) := 60; rot(7) := -60; .5[wccw(6), wcw(7)] = wpnt(3); tmid(8) = tmid(9); rot(8) := 60; rot(9) := -60; mid(9) = mid(6); wlen(10) := .8wedge_len; .5[wccw(8), wcw(9)] = wpnt(10); wedgeset(1, 10); endchar;