mortuosplango/3.scd Secret

## 3.scd

      
    Raw
  

              3.scd
            
          
    #‎Hackpact2015‬ laad.com.mx/hackpact2015eng.html
‪#‎Day‬ 3
p = ProxySpace.push(s)
~mv = { LFSaw.kr(0.03).range(0,10) }
~mv1 = { LFSaw.kr(0.05).range(0,10) }
~mv2 = { LFSaw.kr(0.07).range(0,10) }
~mv.clear
s.scope
(
~default.quant = [4];
~default[0] = Pbind(\instrument, \default,
\scale, Scale.minor,
\degree, 0 + Pkr(~mv),
\dur, Pseg(Pseq([1,0.001],inf), 4),
\octave, 3,
\amp, 0.1);
)
(
~default[2] = Pbind(\instrument, \default,
\scale, Scale.minor,
\degree, 0 + Pkr(~mv1),
\dur, Pseg(Pseq([1,0.001],inf), 5),
\octave, 4,
\amp, 0.1);
)
(
~default[3] = Pbind(\instrument, \default,
\scale, Scale.minor,
\degree, 0 + Pkr(~mv2),
\dur, Pseg(Pseq([1,0.001],inf), 6),
\octave, 5,
\amp, 0.05);
)
(
~default[4] = Pbind(\instrument, \default,
\scale, Scale.minor,
\degree, 0 + Pkr(~mv),
\dur, Pseg(Pseq([1,0.001],inf), 7),
\octave, 6,
\amp, 0.025);
)
(
~default[10]  = \filter -> { |in| in + CombN.ar(RLPF.ar(in, DelayN.ar(~mv,3) + 1 * 300, 0.1), 0.3, 0.23, 12)  };
)
(
~default[15]  = \filter -> { |in| in + CombN.ar(RLPF.ar(in, DelayN.ar(~mv,4) + 1 * 1000, 0.1), 0.3, 0.25, 10)  };
)
(
~default[20]  = \filter -> { |in| in + CombN.ar(RHPF.ar(in, DelayN.ar(~mv,5) + 1 * 1500, 0.1), 0.3, 0.15, 4)  };
)
~default[30]  = \filter -> { |in| Compander.ar(in, in, 0.7, 1/3).tanh };
~default[99]  = \filter -> { |in| in + AdCVerb.ar(in * 0.01) };
~default.play;
(
~fault[0] = Pbind(\instrument, \default,
\scale, Scale.minor,
\degree, 0,
\dur, 1/8,
\sustain, 0.1,
\octave, 3,
\amp, 0.1 * Pbrown());
)
(
~fault[1] = Pbind(\instrument, \default,
\scale, Scale.minor,
\degree, 0,
\dur, 1/8,
\sustain, 0.1,
\octave, 7,
\amp, 0.1 * Pbrown());
)
(
~fault[2] = Pbind(\instrument, \default,
\scale, Scale.minor,
\degree, 1,
\dur, 5/8,
\sustain, 0.1,
\octave, 7,
\amp, 0.1 * Pbrown());
)
~fault.play
p.end(10)