#
# Export Multiple 2D Tracking Curves (from a single ASCII file)...
#

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
	}

set error 1
for {set point [getFirstPoint $pg]} {$point!=0} {set point [getNextPoint $pg $point]}\
	{
	set selected [getPointSelectionFlag $pg $point]
	if {$selected} {set error 0}
	}
if {$error}\
	{
	bell
	post3DEInfoRequester " \n    Error, there are no points selected.    \n"
	return
	}

set width [getFobjImageWidth $seq]
set height [getFobjImageHeight $seq]
set no_frames [getFobjNoFrames $seq]

set filename [post3DEFileRequester "Export Track file..." "*"]

if {$filename!=""}\
	{
	set file [open $filename w];
	
	puts $file "// 3DE Multiple Tracking Curves Export $width x $height * $no_frames frames"
	
	open3DEConsole
	print3DEConsole "Export multiple tracks...\n\n"
	flush3DEConsole
	
	for {set point [getFirstPoint $pg]} {$point!=0} {set point [getNextPoint $pg $point]}\
		{
		set selected [getPointSelectionFlag $pg $point]
		if {$selected}\
			{
			set name [getPointName $pg $point]
			puts $file $name
			
			set curve [getPointPosition2DBlock $pg $point $seq 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)&&($y!=-1)}\
					{
					set x [expr $width*$x]
					set y [expr $height*$y]
					puts $file "\t$frame\t$x\t$y"
					}
				}
			print3DEConsole "Point \"$name\" written.\n"
			flush3DEConsole
			}
		}
	puts $file ""
	
	close $file
	}