beginchar("P",half_big#*3,let_height#,0); wlenwid(1, h/2); rot(1) := -90; wlenwid(2, h/2); rot(2) := -90; wlenwid(3, h/2); rot(3) := -90; wlen(4) := h/2; wwid(4) := wwid(3)*2; rot(4) := -90; wcw(1) = (0, h); wcw(2) = wccw(1); wcw(3) = wccw(2); wcw(4) = wpnt(1); wedgeset(1, 4); endchar;