[AG-TECH] FW: automatic transmit in vic & talk in rat
Thomas D. Uram
turam at mcs.anl.gov
Wed Oct 29 11:42:35 CST 2003
The attached readme from the rat source details options for the
.RATdefaults file, including an option for setting input muting.
Denise Runnels wrote:
>We need to do automatic video transmission in vic and automatic talk in rat
>upon startup in order to make both tools more user-friendly.
>
>For vic, I've found the solution by using a command line option
>with the attached tcl script. That is, "vic -u script.tcl ip/port".
>
>For rat, I didn't find a command line option to do automatic talk.
>I've traced the source code down to one line. Inside the
>rat-4.2.23/rat/ui_audiotool.tcl file, if we change the flag in
>"set in_mute_var 1" to 0, it should do what we want.
>
>Is there an easier way to deal with the automatic talk in RAT without having
>to recompile the code?
>
>Thanks,
>Denise
>
>
>
>
>
>------------------------------------------------------------------------
>
>#
># R. P. C. Rodgers, NLM, 3 Feb 1999
># K. J. Hasler, UCL, 10 Apr 1999
># This is a tcl script to initialize the vic video conferencing tool
># at desired settings; modified from an example sent in email to the
># to the MBONE (mbone at isi.edu) mailing list by Marcia Perry (ITG staff;
># mperry at george.lbl.gov) of the Lawrence Berkeley National Laboratory,
># January 1999. The "-u <filename>" option must be invoked as part of the
># vic command for this file to be read when vic starts.
>#
># Set bandwidth to 40 (the '50' is a Tcl priority number)
>option add Vic.bandwidth 40 50
># Set framerate to 5
>option add Vic.framerate 5 50
># Set brightness to 42
>option add Vic.brightness 42 50
># Set contrast to 30
>option add Vic.contrast 30 50
># Set saturation to 120
>option add Vic.saturation 120 50
># Set image quality to 5
>option add Vic.quality 85 50
>#
># The procedure named 'user_hook' is called when vic starts up;
># this version of the procedure starts transmission.
>#
>proc user_hook {} {
> global transmitButton transmitButtonState portButton
> global inputPort inputDeviceList videoDevice
>
> after 100 {
> if { ![winfo exists .menu] } {
> build.menu
> }
>
> # select the xil Osprey device
> foreach v $inputDeviceList {
> if { [$v nickname] == "xil Osprey 1k-1"} {
> set videoDevice $v
> select_device $v
> }
> }
>
> # select the composite port
> set inputPort composite-2
> grabber port composite-2
>
> # start transmitting
> if { [$transmitButton cget -state] != "disabled" } {
> set transmitButtonState 1
> transmit
> }
> }
>}
>#
># end of script
>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: README.settings
URL: <http://lists.mcs.anl.gov/pipermail/ag-tech/attachments/20031029/3b511085/attachment.diff>
More information about the ag-tech
mailing list