A = (2, -1)
B = (13.700000000000001, -1.24)
C = (3.94, 4.22)
a = Line(A, B)
b = Line(C, a)
D = Point(b)
polígono1, a_1, c, d, b_1 = Polygon(A, C, D, B)
E = Midpoint(a_1)
F = Midpoint(d)
e = Segment(E, F)
f = OrthogonalLine(E, b_1)
g = OrthogonalLine(F, b_1)
G = Intersect(b, f)
H = Intersect(f, b_1)
I = Intersect(g, b_1)
polígono2, h, a_2, e_1 = Polygon(A, E, H)
α = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
A' = Rotate(A, -(α / 2.0), E)
E' = Rotate(E, -(α / 2.0), E)
H' = Rotate(H, -(α / 2.0), E)
polígono2', h', a', e' = Polygon(A', E', H')
polígono3, f_1, b_2, i = Polygon(B, I, F)
B' = Rotate(B, α / 2.0, F)
I' = Rotate(I, α / 2.0, F)
F' = Rotate(F, α / 2.0, F)
polígono3', f', b', i' = Polygon(B', I', F')