Subject: Re: [ecasound] Perl ECI bindings - Audio::Ecasound
From: S. Massy (theanaloguekid@tak.net.dhis.org)
Date: Sun Jul 01 2001 - 19:39:08 EEST
On Sun, 01 Jul 2001, Brad Bowman <ecasound-list@bowman.bs> wrote:
> 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>
Thank you very much for that, I can't wait to give it a serious try, it just
looks so great. :)
I have a bit of a good news for you, by the way; my version of perl doesn't
seem to be compiled with threading support and it works fine, at least with
the example programs. I'll tell you more once I've had a go at some more
serious programming with this module.
>
> 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>.
>
-- 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 - 19:40:38 EEST