| I'm not one to start rumors but...
ADI has been making a multi-processor version of Extended Csound (XTCsound) for
a customer. It's fairly stable now, and our deadline is in a few months, so it
should solidify soon. I'm not sure when ADI will make these boards available to
the public though.
For anyone using our card, we'll soon have a 32-bit driver that crashes much
less. I'll post a message when it's on our site.
Also, for a few of you who were interested in porting XTCsound to Linux (Mac
anyone?), I will be getting a shipment of boards week after next (only 7 months
late!!). Send me a note if you're still interested in a free card.
thanks,
Scotty Vercoe
XTCsound Applications Consultant
Analog Devices Software & Systems Technology Division
Tel: (781) 461-3569 FAX: (781) 461-4291
Support: Csound.support@analog.com
Website: http://www.geocities.com/researchtriangle/thinktank/2138/
> ----------
> From: Richard Dobson[SMTP:rwd@cableinet.co.uk]
> Sent: Thursday, January 07, 1999 5:35 AM
> To: Roger Klaveness
> Cc: Csound Mail-list
> Subject: Re: Linux Journal Csound article now on-line
>
> Thanks for the info. From my cursory read of his pages, 'Real-Time'
> relates to real-time GUI interaction with the spectrum, not to live
> audio processing; he seems to be working with disk-based analsis files.
> This is of course exactly what Trevor Wishart's spectral manipulations
> do, and he lives in York, not so far from Leeds!
>
> My goal is to run pvoc+transformations as a live real-time process, and
> modern PC's are certainly fast enough to do that. It does unfortunately
> need more than one SHARC chip, so extended Csound is not an option at
> present. I will now try to introduce Trevor to Nick Bailey!
>
> Richard Dobson
>
Received: from shaun.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa18211;
7 Jan 99 20:54 GMT
Received: from [144.173.6.14] (helo=exeter.ac.uk)
by shaun.maths.bath.ac.uk with esmtp (Exim 1.92 #2)
for jpff@maths.bath.ac.uk
id 0zyMRq-0005oY-00; Thu, 7 Jan 1999 20:54:30 +0000
Received: from noether [144.173.8.10] by hermes via SMTP (UAA13053); Thu, 7 Jan 1999 20:53:12 GMT
Received: from exeter.ac.uk by maths.ex.ac.uk; Thu, 7 Jan 1999 20:53:00 GMT
Received: from caracal.noc.ucla.edu [169.232.10.11] by hermes via ESMTP (UAA10212); Thu, 7 Jan 1999 20:52:59 GMT
Received: from smtp ([164.67.88.7])
by caracal.noc.ucla.edu (8.9.1a/8.9.1) with SMTP id MAA07002
for ; Thu, 7 Jan 1999 12:52:58 -0800 (PST)
Received: from UCLA-Message_Server by smtp
with Novell_GroupWise; Thu, 07 Jan 1999 12:46:59 -0800
Message-Id:
X-Mailer: Novell GroupWise 4.1
Date: Thu, 07 Jan 1999 12:57:13 -0800
From: Jonathan Drexler
To: csound@maths.ex.ac.uk
Subject: csound (on Window NT) problem
Mime-Version: 1.0
Content-Type: text/plain
Content-Disposition: inline
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
Can anyone provide insight as to a critical error I am running into when generating a piece of music using csound? About 2/3 of the time csound aborts with a an access violation (an untrapped memory error) while in the midst of generating the orchestra. The only way I have been able to consistenly prevent this is to remove all "t" statements from my score file. It also seems to help if I drastically reduce the size of my orchestra. Neither of these solutions is, of course, practical.
At the moment I am dead in the water. Any help would be greatly appreciated.
I am running csound on Windows NT 4.0, service pack 3. The csound version is MIT Csound: 3.493 (Nov 21 1998).
Received: from shaun.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa18289;
7 Jan 99 21:37 GMT
Received: from [144.173.6.14] (helo=exeter.ac.uk)
by shaun.maths.bath.ac.uk with esmtp (Exim 1.92 #2)
for jpff@maths.bath.ac.uk
id 0zyN7k-0005rG-00; Thu, 7 Jan 1999 21:37:48 +0000
Received: from noether [144.173.8.10] by hermes via SMTP (VAA12937); Thu, 7 Jan 1999 21:36:39 GMT
Received: from exeter.ac.uk by maths.ex.ac.uk; Thu, 7 Jan 1999 21:36:27 GMT
Received: from camel8.mindspring.com [207.69.200.58] by hermes via ESMTP (VAA18368); Thu, 7 Jan 1999 21:36:26 GMT
Received: from home (user-38s0jga.dialup.mindspring.com [209.192.78.10])
by camel8.mindspring.com (8.8.5/8.8.5) with SMTP id QAA30775
for ; Thu, 7 Jan 1999 16:36:25 -0500 (EST)
From: Tony Ledford
To: csound@maths.ex.ac.uk
MMDF-Warning: Parse error in original version of preceding line at UK.AC.Bath.maths.omphalos
Subject: RE: csound (on Window NT) problem
Date: Thu, 7 Jan 1999 16:37:04 -0500
Message-ID: <000101be3a85$de054020$7040fea9@home>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook 8.5, Build 4.71.2173.0
Importance: Normal
In-Reply-To:
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3155.0
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
Jonathan, I've run 3.47 on NT4SP3 and NT4SP4 in the past without any
problems whatsoever. I'm also currently running Gabriel Maldonado's RTSound
1.9(x?) on NT4SP4 perfectly. But I've never tried the MIT 3.493.
Sorry!
Tony
> -----Original Message-----
> From: owner-csound-outgoing@maths.ex.ac.uk
> [mailto:owner-csound-outgoing@maths.ex.ac.uk]On Behalf Of Jonathan
> Drexler
> Sent: Thursday, January 07, 1999 3:57 PM
> To: csound@maths.ex.ac.uk
> Subject: csound (on Window NT) problem
>
>
> Can anyone provide insight as to a critical error I am running
> into when generating a piece of music using csound? About 2/3 of
> the time csound aborts with a an access violation (an untrapped
> memory error) while in the midst of generating the orchestra.
> The only way I have been able to consistenly prevent this is to
> remove all "t" statements from my score file. It also seems to
> help if I drastically reduce the size of my orchestra. Neither
> of these solutions is, of course, practical.
>
> At the moment I am dead in the water. Any help would be greatly
> appreciated.
>
> I am running csound on Windows NT 4.0, service pack 3. The
> csound version is MIT Csound: 3.493 (Nov 21 1998).
>
>
>
>
>
>
>
>
>
>
>
>
Received: from wallace.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa18691;
8 Jan 99 1:19 GMT
Received: from [144.173.6.14] (helo=exeter.ac.uk)
by wallace.maths.bath.ac.uk with esmtp (Exim 1.92 #2)
for jpff@maths.bath.ac.uk
id 0zyQZC-00014R-00; Fri, 8 Jan 1999 01:18:22 +0000
Received: from noether [144.173.8.10] by hermes via SMTP (BAA15162); Fri, 8 Jan 1999 01:16:32 GMT
Received: from exeter.ac.uk by maths.ex.ac.uk; Fri, 8 Jan 1999 01:16:19 GMT
Received: from howl.werewolf.net [12.23.152.10] by hermes via ESMTP (BAA11995); Fri, 8 Jan 1999 01:16:18 GMT
Received: from default (dial38.werewolf.net [12.23.153.38])
by howl.werewolf.net (8.9.0/8.9.0) with SMTP id TAA00995
for ; Thu, 7 Jan 1999 19:13:00 -0600 (CST)
Message-ID: <003201be3aa5$233a7100$2699170c@default>
From: Hans Mikelson
To: Csound
Subject: Csound fractal granular score generator
Date: Thu, 7 Jan 1999 19:20:52 -0600
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 4.72.3110.5
X-Mimeole: Produced By Microsoft MimeOLE V4.72.3110.3
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
#!/usr/bin/perl
#-------------------------------------------------------------------------
# Automatic Csound Score Generation by Hans Mikelson January 1999
#
# This program generates a fractal csound score for use in granular
synthesis.
#-------------------------------------------------------------------------
# SUBROUTINES
#-------------------------------------------------------------------------
# Mandeloop
sub mandeloop
{
my $cr = $_[0];
my $ci = $_[1];
my $zr = 0;
my $zi = 0;
my $zzr = 0;
$grain{$_[2]} = 0;
while (($grain{$_[2]} < 200) && ($zr*$zr + $zi*$zi < 4))
{
# z = z^2 + c
$zzr = $zr*$zr - $zi*$zi + $cr;
$zi = 2*$zr*$zi + $ci;
$zr = $zzr;
$grain{$_[2]}++;
}
}
# Barnsleyj1
sub barnsleyj1
{
my $cr = $_[0];
my $ci = $_[1];
my $zzr = 0;
# z(0) = pixel;
$grain{$_[4]} = $_[2];
$grain{$_[5]} = $_[3];
# if real(z) >= 0
# z(n+1) = (z-1)*c
# else
# z(n+1) = (z+1)*c
if ($grain{$_[4]} >= 0)
{
$zzr = ($grain{$_[4]}-1)*$cr - $grain{$_[5]}*$ci;
$grain{$_[5]} = $grain{$_[5]}*$cr + $ci*($grain{$_[4]} - 1);
$grain{$_[4]} = $zzr;
}
else
{
$zzr = ($grain{$_[4]} + 1)*$cr - $grain{$_[5]}*$ci;
$grain{$_[5]} = $grain{$_[5]}*$cr + $ci*($grain{$_[4]} + 1);
$grain{$_[4]} = $zzr;
}
}
# Henon Attractor
sub henon
{
my $a = $_[0];
my $b = $_[1];
my $xx = 1 + $grain{$_[3]} - $a*$grain{$_[2]}*$grain{$_[2]};
my $yy = $b*$grain{$_[2]};
$grain{$_[2]} = $xx;
$grain{$_[3]} = $yy;
}
sub gs1
{
$stao = $_[0];
$stam = $_[1];
$duro = $_[2];
$durm = $_[3];
$ampo = $_[4];
$ampm = $_[5];
$fqco = $_[6];
$fqcm = $_[7];
$iter = $_[8];
$maxpan = 10;
for ($i=0; $i<$iter; $i++)
{
$sy = int($i/sqrt($iter));
$sx = $i % int(sqrt($iter));
henon(1.4, .3, 'sta', 'dur');
barnsleyj1(1.2, .5, -1.3+.1*$sx, .25+.1*$sy, 'amp', 'fqc');
mandeloop(-1.5+.01*$sx, -1+.01*$sy, 'pan');
if (abs($grain{'pan'})>$maxpan) {$maxpan = abs($grain{'pan'})}
$sta = $stam*int($sf*abs($grain{'sta'}))/$sf + $stao;
$dur = $durm*int($sf*abs($grain{'dur'}))/$sf + $duro;
$amp = $ampm*int($sf*abs($grain{'amp'}))/$sf + $ampo;
$fqc = $fqcm*int($sf*abs($grain{'fqc'}))/$sf + $fqco;
$pan = int($sf*abs($grain{'pan'}))/$sf/$maxpan;
print SCORE "i1 $sta $dur $amp $fqc $pan\n";
}
}
sub gs2
{
$stao = $_[0];
$stam = $_[1];
$duro = $_[2];
$durm = $_[3];
$ampo = $_[4];
$ampm = $_[5];
$fqco = $_[6];
$fqcm = $_[7];
$iter = $_[8];
$maxpan = .001;
for ($i=0; $i<$iter; $i++)
{
henon(1.4, .3, 'sta', 'dur');
henon(1.4, .3, 'amp', 'fqc');
henon(1.4, .3, 'pan', 'atk');
if (abs($grain{'pan'})>$maxpan) {$maxpan = abs($grain{'pan'})}
$sta = $stam*int($sf*abs($grain{'sta'}))/$sf + $stao;
$dur = $durm*int($sf*abs($grain{'dur'}))/$sf + $duro;
$amp = $ampm*int($sf*abs($grain{'amp'}))/$sf + $ampo;
$fqc = $fqcm*int($sf*abs($grain{'fqc'}))/$sf + $fqco;
$pan = int($sf*abs($grain{'pan'}))/$sf/$maxpan;
print SCORE "i1 $sta $dur $amp $fqc $pan\n";
}
}
# Main Program begins here
$scorefile = "fscore.sco";
open (SCORE, ">$scorefile");
print SCORE "f1 0 8192 10 1\n\n";
$sf = 1000;
# Sta Dur Amp Fqc Grains
# Min Rng Min Rng Min Rng Min Rng #
gs1(0, 2, .1, 4, 10, 2000, 200, 3000, 100);
gs1(3, 1, .1, 4, 20, 4000, 400, 400, 20);
gs1(5, 2, .3, 2, 30, 1000, 480, 1000, 30);
gs1(6, 1, .1, 7, 40, 1000, 200, 200, 200);
gs1(7, 2, .5, 4, 50, 2000, 200, 1000, 120);
gs1(8, 3, .1, 4, 100, 3000, 300, 400, 20);
gs1(9, 2, .3, .2, 200, 2000, 280, 300, 40);
gs1(10, 2, .2, .3, 300, 3000, 100, 200, 80);
gs1(12, 2, .1, .4, 400, 2000, 200, 100, 100);
gs1(14, 1, .1, .8, 500, 1000, 200, 90, 20);
gs1(15, 2, .3, 1, 700, 400, 280, 80, 30);
gs1(16, 4, .4, 1.5, 800, 500, 300, 70, 100);
gs1(17, 3, .5, 2, 900, 600, 330, 60, 110);
gs1(18, 3, .6, 4, 1000, 700, 440, 50, 120);
gs1(20, 2.5, .7, 6, 1100, 800, 580, 30, 150);
gs1(22, 2, 1, 8, 1200, 1000, 600, 20, 180);
;
gs1(26, 1, .2, 9, 500, 400, 880, 20, 100);
gs1(30, 1, .2, 9, 600, 400, 700, 40, 100);
gs1(34, 1, .2, 9, 700, 400, 630, 80, 100);
gs1(38, 1, .2, 9, 800, 400, 540, 160, 100);
gs1(42, 1, .2, 9, 900, 400, 480, 320, 100);
gs1(46, 1, .2, 9, 1000, 400, 300, 440, 100);
gs1(50, 1, .2, 9, 1100, 400, 280, 540, 100);
gs1(54, 1, .2, 9, 1200, 400, 240, 640, 100);
gs1(58, 1, .2, 9, 1300, 400, 220, 840, 100);
gs1(62, 1, .2, 9, 1400, 400, 200, 1040, 100);
gs1(66, 1, .2, 9, 1500, 400, 180, 1240, 100);
close SCORE;
Received: from wallace.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa18727;
8 Jan 99 1:55 GMT
Received: from [144.173.6.14] (helo=exeter.ac.uk)
by wallace.maths.bath.ac.uk with esmtp (Exim 1.92 #2)
for jpff@maths.bath.ac.uk
id 0zyR8v-000161-00; Fri, 8 Jan 1999 01:55:17 +0000
Received: from noether [144.173.8.10] by hermes via SMTP (BAA02798); Fri, 8 Jan 1999 01:55:02 GMT
Received: from exeter.ac.uk by maths.ex.ac.uk; Fri, 8 Jan 1999 01:54:50 GMT
Received: from echo.flash.net [209.30.0.40] by hermes via ESMTP (BAA16241); Fri, 8 Jan 1999 01:54:48 GMT
Received: from flash.net (p34.amax1.dialup.ftw1.flash.net [209.30.14.34])
by echo.flash.net (8.9.1/8.8.5) with ESMTP id TAA21391;
Thu, 7 Jan 1999 19:54:17 -0600 (CST)
Message-ID: <369565EE.9ED0A6D@flash.net>
Date: Thu, 07 Jan 1999 19:57:02 -0600
From: pete moss
Organization: pete moss GmbH
X-Mailer: Mozilla 4.5 [en] (Win98; U)
X-Accept-Language: en
MIME-Version: 1.0
To: csound , music-dsp@shoko.calarts.edu
Subject: job in DFW
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
please ignore this if you live outside the dallas/fort worth
metroplex. and sorry for wasting the bandwidth of the list.
does anyone in the dfw area know of any jobs available that deal with
either computers or music or both. i just got my bachelors in
composition and electronic music and i need a job until i go away to
grad school in the fall. i am highly skilled in many aspects of
computing (networking, administration, programming, hardware, support,
etc.). i am also good at composition of music and theory. so far i
have been unsuccessful in finding a job and i am worried about making
rent next month. please email me privately with info or if you need
info.
thanks
william 'pete' moss
Received: from shaun.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa18766;
8 Jan 99 2:13 GMT
Received: from [144.173.6.14] (helo=exeter.ac.uk)
by shaun.maths.bath.ac.uk with esmtp (Exim 1.92 #2)
for jpff@maths.bath.ac.uk
id 0zyRQl-00066a-00; Fri, 8 Jan 1999 02:13:43 +0000
Received: from noether [144.173.8.10] by hermes via SMTP (CAA00334); Fri, 8 Jan 1999 02:12:42 GMT
Received: from exeter.ac.uk by maths.ex.ac.uk; Fri, 8 Jan 1999 02:12:30 GMT
Received: from ella.mills.edu [144.91.3.20] by hermes via SMTP (CAA16014); Fri, 8 Jan 1999 02:12:29 GMT
Received: (qmail 624028 invoked by uid 1964); 7 Jan 1999 18:12:43 -0800
Date: Thu, 7 Jan 1999 18:12:43 -0800 (PST)
From: "Matt J. Ingalls"
To: philip@vcn.bc.ca
cc: csound@maths.ex.ac.uk
Subject: Re: perf source code
In-Reply-To:
Message-ID:
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
> With a little extra work I also compiled the perf 68K and FAT
very cool! send the changes/binaries!!
> However, in order to bring the code up to ANSI strict standards
> and avail myself of CodeWarrior's (minimal) error checking
> facilities, I've had to create several hundred prototypes and
> "fix" hundreds of errors (like unused arguments and variables).
yuck - a few months ago i made some changes to canonical sources
to remove some of the compiler warnings, but the unused arguments and
"several hundred" prtotypes was so much i just turned the options off
in the compiler prefs (i think i put that in the README)
im about to merge the 3.494 sources -- maybe its about time to remove
mills as ftp (since its currently messed up anyway) and get ALL the mac
stuff up on the bath site!
matt
Received: from wallace.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa19371;
8 Jan 99 8:57 GMT
Received: from [144.173.6.14] (helo=exeter.ac.uk)
by wallace.maths.bath.ac.uk with esmtp (Exim 1.92 #2)
for jpff@maths.bath.ac.uk
id 0zyXjJ-0001RO-00; Fri, 8 Jan 1999 08:57:17 +0000
Received: from noether [144.173.8.10] by hermes via SMTP (IAA09180); Fri, 8 Jan 1999 08:56:11 GMT
Received: from exeter.ac.uk by maths.ex.ac.uk; Fri, 8 Jan 1999 08:55:58 GMT
Received: from agora.stm.it [195.62.32.1] by hermes via ESMTP (IAA09156); Fri, 8 Jan 1999 08:55:56 GMT
Received: from agora.stm.it (ppp04-02.dial-access.stm.it [195.62.37.194]) by agora.stm.it (8.8.8/8.8.5) with ESMTP id JAA27178; Fri, 8 Jan 1999 09:55:41 +0100 (ITA)
Message-ID: <3695C983.C5FD4EA@agora.stm.it>
Date: Fri, 08 Jan 1999 10:01:55 +0100
From: Gabriel Maldonado
X-Mailer: Mozilla 4.06 [en] (Win95; I)
MIME-Version: 1.0
To: Hans Mikelson
CC: Csound
Subject: Re: Csound fractal granular score generator
References: <003201be3aa5$233a7100$2699170c@default>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
Is it possible to implemnt a C version of this program for people who don't use neither
know PERL?
Thanks
Gabriel
Hans Mikelson wrote:
>
> #!/usr/bin/perl
> #-------------------------------------------------------------------------
> # Automatic Csound Score Generation by Hans Mikelson January 1999
> #
> # This program generates a fractal csound score for use in granular
> synthesis.
> #-------------------------------------------------------------------------
> # SUBROUTINES
> #-------------------------------------------------------------------------
>
> # Mandeloop
> sub mandeloop
> {
> my $cr = $_[0];
> my $ci = $_[1];
> my $zr = 0;
> my $zi = 0;
> my $zzr = 0;
>
> $grain{$_[2]} = 0;
>
> while (($grain{$_[2]} < 200) && ($zr*$zr + $zi*$zi < 4))
> {
> # z = z^2 + c
> $zzr = $zr*$zr - $zi*$zi + $cr;
> $zi = 2*$zr*$zi + $ci;
> $zr = $zzr;
> $grain{$_[2]}++;
> }
> }
>
> # Barnsleyj1
> sub barnsleyj1
> {
> my $cr = $_[0];
> my $ci = $_[1];
> my $zzr = 0;
>
> # z(0) = pixel;
> $grain{$_[4]} = $_[2];
> $grain{$_[5]} = $_[3];
>
> # if real(z) >= 0
> # z(n+1) = (z-1)*c
> # else
> # z(n+1) = (z+1)*c
>
> if ($grain{$_[4]} >= 0)
> {
> $zzr = ($grain{$_[4]}-1)*$cr - $grain{$_[5]}*$ci;
> $grain{$_[5]} = $grain{$_[5]}*$cr + $ci*($grain{$_[4]} - 1);
> $grain{$_[4]} = $zzr;
> }
> else
> {
> $zzr = ($grain{$_[4]} + 1)*$cr - $grain{$_[5]}*$ci;
> $grain{$_[5]} = $grain{$_[5]}*$cr + $ci*($grain{$_[4]} + 1);
> $grain{$_[4]} = $zzr;
> }
> }
>
> # Henon Attractor
> sub henon
> {
> my $a = $_[0];
> my $b = $_[1];
> my $xx = 1 + $grain{$_[3]} - $a*$grain{$_[2]}*$grain{$_[2]};
> my $yy = $b*$grain{$_[2]};
> $grain{$_[2]} = $xx;
> $grain{$_[3]} = $yy;
> }
>
> sub gs1
> {
> $stao = $_[0];
> $stam = $_[1];
> $duro = $_[2];
> $durm = $_[3];
> $ampo = $_[4];
> $ampm = $_[5];
> $fqco = $_[6];
> $fqcm = $_[7];
> $iter = $_[8];
>
> $maxpan = 10;
>
> for ($i=0; $i<$iter; $i++)
> {
> $sy = int($i/sqrt($iter));
> $sx = $i % int(sqrt($iter));
>
> henon(1.4, .3, 'sta', 'dur');
> barnsleyj1(1.2, .5, -1.3+.1*$sx, .25+.1*$sy, 'amp', 'fqc');
> mandeloop(-1.5+.01*$sx, -1+.01*$sy, 'pan');
>
> if (abs($grain{'pan'})>$maxpan) {$maxpan = abs($grain{'pan'})}
>
> $sta = $stam*int($sf*abs($grain{'sta'}))/$sf + $stao;
> $dur = $durm*int($sf*abs($grain{'dur'}))/$sf + $duro;
> $amp = $ampm*int($sf*abs($grain{'amp'}))/$sf + $ampo;
> $fqc = $fqcm*int($sf*abs($grain{'fqc'}))/$sf + $fqco;
> $pan = int($sf*abs($grain{'pan'}))/$sf/$maxpan;
>
> print SCORE "i1 $sta $dur $amp $fqc $pan\n";
> }
> }
>
> sub gs2
> {
> $stao = $_[0];
> $stam = $_[1];
> $duro = $_[2];
> $durm = $_[3];
> $ampo = $_[4];
> $ampm = $_[5];
> $fqco = $_[6];
> $fqcm = $_[7];
> $iter = $_[8];
>
> $maxpan = .001;
>
> for ($i=0; $i<$iter; $i++)
> {
> henon(1.4, .3, 'sta', 'dur');
> henon(1.4, .3, 'amp', 'fqc');
> henon(1.4, .3, 'pan', 'atk');
> if (abs($grain{'pan'})>$maxpan) {$maxpan = abs($grain{'pan'})}
>
> $sta = $stam*int($sf*abs($grain{'sta'}))/$sf + $stao;
> $dur = $durm*int($sf*abs($grain{'dur'}))/$sf + $duro;
> $amp = $ampm*int($sf*abs($grain{'amp'}))/$sf + $ampo;
> $fqc = $fqcm*int($sf*abs($grain{'fqc'}))/$sf + $fqco;
> $pan = int($sf*abs($grain{'pan'}))/$sf/$maxpan;
>
> print SCORE "i1 $sta $dur $amp $fqc $pan\n";
> }
> }
>
> # Main Program begins here
>
> $scorefile = "fscore.sco";
> open (SCORE, ">$scorefile");
> print SCORE "f1 0 8192 10 1\n\n";
>
> $sf = 1000;
> # Sta Dur Amp Fqc Grains
> # Min Rng Min Rng Min Rng Min Rng #
> gs1(0, 2, .1, 4, 10, 2000, 200, 3000, 100);
> gs1(3, 1, .1, 4, 20, 4000, 400, 400, 20);
> gs1(5, 2, .3, 2, 30, 1000, 480, 1000, 30);
> gs1(6, 1, .1, 7, 40, 1000, 200, 200, 200);
> gs1(7, 2, .5, 4, 50, 2000, 200, 1000, 120);
> gs1(8, 3, .1, 4, 100, 3000, 300, 400, 20);
> gs1(9, 2, .3, .2, 200, 2000, 280, 300, 40);
> gs1(10, 2, .2, .3, 300, 3000, 100, 200, 80);
> gs1(12, 2, .1, .4, 400, 2000, 200, 100, 100);
> gs1(14, 1, .1, .8, 500, 1000, 200, 90, 20);
> gs1(15, 2, .3, 1, 700, 400, 280, 80, 30);
> gs1(16, 4, .4, 1.5, 800, 500, 300, 70, 100);
> gs1(17, 3, .5, 2, 900, 600, 330, 60, 110);
> gs1(18, 3, .6, 4, 1000, 700, 440, 50, 120);
> gs1(20, 2.5, .7, 6, 1100, 800, 580, 30, 150);
> gs1(22, 2, 1, 8, 1200, 1000, 600, 20, 180);
> ;
> gs1(26, 1, .2, 9, 500, 400, 880, 20, 100);
> gs1(30, 1, .2, 9, 600, 400, 700, 40, 100);
> gs1(34, 1, .2, 9, 700, 400, 630, 80, 100);
> gs1(38, 1, .2, 9, 800, 400, 540, 160, 100);
> gs1(42, 1, .2, 9, 900, 400, 480, 320, 100);
> gs1(46, 1, .2, 9, 1000, 400, 300, 440, 100);
> gs1(50, 1, .2, 9, 1100, 400, 280, 540, 100);
> gs1(54, 1, .2, 9, 1200, 400, 240, 640, 100);
> gs1(58, 1, .2, 9, 1300, 400, 220, 840, 100);
> gs1(62, 1, .2, 9, 1400, 400, 200, 1040, 100);
> gs1(66, 1, .2, 9, 1500, 400, 180, 1240, 100);
>
> close SCORE;
--
Gabriel Maldonado
http://www.agora.stm.it/G.Maldonado/home2.htm |