File Coverage

blib/lib/PDL/Demos/Sound.pm

Criterion	Covered	Total	%
statement	7	10	70.0
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	3	0.0
total	10	20	50.0

package PDL::Demos::Sound;
use PDL::Demos;

use File::Which qw/which/;

our $player;
our $player_args;

# Find a suitable sound player and provide command line switches
# - aplay comes with ALSA (in Debian: package alsa-utils)
# - play comes with SoX (in Debian: package sox)
my %args = (
    'aplay' => ['--quiet'],     # we mostly use aplay's defaults
    'play'  => [
        '--no-show-progress',
        '--buffer'   => 256,    # makes it work on Win32
        '--type'     => 'raw',
        '--rate'     => 8000,   # the aplay default
        '--bits'     => 8,      # the aplay default
        '--channels' => 1,      # the aplay default
        '--encoding' => 'unsigned-integer',
        '-',                    # using STDIN
        '--channels' => 1,
        ($^O =~ /MSWin32/ ? ('--type' => 'waveaudio') : ()),
    ]
);
$args{sox} = [ @{$args{play}}, '--default' ];
FIND_EXE:
for my $candidate (qw(aplay play sox)) {
    which $candidate  and  do {
        $player = $candidate;
        $player_args = $args{$player};
        last FIND_EXE;
    }
}

sub init {
    return <<'EndOfText';
our $player = $PDL::Demos::Sound::player;
our $player_args = $PDL::Demos::Sound::player_args;
EndOfText
}

my $scale = <<'EndOfScale';

open (my $pipe, '|-', $player, @$player_args)
    or die "Can not start a sound player.  Demo failed.\n";
binmode $pipe;
my $n         = 4000;
my $samples   = pdl[0..$n-1];
my $raw_sound = byte(zeroes($n));
my $amplitude = 80;
for (8,9,10,32/3,12,40/3,15,16) {
    $raw_sound = byte($amplitude*(1+sin($samples*($_/8)*440*3.14/$n)));
    print $pipe ${$raw_sound->get_dataref};
}
close $pipe;
EndOfScale

my $chord = <<'EndOfChord';

open (my $pipe, '|-', $player, @$player_args)
    or die "Can not start a sound player.  Demo failed.\n";
binmode $pipe;
my $n         = 8000;
my $samples   = pdl[0..$n-1];
my $raw_sound = byte(zeroes($n));
my $amplitude = 30;
for (8,10,12,16) {
    $raw_sound += byte($amplitude*(1+sin($samples*($_/8)*440*6.28/$n)));
}
print $pipe ${$raw_sound->get_dataref};
close $pipe;
EndOfChord

my @demo = ([comment => "Listen to Perl and PDL: The A major scale\n"],
            [actnw   => $scale],
            [comment => "Listen to Perl and PDL: A Chord\n"],
            [actnw   => $chord],
        );
sub demo {
    return @demo if $PDL::Demos::Sound::player;
    ([comment => <
This demo requires an external command to play the sound,
unfortunately no suitable candidate could be found.
The following players are supported:
 - 'aplay' (from the ALSA suite) comes with the package 'alsa-utils'
   on Linux
 - 'play' and 'sox' (from SoX) are available as package 'sox' on Linux,
   and can be obtained from https://sourceforge.net/projects/sox/
   for Microsoft Windows and MacOS.
EndOfComment
}

sub info {
    ('sound', 'Sound (requires a sound player)')
}

1;

__END__