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

tweaking mode fgeneration

Browse source
This commit is contained in:
mwinter 2021-01-21 11:17:46 +01:00
parent 245865ef41
commit ec1f32350e
7 changed files with 3236 additions and 2452 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

File diff suppressed because it is too large Load diff

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

File diff suppressed because it is too large Load diff

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

File diff suppressed because it is too large Load diff

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

File diff suppressed because it is too large Load diff

6
lilypond/seed_19800725/tkam_score.ly
View file

@ -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 {

9
supercollider/tkam_musical_data_generator.scd
View file

@ -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]});
};

3
supercollider/tkam_sonifier.scd
View file

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