[Sumover-dev] [svn commit] r4297 - vic/branches/mpeg4/tcl

[sumover-dev at cs.ucl.ac.uk]

Author: piers
Date: Fri Oct 10 12:55:50 2008
New Revision: 4297

Modified:
   vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl

Log:
Fixed exit() when changing from one codec to another with large size set - it
wasn't checking if the deimation had changed if the capture format was the
same - so it crashed/exited if codec unable to cope (e.g. large H264 to H261).
Reported by Tobias at AGSC.


Modified: vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl	Fri Oct 10 12:55:50 2008
@@ -1489,7 +1489,7 @@
 set lastFmt ""
 
 proc select_format fmt {
-	global qscale qlabel videoDevice videoFormat qscale_val lastFmt
+	global qscale qlabel videoDevice videoFormat qscale_val lastFmt inputSize
 
 	if { $fmt == "h261" || $fmt == "pvh"} {
 		# H.261 supports only QCIF/CIF
@@ -1550,6 +1550,7 @@
 			# XXX doens't work if title-maker is installed
 			# SV, title-maker fix: see marked code below
 			delete $V(encoder)
+			$V(grabber) decimate $inputSize
 			set V(encoder) $encoder
 
 			update_encoder_param