proc set_2D_position { fobj pg point frame pos_2d }\
	{
	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]]
	destroy .input_field
	}

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 img_width [getFobjImageWidth $fobj]
set img_height [getFobjImageHeight $fobj]
set pos_2d [getPointPosition2D $pg $point $fobj $frame]

open3DEConsole
print3DEConsole [format "%.02f" [expr [lindex $pos_2d 0] * $img_width]] " x " [format "%.02f" [expr [lindex $pos_2d 1] * $img_height]] "\n\n"