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

2020.06.13.01

Browse Source
main
Michael Winter 5 years ago
parent 14f629d754
commit 0347890214
3 changed files with 53 additions and 55 deletions
Show Stats Download Patch File Download Diff File

74
supercollider/cicc_gui.scd
Unescape Escape View File

@ -30,18 +30,19 @@
win = Window("Counterfeiting in Colonial Connecticut", Rect(500, 500, 1100, 500), false).front;
masterView = {
var view, generator, transport, ranSeed, order, tempo, sectionDisplay, clock, metronome;
var updateTransport, updateSection,
view, generator, transport, ranSeed, order, tempo, sectionDisplay, clock, metronome;
// this func updates the whole transport panel
~updateTransport = {arg measure, beat;
updateTransport = {arg measure, beat;
clock.string = clockStringFunc.value(measure, beat);
metronome.stringColor = metronomeColorFunc.value(beat);
metronome.string = metronomeStringFunc.value(beat);
fork {0.75.wait; {metronome.string = ""}.defer};
};
{0.75.wait; {metronome.string = ""}.defer}.fork(~tempoClock, quant: 0);
}.inEnvir;
// this func handles the movement between sections
~updateSection = {arg shift, stop = true, manualCall = true;
updateSection = {arg shift, stop = true, manualCall = true;
var runThis;
runThis = (manualCall || (manualCall.not && ~autoAdvance));
runThis = runThis && ((~currentSection + shift) < ~sectionOrder.size);
@ -71,7 +72,7 @@
sectionDisplay.string = "section: " ++ section.asString ++ "." ++ subSection.asString;
if(~isPlaying, {
~play.set(\sel, ~currentSection % 2);
~patterns[~sectionOrder[~currentSection]].play(quant: 0);
~patterns[~sectionOrder[~currentSection]].play(~tempoClock, quant: 0);
if(~interludes && ((~currentSection % 4) == 3) && (~currentSection != (~sectionOrder.size - 1)), {
~interludeTremelo.set(\gate, 1);
~interludeTremelo.set(\amp, 1);
@ -87,10 +88,10 @@
var measure, beat;
measure = ~sectionStartMeasure[~sectionOrder[~currentSection]];
beat = 1;
~updateTransport.value(measure, beat);
updateTransport.value(measure, beat);
});
});
};
}.inEnvir;
// these funcs receive messages from the synth
OSCFunc({ arg msg, time;
@ -98,22 +99,23 @@
var measure, beat;
measure = msg[3];
beat = msg[4];
~updateTransport.value(measure, beat)
}.defer;
updateTransport.value(measure, beat)
}.inEnvir.defer;
},'/measureClock' ++ ~hash, s.addr);
//OSCFunc({ arg msg, time; {metronome.string = ""}.defer},'/measureClockReset', s.addr);
OSCFunc({ arg msg, time; {updateSection.value(1, false, false)}.inEnvir.defer},'/playNextSubsection' ++ ~hash, s.addr);
view = View(win);
generator = HLayout(
ranSeed = TextField(view, Rect(10, 10, 10, 20)).string_("20200525"),
Button(view).states_([["reset seed"]]).action_({ ranSeed.string = "20200525"}),
Button(view).states_([["random seed"]]).action_({ ranSeed.string = 50000000.rand.asString}),
Button(view).states_([["generate"]]).action_({~genAll.value(ranSeed.string.asInteger)}),
Button(view).states_([["transcribe"]]).action_({~transcribe.value(~scoreData)}),
Button(view).states_([["reset seed"]]).action_({ ranSeed.string = "20200525"}.inEnvir),
Button(view).states_([["random seed"]]).action_({ ranSeed.string = 50000000.rand.asString}.inEnvir),
Button(view).states_([["generate"]]).action_({~genAll.value(ranSeed.string.asInteger)}.inEnvir),
Button(view).states_([["transcribe"]]).action_({~transcribe.value(~scoreData)}.inEnvir),
[StaticText(view).string_(" "), stretch: 1], nil);
transport = HLayout(
Button(view).states_([["<<", Color.black]]).action_({arg pState; ~updateSection.value(-4)}),
Button(view).states_([["<", Color.black]]).action_({arg pState; ~updateSection.value(-1)}),
Button(view).states_([["<<", Color.black]]).action_({arg pState; updateSection.value(-4)}.inEnvir),
Button(view).states_([["<", Color.black]]).action_({arg pState; updateSection.value(-1)}.inEnvir),
Button(view).states_([["play", Color.black], ["stop", Color.black, Color.grey]]).action_(
{arg pState;
if(pState.value == 0, {
@ -123,11 +125,11 @@
~interludeTremelo.set(\gate, 0);
measure = ~sectionStartMeasure[~currentSection];
beat = 1;
~updateTransport.value(measure, beat);
updateTransport.value(measure, beat);
~interludeTremelo.set(\gate, 0);
~interludeTremelo.set(\amp, 0);
},{
fork {
{
[1, 2, 1, 2].do({arg beat;
{
metronome.stringColor = metronomeColorFunc.value(beat);
@ -139,17 +141,17 @@
});
~isPlaying = true;
~play.set(\sel, ~currentSection % 2);
~patterns[~sectionOrder[~currentSection]].play(quant: 0);
~patterns[~sectionOrder[~currentSection]].play(~tempoClock, quant: 0);
if(~interludes && ((~currentSection % 4) == 3) && (~currentSection != (~sectionOrder.size - 1)), {
~interludeTremelo.set(\gate, 1);
~interludeTremelo.set(\amp, 1);
});
}
}.fork(~tempoClock, quant: 0);
})
}
}.inEnvir
),
Button(view).states_([[">", Color.black]]).action_({arg pState; ~updateSection.value(1)}),
Button(view).states_([[">>", Color.black]]).action_({arg pState; ~updateSection.value(4)}), nil,
Button(view).states_([[">", Color.black]]).action_({arg pState; updateSection.value(1)}.inEnvir),
Button(view).states_([[">>", Color.black]]).action_({arg pState; updateSection.value(4)}.inEnvir), nil,
sectionDisplay = StaticText(win).string_("section: 1.1").font_(Font("Monaco", 70)), nil);
view.layout_(HLayout(
[VLayout(
@ -159,14 +161,14 @@
nil, transport, nil,
HLayout(
tempo = TextField(view).string_("90"),
Button(view).states_([["set tempo"]]).action_({TempoClock.tempo = tempo.string.asInteger / 60}),
Button(view).states_([["set tempo"]]).action_({~tempoClock.tempo = tempo.string.asInteger / 60}.inEnvir),
StaticText(view).string_(" | "),
Button(view).states_([["auto advance", Color.black], ["auto advance", Color.black, Color.grey]]).action_({
arg v; ~autoAdvance = if(v.value == 0, {false}, {true});~autoAdvance;
}).value_(1),
}.inEnvir).value_(1),
Button(view).states_([["interludes", Color.black], ["interludes", Color.black, Color.grey]]).action_({
arg v; ~interludes = if(v.value == 0, {false}, {true})
}),
}.inEnvir),
[StaticText(view).string_(" "), stretch: 1]),
[StaticText(view).string_(" "), stretch: 1],
HLayout(
@ -181,8 +183,8 @@
});
}).flat;
~currentSection = 0;
~updateSection.value(0);
}),
updateSection.value(0);
}.inEnvir),
[StaticText(view).string_(" "), stretch: 1]),
[StaticText(view).string_(" "), stretch: 1], generator
), alignment: \top]))};
@ -203,11 +205,11 @@
VLayout(
[HLayout(
Slider(view).value_(0.8).action_(
{arg v; masterVol = v.value * 1.25; ~play.set(\masterVol, masterVol)}),
{arg v; masterVol = v.value * 1.25; ~play.set(\masterVol, masterVol)}.inEnvir),
masterIndicators[0],
masterIndicators[1]), stretch: 2],
Button(view).states_([["mute", Color.black], ["mute", Color.black, Color.grey]]).action_(
{arg v; masterMute = (1 - v.value).abs; ~play.set(\masterMute, masterMute)}),
{arg v; masterMute = (1 - v.value).abs; ~play.set(\masterMute, masterMute)}.inEnvir),
StaticText(view).string_(" master ").align_(\center)
), nil);
tracks = {arg part;
@ -215,13 +217,13 @@
VLayout(
HLayout(
Slider(view).value_(0.8).action_(
{arg v; partVols[part] = v.value * 1.25; ~play.set(partAbbr[part] ++ "Vol", partVols[part])}),
{arg v; partVols[part] = v.value * 1.25; ~play.set(partAbbr[part] ++ "Vol", partVols[part])}.inEnvir),
trackIndicators[part]),
Button(view).states_([["mute", Color.black], ["mute", Color.black, Color.grey]]).action_(
{arg v; partMutes[part] = (1 - v.value).abs; ~play.set(partAbbr[part] ++ "Mute", partMutes[part])}),
{arg v; partMutes[part] = (1 - v.value).abs; ~play.set(partAbbr[part] ++ "Mute", partMutes[part])}.inEnvir),
StaticText(view).string_("pan").align_(\center),
Knob(view).value_(0.5).action_(
{arg v; partPans[part] = v.value * 2 - 1; ~play.set(partAbbr[part] ++ "Pan", partPans[part])}),
{arg v; partPans[part] = v.value * 2 - 1; ~play.set(partAbbr[part] ++ "Pan", partPans[part])}.inEnvir),
StaticText(view).string_(trackNames[part]).align_(\center)
),
nil)
@ -231,9 +233,9 @@
win.layout = VLayout(
HLayout(
transportButton = Button().states_([["transport", Color.white, Color.grey], ["transport", Color.black]]).action_(
{tabButtonReset.value; transportButton.value = 0; tabs.index = 0 }).value_(0),
{tabButtonReset.value; transportButton.value = 0; tabs.index = 0 }.inEnvir).value_(0),
mixerButton = Button().states_([["mixer", Color.white, Color.grey], ["mixer", Color.black]]).action_(
{tabButtonReset.value; mixerButton.value = 0; tabs.index = 1 }).value_(1)),
{tabButtonReset.value; mixerButton.value = 0; tabs.index = 1 }.inEnvir).value_(1)),
tabs = StackLayout(masterView.value, faderView.value));
};
)

10
supercollider/cicc_main.scd
Unescape Escape View File

@ -29,17 +29,15 @@ s.waitForBoot({
};
// set the global variables
TempoClock.tempo = 90 / 60;
~tempoClock = TempoClock.new(90 / 60);
~dir = thisProcess.nowExecutingPath.dirname;
~genAll.value(20200525);
~play = Synth.new(\masterPlayerControl);
~interludeTremelo = Synth.new(\interludeTremelo);
~play = Synth.new(\masterPlayerControl ++ ~hash);
~interludeTremelo = Synth.new(\interludeTremelo ++ ~hash);
~autoAdvance = true;
~interludes = false;
~sectionOrder = ~patterns.size.collect({arg sec; sec});
~generateGUI.value;
appEnvironment.pop;
});
appEnvironment.pop;
)

24
supercollider/cicc_sonifier.scd
Unescape Escape View File

@ -9,7 +9,7 @@
~accompLowUpperBusB = Bus.audio(s, 1);
~interludeTremoloBus = Bus.audio(s, 1);
SynthDef(\masterPlayerControl, {
SynthDef(\masterPlayerControl ++ ~hash, {
arg sel = 0,
masterVol = 1, masterMute = 1,
guitarVol = 1, guitarPan = 0, guitarMute = 1,
@ -69,7 +69,7 @@ SynthDef(\masterPlayerControl, {
}).add;
SynthDef(\transport, {arg measure = 0, beat = 0, gate = 1, dur = 1;
SynthDef(\transport ++ ~hash, {arg measure = 0, beat = 0, gate = 1, dur = 1;
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);
@ -77,7 +77,7 @@ SynthDef(\transport, {arg measure = 0, beat = 0, gate = 1, dur = 1;
//~~~~karplus
SynthDef(\karplus, {arg freq, gate = 1, amp = 0.5, bus;
SynthDef(\karplus ++ ~hash, {arg freq, gate = 1, amp = 0.5, bus;
Out.ar(bus,
Pluck.ar(WhiteNoise.ar(0.1), Impulse.kr(0), 220.reciprocal, freq.reciprocal, 10, coef:0) *
Linen.kr(gate, doneAction: 2) * amp)
@ -85,7 +85,7 @@ SynthDef(\karplus, {arg freq, gate = 1, amp = 0.5, bus;
//~~~~accompaniment
SynthDef(\accompBass, {arg freq1 = 100, freq2 = 100, gate = 1, amp = 0.5, busLower, busUpper, cutoff = 0;
SynthDef(\accompBass ++ ~hash, {arg freq1 = 100, freq2 = 100, gate = 1, amp = 0.5, busLower, busUpper, cutoff = 0;
var env, lower, upper;
env = EnvGen.kr(Env.perc(0.1, 10, level: amp), Impulse.kr(0) + Changed.kr(freq2));
lower = SinOsc.ar(freq1, 0, 0.5) * env;
@ -96,13 +96,13 @@ SynthDef(\accompBass, {arg freq1 = 100, freq2 = 100, gate = 1, amp = 0.5, busLow
//this is not releasing properly
SynthDef(\accompTreble, {arg freq, gate = 1, sustain, amp, bus;
SynthDef(\accompTreble ++ ~hash, {arg freq, gate = 1, sustain, amp, bus;
var treble;
treble = SinOsc.ar(freq, 0, EnvGen.kr(Env.sine(sustain, amp * 0.1), gate, doneAction: 2));
Out.ar(bus, treble)
}).add;
SynthDef(\interludeTremelo, { arg gate = 0, amp = 1;
SynthDef(\interludeTremelo ++ ~hash, { arg gate = 0, amp = 1;
var tremeloTrig, freq, sig, feedback, fade;
//fast tremelo - note that this can be slower so long as the delaytime of the feedback remains short
tremeloTrig = Impulse.kr(50);
@ -118,8 +118,6 @@ SynthDef(\interludeTremelo, { arg gate = 0, amp = 1;
Out.ar(~interludeTremoloBus, fade);
}).add;
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;
var calcSustains, genSectionSec, sectionLimits, measureCount;
@ -204,7 +202,7 @@ OSCFunc({ arg msg, time; {~updateSection.value(1, false, false)}.defer},'/playNe
pattern = EventPatternProxy.new;
pattern.source = Ppar([
Pbind(
\instrument, \karplus,
\instrument, \karplus ++ ~hash,
\amp, 0.3,
\dur, Pseq(durSeq * beatFrac),
\sustain, Pseq(susSeq * beatFrac),
@ -214,7 +212,7 @@ OSCFunc({ arg msg, time; {~updateSection.value(1, false, false)}.defer},'/playNe
\bus, ~guitarBus.index),
if(accompLowSecSeq.size > 1, {
Pmono(
\accompBass,
\accompBass ++ ~hash,
\amp, 0.5,
\freq1, Pseq(accompLowSecSeq.slice(nil, 0)),
\freq2, Pseq(accompLowSecSeq.slice(nil, 1)),
@ -223,7 +221,7 @@ OSCFunc({ arg msg, time; {~updateSection.value(1, false, false)}.defer},'/playNe
\busUpper, if(secIndex % 2 == 0, {~accompLowUpperBusA.index}, {~accompLowUpperBusB.index}))
}, {
Pmono(
\accompBass,
\accompBass ++ ~hash,
\amp, 0.5,
\freq1, Pseq([accompLowSecSeq[0][0]]),
\freq2, Pseq([accompLowSecSeq[0][1]]),
@ -232,14 +230,14 @@ OSCFunc({ arg msg, time; {~updateSection.value(1, false, false)}.defer},'/playNe
\busUpper, if(secIndex % 2 == 0, {~accompLowUpperBusA.index}, {~accompLowUpperBusB.index}))
}),
Pbind(
\instrument, \accompTreble,
\instrument, \accompTreble ++ ~hash,
\freq, Pseq(accompHighSecSeq.slice(nil, 0)),
\dur, Pseq(accompHighSecSeq.slice(nil, 1) * beatFrac),
\sustain, Pseq(accompHighSecSeq.slice(nil, 2) * beatFrac),
\amp, 0.5,
\bus, ~accompHighBus.index),
Pbind(
\instrument, \transport,
\instrument, \transport ++ ~hash,
\measure, Pseq(measureSeq),
\beat, Pseq(beatSeq),
\dur, beatFrac * 8

Write Preview
Loading…
Cancel
Save