beginchar("~",2wedge_len#,let_height#,0); wedgesetup; rot(1) := -90; wlenwid(1, h); wlen(2) := wlen(3) := wlen(4) := h; wpnt(2) = cwmid(1); wcw(3) = tmid(2); rot(3) := -90; wcw(4) = wpnt(3); wlenwid(5, .6wedge_len); wlenwid(6, .6wedge_len); wlenwid(7, .6wedge_len); wlenwid(8, .6wedge_len); wlenwid(9, .6wedge_len); wlenwid(10,.8wedge_len); rot(5) := 60; rot(6) := -60; tmid(5) = tmid(6); rot(7) := 60; rot(8) := -60; tmid(7) = tmid(8); rot(9) := -60; wcw(6) = wccw(9); wcw(9) = wccw(8) = mid(10); wccw(10) = mid(3); wccw(1) = (w, h); wedgeset(1, 10); endchar;