prot_limacon

A = (1.52, 1.36)
B = (1.58, 3.52)
c = Circle(A, B)
C = Point(c)
D = (3.62, 5.16)
E = (5.18, 5.14)
a = Segment(D, E)
b = Line(B, C)
d = Circle(C, Segment[D, E])
F = Intersect(c, d, 1)
G = Intersect(d, b, 2)
loc1 = Locus(G, C)