Skip to content

Instantly share code, notes, and snippets.

@soohyunc
Created June 10, 2013 09:03
Show Gist options
  • Save soohyunc/5747403 to your computer and use it in GitHub Desktop.
Save soohyunc/5747403 to your computer and use it in GitHub Desktop.
An example of .vic config file (a custom user setting)
#!/bin/sh
#\
exec wish4.2 "$0" "$@"
#
proc user_fps {val} {
global fps_slider
$fps_slider set $val
}
proc user_bps {val} {
global bps_slider
$bps_slider set $val
}
proc user_quality {val} {
global qscale
$qscale set $val
}
proc user_transmit {} {
global transmitButtonState transmitButton logFrameChannel
user_quality 99
user_bps 3072
user_fps 8
puts $logFrameChannel "Start Experiment"
after 3000 user_fps 5
after 6000 user_fps 16
after 90000 user_fps 25
#$transmitButton invoke
destroy .b
}
proc user_hook {} {
button .b -text "Start Experiment" -command user_transmit
pack .b
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment