Mathematica怎么绘制两个多边形的交？

BlockRandom[
SeedRandom[5];
triangles = Triangle /@ RandomReal[1, {2, 3, 2}];
{Graphics[{Blue, Opacity[0.7], triangles}],
Area[RegionIntersection @@ triangles]}

如果我要计算三角形{{0, 0}, {3, 0}, {0, 4}}和三角形
{{-2 Sin[u] (4 t Cos[u] + 3 (-1 + t) Sin[u]), 2 Cos[u] (4 t Cos[u] + 3 (-1 + t) Sin[u])},
{3 - 3 t + 3 t Cos[2 u] - 4 t Sin[2 u], 2 t Cos[u] (4 Cos[u] + 3 Sin[u])},
{-2 (-1 + t) Sin[u] (4 Cos[u] + 3 Sin[u]), 4 t + 4 (-1 + t) Cos[2 u] + 3 (-1 + t) Sin[2 u]}}
的重合部分的面积，怎么办？

我其实想要演示单墫的一个问题：
三角形对折，重合部分的面积与原三角形面积的比值最大是多少。