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 acces 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]