+
+
+def def_triangle_old =
+ save triangle,kern; path triangle;
+ kern = 1/3(x2-x1);
+ z2 = z1 rotated 120;
+ z3 = z1 rotated 240;
+ z12 = caveness[.5[z1,z2],z3];
+ z23 = z12 rotated 120;
+ z31 = z12 rotated 240;
+ triangle = z1 .. z12 .. z2 ..
+ z2 .. z23 .. z3 ..
+ z3 .. z31 .. z1 ..
+ cycle;
+ triangle := triangle shifted (-x1+pent/2-kern,0) xscaled xs;
+ pickup pencircle scaled pent xscaled xs;
+ hei = max(y1,-y2)+pent/2;
+ %set_char_box(-kern*xs*fac, ((x3-x1)*fac+pent#)*xs,hei*fac,hei*fac);
+ set_char_box(0, ((x3-x1-kern)*fac+pent#)*xs,hei*fac,hei*fac);
+enddef;
+
+