beginchar("{",(1 + 2.5*(cosd 60))*wedge_len#,let_height#,0); rot(1) := 60; rot(2) := -60; wcw(1) = wmid(2); rot(3) := 60; rot(4) := -60; wcw(3) = wmid(4); wmid(1) = tback(3); rot(5) := rot(6) := rot(7) := rot(8) := -90; tback(6) = wmid(5); tback(8) = wmid(7); wccw(5) = wcw(7); rot(9) := 60; rot(10) := -60; wcw(9) = wmid(10); wccw(9) = wmid(8); wmid(11) = tback(12); ccwmid(12) = tmid(6); ccwmid(13) = wcw(12); mstem(4) = wcw(11); xpart wccw(1) = 0; ypart wpnt(6) = 0; wedgeset(1, 13); endchar;