From fd10d7a78e73a9648e9ecc6b10a714cb154fe713 Mon Sep 17 00:00:00 2001 From: Julian Rohrhuber Date: Wed, 7 Mar 2018 11:32:21 +0100 Subject: [PATCH] dirt-synth: add pause also to RMS analysis --- synths/core-synths-global.scd | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/synths/core-synths-global.scd b/synths/core-synths-global.scd index 288bc230..5343f57c 100644 --- a/synths/core-synths-global.scd +++ b/synths/core-synths-global.scd @@ -39,21 +39,25 @@ CORE SYNTHDEFS FOR DIRT // or: //signal = distort(signal); + DirtPause.ar(signal, graceTime:4); + signal = signal * EnvGen.kr(Env.asr, gate, doneAction:2); Out.ar(outBus, signal) }, [\ir, \ir, \kr, \kr]).add; // RMS measurement, sending back to editor - SynthDef("dirt_rms" ++ numChannels, { |gate = 1, dryBus, effectBus, rmsReplyRate, rmsPeakLag, orbitIndex| var drySignal = In.ar(dryBus, numChannels); var wetSignal = In.ar(effectBus, numChannels); var signal = wetSignal + drySignal; + + DirtPause.ar(signal, graceTime:4); EnvGen.kr(Env.asr, gate, doneAction:2); + SendPeakRMS.kr(signal, replyRate: rmsReplyRate, peakLag: rmsPeakLag, cmdName:"/rms", replyID: orbitIndex) - }, [\kr, \ir, \ir, \kr, \kr, \kr]).add; + }, [\kr, \ir, \ir, \kr, \kr, \kr]).add; @@ -69,7 +73,6 @@ CORE SYNTHDEFS FOR DIRT - if(\SwitchDelay.asClass.notNil) { SynthDef("dirt_delay" ++ numChannels, { |dryBus, effectBus, gate = 1, delaytime, delayfeedback, delaySend = 1, delayAmp = 1, lock = 0, cps = 1|