beginchar("j",wedge_len# + (sind 60)*wedge_wid# + (cosd 60)*wedge_len#,let_height#,0); wedgesetup; wcw(1) = wccw(2) = (0, h/2); wcw(3) = wpnt(2); rot(3) := -60; wcw(4) = wccw(3) = wccw(5); rot(4) := -60; rot(5) := 60; wlenwid(6, h); rot(6) := -90; ypart wpnt(6) = 0; xpart wpnt(6) = xpart mstem(1); wedgeset(1, 6); endchar;