SF.net SVN: supercollider:[9081] trunk/build/examples/pieces/ some_constellations.scd

[jrhb]

Revision: 9081
          http://supercollider.svn.sourceforge.net/supercollider/?rev=9081&view=rev
Author:   jrhb
Date:     2009-04-20 00:20:41 +0000 (Mon, 20 Apr 2009)

Log Message:
-----------
add piece

Modified Paths:
--------------
    trunk/build/examples/pieces/some_constellations.scd

Modified: trunk/build/examples/pieces/some_constellations.scd
===================================================================
--- trunk/build/examples/pieces/some_constellations.scd 2009-04-19 23:56:14 UTC (rev 9080)
+++ trunk/build/examples/pieces/some_constellations.scd 2009-04-20 00:20:41 UTC (rev 9081)
@@ -109,7 +109,7 @@
  var str = axiom.rewriteString(rules, i + 6);
  var dt = 2 ** i.neg * 10;
  var trig = TDuty.ar(dt, 0,
- Dseq(str.collectAs(_.digit, Array))
+ Dseq(str.collectAs(_.digit, Array).postln)
  );
  var freq = ExpRand(200, i + 1 / 7 * 10100);
  Ringz.ar(trig, freq * [1, 1.2, 1.5], ExpRand(2 ** i.neg * 0.1, 1.101) ).sum.distort
@@ -148,9 +148,33 @@
 }.play;
 )
 
+// sturmian sequencer III
+(
+var rules, axiom;
+"MathLib".include; // needs MathLib
 
+rules = [
+ "0" -> "01",
+ "1" -> "0"
+];
 
+axiom = "0";
 
+{
+ var n = 9;
+ Splay.ar({ |i|
+ var str = axiom.rewriteString(rules, i + 6);
+ var dt = SampleDur.ir / (n - i + 2) * MouseX.kr(1, SampleRate.ir, 2);
+ TDuty.ar(dt, 0,
+ Dseq(str.collectAs(_.digit, Array) - 0.5, inf)
+ );
+ }.dup(n), 0.5) * 0.3
+}.play;
+)
+
+
+
+
 // practise in the abstract
 (
 SynthDef(\strings, { arg out, freq=440, amp=0.1, gate=1, pan, freqLag=0.2;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

_______________________________________________
sc-dev mailing list

info (subscription, etc.): http://www.beast.bham.ac.uk/research/sc_mailing_lists.shtml
archive: http://www.listarc.bham.ac.uk/marchives/sc-dev/
search: http://www.listarc.bham.ac.uk/lists/sc-dev/search/