A = (2, 4)
B = (-1, -5)
C = (6, -4)
poli1, c, a, b = Polygon(A, B, C)
f = OrthogonalLine(A, a)
D = Intersect(a, f)
E = Midpoint(A, D)
g = Line(E, a)
F = Intersect(g, c)
G = Intersect(g, b)
poli2, g_1, a_1, f_1 = Polygon(A, F, G)
α = 3.141592653589793 rad (slider from 0 to 180°, step 0.017453292519943295)
A' = Rotate(A, (-α), G)
F' = Rotate(F, (-α), G)
G' = Rotate(G, (-α), G)
poli2', g', a', f' = Polygon(A', F', G')