[Sumover-dev] [svn commit] r3812 - vic/trunk/tcl

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

Author: rhys
Date: Thu Sep  7 07:44:31 2006
New Revision: 3812

Modified:
   vic/trunk/tcl/ui-ctrlmenu.tcl

Log:

Added code necessary for adjust quality for h261as.



Modified: vic/trunk/tcl/ui-ctrlmenu.tcl
==============================================================================
--- vic/trunk/tcl/ui-ctrlmenu.tcl	(original)
+++ vic/trunk/tcl/ui-ctrlmenu.tcl	Thu Sep  7 07:44:31 2006
@@ -1158,6 +1158,15 @@
 	$qvalue configure -text $value
 }
 
+proc h261as_setq value {
+	set value [expr int((1 - $value / 100.) * 29) + 1]
+	if [have grabber] {
+		encoder q $value
+  	}
+	global qvalue
+	$qvalue configure -text $value
+}
+
 proc h263+_setq value {
 	set value [expr int((1 - $value / 100.) * 29) + 1]
 	if [have grabber] {
@@ -1324,6 +1333,7 @@
 }
 
 set qscale_val(h261) 68
+set qscale_val(h261as) 68
 set qscale_val(h263) 68
 set qscale_val(h263+) 68
 set qscale_val(nv) 80