O: (0, 0)
I: (1, 0)
c = Circle(O, I)
a = -3.579555921538759 (slider from (-6 * π) to (6 * π), step 0.01)
P: (cos(a), sin(a))
N: (0, sin(a))
M: (a, sin(a))
f(x) = sin(x)
g: y = 1
h: y = -1
Q = Mirror(M, O)
v: ((2 * π) * Vector[O, I])
R = Translate(M, v)
u = Vector(M, R)