tweaking mode fgeneration

lilypond/seed_19800725/tkam_score.ly

@@ -1,4 +1,4 @@
-\version "2.22.0"
+\version "2.19.83"
 
 #(define (override-color-for-all-grobs color)
   (lambda (context)
@@ -75,7 +75,7 @@
   (stretchability . 0))
   
   %systems-per-page = 3
-  first-page-number = 4
+  first-page-number = 1
   print-first-page-number = ##t
   
   print-page-number = ##t
@@ -137,7 +137,7 @@
       (minimum-distance . 20 )
       (padding . 0 )
       (stretchability . 0))
-      \override TextScript.staff-padding = #1
+      \override TextScript.staff-padding = #2
       \override TextScript.self-alignment-X = #0
   }
   \context {

supercollider/tkam_musical_data_generator.scd

@@ -60,15 +60,16 @@ harmonicDistance = {arg fr; log2(fr[0].asFloat.product * fr[1].asFloat.product)}
 //~~~~~~~~~~~~GENERATE MODE~~~~~~~~~~~~
 //TODO: Play with this a bit more (should I go back to the old way)
 genMode = {
-	var mode;
+	var mode, alternateProb;
+	alternateProb = [1, 0].wchoose([1, 4].normalizeSum);
 	mode = [
 		[1, 1],
 		[9, 8],
 		[[5, 4], [6, 5]].wchoose([3, 1].normalizeSum),
-		[[4, 3], [11, 8]].wchoose([1, 10].normalizeSum),
+		[[4, 3], [11, 8]].wchoose([alternateProb, 1].normalizeSum),
 		[3, 2],
-		[[8, 5], [13, 8]].wchoose([1, 10].normalizeSum),
-		[[15, 8], [7, 4]].wchoose([1, 10].normalizeSum)
+		[[8, 5], [13, 8]].wchoose([alternateProb, 1].normalizeSum),
+		[[15, 8], [7, 4]].wchoose([alternateProb, 1].normalizeSum)
 	];
 	mode.collect({arg fr; [[1] ++ fr[0].factors, [1] ++ fr[1].factors]});
 };

supercollider/tkam_sonifier.scd

@@ -60,7 +60,6 @@ var formatPatternData;
 	}).add;
 
 	sdBass = SynthDef(\bass_mono_ ++ ~hash, {arg freq = 440, ampBus = 0, bus = 0;
-		Poll.kr(Changed.kr(In.kr(ampBus)), In.kr(ampBus));
 		Out.ar(bus, (SinOsc.ar(freq) * 0.4 * In.kr(ampBus)))
 	}).add;
 
@@ -193,7 +192,7 @@ formatPatternData = {arg musData, measureLen;
 	preampBusses, nextNode, accompBusses, postampBusses,
 	synths, prePatterns, playablePatterns, score;
 
-	trackNames = ["part_start", "part_III", "part_II", "part_I", "accomp_I", "accomp_II", "click"];
+	trackNames = ["part_start", "part_III", "part_II", "part_I", "accomp_II", "accomp_I", "click"];
 
 	basePath = ~dir +/+ ".." +/+ "audio" +/+ "seed_" ++ seed;
 	basePath.mkdir;