transposing up a major third per becs request and updating for current lilypond

lilypond/seed_19800725/tkam_part_star.ly

@@ -1,4 +1,5 @@
-\version "2.19.83"
+%\version "2.19.83"
+\version "2.24.1"
 
 #(define (override-color-for-all-grobs color)
   (lambda (context)
@@ -79,21 +80,40 @@
   first-page-number = 1
   print-first-page-number = ##t
   
+  % for lilypond version 2.19.83
+  %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: xxx)}}}}}}
+  %evenHeaderMarkup = \markup { \fill-line { \line { \on-the-fly #not-first-page {\pad-markup #2 { \concat {\italic {"to kill a monarch "} (seed: xxx)}}}}}}
+  %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
+  %    "-"}}}
+%}
+
+  % for lilypond version 2.24.1
   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)}}}}}}
+  oddHeaderMarkup = \markup { \fill-line { \line { \unless \on-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)}}}}}}
+  evenHeaderMarkup = \markup { \fill-line { \line { \unless \on-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
       "-"}}}
 }
@@ -123,6 +143,7 @@
       \override RehearsalMark.Y-offset = #10
       \override RehearsalMark.X-offset = #-8
       %\override RehearsalMark.outside-staff-priority = #0
+      rehearsalMarkFormatter = #format-mark-box-numbers
   }
   \context {
     \Staff
@@ -163,7 +184,7 @@
 \score{
 \new Score 
   <<
-    \include "includes/part_star_8_systemsperpage.ly"
+    \include "includes/part_star_8systemsperpage.ly"
   >>
   
   \layout{}

lilypond/seed_19800725/tkam_score.ly

@@ -1,4 +1,5 @@
-\version "2.19.83"
+%\version "2.19.83"
+\version "2.24.1"
 
 #(define (override-color-for-all-grobs color)
   (lambda (context)
@@ -78,21 +79,40 @@
   first-page-number = 1
   print-first-page-number = ##t
   
+  % for lilypond version 2.19.83
+  %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
+  %    "-"}}}
+%}
+
+  % for lilypond version 2.24.1
   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)}}}}}}
+  oddHeaderMarkup = \markup { \fill-line { \line { \unless \on-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)}}}}}}
+  evenHeaderMarkup = \markup { \fill-line { \line { \unless \on-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
       "-"}}}
 }
@@ -104,6 +124,13 @@
   tagline = ""
 } 
 
+\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 {
@@ -122,6 +149,8 @@
       \override RehearsalMark.Y-offset = #10
       \override RehearsalMark.X-offset = #-8
       %\override RehearsalMark.outside-staff-priority = #0
+      %added for new lilypond
+      rehearsalMarkFormatter = #format-mark-box-numbers
   }
   \context {
     \Staff

lilypond/template/tkam_score_template.ly

@@ -1,4 +1,5 @@
-\version "2.19.83"
+%\version "2.19.83"
+\version "2.24.1"
 
 #(define (override-color-for-all-grobs color)
   (lambda (context)
@@ -78,25 +79,51 @@
   first-page-number = 1
   print-first-page-number = ##t
   
+  % for lilypond version 2.19.83
+  %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: xxx)}}}}}}
+  %evenHeaderMarkup = \markup { \fill-line { \line { \on-the-fly #not-first-page {\pad-markup #2 { \concat {\italic {"to kill a monarch "} (seed: xxx)}}}}}}
+  %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
+  %    "-"}}}
+%}
+
+  % for lilypond version 2.24.1
   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: xxx)}}}}}}
+  oddHeaderMarkup = \markup { \fill-line { \line { \unless \on-first-page {\pad-markup #2 { \concat {\italic {"to kill a monarch "} (seed: xxx)}}}}}}
-  evenHeaderMarkup = \markup { \fill-line { \line { \on-the-fly #not-first-page {\pad-markup #2 { \concat {\italic {"to kill a monarch "} (seed: xxx)}}}}}}
+  evenHeaderMarkup = \markup { \fill-line { \line { \unless \on-first-page {\pad-markup #2 { \concat {\italic {"to kill a monarch "} (seed: xxx)}}}}}}
   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 = ""
+} 
+
 \header {
   title = \markup { \italic {to kill a monarch}}
   composer = \markup \right-column {"michael winter" "(berlin, germany; 2021)"}
@@ -122,6 +149,8 @@
       \override RehearsalMark.Y-offset = #10
       \override RehearsalMark.X-offset = #-8
       %\override RehearsalMark.outside-staff-priority = #0
+      %added for new lilypond
+      rehearsalMarkFormatter = #format-mark-box-numbers
   }
   \context {
     \Staff

supercollider/tkam_musical_data_generator.scd

@@ -249,7 +249,7 @@ distributeRoots = {arg modeState, lastRoots;
 		var root, rootMod, rootFreq, mode;
 		root = roots[part];
 		rootMod = frDiff.value(root[0], lastRoots[part]);
-		rootFreq = 36.midicps * pow(2, [1, 0, 1, 2][part]) * frToFloat.value(root[0]);
+		rootFreq = 40.midicps * pow(2, [1, 0, 1, 2][part]) * frToFloat.value(root[0]);
 		[root[0], root[1], rootMod, rootFreq]
 	});
 	roots = roots.collect({arg root, r;
@@ -298,7 +298,7 @@ genEnsemblePart = {arg partState, modeState, temporalData, roots, part, offset;
 			mults.do({arg fr; partState[\multCounts][fr] = partState[\multCounts][fr] + 1});
 			partState[\multCounts][mult] = 0;
 
-			freq = 36.midicps * trans * frToFloat.value(frAdd.value(root, mult));
+			freq = 40.midicps * trans * frToFloat.value(frAdd.value(root, mult));
 
 			//flute special case
 			if((partState[\index] == 0) && cadence.not, {
@@ -320,7 +320,7 @@ genEnsemblePart = {arg partState, modeState, temporalData, roots, part, offset;
 				continue = true;
 				while({continue}, {
 					# freqRatio, root, mult = mode[partState[\noteCount] % 15];
-					freq = 36.midicps * trans * frToFloat.value(frAdd.value([[1], [1]], freqRatio));
+					freq = 40.midicps * trans * frToFloat.value(frAdd.value([[1], [1]], freqRatio));
 					continue = (freq <= partState[\lastFreq]) && ((partState[\noteCount] % 15) != 0);
 					partState[\noteCount] = partState[\noteCount] + 1;
 				});
@@ -333,7 +333,7 @@ genEnsemblePart = {arg partState, modeState, temporalData, roots, part, offset;
 				insRef = if(firstChange.not, {1}, {nil});
 			});
 
-			rootFreq = 36.midicps * trans * frToFloat.value(root);
+			rootFreq = 40.midicps * trans * frToFloat.value(root);
 
 			if((partState[\index] == 0) && ((partState[\noteCount] % 15) == 1) && cadence.not, {ensData = ensData.add([0, timeStamp - 8, 0, 0, 0])});
 			ensData = ensData.add([freq, timeStamp, amp, mult, insRef]);
@@ -373,8 +373,8 @@ genAccompPart = {arg modeState, temporalData, offset, trans, part, register;
 genBassPart = {arg root, ampCurve, hi;
 	var freq;
 	freq = if(hi,
-		{36.midicps * frToFloat.value(frCollapse.value(frAdd.value(root, [[3], [2]])))},
+		{40.midicps * frToFloat.value(frCollapse.value(frAdd.value(root, [[3], [2]])))},
-		{36.midicps * frToFloat.value(root)});
+		{40.midicps * frToFloat.value(root)});
 	ampCurve.collect({arg sec, iter; [freq, sec[1]]})
 };
 
@@ -449,7 +449,7 @@ genAmpCurve = {arg temporalData1, temporalData2, offset1, offset2, type;
 		roots = distributeRoots.value(modeState, lastRoots);
 
 		sectionData.add((curLen / 4).asInteger->[roots, lastRoots.collect({arg fr, part;
-			[fr, 36.midicps * pow(2, [1, 0, 1, 2][part]) * frToFloat.value(fr)]}), sectionCount, subsectionCount, cadence, ultimateSubsection]);
+			[fr, 40.midicps * pow(2, [1, 0, 1, 2][part]) * frToFloat.value(fr)]}), sectionCount, subsectionCount, cadence, ultimateSubsection]);
 		sectionNavDict.add([sectionCount, subsectionCount]->[(curLen / 16 + 1).asInteger]);
 
 		4.do({arg part;

supercollider/tkam_transcriber.scd

@@ -65,7 +65,7 @@ lyFinalizeMusic = {arg lyStr, part, name, nameShort, nameMidi, clef;
 	"\\new StaffGroup  \\with {\\remove \"System_start_delimiter_engraver\"}\n<<\n" ++
 	lyStaffDef.value(name, nameShort, nameMidi)  ++
 	"<<\n\n{ " +
-	"\n\\set Score.markFormatter = #format-mark-box-numbers " +
+	//"\n\\set Score.markFormatter = #format-mark-box-numbers " +
 	"\\tempo 2 = 60\n" +
 	"\\numericTimeSignature \\time 2/2\n" +
 	"\\clef " ++ clef ++ "\n" ++ lyStr + "\\fermata" +
@@ -108,7 +108,7 @@ lyRelMark = {arg root, lastRoot, section, subsection;
 			"\\halign #-1 \n " ++
 			"\\relMark ##{ { \n " ++
 			"\\time 15/8 \n " ++
-			"\\once \\override Staff.Clef #'stencil = ##f \n " ++
+			"\\once \\override Staff.Clef.stencil = ##f \n " ++
 			sectionMark ++
 
 			lyRelMarkNote.value(root, lastRoot, 1, "bass") ++ "^\\markup{\\large \\raise #2 \"III\"}" ++
@@ -142,7 +142,10 @@ lyMeasureDef = {arg sectionData, insName, part, beat;
 		if(sectionData[5], {barline = "\\bar \".|\""});
 	});
 	if((beat % 16) == 0, {break = "\\break \\noPageBreak"});
-	if((beat % (16 * 3)) == 0, {break = "\\pageBreak"});
+	//for full score
+	//if((beat % (16 * 3)) == 0, {break = "\\pageBreak"});
+	//for parts
+	if((beat % (16 * 8)) == 0, {break = "\\pageBreak"});
 	if(beat != 0, {"}\n>>\n" + barline + break}, {""}) + "\n<<\n" ++ ossia + "{"
 };
 
@@ -250,7 +253,10 @@ consolidateNotes = {arg lyStr, part;
 		tmpSectionData, pcRoot, partLookup, quality;
 
 		//create file
-		lyFile = File(basePath +/+ "includes" +/+ "part_" ++ ["star", "III", "II", "I"][p] ++ ".ly".standardizePath,"w");
+		//for full score
+		//lyFile = File(basePath +/+ "includes" +/+ "part_" ++ ["star", "III", "II", "I"][p] ++ ".ly".standardizePath,"w");
+		//for parts
+		lyFile = File(basePath +/+ "includes" +/+ "part_" ++ ["star", "III", "II", "I"][p] ++ "_8systemsperpage.ly".standardizePath,"w");
 
 		//start lypond directives
 		lyStr = "";