O = (0, 0)
R = 5 (slider from 0.1 to 5, step 0.1)
r = 3 (slider from 0.1 to 5, step 0.1)
c = Circle(O, R)
A: (R, 0)
rot = 6.003932626860493 rad (slider from 0° to 1440°, step 0.1°)
Q = Rotate(A, rot)
semir = Ray(O, Q)
CE: (R + r; rot)
CI: (R - r; rot)
arcoAQ: (((2 * π) * R) * rot / (360°))
rot1: (arcoAQ * (360°) / (((2 * π) * r)))
Q1 = Rotate(Q, (-rot1), CI)
dil = 0.4 (slider from 0.1 to 5, step 0.1)
P = Dilate(Q1, dil, CI)
d = Circle(CI, Q)
luogo1 = Locus(P, rot)
f = Segment(CI, P)