From: owner-sc-users-digest@lists.io.com (sc-users-digest)
To: sc-users-digest@lists.io.com
Subject: sc-users-digest V1 #351
Reply-To: sc-users
Sender: owner-sc-users-digest@lists.io.com
Errors-To: owner-sc-users-digest@lists.io.com
Precedence: bulk


sc-users-digest       Tuesday, September 4 2001       Volume 01 : Number 351




----------------------------------------------------------------------

Date: Sat, 1 Sep 2001 09:12:57 -0400 (EDT)
From: "Ronald J. Kuivila" <---@---.--->
Subject: Re: variable space limits on the Danube

Hi Joel,

It might work to do something like this:

{ var <a whole bunch of var names>
	{ var <still more var names>
		your code goes here
	}.value
}.value


RJK



On Sat, 1 Sep 2001, joel ryan wrote:

> well I'm running out of something maybe two somethings
> there are more than 256 variables at the top of my "program"
> (what is that thing that you select and hit enter)
> 
> The editor perhaps has a file size limit
> The length of this opening prelude code file is 900-1000 lines/52kchars
> 

------------------------------

Date: Sat, 01 Sep 2001 16:31:56 +0200
From: jo <---@---.--->
Subject: [semi-OT] Hammerfall CardBus/Multiface/etc

Hi,

I heard of people having problems getting the Hammerfall CardBus PCMCIA card
to run in a Tibook.
Does anyone on this list use this combination successfully with
SuperCollider?


Greetings,

jo

------------------------------

Date: Mon, 03 Sep 2001 12:53:28 +0200
From: John Eacott <---@---.--->
Subject: Patterns inside a Prout

I want to this (which works in SC2.2.10) in a more concise, general way.

(
// this makes a bassline from a given, bassriff, harmonic rhythm and
chord sequence
var tempo, key,
bassriff, harmrhythm, chordseq,
vbass;

tempo = 120; key = 40;

bassriff = [0, 12, 12, 0];
harmrhythm = [1.5, 2.5, 4, 2, 2, 4].scramble;
chordseq = [0, 2, 3, 5, 7, -4, -2].scramble;

vbass = Pbind(
 \dur, 0.5,
 \midinote, Pseq([
  Pser(bassriff + chordseq.at(0), (harmrhythm.at(0)*2).asInteger),
  Pser(bassriff + chordseq.at(1), (harmrhythm.at(1)*2).asInteger),
  Pser(bassriff + chordseq.at(2), (harmrhythm.at(2)*2).asInteger),
  Pser(bassriff + chordseq.at(3), (harmrhythm.at(3)*2).asInteger),
  Pser(bassriff + chordseq.at(4), (harmrhythm.at(4)*2).asInteger),
  Pser(bassriff + chordseq.at(5), (harmrhythm.at(5)*2).asInteger -1)
  ], 4) +key);

Synth.scope({ arg synth;
 SetTempo.kr(synth, tempo/60);
 vbass.asSpawn(nil, 2);
 }, 2);

)


I tried using Prout and Pfunc but to no avail yet... (this doesn't work
as I only get the first note returned)

(
var tempo, key,
bassriff, harmrhythm, chordseq,
vbass;

tempo = 120; key = 40;

bassriff = [0, 12, 12, 0];
harmrhythm = [1.5, 2.5, 4, 2, 2, 4].scramble;
chordseq = [0, 2, 3, 5, 7, -4, -2].scramble;

vbass = Pbind(
 \dur, 0.5,
 \midinote, Prout({
  harmrhythm.size.do(  // this should allow for harmrhythm arrays of
different sizes
   { arg i;
   Pser(bassriff + chordseq.at(i), (harmrhythm.at(i)*2).asInteger)
   }).yield })+key);

Synth.scope({ arg synth;
 SetTempo.kr(synth, tempo/60);
 vbass.asSpawn(nil, 2);
 }, 2);

)


Could someone please tell me how it should be done?
j

- --
John Eacott
www.informal.org
www.strangeattraction.com
tel. +44 (0) 20 7582 3429

------------------------------

Date: Tue, 4 Sep 2001 15:03:42 +0200
From: Paul Crabbe <---@---.--->
Subject: Re: Patterns inside a Prout

- --============_-1212513802==_ma============
Content-Type: text/plain; charset="us-ascii" ; format="flowed"

>I want to this (which works in SC2.2.10) in a more concise, general way.
>
>(
>// this makes a bassline from a given, bassriff, harmonic rhythm and
>chord sequence
>var tempo, key,
>bassriff, harmrhythm, chordseq,
>vbass;
>
>tempo = 120; key = 40;
>
>bassriff = [0, 12, 12, 0];
>harmrhythm = [1.5, 2.5, 4, 2, 2, 4].scramble;
>chordseq = [0, 2, 3, 5, 7, -4, -2].scramble;
>
>vbass = Pbind(
> \dur, 0.5,
> \midinote, Pseq([
>  Pser(bassriff + chordseq.at(0), (harmrhythm.at(0)*2).asInteger),
>  Pser(bassriff + chordseq.at(1), (harmrhythm.at(1)*2).asInteger),
>  Pser(bassriff + chordseq.at(2), (harmrhythm.at(2)*2).asInteger),
>  Pser(bassriff + chordseq.at(3), (harmrhythm.at(3)*2).asInteger),
>  Pser(bassriff + chordseq.at(4), (harmrhythm.at(4)*2).asInteger),
>  Pser(bassriff + chordseq.at(5), (harmrhythm.at(5)*2).asInteger -1)
>  ], 4) +key);
>
>Synth.scope({ arg synth;
> SetTempo.kr(synth, tempo/60);
> vbass.asSpawn(nil, 2);
> }, 2);
>
>)
>
>
hello John, (how are you, since ICM?)
I found this solution, there must be a better one...
(
var tempo, key,
bassriff, harmrhythm, chordseq,
vbass;

tempo = 120; key = 40;

bassriff = [0, 12, 12, 0];
harmrhythm = [1.5, 2.5, 4, 2, 2, 4].scramble;
chordseq = [0, 2, 3, 5, 7, -4, -2].scramble;

vbass = Pbind(
  \dur,0.5,
  \midinote, Pseq(
   Array.fill(harmrhythm.size, 
    { arg i;
    Pser(bassriff + chordseq.at(i), (harmrhythm.at(i)*2).asInteger)
    })
    ,4)+key);

Synth.scope({ arg synth;
  SetTempo.kr(synth, tempo/60);
  vbass.asSpawn(nil, 2);
  }, 2);

)
Paul Crabbe, pcrabbe@club-internet.fr
- --============_-1212513802==_ma============
Content-Type: text/html; charset="us-ascii"

<!doctype html public "-//W3C//DTD W3 HTML//EN">
<html><head><style type="text/css"><!--
blockquote, dl, ul, ol, li { margin-top: 0 ; margin-bottom: 0 }
 --></style><title>Re: Patterns inside a Prout</title></head><body>
<blockquote type="cite" cite>I want to this (which works in SC2.2.10)
in a more concise, general way.<br>
<br>
(<br>
// this makes a bassline from a given, bassriff, harmonic rhythm
and<br>
chord sequence<br>
var tempo, key,<br>
bassriff, harmrhythm, chordseq,<br>
vbass;<br>
<br>
tempo = 120; key = 40;<br>
<br>
bassriff = [0, 12, 12, 0];<br>
harmrhythm = [1.5, 2.5, 4, 2, 2, 4].scramble;<br>
chordseq = [0, 2, 3, 5, 7, -4, -2].scramble;<br>
<br>
vbass = Pbind(<br>
&nbsp;\dur, 0.5,<br>
&nbsp;\midinote, Pseq([<br>
&nbsp; Pser(bassriff + chordseq.at(0),
(harmrhythm.at(0)*2).asInteger),<br>
&nbsp; Pser(bassriff + chordseq.at(1),
(harmrhythm.at(1)*2).asInteger),<br>
&nbsp; Pser(bassriff + chordseq.at(2),
(harmrhythm.at(2)*2).asInteger),<br>
&nbsp; Pser(bassriff + chordseq.at(3),
(harmrhythm.at(3)*2).asInteger),<br>
&nbsp; Pser(bassriff + chordseq.at(4),
(harmrhythm.at(4)*2).asInteger),<br>
&nbsp; Pser(bassriff + chordseq.at(5), (harmrhythm.at(5)*2).asInteger
- -1)<br>
&nbsp; ], 4) +key);<br>
<br>
Synth.scope({ arg synth;<br>
&nbsp;SetTempo.kr(synth, tempo/60);<br>
&nbsp;vbass.asSpawn(nil, 2);<br>
&nbsp;}, 2);</blockquote>
<blockquote type="cite" cite><br>
)<br>
</blockquote>
<blockquote type="cite" cite><br></blockquote>
<div>hello John, (how are you, since ICM?)</div>
<div>I found this solution, there must be a better one...</div>
<div><tt><font color="#000000">(<br>
var tempo, key,<br>
bassriff, harmrhythm, chordseq,<br>
vbass;<br>
<br>
tempo = 120; key = 40;<br>
<br>
bassriff = [0, 12, 12, 0];<br>
harmrhythm = [1.5, 2.5, 4, 2, 2, 4].scramble;<br>
chordseq = [0, 2, 3, 5, 7, -4, -2].scramble;<br>
<br>
vbass = Pbind(<br>
&nbsp;\dur,0.5,<br>
&nbsp;\midinote, Pseq(<br>
&nbsp; Array.fill(harmrhythm.size,&nbsp;<br>
&nbsp;&nbsp; { arg i;<br>
&nbsp;&nbsp; Pser(bassriff + chordseq.at(i),
(harmrhythm.at(i)*2).asInteger)<br>
&nbsp;&nbsp; })<br>
&nbsp;&nbsp; ,4)+key);<br>
<br>
Synth.scope({ arg synth;<br>
&nbsp;SetTempo.kr(synth, tempo/60);<br>
&nbsp;vbass.asSpawn(nil, 2);<br>
&nbsp;}, 2);</font></tt><br>
<tt><font color="#000000"></font></tt></div>
<div><tt><font color="#000000">)</font></tt></div>

<div>Paul Crabbe, pcrabbe@club-internet.fr</div>
</body>
</html>
- --============_-1212513802==_ma============--

------------------------------

End of sc-users-digest V1 #351
******************************