#
# Houdini Channels...

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


open3DEConsole
print3DEConsole "\nCreate Houdini Rotation Channels of current Sequence...\n\n"
flush3DEConsole

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

set tcl_precision 17
set tk_strictMotif 1
set filename [tk_getSaveFile -initialdir "/"]

if {$filename!=""}\
	{
	set file [open $filename w+]
	
	set no_frames [getFobjNoFrames $fobj]
	set pg [getFirstPGroup]
	
	print3DEConsole "\nrot_y\t\t\trot_x\t\t\trot_z\n\n"
	for {set frame 1} {$frame<=$no_frames} {set frame [expr $frame+1]}\
		{
		set rot3d [getPGroupRotation3D $pg $fobj $frame]
		
		set vec3 [mat3rotangles $rot3d 1 0 2]
		
		set angles [vec3*s $vec3 57.29577951]
		
		puts $file $angles

		print3DEConsole $angles "\n"
		}
	
	close $file
	}