Configuring vic

When vic starts up, we want it be running with a number of options preset, rather than having to manually set them everytime. These options include such things as the frame rate and the quality settings. They can be set when vic is invoked but it is easier to set them through a resource file in the user's home directory. The file is named ".vic.tcl", and an example is provided below. Note that it contains a Tcl procedure "user_hook", which allows the user to insert Tcl code to be executed whenever vic starts up. This mechanism is used to begin transmission of video on the capture machine. If there are no capture devices on the display machine, then no .vic.tcl file is required.

option add Vic.maxbw 3072 50
option add Vic.bandwidth 2048 50
option add Vic.framerate 16 50
option add Vic.quality 85 50
option add Vic.rtpName "University of Halmergurky"
option add Vic.defaultTTL 66

proc user_hook {} {
    global inputPort inputType fps videoDevice videoDeviceList

    set video_xmit 0

    after 200 {
        toggle_window .menu

        set inputPort Composite1
        .menu.cb.frame.right.fps.scale set 24
        set inputType pal
        set brightness 100
        set contrast 100

        set note [option get . note Vic]
        if { $note != "" } {
            update_note "" $note
        } else {
            switch  $videoDevice {
                "_o3" {
                    update_note "" "Physics PRESENTER"
                    set video_xmit 0
                }
                "_o2" {
                    update_note "" "Physics AUDIENCE"
                    set video_xmit 1
                }
                "_o1" {
                    update_note "" "Physics MAIN"
                    set video_xmit 1
                }
                "_o0" {
                    update_note "" "Physics X11"
                    set video_xmit 0
                }
            }
        }

        if { $video_xmit > 0 } {
            $transmitButton invoke
        }
        toggle_window .menu

    }
}