set path [get3DEInstallPath]
source $path/user_data/tcl_archive/veclib.tcl

set tcl_precision 8

print3DEConsole "\nExport 3D Track to Kuper...\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 pg_type [getPGroupType $pg]
	
set filename [post3DEFileRequester "Export 3D Track to Kuper..." "*"]

if {$filename!=""}\
	{
	set file [open $filename w+]
	puts $file "Axes = VTrack, VNS, VEW, VPan, VTilt, VRoll"
	
	set no_frames [getFobjNoFrames $fobj]
	for {set frame 1} {$frame <= $no_frames} {incr frame}\
		{
		set pos [getPGroupPosition3D $pg $fobj $frame]
		set m [getPGroupRotation3D $pg $fobj $frame]
		
		set posx [lindex $pos 0]
		set posy [lindex $pos 1]
		set posz [lindex $pos 2]
		
		set rot [mat3rotangles $m 1 0 2]
		set rotx [expr [lindex $rot 1]*180.0/3.141592654]
		set roty [expr [lindex $rot 0]*180.0/3.141592654]
		set rotz [expr [lindex $rot 2]*180.0/3.141592654]
		
		puts $file "     $posx    $posy     $posz     $roty     $rotx     $rotz"
		}
		
	close $file
	}