A = (1.8565, -0.88478)
B = (9.60498, -0.911)
a = Segment(A, B)
b = OrthogonalLine(A, a)
C = Point(b)
c = OrthogonalLine(C, b)
d = OrthogonalLine(B, a)
D = Intersect(c, d)
polígono1, b_1, a_1, c_1, d_1 = Polygon(B, A, C, D)
P = Point(a)
P' = Mirror(P, a_1)
P'' = Mirror(P', c_1)
P''' = Mirror(P'', d_1)
e = Segment(P''', P)
S = Intersect(e, d_1)
f = Segment(P'', S)
R = Intersect(f, c_1)
g = Segment(P', R)
Q = Intersect(g, a_1)
h = Segment(P, Q)
polígono2, p, g_1, f_1, e_1 = Polygon(P, Q, R, S)
perímetropolígono2 = Perimeter(polígono2)
Textopolígono2: "Perímetro de  " + (Name[P]) + (Name[Q]) + (Name[R]) + (Name[S]) + " = " + perímetropolígono2