beginchar("D",2*(cosd 60)*wedge_len#,let_height#,0); wedgesetup; tmid(1) = tmid(2); tmid(3) = tmid(4); mid(1) = mid(4); rot(1) := rot(3) := -60; rot(2) := rot(4) := 60; tmid(5) = tmid(6); tmid(7) = tmid(8); mid(5) = mid(8); rot(5) := rot(7) := -60; rot(6) := rot(8) := 60; xpart wcw(1) = 0; ypart mid(1) = h/2; wcw(5) = ccwmid(1); wedgeset(1, 8); endchar;