Date: Mon, 26 May 1997 15:44:09 +0200 (CEST) From: Luigi Rizzo <luigi@iet.unipi.it> To: multimedia@freebsd.org, van@ee.lbl.gov Subject: some vic-2.8 patches to support PAL Message-ID: <199705261344.PAA00407@prova.iet.unipi.it>
next in thread | raw e-mail | index | archive | help
Hi,
vic 2.8 does not allow one to set the input signal type (NTSC/PAL/SECAM)
from the control panel, although support is almost there. The attached
patch works for me with the grabber-meteor driver when used with PAL input.
Perhaps a similar thing could go into vic-2.8.1 if it is not already there.
Cheers
Luigi
--- ui-ctrlmenu.tcl.orig Thu Jun 27 03:27:48 1996
+++ ui-ctrlmenu.tcl Tue May 6 20:07:12 1997
@@ -564,7 +564,7 @@
proc select_device device {
global transmitButton sizeButtons portButton formatButtons \
videoFormat defaultFormat lastDevice defaultPort inputPort \
- transmitButtonState
+ transmitButtonState typeButton
#
# Remember settings of various controls for previous device
@@ -607,6 +607,11 @@
} else {
$portButton configure -state disabled
}
+ if [device_supports $device type *] {
+ $typeButton configure -state normal
+ } else {
+ $typeButton configure -state disabled
+ }
insert_grabber_panel [$device nickname]
@@ -757,9 +762,9 @@
menu $m
$m add radiobutton -label "auto" -command restart \
-value auto -variable inputType -font $f
- $m add radiobutton -label "NTSC" -command restart \
+ $m add radiobutton -label "NTSC" -command "grabber type ntsc" \
-value ntsc -variable inputType -font $f
- $m add radiobutton -label "PAL" -command restart \
+ $m add radiobutton -label "PAL" -command "grabber type pal" \
-value pal -variable inputType -font $f
$m add radiobutton -label "SECAM" -command restart \
-value secam -variable inputType -font $f
@@ -774,7 +779,8 @@
build.encoder_options $w.options
build.device $w.device
build.port $w.port
- pack $w.device $w.port $w.options -fill x
+ build.type $w.type
+ pack $w.device $w.port $w.type $w.options -fill x
}
proc build.encoder_options w {
@@ -1172,6 +1178,9 @@
global inputPort inputType portButton typeButton
if { [$portButton cget -state] == "normal" } {
$grabber port $inputPort
+ }
+ if { [$typeButton cget -state] == "normal" } {
+ $grabber type $inputType
}
setFillRate
update
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199705261344.PAA00407>