A = (-3.74, 5.36)
B = (-1.3, 5.36)
a = Segment(A, B)
O = (-0.9, 2.02)
c = Circle(O, Segment[A, B])
C = (-1.48, -1.78)
D = (4.0600000000000005, -1.78)
r = Line(C, D)
d = OrthogonalLine(O, r)
E, F = Intersect(c, d)
e = Line(E, r)
f = Line(F, r)