hello.

i am writing a little drum-sequencer using the Win32::Sound::WaveOut module. so far it works ok, but when i included a scale to change the volumes of the different channels i encountered problems. below excerpts from the code :

my $WAV1 = new Win32::Sound::WaveOut($sound_a) or die "WaveOut: $!";
# open sound for channel 1
...
...
$WAV1 -> Volume($level_a, $level_a);
$WAV1 -> Play() or die "Play: $!";
# play sound with the level set
[download]

$level_a is defined by the user via a scale :

my $level_a_scale = $frame3-> Scale(-variable=>\$level_a, -from => 0, 
+-to => 65535);
[download]

the weird thing is that though i define the level twice (left and right), i only get a signal on the left speaker and that setting $level_a to 0 does not mute the sound
if i don't use the line

$WAV1 -> Volume($level_a, $level_a);
[download]

the sound is played on both speakers.

thanks for your help, b4e.