a = 10 (slider from 0 to 20, step 1)
p = 10 (slider from 0 to 20, step 1)
c = 0
d = 28 (slider from 0 to 50, step 1)
Q = (-30, 0)
b: y = d
M: (-(30.0), d)
e: (x + 30.0)^(2.0) + (y - d)^(2.0) = a^(2.0)
A, B = Intersect(e, b)
f = Segment(Q, M)
t = 0 (slider from 0 to 80, step 0.1)
P = Rotate(B, 2.0 * 3.141592653589793 / p * t, M)
α = Angle(B, M, P)
R: (t, d)
g = OrthogonalLine(R, xAxis)
h = OrthogonalLine(P, g)
C = Intersect(h, g)
i = OrthogonalLine(P, b)
D = Intersect(i, b)
j = Segment(D, P)
k = Segment(R, C)
l = Segment(M, P)
tekst1: "h(t) = " + a + " sin(2pi/" + p + " * t) + " + d