#
# Clamp all Points of selected PGroup to given Framerange...
#

set seq [getSelectedFobj]
if {$seq==0}\
	{
	bell
	post3DEInfoRequester " \n    Error, there is no Sequence selected.    \n"
	return
	}

set string [post3DEPromptRequester "Enter Framerange (<startframe> <endframe>):"]
set start [lindex $string 0]
set end [lindex $string 1]
set pos2d [list -1 -1]

set no_frames [getFobjNoFrames $seq]

for {set pg [getFirstPGroup]} {$pg!=0} {set pg [getNextPGroup $pg]}\
	{
	for {set point [getFirstPoint $pg]} {$point!=0} {set point [getNextPoint $pg $point]}\
		{
		set curve [getPointPosition2DBlock $pg $point $seq 1 $no_frames]
		for {set frame 1} {$frame<=$no_frames} {set frame [expr $frame+1]}\
			{
			if {($frame<$start)||($frame>$end)}\
				{
				set curve [lreplace $curve [expr $frame-1] [expr $frame-1] $pos2d]
				}
			}
		setPointPosition2DBlock $pg $point $seq 1 $curve
		}
	}