#
# NEED_PARMS layerset endcoord step
#
# HELP: SYNOPSIS: 
# HELP:     generic/movie/strip/down layerset endcoord step
# HELP:
# HELP: DESCRIPTION:
# HELP:     Strip off a given layerset moving downwards.
# HELP:     Highest coordinate is endcoord, take steps of step.
#
CECHO ${$root.func.var.new("double","x")}
CECHO ${$root.func.var.new("double","end")}
CECHO ${$root.func.var.new("double","step")}
CECHO ${$step=1.0}
CECHO ${$step=(double)$argv[3]}
CECHO ${$step=((double)$step==0.0) ? 1.0 : $step}
CECHO ${$end=(int)$argv[2]}
CECHO ${$x=0.0}
LAYER ${$argv[1]} 2
{ LOOP ${$x<=$end}
	CUTPLANESET 0  0 0 1  ${$x}
	VIEW_RENDER
} LOOP ${$x=$x+$step}
LAYER ${$argv[1]} 1                                                        
