A = (0, -4)
B = (7.795740432025914, -3.960194385621312)
C = (9.34, -2.54)
Vieleck1, c, a, b = Polygon(A, B, C)
D = (0.0013445721602986433, 3.4223645110028715)
d = Segment(D, A)
e = Segment(D, B)
f = Segment(D, C)
E = Point(d)
g = OrthogonalLine(E, d)
F = Intersect(e, g)
h = Line(F, a)
G = Intersect(f, h)
i = Segment(E, F)
j = Segment(F, G)
k = Segment(G, E)
Vieleck2, g_1, e_1, f_1 = Polygon(E, F, G)
B' = Rotate(B, 90.0*°, A)
α = Angle(B, A, B')