mwinter/to_kill_a_monarch
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
mwinter 2023-08-05 18:20:57 +02:00
parent 18253e6ba2
commit 6cc9be84ef
18 changed files with 43769 additions and 24963 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9933
lilypond/seed_19800725/includes/part_I.ly
View file

File diff suppressed because it is too large Load diff

8401
lilypond/seed_19800725/includes/part_II.ly
View file

File diff suppressed because it is too large Load diff

9273
lilypond/seed_19800725/includes/part_III.ly
View file

File diff suppressed because it is too large Load diff

6242
lilypond/seed_19800725/includes/part_III_8systemsperpage.ly Normal file
View file

File diff suppressed because it is too large Load diff

6242
lilypond/seed_19800725/includes/part_II_8systemsperpage.ly Normal file
View file

File diff suppressed because it is too large Load diff

6242
lilypond/seed_19800725/includes/part_I_8systemsperpage.ly Normal file
View file

File diff suppressed because it is too large Load diff

11179
lilypond/seed_19800725/includes/part_star.ly
View file

File diff suppressed because it is too large Load diff

11081
lilypond/seed_19800725/includes/part_star_8_systemsperpage.ly → lilypond/seed_19800725/includes/part_star_8systemsperpage.ly
View file

File diff suppressed because it is too large Load diff

33
lilypond/seed_19800725/tkam_part_star.ly
View file

@ -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)}}}}}}
evenHeaderMarkup = \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 { \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{}

BIN
lilypond/seed_19800725/tkam_part_star.midi
View file

Binary file not shown.

BIN
lilypond/seed_19800725/tkam_part_star.pdf
View file

Binary file not shown.

39
lilypond/seed_19800725/tkam_score.ly
View file

@ -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)}}}}}}
evenHeaderMarkup = \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 { \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

BIN
lilypond/seed_19800725/tkam_score.midi
View file

Binary file not shown.

BIN
lilypond/seed_19800725/tkam_score.pdf
View file

Binary file not shown.

39
lilypond/template/tkam_score_template.ly
View file

@ -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)}}}}}}
evenHeaderMarkup = \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 { \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

14
supercollider/tkam_musical_data_generator.scd
View file

@ -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]])))},
{36.midicps * frToFloat.value(root)});
{40.midicps * frToFloat.value(frCollapse.value(frAdd.value(root, [[3], [2]])))},
{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;

14
supercollider/tkam_transcriber.scd
View file

@ -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 = "";

BIN
to_kill_a_monarch_score.pdf
View file

Binary file not shown.