The black friday GeoGebra :)
Create the strokes needed then in the input bar or in a script button :
Execute({"c=Slider(-4, 4, .1, .4, 200, false, true, true)", "c=-4", "SetConditionToShowObject( c, false )"})
Execute( Sequence("A" + (k) + " = (c, .1 *" + (k) + ")", k, 1, 40))
Execute( Sequence("SetPointSize(A" +(k) + ",2)", k, 1, 40))
Execute( Sequence("ShowLabel(A" +(k) + ",false)", k, 1, 40))
Execute( Sequence("B" + (k) + "=Min(Zip(Distance(A" + (k) + ", P), P, {stroke1, stroke2,stroke3,stroke7,stroke8,stroke11,stroke13,stroke14}))", k, 1, 40))
Execute( Sequence("SetDynamicColor(A" + (k) + ", 1-ℯ^(-200 B" + (k) + "²), 1-ℯ^(-200 B" + (k) + "²), 1-ℯ^(-200 B" + (k) + "²))", k, 1, 40))
Execute( Sequence("SetTrace(A" + (k) + ",true)", k, 1, 40))
Execute({"StartAnimation( )"})