oPolygone2D_1 is Polygon2D
Linestring2DAddPoint(oPolygone2D_1.Outline, -2.00, 2.00)
Linestring2DAddPoint(oPolygone2D_1.Outline, -0.00, 2.00)
Linestring2DAddPoint(oPolygone2D_1.Outline, -0.00, -2.00)
Linestring2DAddPoint(oPolygone2D_1.Outline, -2.00, -2.00)
Linestring2DAddPoint(oPolygone2D_1.Outline, -2.00, 2.00)
oPolygone2D_1 = GeometryCorrect(oPolygone2D_1)
oPolygone2D_2 is Polygon2D
Linestring2DAddPoint(oPolygone2D_2.Outline, 2.00, 2.00)
Linestring2DAddPoint(oPolygone2D_2.Outline, 2.00, -1.00)
Linestring2DAddPoint(oPolygone2D_2.Outline, -0.00, 0.00)
Linestring2DAddPoint(oPolygone2D_2.Outline, 2.00, 2.00)
oPolygone2D_2 = GeometryCorrect(oPolygone2D_2)
Trace(GeometryTouch(oPolygone2D_1, oPolygone2D_2))