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

set zooming [getFobjZoomingFlag $fobj]
if {!$zooming}\
	{
	post3DEInfoRequester "\nError, zooming not enabled for sequence \"$fobj\".\n"
	return
	}

set camera [getFobjCamera $fobj]

set focal [getCameraFocalLength $camera]

set filename [post3DEFileRequester "Select zooming ascii file..." "*"]
if {$filename!=""}\
	{
	set file [open $filename r+];
	
	set frame 1
	
	while {![eof $file]}\
		{
		set zoom [gets $file]
		setFobjZoomFactor $fobj $frame [expr $zoom/($focal*10.0)]
		set frame [expr $frame+1]
		}
	close $file
	}