[size=150]Guess what you have to do![/size]

[code]A = (1, 1)[br]SetLayer(A, 5)[br][br]#-- Define objects for animation --#[br]FCurv(x) = 8 * sin(x) + 4[br]SetVisibleInView(FCurv, 1, false)[br][br]PulsingPoint = ( x(A), y(A) ) [br]SetLayer(PulsingPoint, 0)[br]SetColor(PulsingPoint, "#FF3366")[br]ShowLabel(PulsingPoint, false)[br]SetPointStyle(PulsingPoint, 2)[br]SetVisibleInView(PulsingPoint, 1, true)[br]speed = 7[br]animate = Slider(0, 1, 0.001, speed, 200)[br]StartAnimation(animate, true)[br]SetVisibleInView(animate, 1, false)[br][/code]

[code]# Open "animate" slider settings[br]# and add "On Update" tab[br]SetPointSize( PulsingPoint, FCurv(animate) )[br][br]# On point A settings add On Click/On Drag-End tabs[br]StartAnimation(animate, false)[br]SetVisibleInView(PulsingPoint, 1, false)[br][/code]