set fobj [getSelectedFobj]
if {$fobj==0}\
	{
	print3DEConsole "\nError, there is no Sequence/Ref. Frame selected.\n"
	return
	}

set frame [getSelectedFrame]
	
set pg [getSelectedPGroup]
if {$pg==0}\
	{
	print3DEConsole "\nError, there is no Pointgroup selected.\n"
	return
	}

set point [getSelectedPoint]
if {$point==0}\
	{
	print3DEConsole "\nError, there is no Point selected.\n"
	return
	}


set pos_2d [post3DEPromptRequester "Enter 2D Point Postion:"]
scan $pos_2d "%f %f" pos_x pos_y
set img_width [getFobjImageWidth $fobj]
set img_height [getFobjImageHeight $fobj]
setPointPosition2D $pg $point $fobj $frame [list [expr $pos_x / $img_width] [expr $pos_y / $img_height]]