A = (1.08, -0.1)
B = Point(Circle[A, 4])
a = Segment(A, B)
C = (1.66, -0.12)
b = OrthogonalLine(C, a)
c = LineBisector(A, B)
D = Intersect(c, a)
E = (4, 5.92)
d = Line(D, E)