E_1 = (-6.057978163022511, -11.480476279221453)
A = (10.39852983735454, -5.058424376635288)
B = (10.362040906089845, 3.042118364126809)
a = Segment(B, A)
b = OrthogonalLine(A, a)
E = Point(b)
c = Circle(E, A)
D = Intersect(c, b, 2.0)
m = OrthogonalLine(D, b)
e = Line(B, E)
C = Intersect(m, e)
f = Segment(B, C)