Transformation: Enlargement

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.

Path

Button change

Hide trace

Clear trace

Trace off

ZoomIn[-10.56,-2.71,9.94,10.89]

Screen

set

Locus 1

Locus 2

P_1 is the movable point

I_1 = (3.5228486924043034, 1.1029874903775303)
H_1 = (3.547498553561657, 3.4200744391687765)
G_1 = (3.7446974428204856, 2.6805786044481663)
F_1 = (4.4102436940690355, 2.6805786044481663)
E_1 = (5.075789945317585, 4.011671106945267)
D_1 = (4.730691889114634, 0.659289989545163)
B_1 = (5.519487446149953, 0.7825392953319318)
A_1 = (6.135733975083798, 4.627917635879108)
Z = (5.1743893899470015, 4.84976638629529)
L = (3.867946748607255, 3.001026799493765)
K = (3.867946748607255, 4.677217358193817)
J = (2.7094032742116285, 4.677217358193817)
I = (2.9805517469425205, 1.448085546580482)
poly1, i_2, j_1, k_1, l_1, z, a_2, b_2, d_2, e_2, f_2, g_2, h_2, i_3 = Polygon(I, J, K, L, Z, A_1, B_1, D_1, E_1, F_1, G_1, H_1, I_1)
B = Intersect(xAxis, yAxis)
CP_1 = 4 (slider from 0 to 10, step 0.1)
CD = 4 (slider from 0 to 10, step 0.1)
BC = 4 (slider from 0 to 10, step 0.1)
AB = 8 (slider from 0 to 10, step 0.1)
c = Circle(B, AB)
d = Circle(B, BC)
P_1 = Point(poly1)
e = Circle(P_1, CP_1)
C_1, C = Intersect(e, d)
a = Ray(C, P_1)
b = Ray(B, C)
A = Intersect(c, b)
f = Circle(C, CD)
D = Intersect(f, a)
g_1 = Segment(C, D)
h_1 = Line(D, b)
i = Line(A, g_1)
E = Intersect(i, h_1)
j = Line(B, P_1)
P_2 = Intersect(i, j)
k_2 = Segment(A, E)
l = Segment(E, D)
m = Segment(B, C)
n = Segment(C, A)
p = Segment(E, P_2)
s = false
F = Intersect(n, k_2)
G = Intersect(yAxis, xAxis)
H = Intersect(yAxis, xAxis)
M = Intersect(n, g_1)
N = Intersect(n, g_1)
O = Intersect(l, k_2)
P = Intersect(g_1, l)
Q = Intersect(yAxis, xAxis)
t = Circle(C, P_1)
R = Intersect(t, g_1)
c_1 = Circle(A, P_2)
S, V = Intersect(c_1, p)
h = false
g = false
d_1 = Circle(A, P_2)
T, W = Intersect(d_1, p)
u = false
a_1 = Segment(D, P_1)
b_1 = Line(B, P_1)
U = Intersect(b_1, a_1)
J_1 = (11.078578446721579, 7.928992020266834)
K_1 = (10.856729696305395, 4.625910625181438)
L_1 = (14.751407759167288, 4.625910625181438)
loc13 = Locus(P_2, P_1)
k = 1 (slider from -5 to 5, step 0.01)
M_1 = Dilate(P_2, k, A)
loc14 = Locus(M_1, P_1)
N_1 = Dilate(P_2, k, A)
q = Segment(P_2, M_1)
o = false
Speed = 0 (slider from -5 to 5, step 0.1)