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

set no_points 0
for {set p [getFirstPoint $pg]} {$p!=0} {set p [getNextPoint $pg $p]}\
	{
	if {[getPointSelectionFlag $pg $p]}\
		{
		set no_points [expr $no_points+1]
		}
	}
	
if {$no_points==0}\
	{
	post3DEInfoRequester " \n      Error, there are no points selected!      \n"
	return
	}

set pg_name [post3DEPromptRequester "Hi Eric, please enter name of pointgroup to move points into:"]
if {$pg_name!=0}\
	{
	for {set pg2 [getFirstPGroup]} {$pg2!=0} {set pg2 [getNextPGroup $pg2]}\
		{
		set name [getPGroupName $pg2]
		if {$name==$pg_name} break
		}
		
	if {$pg2==0}\
		{
		post3DEInfoRequester " \n      Error, can't find pointgroup \"$pg_name\"!      \n"
		return
		}
	
	set name [getPGroupName $pg]
	set del_org_points [post3DEQuestionRequester " \n      Delete original points from pointgroup \"$name\"?      \n" "Delete Points" "Don't Delete Points"]
	
	for {set p [getFirstPoint $pg]} {$p!=0} {set p [getNextPoint $pg $p]}\
		{
		if {[getPointSelectionFlag $pg $p]}\
			{
			set p2 [createPoint $pg2]
			set name [getPointName $pg $p]
			setPointName $pg2 $p2 $name
			
			print3DEConsole "moving point \"$name\"...\n"
			flush3DEConsole
			
			for {set seq [getFirstFobj]} {$seq!=0} {set seq [getNextFobj $seq]}\
				{
				set no_frames [getFobjNoFrames $seq]
				set curve [getPointPosition2DBlock $pg $p $seq 1 $no_frames]
				setPointPosition2DBlock $pg2 $p2 $seq 1 $curve
				}
				
			}
		}
		
	if {$del_org_points}\
		{
		set no_points [getNoPoints $pg]
		for {set i 0} {$i!=$no_points} { }\
			{
			set p [getIndexPoint $pg $i]
			if {[getPointSelectionFlag $pg $p]}\
				{
				set name [getPointName $pg $p]
				print3DEConsole "deleting original point \"$name\"...\n"
				flush3DEConsole
				deletePoint $pg $p
				set no_points [expr $no_points-1]
				}\
			else\
				{
				set i [expr $i+1]
				}
			}
		}
	}