#!/usr/bin/perl
use blib;
use Audio::LADSPA::Network;
use Audio::LADSPA;
use Devel::Peek;
use strict;
$|++;
my $dummy = 1;
Dump($dummy);
my %tests = (
net => sub {
my $net = Audio::LADSPA::Network->new(44100);
$net->add_plugin( id => 1043);
},
plugin => sub {
my $plugin = Audio::LADSPA->plugin( id => 1043 );
},
buffers => sub {
my $plugin = Audio::LADSPA->plugin( id => 1043 );
Dump($plugin);
for ($plugin->ports()) {
Dump($_);
warn "inspecting $_\n";
my $b = $plugin->get_buffer($_);
warn "got buffer";
if ($plugin->get_buffer($_)) {
warn "hmmm... port already connected?";
}
else {
warn "connecting..";
my $buffer = Audio::LADSPA::Buffer->new(100);
$plugin->connect($_,$buffer);
}
}
},
);
my $test = $tests{ shift() } or die "Usage: $0 [".join('|',sort keys %tests)."]\n";
for (0 .. 100000) {
print STDERR "\r$_";
$test->();
}
while(1) {
print "Done, sleeping for 10 seconds";
sleep 10;
}