beginchar("|",wedge_len#+wedge_wid#,let_height#,0); wedgesetup; wlenwid(1, h); rot(1) := -90; wwid(2) := wwid(3) := wwid(4) := wwid(5) := wedge_wid*.6; wccw(1) = (w, h); wpnt(2) = .33[wcw(1), mid(1)]; wpnt(3) = .66[wcw(1), mid(1)]; wpnt(4) = mid(1); wpnt(5) = cen(1); wlenwid(6, .6wedge_len); wlenwid(7, .6wedge_len); wlenwid(8, .6wedge_len); wlenwid(9, .6wedge_len); tback(6) = mid(7); rot(6) := rot(7) := -30; wpnt(6) = wpnt(1); rot(8) := 60; rot(9) := -60; tmid(8) = tmid(9); mid(8) = mstem(2); wedgeset(1, 9); endchar;