Subject: [ecasound] Perl ECI bindings - Audio::Ecasound
From: Brad Bowman (ecasound-list@bowman.bs)
Date: Sun Jul 01 2001 - 07:17:17 EEST
Hello all,
I've written a Perl module which implements the Ecasound
Control Interface. There are also a few higher level interfaces
like the new Python one. You'll need a perl compiled with
-Dusethreads and version 2.0.1 of Ecasound. I'm using it
myself but would appreciate any feedback <eci-perl@bowman.bs>
It's available on CPAN and the various mirrors:
http://www.cpan.org/authors/id/B/BO/BOWMANBS/Audio-Ecasound-0.2.readme
http://www.cpan.org/authors/id/B/BO/BOWMANBS/Audio-Ecasound-0.2.tar.gz
Good luck rock*s.
DESCRIPTION
Audio::Ecasound provides perl bindings to the ecasound control
interface of the ecasound program. You can use perl to automate or
interact with ecasound so you don't have to turn you back on the
adoring masses packed into Wembly Stadium.
SYNOPSIS
One function interface:
use Audio::Ecasound qw(:simple);
eci("cs-add play_chainsetup");
eci("c-add 1st_chain");
eci("-i:some_file.wav");
eci("-o:/dev/dsp");
# multiple \n separated commands
eci("cop-add -efl:100
# with comments
cop-select 1
copp-select 1
cs-connect");
eci("start");
my $cutoff_inc = 500.0;
while (1) {
sleep(1);
last if eci("engine-status") ne "running";
my $curpos = eci("get-position");
last if $curpos > 15;
my $next_cutoff = $cutoff_inc + eci("copp-get");
# Optional float argument
eci("copp-set", $next_cutoff);
}
eci("stop");
eci("cs-disconnect");
print "Chain operator status: ", eci("cop-status");
-- Brad Bowman -- To unsubscribe send message 'unsubscribe' in the body of the message to <ecasound-list-request@wakkanet.fi>.
This archive was generated by hypermail 2b28 : Sun Jul 01 2001 - 07:26:47 EEST