[sc-dev] SF.net SVN: quarks:[2653] ListeningClocks/help/basic_telepathy_test.scd

[jrhb@xxxxxxxxxxxxxxxxxxxxx]

Revision: 2653
          http://sourceforge.net/p/quarks/code/2653
Author:   jrhb
Date:     2013-10-14 16:11:42 +0000 (Mon, 14 Oct 2013)
Log Message:
-----------
Start a better implementation of TelepathicClock

Modified Paths:
--------------
    ListeningClocks/help/basic_telepathy_test.scd

Modified: ListeningClocks/help/basic_telepathy_test.scd
===================================================================
--- ListeningClocks/help/basic_telepathy_test.scd	2013-10-14 13:32:54 UTC (rev 2652)
+++ ListeningClocks/help/basic_telepathy_test.scd	2013-10-14 16:11:42 UTC (rev 2653)
@@ -7,8 +7,9 @@
 
 (
 // basic test:
-a = ReferenceClock.new;
-b = ListeningClock.new;
+a = ReferenceClock.new(TempoClock.default.tempo, TempoClock.default.elapsedBeats);
+b = ListeningClock.new(TempoClock.default.tempo, TempoClock.default.elapsedBeats);
+b.permanent_(true);
 b.addClock(a, 1);
 b.startListen;
 b.verbose = true;
@@ -22,3 +23,37 @@
 // regular updates
 fork { loop { 1.wait; a.adjust(1, b.elapsedBeats + 0.1.rand2) } }
 
+
+(
+SynthDef(\Pdefhelp, { arg out, freq, sustain=1, amp=1, pan;
+    var env = EnvGen.ar(Env.perc(0.01, sustain), 1, doneAction:2);
+    Out.ar(out, Pan2.ar(SinOsc.ar(freq, 0.5pi, amp * env), pan));
+}).add;
+)
+
+(
+Pbind(\instrument, \Pdefhelp, \dur, 0.5, \note, Pseq([0, 3, 6, 7], inf)).play(b, quant: 1);
+Pbind(\instrument, \Pdefhelp, \dur, 0.5, \note, Pseq([0, 3, 6, 7] + 5, inf)).play(TempoClock.default, quant: 1);
+fork { loop { 1.wait; a.adjust(TempoClock.default.tempo, TempoClock.default.elapsedBeats) } }
+);
+
+TempoClock.default.tempo = 1.4;
+TempoClock.default.tempo = 0.4;
+TempoClock.default.tempo = 1.0;
+TempoClock.default.tempo = rrand(0.7, 1.2);
+
+
+b.verbose = false;
+
+Tdef(\x, { loop { 1.4.wait; TempoClock.default.tempo = TempoClock.default.tempo * rrand(0.94, 1.05) } }).play;
+b.empathy = 1;
+b.confidence = 0.2;
+
+Tdef(\x, { loop { 1.4.wait; TempoClock.default.tempo = TempoClock.default.tempo * rrand(0.8, 1.2) } }).play;
+Tdef(\x, { loop { 1.4.wait; TempoClock.default.tempo = TempoClock.default.tempo  } }).play;
+TempoClock.default.tempo = 2;
+
+
+b.stop;
+
+

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: https://listarc.bham.ac.uk/marchives/sc-dev/
search: https://listarc.bham.ac.uk/lists/sc-dev/search/