Updated 2016-01-31 05:23:53 by escargo

started by Theo Verelst

Not a big page, I guess, but a often-usable subject: how to make the windows sound louder and softer, in this case using a tcl script.

In principle, snack offers access to most audio functions on windows, so here I used the snack lib to make a little script to control the volume of usually the default 'wave' channel of the windows sound business:
 package require snack

 if {[snack::audio play_gain] < [lindex $argv 0]} {
    set in 1
 } {
    set in -1

 for {set i [snack::audio play_gain]} { $i != [lindex $argv 0]} {incr i $in} {
    snack::audio play_gain $i ;
    after 201

call the script for isntance like this:
 tclsh setwinvol 80

and the volume will gradually change from its previous value to in this case 80. Normally it runs from 0 to 100, I think.

Note that the loop control is not fool-proof (the == condition), and that the script idles without UI updates until it finishes.

It is possible to use the same script with pcom to allow remote access to the volume control, which I think is interesting, see also remote execution using tcl and Pcom.

Windows audio is far from perfect, of course, It just happens to be so that I need to use a windows machine, and that I have made this high Q Usb AD/DA converter for it.

Not to be confused with Audio volume under tcl control through the parallel port which is about an electronics projects of tv.

Anyone know how to make snack control the master volume instead of just the wave channel ?

Is this wave different than the wav digital audio file format?

Category Sound