在一张图中绘制两个多边形

Plotting two polygons in one graph

如何在 maple 中的一张图中绘制两个多边形? 我目前有:

display(polygon([[0, 0], [2, 0], [1,1]], 
color = red), 
scaling = constrained);

但这只绘制了一个多边形,在本例中它是一个三角形,但我想要两个三角形彼此相邻?

可以先定义多边形再显示:

  g1 := polygon([[0, 0], [2, 0], [1,1]], color = red);
  g2 := polygon([[0, 0], [4, 0], [1,1]], color = blue);
  display(g1, g2);