o2DPolygon_1 is Polygon2D
Linestring2DAddPoint(o2DPolygon_1.Outline, -1.00, 1.00)
Linestring2DAddPoint(o2DPolygon_1.Outline, 1.00, 1.00)
Linestring2DAddPoint(o2DPolygon_1.Outline, 1.00, -1.00)
Linestring2DAddPoint(o2DPolygon_1.Outline, -1.00, -1.00)
Linestring2DAddPoint(o2DPolygon_1.Outline, -1.00, 1.00)
Perimeter is real = GeometryPerimeter(o2DPolygon_1)
Trace(Perimeter)