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
main
mwinter 10 months ago
parent 18253e6ba2
commit 6cc9be84ef
18 changed files with 25389 additions and 6583 deletions
Show Stats Download Patch File Download Diff File

2623
lilypond/seed_19800725/includes/part_I.ly
View File

File diff suppressed because it is too large Load Diff

2617
lilypond/seed_19800725/includes/part_II.ly
View File

File diff suppressed because it is too large Load Diff

2617
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
View File

File diff suppressed because it is too large Load Diff

6242
lilypond/seed_19800725/includes/part_II_8systemsperpage.ly
View File

File diff suppressed because it is too large Load Diff

6242
lilypond/seed_19800725/includes/part_I_8systemsperpage.ly
View File

File diff suppressed because it is too large Load Diff

2625
lilypond/seed_19800725/includes/part_star.ly
View File

File diff suppressed because it is too large Load Diff

2625
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
Unescape Escape 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
Unescape Escape 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
Unescape Escape 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
Unescape Escape 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
Unescape Escape 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.
Write Preview
Loading…
Cancel
Save