#
# 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@isi.edu) mailing list by Marcia Perry (ITG staff;
# mperry@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