A = Point(c)
d = Circle(A, 0.1)
B, C = Intersect(c, d)
e = Circle(A, C, B)
D = Center(e)
luogo1 = Locus(D, A)
a = Line(A, C)
b = OrthogonalLine(A, a)