1 2 3 4 5 6 7 8 9 10 11 12 13
beginchar(7, 1.5wedge_len#,let_height#,0); wwid(1) := wwid(2) := wwid(3) := wwid(4) := h/4; wlen(1) := wlen(2) := wlen(3) := wlen(4) := w; wccw(1) = (0, h); wccw(2) = wcw(1); wccw(3) = wcw(2); wccw(4) = wcw(3); wedgeset(1, 4); endchar;