# x and z translation channels swapped by wolfgang on 10NOV2005

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

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

set filename [post3DEFileRequester "Import Kuper Asc file..." "*.asc"]
if {$filename!=""}\
	{
	set file [open $filename r+];
	
	open3DEConsole
	print3DEConsole "\nImporting Kuper Asc File..."
	flush3DEConsole
	
	set frame 1
	set no_frames [getFobjNoFrames $fobj]
	
	# Read "Axes" line...
	set line [gets $file]
	
	# find out where x, y and z are...
	for {set i 0} {$i<10} {set i [expr $i+1]}\
		{
		set string [lindex $line $i]
		if {$string=="VEW,"} { set x [expr $i-2] }
		if {$string=="VNS,"} { set y [expr $i-2] }
		if {$string=="VTrack,"} { set z [expr $i-2] }
		}
	
	while {![eof $file]}\
		{
		# get a line out of file...
		set line [gets $file]
		set pos3d [list [lindex $line $x] [lindex $line $y] [lindex $line $z] ]
		setPGroupPosition3D $pg $fobj $frame $pos3d
		if {$frame==$no_frames} break
		set frame [expr $frame+1]
		}
	close $file

	print3DEConsole "\n...$frame frames imported.\n\nNow please execute Calc::Filter Selected Curves!\n\n"
	}