[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