A = (0.52, -0.48)
B = (4.52, -0.48)
a = Segment(A, B)
b = LineBisector(a)
C = Point(b)
c = Segment(C, A)
d = Segment(C, B)
e = Line(A, d)
f = Line(B, c)
D = Intersect(e, f)
poli1, c_1, a_1, d_1, b_1 = Polygon(C, A, D, B)
g = Segment(C, D)
E = Intersect(g, a)
F = Midpoint(d)
α = 0 rad (slider from 0 to 180*°, step 10*°)
E' = Rotate(E, α, F)
B' = Rotate(B, α, F)
C' = Rotate(C, α, F)
poli2', c', e', b' = Polygon(E', B', C')
G = Midpoint(c)
H = Midpoint(a_1)
I = Midpoint(d_1)
B'_1 = Rotate(B, α, I)
E'_2 = Rotate(E, α, I)
D' = Rotate(D, α, I)
poli4', d', b'_1, e'_2 = Polygon(B'_1, E'_2, D')
E'_1 = Rotate(E, -α, G)
A' = Rotate(A, -α, G)
C'_1 = Rotate(C, -α, G)
poli3', c'_1, e'_1, a' = Polygon(E'_1, A', C'_1)
D'_1 = Rotate(D, -α, H)
E'_3 = Rotate(E, -α, H)
A'_1 = Rotate(A, -α, H)
poli5', a'_1, d'_1, e'_3 = Polygon(D'_1, E'_3, A'_1)
J = Intersect(a', c'_1)
K = Intersect(b', c')
L, M = Intersect(b'_1, poli4')
N, O = Intersect(a'_1, poli5')