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

8
supercollider/cicc_gui.scd
View file

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

2
supercollider/cicc_main.scd
View file

@ -9,6 +9,8 @@ appEnvironment.push;
s.waitForBoot({ s.waitForBoot({
~hash = Date.getDate.hash.asString;
// load all files // load all files
"cicc_musical_data_generator.scd".loadRelative; "cicc_musical_data_generator.scd".loadRelative;
"cicc_sonifier.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; sectionSeq.do({arg secData, secIndex;
var secEnd, freq, noRestCount, shortCount; 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(secType == 0, {62.midicps * 8}, {62.midicps * 8 * 6/5});
freq = if(secIndex.even, {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)}); if(secData.last, {secType = ((secType + 1) % 2)});
noRestCount = 0; noRestCount = 0;
shortCount = 0; shortCount = 0;
secIndex.postln;
while({timeStamp < secEnd}, { while({timeStamp < secEnd}, {
var dur, sus, isShort, insertRest; var dur, sus, isShort, insertRest;
@ -356,8 +355,8 @@ finalizeAccompLow = {arg guitarSeq, sectionSeq;
initSeq = genInitSeq.value; initSeq = genInitSeq.value;
finalSeqs = finalizeSeqs.value(initSeq); finalSeqs = finalizeSeqs.value(initSeq);
guitarSeq = finalSeqs[0].postln; guitarSeq = finalSeqs[0];
accompHighSeq = finalizeAccompHigh.value(finalSeqs[1].postln.add([finalSeqs[0].slice(nil, 2).sum, -1, false])); accompHighSeq = finalizeAccompHigh.value(finalSeqs[1].add([finalSeqs[0].slice(nil, 2).sum, -1, false]));
accompLowSeq = finalizeAccompLow.value(finalSeqs[0], finalSeqs[1]); accompLowSeq = finalizeAccompLow.value(finalSeqs[0], finalSeqs[1]);
sectionSeq = finalSeqs[1]; sectionSeq = finalSeqs[1];
timeSigSeq = finalSeqs[2]; timeSigSeq = finalSeqs[2];

10
supercollider/cicc_sonifier.scd
View file

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