A = (1.4, 3.98)
B = (5.32211318093126, 1.3389992862206477)
c = Circle(A, B)
C = Point(c)
f = Segment(A, B)
g = OrthogonalLine(B, f)
d = Circle(B, Segment[B, A])
A' = Intersect(d, g, 2)
u = Vector(A, A')
C' = Translate(C, u)
h = Segment(A', C)
i = Segment(A, C)
C'' = Mirror(C', h)
j = Segment(A', C'')
k = Segment(C, C'')
D = Midpoint(C, C'')
l = Segment(D, A)
m = Segment(D, A')
a: (m * l)
n = Segment(A, C'')
b = true
p = Segment(C, D)
q = Segment(C, D)
r = Segment(C, D)
s = Segment(C, D)
luogo1 = Locus(D, C)