1 2 3 4 5 6 7 8 9 10 11 12 13 14
beginchar(0,wedge_wid# + (cosd 60)*wedge_len#,let_height#,0); wcw(1) = (0, h); wlen(1) := h; rot(1) := -90; wccw(2) = mid(1); rot(2) := -20; rot(3) := 60; rot(4) := -60; tmid(3) = tmid(4); .5[wccw(3), wcw(4)] = wccw(1); wedgeset(1, 4); endchar;