fix to major bug that was causing generation of different realizations with the same seed - this is the new definite version for the original seed

lilypond/seed_19800725/tkam_part_star.ly

@@ -0,0 +1,171 @@
+\version "2.19.83"
+
+#(define (override-color-for-all-grobs color)
+  (lambda (context)
+   (let loop ((x all-grob-descriptions))
+    (if (not (null? x))
+     (let ((grob-name (caar x)))
+      (ly:context-pushpop-property context grob-name 'color color)
+      (loop (cdr x)))))))
+
+ #(define-markup-command (relMark layout props mus) (ly:music?)
+    #:properties ((size -2))
+    (interpret-markup layout props
+      #{
+        \markup {
+          \score {
+            \new Staff { $mus }
+            \layout {
+              \context {
+                \Staff
+                \remove Time_signature_engraver
+                fontSize = #-2
+                \hide Stem
+                \override TextScript.outside-staff-priority = ##f
+                \override StaffSymbol.staff-space = #(magstep -2)
+                \override StaffSymbol.thickness = #(magstep -2)
+                \override TextScript.self-alignment-X = #-0.4
+                \override TextScript.staff-padding = #1
+              }
+              \context {
+                \Score
+                proportionalNotationDuration = #(ly:make-moment 1/16)
+                \remove "Separating_line_group_engraver"
+                \override SpacingSpanner.strict-note-spacing = ##t
+                \override RehearsalMark.self-alignment-X = #-1
+                \override RehearsalMark.Y-offset = #10
+                \override RehearsalMark.X-offset = #10
+              }
+              \context {
+                \Voice
+                \consists "Horizontal_bracket_engraver"
+                \override HorizontalBracket.direction = #UP
+              }
+              indent = 0
+              line-width = 4\cm
+            }
+          }
+        }
+      #}))
+ 
+
+\paper {
+  #(set-paper-size "a4" 'portrait)
+  top-margin = 1 \cm
+  bottom-margin = 1 \cm
+  left-margin = 2 \cm
+  ragged-bottom = ##t
+  
+  top-system-spacing =
+  #'((basic-distance . 15 )
+  (minimum-distance . 15 )
+  (padding . 0 )
+  (stretchability . 0))
+  
+  system-system-spacing = 
+  #'((basic-distance . 35 )
+  (minimum-distance . 35 )
+  (padding . 0 )
+  (stretchability . 0))
+  
+  last-bottom-spacing =
+  #'((basic-distance . 10 )
+  (minimum-distance . 10 )
+  (padding . 0 )
+  (stretchability . 0))
+  
+  %systems-per-page = 8
+  %max-systems-per-page = 8
+  first-page-number = 1
+  print-first-page-number = ##t
+  
+  print-page-number = ##t
+  oddHeaderMarkup = \markup { \fill-line { \line { \on-the-fly #not-first-page {\pad-markup #2 { \concat {\italic {"to kill a monarch "} (seed: 19800725)}}}}}}
+  evenHeaderMarkup = \markup { \fill-line { \line { \on-the-fly #not-first-page {\pad-markup #2 { \concat {\italic {"to kill a monarch "} (seed: 19800725)}}}}}}
+  oddFooterMarkup = \markup { \fill-line {
+    \concat {
+      "-"
+      \fontsize #1.5
+      \on-the-fly #print-page-number-check-first
+      \fromproperty #'page:page-number-string
+      "-"}}}
+  evenFooterMarkup = \markup { \fill-line {
+    \concat { 
+      "-" 
+      \fontsize #1.5
+      \on-the-fly #print-page-number-check-first
+      \fromproperty #'page:page-number-string
+      "-"}}}
+}
+
+\header {
+  title = \markup { \italic {to kill a monarch}}
+  composer = \markup \right-column {"michael winter" "(berlin, germany; 2021)"}
+  poet = "seed: 19800725"
+  tagline = ""
+} 
+
+#(set-global-staff-size 11)
+
+\layout {
+  indent = 0.0\cm
+  line-width = 17.5\cm 
+  ragged-last = ##f
+  ragged-right = ##f
+  
+  \context {
+    \Score
+      \override BarNumber.stencil = #(make-stencil-circler 0.1 0.25 ly:text-interface::print)
+      \override Stem.stemlet-length = #0.75
+      proportionalNotationDuration = #(ly:make-moment 1/16)
+      \remove "Separating_line_group_engraver"
+      \override RehearsalMark.self-alignment-X = #-1 
+      \override RehearsalMark.Y-offset = #10
+      \override RehearsalMark.X-offset = #-8
+      %\override RehearsalMark.outside-staff-priority = #0
+  }
+  \context {
+    \Staff
+    
+    \override VerticalAxisGroup.staff-staff-spacing =
+      #'((basic-distance . 20 )
+      (minimum-distance . 20 )
+      (padding . 0 )
+      (stretchability . 0))
+
+      \override VerticalAxisGroup.default-staff-staff-spacing =
+      #'((basic-distance . 20 )
+      (minimum-distance . 20 )
+      (padding . 0 )
+      (stretchability . 0))
+      \override TextScript.staff-padding = #2
+      \override TextScript.self-alignment-X = #0
+  }
+  \context {
+    \StaffGroup
+    \name "SemiStaffGroup"
+    \consists "Span_bar_engraver"
+    \override SpanBar.stencil =
+      #(lambda (grob) 
+        (if (string=? (ly:grob-property grob 'glyph-name) "|")
+            (set! (ly:grob-property grob 'glyph-name) ""))
+        (ly:span-bar::print grob))
+  }
+  \context {
+    \Score
+    \accepts SemiStaffGroup
+  }
+}
+
+\midi { }
+
+
+\score{
+\new Score 
+  <<
+    \include "includes/part_star_8_systemsperpage.ly"
+  >>
+  
+  \layout{}
+  \midi{}
+}

supercollider/tkam_musical_data_generator.scd

@@ -241,7 +241,9 @@ distributeRoots = {arg modeState, lastRoots;
 	var roots;
 	roots = modeState.keys.asList.collect({arg fr; modeState[fr][\root]});
 	roots = roots.asBag.contents.asPairs.reverse.clump(2);
-	roots = roots.sort({arg a, b; a[0] > b[0]}).collect({arg item; item[1]}).wrapExtend(4);
+	roots = roots = roots.sort({arg a, b;
+		if(a[0] != b[0], {a[0] > b[0]}, {frToFloat.value(a[1][0]) > frToFloat.value(b[1][0])})}).collect({arg item; item[1]}).wrapExtend(4);
+
 	roots = [roots[0]] ++ roots[..2].scramble;
 	roots = 4.collect({arg part;
 		var root, rootMod, rootFreq, mode;
@@ -307,7 +309,12 @@ genEnsemblePart = {arg partState, modeState, temporalData, roots, part, offset;
 						modeState[fr][\root][0], modeState[fr][\mult]
 					]
 				});
-				mode = mode.sort({arg a, b; frToFloat.value(a[0]) < frToFloat.value(b[0])});
+				mode = mode.sort({arg a, b;
+					case
+					{frToFloat.value(a[0]) != frToFloat.value(b[0])} {frToFloat.value(a[0]) < frToFloat.value(b[0])}
+					{frToFloat.value(a[1]) != frToFloat.value(b[1])} {frToFloat.value(a[1]) < frToFloat.value(b[1])}
+					{true} {frToFloat.value(a[2]) < frToFloat.value(b[2])};
+				});
 				mode = mode ++ mode.collect({arg fr; [frAdd.value(fr[0], [[2], [1]]), fr[1], fr[2]]});
 				mode = mode ++ mode.collect({arg fr; [frAdd.value(fr[0], [[4], [1]]), fr[1], fr[2]]});
 				continue = true;
@@ -436,7 +443,7 @@ genAmpCurve = {arg temporalData1, temporalData2, offset1, offset2, type;
 
 		collectRoots.value(modeState).collect({arg fr; [fr[0].asFloat.product, fr[1].asFloat.product]}).postln;
 		//modeState.keys.postln;
-		"-----------".postln;
+		("-- " ++ sectionCount ++ "." ++ subsectionCount ++ " -----").postln;
 
 		lastRoots = if(curLen == 0, {4.collect({[[1], [1]]})}, {roots.slice(nil, 0)});
 		roots = distributeRoots.value(modeState, lastRoots);

supercollider/tkam_sonifier.scd

@@ -192,7 +192,7 @@ formatPatternData = {arg musData, measureLen, rel, print = false;
 	preampBusses, nextNode, accompBusses, postampBusses,
 	synths, prePatterns, playablePatterns, score;
 
-	trackNames = ["part_start", "part_III", "part_II", "part_I", "accomp_II", "accomp_I", "click"];
+	trackNames = ["part_star", "part_III", "part_II", "part_I", "accomp_II", "accomp_I", "click"];
 
 	basePath = ~dir +/+ ".." +/+ "audio" +/+ "seed_" ++ seed;
 	basePath.mkdir;

supercollider/tkam_transcriber.scd

@@ -113,7 +113,7 @@ lyRelMark = {arg root, lastRoot, section, subsection;
 
 			lyRelMarkNote.value(root, lastRoot, 1, "bass") ++ "^\\markup{\\large \\raise #2 \"III\"}" ++
 
-			lyHBracket.value(lyFreqRatio.value(root[2][4][2], nil, true, 0, false), 8.5, 1, 2, 1, 1) ++
+			lyHBracket.value(lyFreqRatio.value(root[1][4][2], nil, true, 0, false), 8.5, 1, 2, 1, 1) ++
 			lyHBracket.value(lyFreqRatio.value(root[2][4][1], nil, true, 0, false), 5.5, 3, 3, 0, 0) ++
 
 			"\\hide c16 \n " ++
@@ -121,7 +121,7 @@ lyRelMark = {arg root, lastRoot, section, subsection;
 			lyRelMarkNote.value(root, lastRoot, 2, "alto") ++ "^\\markup{\\large \\raise #2 \"II\"}" +
 			"\\stopGroup \\hide c'16 \n " ++
 
-			lyHBracket.value(lyFreqRatio.value(root[1][4][2], nil, true, 0, false), 5.5, 1, 3, 0, 0) ++
+			lyHBracket.value(lyFreqRatio.value(root[2][4][2], nil, true, 0, false), 5.5, 1, 3, 0, 0) ++
 
 			lyRelMarkNote.value(root, lastRoot, 3, "treble") ++ "^\\markup{\\large \\raise #2 \"I\"}" +
 			"\\stopGroup \\stopGroup \n " ++