G = (6.5, 2.18)
A = (4.64, 4.8)
B = (7.96, 5.02)
radio = 1.66 (slider from 0 to Min[Distance[G, A], Distance[G, B]], step 0.01)
c = Circle(G, radio)
d = Circle(G, (3 * radio))
D = Point(d)
f = Line(G, D)
B' = Mirror(A, f)
g = Line(B, B')
E = Intersect(g, f)
lugar1 = Locus(E, D)
h = Line(B, G)
i = Line(G, A)
F, G_1 = Intersect(c, i)
H, I = Intersect(c, h)
e = CircleArc(G, F, H)
k = CircleArc(G, H, G_1)
p = CircleArc(G, G_1, I)
q = CircleArc(G, I, F)
J = Point(e)
P_1 = Minimize(Distance[J, lugar1], J)
L = Point(k)
P_2 = Minimize(Distance[L, lugar1], L)
N = Point(p)
P_3 = Minimize(Distance[N, lugar1], N)
P = Point(q)
P_4 = Minimize(Distance[P, lugar1], P)