A = (-2.58, 1.72)
B = (2.44, 1.58)
C = (1.32, 5.22)
polígono1, c, a, b = Polygon(A, B, C)
P = Point(c)
P' = Mirror(P, b)
P'' = Mirror(P', a)
d = Segment(P'', P)
R = Intersect(a, d)
e = Segment(P', R)
Q = Intersect(b, e)
f = Segment(Q, P)
polígono2, e_1, d_1, f_1 = Polygon(P, Q, R)
perímetropolígono2 = Perimeter(polígono2)
Textopolígono2: "Perímetro de  " + (Name[P]) + (Name[Q]) + (Name[R]) + " = " + perímetropolígono2