v_p= 2

h = 10 (slider from 0 to 20, step 1)
t = 1.8 (slider from 0 to 20, step 0.0010)
v_c = 4 (slider from 0 to 20, step 1)
α = 0.5235987755982988 rad (slider from 0 to 1.5707963267948966, step 0.0017453292519943296)
C_0 = (0, 0)
P_0: (h, 0.0)
d = OrthogonalLine(P_0, xAxis)
P: (h, 2.0 * t)
A = Rotate(P_0, α, C_0)
β = Angle(P_0, C_0, A)
a = Ray(C_0, A)
C: (v_c * t * cos(α), v_c * t * sin(α))
b = Segment(P_0, P)
c = Segment(C_0, C)
distanceCP = Distance(C, P)
TexteCP: Name[C] + (Name[P]) + " \, = \, " + distanceCP
M = Intersect(d, a)