set pg [getSelectedPGroup]
if {$pg==0}\
	{
	bell
	post3DEInfoRequester " \n    Error, there is no Pointgroup selected.    \n"
	return
	}

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

open3DEConsole
print3DEConsole "Reverse tracking curves...\n\n"
flush3DEConsole

set n [getFobjNoFrames $seq]

for {set p [getFirstPoint $pg]} {$p!=0} {set p [getNextPoint $pg $p]}\
	{
	set name [getPointName $pg $p]
	print3DEConsole "reversing point \"$name\"..."
	flush3DEConsole

	set curve [getPointPosition2DBlock $pg $p $seq 1 $n]
	set curve_rev [list]
	for {set frame [expr $n-1]} {$frame>=0} {set frame [expr $frame-1]}\
		{
		set pos2d [lindex $curve $frame]
		set curve_rev [concat $curve_rev [list $pos2d]]
		}
	setPointPosition2DBlock $pg $p $seq 1 $curve_rev
	
	print3DEConsole "done.\n"
	}