print3DEConsole "\nMulti Flame Export: Write 2D tracking curve of each selected point into a separate file.\n\n"

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

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

set no_frames [getFobjNoFrames $fobj]
set width [getFobjImageWidth $fobj]
set height [getFobjImageHeight $fobj]
	
set filename [post3DEFileRequester "Select Output Directory" "*"]
if {$filename!=""}\
	{
	file mkdir $filename
	
	for {set p [getFirstPoint $pg]} {$p!=0} {set p [getNextPoint $pg $p]}\
		{
		set name [getPointName $pg $p]
	
		if {[getPointSelectionFlag $pg $p]}\
			{
			set file [open $filename/$name.ascii w+]
			for {set frame 1} {$frame<=$no_frames} {set frame [expr $frame+1]}\
				{
				if {[isPointPos2DValid $pg $p $fobj $frame]}\
					{	
					set pos2d [getPointPosition2D $pg $p $fobj $frame]
					set string [format "%5ld.0 : +%.02f, +%.02f\n" $frame [expr [lindex $pos2d 0]*$width] [expr [lindex $pos2d 1]*$height]]
					puts -nonewline $file $string
					}
				}
			close $file
			}
		}
	}