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