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

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


set no_frames [getFobjNoFrames $fobj]

for {set point [getFirstPoint $pg]} {$point!=0} {set point [getNextPoint $pg $point]}\
	{
	set curve [getPointPosition2DBlock $pg $point $fobj 1 $no_frames]
	for {set frame 1} {$frame<=$no_frames} {set frame [expr $frame+1]}\
		{
		set pos2d [lindex $curve [expr $frame-1]]
		set x [lindex $pos2d 0]
		set y [lindex $pos2d 1]
		if {$x!=-1}\
			{
			set x [expr 1.0-$x]
			}
		set pos2d [list $x $y]
		if {$frame==1} \
			{
			set curve2 [list $pos2d]
			}\
		else\
			{
			lappend curve2 $pos2d
			}
		}
	setPointPosition2DBlock $pg $point $fobj 1 $curve2
	}