a = 1 (slider from 0 to 5, step 0.5)
O = (-3, 0)
u: (a, 0)
I = Translate(O, u)
t = 0 (slider from 0 to 20, step 0.1)
φ = 0 (slider from 0 to 6.3, step 0.2617993877991494)
I' = Rotate(I, φ, O)
ω = 1 (slider from 0 to 6, step 1)
M = Rotate(I', ω * t, O)
N: (t, x(M) + 3)
P: (t, y(M))
a_1 = Line(M, P)
b = OrthogonalLine(O, xAxis)
A: (x(M), 0)
B: (-3, y(M))
d = Segment(A, O)
e = Segment(B, O)
c = Circle(O, a)
h = Segment(O, M)
f(x) = a * cos(ω * x + φ) * (x ≥ 0)
g(x) = a * sin(ω * x + φ) * (x ≥ 0)
i = Segment(O, I')
p(x) = cos(x)