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

set tcl_precision 17

set string [post3DEPromptRequester "Enter FOV <xa> <xb> <ya> <yb>:"]
set xa [lindex $string 0]
set xb [lindex $string 1]
set ya [lindex $string 2]
set yb [lindex $string 3]

setFobjFOV $fobj $xa $xb $ya $yb