diff --git a/remembering_clive_wearing_score.pdf b/remembering_clive_wearing_score.pdf index f9c1627..0e0cd9a 100644 Binary files a/remembering_clive_wearing_score.pdf and b/remembering_clive_wearing_score.pdf differ diff --git a/supercollider/remembering_clive_wearing_synthdef.scd b/supercollider/remembering_clive_wearing_synthdef.scd index 77ec7d5..2aaccda 100644 --- a/supercollider/remembering_clive_wearing_synthdef.scd +++ b/supercollider/remembering_clive_wearing_synthdef.scd @@ -3,12 +3,13 @@ SynthDef(\flicker, { |automate = 1, bufs = #[0, 1, 2, 3, 4, 5, 6, 7, 8], fadeInTrigBusNum = 0, fadeOutTrigBusNum = 2, wakeTrigBusNum = 1| //~~~~~ Vars ~~~~~ + // fadeInTimes, fadeOutTimes, wakeTimes according to example in score with 1 minute delay // start times / fade ins - var fadeInTimes = [5, 100]; + var fadeInTimes = [1, 50] * 60; // end times / fade outs (must be same length as fadeInTimes with fadeInTimes[i] < fadeOutTimes[i]) - var fadeOutTimes = [80, 150]; + var fadeOutTimes = [47, 106] * 60; // These are the times to wake up with a flourish of activity and the reading of an entry in the journal - var wakeTimes = [15, 105]; + var wakeTimes = [4, 9, 17, 24, 34, 44, 53, 57, 73, 97, 101, 106] * 60; // These are the frequency ratios of the ensemble parts var freqRatios = [2, 3/2, 5/4, 7/4, 11/8, 13/8, 17/16, 19/16, 23/16]; // Triggers @@ -22,6 +23,8 @@ SynthDef(\flicker, { |automate = 1, bufs = #[0, 1, 2, 3, 4, 5, 6, 7, 8], // Timed trigger var timedTrigger = {|times| Changed.kr(EnvGen.kr(Env.step({|i| i % 2} ! (times.size + 1), times.differentiate ++ [0.01]), Impulse.kr(0)))}; + // Monitor time + var sTrig, sCount, secs, mins; //~~~~~ Triggers ~~~~~ // Triggers for fadeInTimes @@ -95,6 +98,8 @@ SynthDef(\flicker, { |automate = 1, bufs = #[0, 1, 2, 3, 4, 5, 6, 7, 8], {|i| SendTrig.kr(pulse, i + 9, energy[i] * fadeInOutEnv * wakeEnv)} ! 9; //~~~~~ Monitor Time ~~~~~ - Poll.kr(PulseDivider.kr(pulse, 30), PulseCount.kr(PulseDivider.kr(pulse, 30)), \time); + sTrig = PulseDivider.kr(pulse, 30); sCount = PulseCount.kr(sTrig); + secs = sCount % 60; mins = (sCount / 60).trunc; + Poll.kr(sTrig, mins + (secs / 100), "time (min.secs)"); }).send(s); ) \ No newline at end of file