adding tempo control, tabbed windows, and checking tempo and part order for each pieces

supercollider/live_utilities.scd

@@ -84,7 +84,8 @@ Event.addEventType(\osc, {
 
 //create patterns
 ~bergerCreatePatternsForLive = {arg seqs, group;
-	var pBinds;
+	var pBinds, cleanSeqs;
+	cleanSeqs = [seqs[5], seqs[6], seqs[7], seqs[0], seqs[1], seqs[2]];
 	pBinds = seqs.collect({arg r, i;
 		Pbind(\instrument, \berger,
 			//\buf, Pseq((i - ((0..(r.slice(nil, 2).flat.size - 1)) / 10).trunc.asInteger) % 8),
@@ -109,9 +110,9 @@ Event.addEventType(\osc, {
 			\group, group,
 			\out, ~hdpBusArray[i],
 			\freq, Pseq(12.midicps * r.slice(nil, 1)),
-			\dur, Pseq(r.slice(nil, 0) * 0.25 * (3/4)),
-			\sustain, Pseq(r.slice(nil, 0) * 0.25 * (3/4)),
-			\amp, Pseq(r.slice(nil, 2))
+			\dur, Pseq(r.slice(nil, 0) * 0.25 /* * (3/4)*/),
+			\sustain, Pseq(r.slice(nil, 0) * 0.25 /* * (3/4)*/),
+			\amp, Pseq(r.slice(nil, 2) * 2)
 		)
 	});
 };
@@ -125,8 +126,8 @@ Event.addEventType(\osc, {
 			\out, ~hdpBusArray[i],
 			//\freq, Pseq((24.midicps * r[1]).cpsmidi.round(0.5).midicps),
 			\freq, Pseq((24.midicps * r[1])),
-			\dur, Pseq(r[0] * 0.125),
-			\sustain, Pseq(r[0] * 0.125),
+			\dur, Pseq(r[0] * 0.25 /* * 0.125*/),
+			\sustain, Pseq(r[0] * 0.25 /* * 0.125*/),
 			\amp, Pseq(((r[2] * 0.25) / pow(1.5, ((i % 6) + 1))))
 		)
 	});
@@ -246,7 +247,9 @@ SynthDef(\mixer, {arg freq, gate = 1, sustain, amp, dur, out;
 
 (
 
-var createTransportData, createTransportPattern, group, berger, mixer, measureLengths, seqs, transportData, playbackData, player;
+var createTransportData, createTransportPattern, group, berger, mixer, measureLengths, seqs, transportData, playbackData, tempoClock, player;
+
+~dir = thisProcess.nowExecutingPath.dirname;
 
 createTransportData = {arg measureLengths;
 	measureLengths.collect({arg dur, measure;
@@ -306,6 +309,7 @@ measureLengths = seqs[1].sum.collect({4});
 playbackData.add(\robinson -> [~robinsonCreatePatternsForLive.value(seqs, group), createTransportData.value(measureLengths), measureLengths]);
 
 seqs = File.readAllString((~dir +/+ "music_data" +/+ "penrose.txt").standardizePath).interpret;
+~seqs = seqs;
 measureLengths = seqs[1].sum.collect({4});
 playbackData.add(\penrose -> [~penroseCreatePatternsForLive.value(seqs, group), createTransportData.value(measureLengths), measureLengths]);
 
@@ -346,7 +350,8 @@ OSCdef(\transport, {arg msg, time, addr, port;
 		terminationStream = Routine({addr.sendMsg("/transport", 0)});
 
 		player = EventStreamPlayer(offsetStream ++ stream ++ terminationStream);
-		player.play;
+		tempoClock = TempoClock(msg[5]/60.0);
+		player.play(tempoClock);
 	});
 }, \transport);
 
@@ -367,3 +372,14 @@ TODOs:
 ~patterns.play
 ~bergerMusic[0][6].collect({arg beats, measure; beats.asInteger.collect({arg beat; [measure + 1, beat + 1]})}).flatten;
 */
+
+~seqs[0][1][0]
+[seqs[5], seqs[6], seqs[7], seqs[0], seqs[1], seqs[2]]
+
+0.25 * (3/4) * 16
+
+0.25 * 16
+
+4/0.25
+
+9 * 0.125