#
# copy sequence...

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

set new_fobj [createFobj SEQUENCE]

# seq daten copieren...
set name [getFobjName $fobj]
set name [format "%s_copy" $name]
setFobjName $new_fobj $name
set path [getFobjPath $fobj]
setFobjPath $new_fobj $path
set frames [getFobjSequenceAttr $fobj]
setFobjSequenceAttr $new_fobj [lindex $frames 0] [lindex $frames 1] [lindex $frames 2]
set imgtype [getFobjImageType $fobj]
setFobjImageType $new_fobj $imgtype

# tracking daten kopieren...
set no_frames [getFobjNoFrames $fobj]
for {set pg [getFirstPGroup]} {$pg!=0} {set pg [getNextPGroup $pg]}\
	{
	for {set point [getFirstPoint $pg]} {$point!=0} {set point [getNextPoint $pg $point]}\
		{
		set block [getPointPosition2DBlock $pg $point $fobj 1 $no_frames]
		setPointPosition2DBlock $pg $point $new_fobj 1 $block
		}
	}