A = (1.54, 0.54)
B = Point(Circle[A, 5.0])
a = Segment(A, B)
c = Circle(A, 4.0)
d = Circle(B, 4.5)
C = Intersect(c, d, 1.0)
b = Segment(C, A)
e = Segment(C, B)
f = OrthogonalLine(C, a)
g = OrthogonalLine(A, e)
h = OrthogonalLine(B, b)
D = Intersect(h, g)