From a30f5c994939cec2d3ea2f81bd492755e0c3f170 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luka=20Prin=C4=8Di=C4=8D?= Date: Tue, 24 Nov 2020 11:41:50 +0100 Subject: [PATCH] adding distorted drone --- 2020-11-24_distorted_drone.scd | 49 ++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 2020-11-24_distorted_drone.scd diff --git a/2020-11-24_distorted_drone.scd b/2020-11-24_distorted_drone.scd new file mode 100644 index 0000000..25c75a2 --- /dev/null +++ b/2020-11-24_distorted_drone.scd @@ -0,0 +1,49 @@ +~delay1 = Bus.audio(s, 2); + +( +SynthDef(\dlywrangler, { + arg out=0, in, wet=0.1; + var snd, dly2; + snd = In.ar(in,2); + dly2 = CombN.ar(HPF.ar(snd,300), 1, [0.5,0.77], 5, mul:LFNoise1.kr(0.1).range(0.8,0.3)); + snd = CombN.ar(snd, 1, Lag.ar(LFNoise0.ar(1).range(0.01,0.1),0.1), 3, mul:wet) + snd; + snd = Limiter.ar(snd, 0.8); + snd = snd + dly2; + Out.ar(out, snd); +}).add; + + +SynthDef(\bap, { + arg freq=440, gate=1, out=0, amp=0.1; + var snd = Saw.ar([freq, freq*1.01]); + var env = Linen.kr(gate, releaseTime: 0.1, doneAction:2); + snd = snd + SinOsc.ar([freq*0.99, freq]); + snd = snd + Pulse.ar([freq*0.99, freq]); + + snd = snd.clip2(LFNoise1.ar(0.3).range(0.3,0.8)) * 5; + snd = snd.wrap2(LFNoise1.ar(0.3).range(0.3,0.8)) * 2; + snd = snd.fold2(LFNoise1.ar(0.3).range(0.3,0.8)) * 5; + snd = Limiter.ar(snd); + snd = Splay.ar(snd); + Out.ar(out, snd*env*amp); +}).add; +) + +~dlywrang1 = Synth(\dlywrangler, [\out, 0, \in, ~delay1]); + +Pdef(\s2).play +( +Pbindef(\s2, + \instrument, \bap, + \degree, 0, + \dur, 2, + \octave, [2,3], + \amp, 0.5, + \legato, 1, + \out, ~delay1, + \dlywet, Pstutter(8, Pfunc({~dlywrang1.set(\wet, rrand(0, ((3..6) * 0.1).choose ) ) })) +) +) + + +~dlywrang1.free