// Build a square where each side has a length of 2
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)
// Add last point (same as first)
Linestring2DAddPoint(o2DPolygon_1.Outline, -1.00, 1.00)
// Corrects the new geometry
o2DPolygon_1 = GeometryCorrect(o2DPolygon_1)

// WKT serialization
SerializedPolygon is ANSI string
SerializedPolygon = GeometrySerializeWKT(o2DPolygon_1)
Trace(SerializedPolygon) // Returns "POLYGON((-1 1,1 1,1 -1,-1 -1,-1 1))"