#
# NEED_PARMS targetlight stepsize
#
# HELP: SYNOPSIS:
# HELP:     generic/movie/fade/add targetlight stepsize
# HELP:
# HELP: DESCRIPTION:
# HELP:     Fade in/out with additive steps.
#
CECHO ${$root.func.var.new("double","target")}
CECHO ${$root.func.var.new("double","newlight")}
CECHO ${$root.func.var.new("double","step")}

CECHO ${$newlight=$root.view[current].lightpower}
CECHO ${$target=(double)$argv[1]}
CECHO ${$step=(double)$argv[2]}

if ${$step>0.0} GOTO up
if ${$step<0.0} GOTO down
QUIT

:down
CECHO ${$newlight+=$step}
if ${$newlight<$target} GOTO done
LIGHT ${$newlight}
VIEW_RENDER
GOTO down

:up
CECHO ${$newlight+=$step}
if ${$newlight>$target} GOTO done
LIGHT ${$newlight}
VIEW_RENDER
GOTO up

:done
LIGHT ${$target}
VIEW_RENDER
