Transformation: Relection

Either drag the blue point to move the mechanism or give the "Speed" slider (if visible) a non-zero value.  Note that you may need to Right-click on the blue point and select "Animation on" to reset it if it does not respond to the "Speed" slider at first.

Shape

Locus

A_2 = (-3.5749126694793767, 5.460973412755896)
Z_1 = (-3.754418398100921, 4.7628955792276715)
W_1 = (-4.554892115764579, 6.72088185538971)
V_1 = (-3.235846293194238, 5.600588979461541)
U_1 = (-2.9260802559949415, 6.970881341743852)
T_1 = (-2.8568897549932033, 4.742950498269723)
S_1 = (-2.278482407212676, 5.121907036470758)
R_1 = (-2.4214371152300975, 7.458122994896116)
Q_1 = (-3.4655263719849474, 7.197100680707403)
P_1 = (-3.5150774266055285, 5.919710274788729)
O_1 = (-4.013704450554261, 7.036634808433888)
N_1 = (-5.070793741325575, 6.936909403644142)
M_1 = (-4.492386393545045, 4.80278574114357)
A = (-11.884134846765408, -0.3560728255798492)
d = 7.2 (slider from 0 to 15, step 0.1)
Speed = 0 (slider from -10 to 10, step 0.1)
w = false
poly1, l_1, m_1, n_1, p_1, q_1, r_1, s_1, t_1, a_2, b_2, c_2, d_2, e_2 = Polygon(M_1, N_1, O_1, P_1, Q_1, R_1, S_1, T_1, U_1, V_1, A_2, W_1, Z_1)
B_2 = Point(poly1)
f_2 = Circle(B_2, d)
B = (1.9785672016201834, 9.452501676173474)
C = (0.20227883703635993, 1.5440739605405525)
a = Line(B, C)
c = Circle(B_2, d)
D, E = Intersect(c, a)
b = Line(B_2, D)
e = Line(B_2, E)
Scale = 1 (slider from -1 to 5, step 0.01)
D' = Dilate(D, Scale, B_2)
E' = Dilate(E, Scale, B_2)
f = Circle(D', B_2)
g = Circle(E', B_2)
F, G = Intersect(g, f)
h = Line(B_2, G)
H, I = Intersect(g, h)
i = Segment(E', G)
j = Segment(G, D')
m = Segment(D', B_2)
n = Segment(E', B_2)
loc1 = Locus(G, B_2)
p = Segment(D', D)
q = Segment(E', E)
J = Intersect(a, n)
K = Intersect(a, m)
L = Intersect(j, m)
M = Intersect(n, q)
N = Intersect(i, n)
O = Intersect(a, q)
P = Intersect(a, p)
k = false