set mocap_pg [createPGroup MOCAP]

for {set pg [getFirstPGroup]} {$pg!=0} {set pg [getNextPGroup $pg]}\
	{
	set pg_type [getPGroupType $pg]
	if {$pg_type=="OBJECT"} \
		{
		set point [getFirstPoint $pg]
		if {$point!=0} \
			{
			set point_new [createPoint $mocap_pg]
			set name [getPGroupName $pg]
			setPointName $mocap_pg $point_new $name
			
			for {set fobj [getFirstFobj]} {$fobj!=0} {set fobj [getNextFobj $fobj]}\
				{
				set no_frames [getFobjNoFrames $fobj]
				set curve [getPointPosition2DBlock $pg $point $fobj 1 $no_frames]
				setPointPosition2DBlock $mocap_pg $point_new $fobj 1 $curve
				}
			}
		}
	}

set no_pgs [getNoPGroups]

for {set i 0} {$i<$no_pgs} {set i [expr $i+1]}\
	{
	set pg [getIndexPGroup 1]
	set pg_type [getPGroupType $pg]
	
	if {$pg_type=="MOCAP"} return
	
	if {$pg_type=="OBJECT"} \
		{
		deletePGroup $pg
		}
	}