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

commit 2020.06.10.03

Browse source
This commit is contained in:
Michael Winter 2020-06-10 18:15:44 -04:00
parent dd357f0fe6
commit 14f629d754
5 changed files with 18 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lilypond/cicc_score.ly
View file

@ -161,8 +161,8 @@
\new SemiStaffGroup {
<<
\new Staff \with {
instrumentName = "oversound"
shortInstrumentName = "oversound"
instrumentName = "high"
shortInstrumentName = "high"
midiInstrument = #"clarinet"
}
<<
@ -180,8 +180,8 @@
>>
\new Staff \with {
instrumentName = "undersound"
shortInstrumentName = "undersound"
instrumentName = "low"
shortInstrumentName = "low"
midiInstrument = #"contrabass"
}
<<

8
supercollider/cicc_gui.scd
View file

@ -100,8 +100,8 @@
beat = msg[4];
~updateTransport.value(measure, beat)
}.defer;
},'/measureClock', s.addr);
OSCFunc({ arg msg, time; {metronome.string = ""}.defer},'/measureClockReset', s.addr);
},'/measureClock' ++ ~hash, s.addr);
//OSCFunc({ arg msg, time; {metronome.string = ""}.defer},'/measureClockReset', s.addr);
view = View(win);
generator = HLayout(
@ -194,10 +194,10 @@
OSCFunc.new({arg msg; {
{arg i; masterIndicators[i].value = msg[3 + i].ampdb.linlin(-40, 0, 0, 1)} ! 2}.defer},
'/masterLevels', s.addr);
'/masterLevels' ++ ~hash, s.addr);
OSCFunc.new({arg msg; {
{arg i; trackIndicators[i].value = msg[3 + i].ampdb.linlin(-40, 0, 0, 1)} ! 5}.defer},
'/trackLevels', s.addr);
'/trackLevels' ++ ~hash, s.addr);
master = HLayout(
VLayout(

2
supercollider/cicc_main.scd
View file

@ -9,6 +9,8 @@ appEnvironment.push;
s.waitForBoot({
~hash = Date.getDate.hash.asString;
// load all files
"cicc_musical_data_generator.scd".loadRelative;
"cicc_sonifier.scd".loadRelative;

7
supercollider/cicc_musical_data_generator.scd
View file

@ -255,13 +255,12 @@ finalizeAccompHigh = {arg sectionSeq;
sectionSeq.do({arg secData, secIndex;
var secEnd, freq, noRestCount, shortCount;
secEnd = secData.postln[0];
secEnd = secData[0];
//freq = if(secType == 0, {62.midicps * 8}, {62.midicps * 8 * 6/5});
freq = if(secIndex.even, {62.midicps * 8}, {62.midicps * 8 * 6/5});
if(secData.last, {secType = ((secType + 1) % 2)});
noRestCount = 0;
shortCount = 0;
secIndex.postln;
while({timeStamp < secEnd}, {
var dur, sus, isShort, insertRest;
@ -356,8 +355,8 @@ finalizeAccompLow = {arg guitarSeq, sectionSeq;
initSeq = genInitSeq.value;
finalSeqs = finalizeSeqs.value(initSeq);
guitarSeq = finalSeqs[0].postln;
accompHighSeq = finalizeAccompHigh.value(finalSeqs[1].postln.add([finalSeqs[0].slice(nil, 2).sum, -1, false]));
guitarSeq = finalSeqs[0];
accompHighSeq = finalizeAccompHigh.value(finalSeqs[1].add([finalSeqs[0].slice(nil, 2).sum, -1, false]));
accompLowSeq = finalizeAccompLow.value(finalSeqs[0], finalSeqs[1]);
sectionSeq = finalSeqs[1];
timeSigSeq = finalSeqs[2];

10
supercollider/cicc_sonifier.scd
View file

@ -55,10 +55,10 @@ SynthDef(\masterPlayerControl, {
imp = Impulse.kr(10);
SendReply.kr(imp,
'/masterLevels',
'/masterLevels' ++ ~hash,
values: [Amplitude.kr(masterSig)]);
SendReply.kr(imp,
'/trackLevels',
'/trackLevels' ++ ~hash,
values:
[
Amplitude.kr(guitarSig), Amplitude.kr(accompHighSig),
@ -70,8 +70,8 @@ SynthDef(\masterPlayerControl, {
SynthDef(\transport, {arg measure = 0, beat = 0, gate = 1, dur = 1;
SendReply.kr(Impulse.kr(0) * (measure > 0) * (beat > 0),'/measureClock', values: [measure, beat]);
SendReply.kr(Impulse.kr(0) * (measure < 1) * (beat < 1),'/playNextSubsection');
SendReply.kr(Impulse.kr(0) * (measure > 0) * (beat > 0),'/measureClock' ++ ~hash, values: [measure, beat]);
SendReply.kr(Impulse.kr(0) * (measure < 1) * (beat < 1),'/playNextSubsection' ++ ~hash);
EnvGen.kr(Env.sine(dur), gate, doneAction: 2);
}).add;
@ -118,7 +118,7 @@ SynthDef(\interludeTremelo, { arg gate = 0, amp = 1;
Out.ar(~interludeTremoloBus, fade);
}).add;
OSCFunc({ arg msg, time; {~updateSection.value(1, false, false)}.defer},'/playNextSubsection', s.addr);
OSCFunc({ arg msg, time; {~updateSection.value(1, false, false)}.defer},'/playNextSubsection' ++ ~hash, s.addr);
//~~~~gen music
~genPatterns = {arg guitarSeqIn, accompLowSeqIn, accompHighSeqIn, sectionSeqIn, beatFrac = 1/8;