beginchar(5,half_big#*6/2,let_height#,0); wlen(1) := h/3; wwid(1) := 2w/3; rot(1) := -90; wlen(2) := h/3; wwid(2) := 1w/3; rot(2) := -90; wlen(3) := h/3; wwid(3) := 1w/3; rot(3) := -90; wlen(4) := h/3; wwid(4) := 1w/3; rot(4) := -90; wlen(5) := h/3; wwid(5) := 1w/3; rot(5) := -90; wlen(6) := h/3; wwid(6) := 1w/3; rot(6) := -90; wlen(7) := h/3; wwid(7) := 1w/3; rot(7) := -90; wcw(5) = (0, h); wcw(6) = wccw(5); wcw(7) = wccw(6); tback(2) = wpnt(5); wcw(3) = wccw(2); wcw(4) = wccw(3); wcw(1) = wpnt(2); wedgeset(1, 7); endchar;