#
# NEED_PARMS layerset endcoord step
#
# HELP: SYNOPSIS:
# HELP:     generic/movie/strip/right layerset endcoord step
# HELP:
# HELP: DESCRIPTION:
# HELP:     Strip off a given layerset moving left to right.
# 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}
CUTPLANE_SET 0
RENDERER_MAP_CUTPLANE 0 0
LAYER ${$argv[1]} 0x10000
{ LOOP ${$x<=$end}
	CUTPLANE_DEF_HESSE 1 0 0  ${$x}
	VIEW_RENDER
} LOOP ${$x=$x+$step}
