#
# NEED_PARMS steps stepsize
#
# HELP: SYNOPSIS:
# HELP:     generic/movie/move/forward steps stepsize
# HELP:
# HELP: DESCRIPTION:
# HELP:     Move forward steps times with stepsize
#
CECHO ${$root.func.var.new("int","x")}
CECHO ${$root.func.var.new("double","step")}
CECHO ${$step=1.0}
CECHO ${$step=(double)$argv[2]}
CECHO ${$step=((double)$step==0.0) ? 1.0 : $step}
CECHO ${$x=(int)$argv[1]}
:repeat
FWD ${$step}
VIEW_RENDER
CECHO ${$x=$x-1}
IF ${$x>0} GOTO repeat
