E = (0.46, 2.54)
A = (1.54, 4.0200000000000005)
E' = Rotate(E, 90.0*°, A)
α = Angle(E, A, E')
a = Segment(A, E)
b = Segment(A, E')
B = (3.56, 2.54)
c = Segment(E', B)
d = Segment(E, B)
e = Segment(A, B)
f = OrthogonalLine(A, d)
C = Intersect(f, d)
g = Segment(A, C)
Vieleck1, b_1, e_1, h, i, D, F = Polygon(B, E, 4.0)
Vieleck2, a_1, b_2, j, k, G, H = Polygon(A, B, 4.0)
K = Point(d)
Vieleck3, e_2, a_2, l, m, I, J = Polygon(E, A, 4.0)
M = Intersect(g, d)
L = Point(h)
Vieleck4, e_3, m_1, l_1, d_1 = Polygon(E, M, L, D)
Vieleck5, m_2, b_3, f_1, l_2 = Polygon(M, B, F, L)