A_1 = (-0.56, 0.22)
B_1 = (6.36, 0.26)
a = Line(A_1, B_1)
F = (2.4, 2.2600000000000002)
b = OrthogonalLine(F, a)
H = Intersect(b, a)
c = Segment(F, H)
V = Point(c)
A = Point(b)
d = Line(A, a)
e = Circle(H, Segment[F, V])
C, B = Intersect(e, a)
f = Segment(B, V)
g = Line(A, f)
D_1 = Intersect(g, a)
A' = Intersect(a, g)
h = Circle(F, Segment[H, A'])
E, D = Intersect(h, d)