tijdbalk

r = 2 (slider from 0 to 5, step 1)
t = 0.39999999999999997 (slider from 0 to 6.283185307179586, step 0.01)
draaipunt_1 = Intersect(xAxis, yAxis)
c = Circle(draaipunt_1, 4)
B, C = Intersect(c, xAxis)
draaipunt_2 = Rotate(C, t, draaipunt_1)
α = Angle(C, draaipunt_1, draaipunt_2)
b = OrthogonalLine(draaipunt_2, yAxis)
d = Circle(draaipunt_2, r)
E, F = Intersect(d, b)
a = 2 (slider from -5 to 5, step 1)
P = Rotate(F, a t, draaipunt_2)
β = Angle(F, draaipunt_2, P)
e = Segment(draaipunt_1, draaipunt_2)
f = Segment(draaipunt_2, P)
g = Segment(draaipunt_1, C)
h = 0.251 (slider from 0.0010 to 0.5, step 0.01)
i = CurveCartesian(4 cos(p) + 2 cos(2 p), 4 sin(p) + 2 sin(2 p), p, 0, 6.283185307179586)
Q: (4 cos(t + h) + 2 cos(2 t + 2 h), 4 sin(t + h) + 2 sin(2 t + 2 h))
j = Line(P, Q)
u = Vector(P, Q)
k = OrthogonalLine(P, yAxis)
l = OrthogonalLine(Q, xAxis)
A = Intersect(k, l)
m = Segment(Q, A)
n = Segment(A, P)
v_1: ((4 cos(t + h) + 2 cos(2 t + 2 h) - 4 cos(t) - 2 cos(2 t)) / h, (4 sin(t + h) + 2 sin(2 t + 2 h) - 4 sin(t) - 2 sin(2 t)) / h)
D = Translate(P, v_1)
v = Vector(P, D)