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

2020_06_23_01

Browse source
This commit is contained in:
Michael Winter 2020-06-23 22:56:41 -04:00
parent 27ca884cf9
commit a457503388
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
supercollider/cicc_musical_data_generator.scd
View file

@ -362,11 +362,11 @@ finalizeAccompLow = {arg guitarSeq, sectionSeq;
accompLowSeq accompLowSeq
}; };
~genMusicData = { ~genMusicData = {arg seed;
var initSeq, finalSeqs, guitarSeq, accompHighSeq, accompLowSeq, sectionSeq, timeSigSeq, var initSeq, finalSeqs, guitarSeq, accompHighSeq, accompLowSeq, sectionSeq, timeSigSeq,
patterns, scoreData, sectionOffsets; patterns, scoreData, sectionOffsets;
initSeq = genInitSeq.value; initSeq = genInitSeq.value(seed);
finalSeqs = finalizeSeqs.value(initSeq); finalSeqs = finalizeSeqs.value(initSeq);
guitarSeq = finalSeqs[0]; guitarSeq = finalSeqs[0];
accompHighSeq = finalizeAccompHigh.value(finalSeqs[1].deepCopy.add([finalSeqs[0].slice(nil, 2).sum, -1, false])); accompHighSeq = finalizeAccompHigh.value(finalSeqs[1].deepCopy.add([finalSeqs[0].slice(nil, 2).sum, -1, false]));

5
supercollider/cicc_transcriber.scd
View file

@ -8,6 +8,7 @@
basePath = ~dir +/+ ".." +/+ "lilypond" +/+ "seed_" ++ seed; basePath = ~dir +/+ ".." +/+ "lilypond" +/+ "seed_" ++ seed;
basePath.mkdir; basePath.mkdir;
(basePath +/+ "includes").mkdir;
scoreFile = File(basePath +/+ "cicc_score.ly".standardizePath,"w"); scoreFile = File(basePath +/+ "cicc_score.ly".standardizePath,"w");
//File.readAllString(basePath +/+ ".." +/+ "templates" +/+ "cicc_score_template.ly").postln; //File.readAllString(basePath +/+ ".." +/+ "templates" +/+ "cicc_score_template.ly").postln;
@ -39,7 +40,7 @@
dur = item[1]; dur = item[1];
sus = item[2]; sus = item[2];
note = sus.collect({[freq, i]}); note = sus.collect({[freq, i]});
if(p < rawMusicData.size, {rest = (dur - sus).collect({[-1, i]})}, {[]}); rest = if(p < rawMusicData.size, {(dur - sus).collect({[-1, i]})}, {[]});
}, },
2, { 2, {
var freq1, freq2, dur, sus; var freq1, freq2, dur, sus;
@ -48,7 +49,7 @@
dur = item[2]; dur = item[2];
sus = 4; sus = 4;
note = sus.collect({[[freq1, freq2 - freq1], i]}); note = sus.collect({[[freq1, freq2 - freq1], i]});
if(p < rawMusicData.size, {rest = (dur - sus).collect({[-1, i]})}, {[]}); rest = if(p < rawMusicData.size, {(dur - sus).collect({[-1, i]})}, {[]});
} }
); );
note ++ rest note ++ rest