α = 0 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
A = (-1, 1)
B = (3, 1)
C = (3, 4)
D = (-1, 4)
Vieleck1, a, b, c, d = Polygon(A, B, C, D)
A' = Rotate(A, -(α), D)
e = Segment(D, A')
C' = Rotate(C, -(α), B)
f = Segment(B, C')
E = (-1.02, 5.3)
F = (-0.44, 5.36)
G = (-4, 4)
H = (6, 1)
g = Segment(G, C)
h = Segment(A, H)