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 no_frames [getFobjNoFrames $seq]

set filename [post3DEFileRequester "Export 3D Mocap Tracks..." "*"]

if {$filename!=""}\
	{
	set file [open $filename w];
	
	open3DEConsole
	print3DEConsole "Export 3D Mocap 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 pos3d [getPointMoCapCalcPosition3D $pg $point $seq $frame]
				set x [lindex $pos3d 0]
				set y [lindex $pos3d 1]
				set z [lindex $pos3d 2]
				
				puts $file "\t$frame\t$x\t$y\t$z"
				}
			print3DEConsole "Point \"$name\" written.\n"
			flush3DEConsole
			}
		}
	puts $file ""
	
	close $file
	}