Pulsing point
Guess what you have to do!
Script Setup
A = (1, 1)
SetLayer(A, 5)
#-- Define objects for animation --#
FCurv(x) = 8 * sin(x) + 4
SetVisibleInView(FCurv, 1, false)
PulsingPoint = ( x(A), y(A) )
SetLayer(PulsingPoint, 0)
SetColor(PulsingPoint, "#FF3366")
ShowLabel(PulsingPoint, false)
SetPointStyle(PulsingPoint, 2)
SetVisibleInView(PulsingPoint, 1, true)
speed = 7
animate = Slider(0, 1, 0.001, speed, 200)
StartAnimation(animate, true)
SetVisibleInView(animate, 1, false)
Extra Scripting
# Open "animate" slider settings
# and add "On Update" tab
SetPointSize( PulsingPoint, FCurv(animate) )
# On point A settings add On Click/On Drag-End tabs
StartAnimation(animate, false)
SetVisibleInView(PulsingPoint, 1, false)