Ver fondo

nada = 0
desfase = 0.5235987755982988 rad (slider from 0 to 6.283185307179586, step 0.08726646259971647)
b = 5 (slider from 1 to 9, step 1)
a = 2 (slider from 1 to 9, step 1)
tiempo = 0 (slider from 0 to 10000, step 0.01)
A: (5 - 5 cos(a tiempo), 5 - 5 cos(b tiempo + desfase))
Ax: (x(A), -1)
Ay: (-1, y(A))
s1 = Segment(Ay, A)
s2 = Segment(A, Ax)
s3 = Segment((-1, nada), (-1 + nada, 10))
P: (-x(A) / 2, -y(A) / 2 - 1)
B1 = (-40, -20)
B2 = (0, -20)
B3 = (20, -20)
B4 = (10, -2)
B5 = (30, -2)
B6 = (-2, 10)
B7 = (20, 10)
fondo = true
s4 = Segment((nada, -1), (10, -1 + nada))