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