#
# NEED_PARMS steps turndegrees
#
# HELP: SYNOPSIS:
# HELP:     generic/movie/turn/rollleft steps turndegrees
# HELP:
# HELP: DESCRIPTION:
# HELP:     Roll by turndegrees left steps times.
#
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]}
{ TURN ${$x>0}
	RLEFT ${$step}
	VIEW_RENDER
} TURN ${$x=$x-1}
