Server.default.record;
s.pauseRecording;


b = Buffer.alloc(s,512,1,{|z|z.sine1Msg(1.0/[1,3,5,7,9,11,13,15,17])});
c = Buffer.read(s, "~/dminor1.wav");

fork{
    s.sync;
~sound = {
    var sig;
    var local;
    var f = [30,60,15]*Lag.kr(TChoose.kr(Impulse.kr(0.05),[0.75, 0.5, 1]), 8);
    sig = Mix(COsc.ar(b.bufnum,f + SinOsc.ar(f*25, 0, LFTri.kr(0.01).range(0, 10)), [0.1, 0.1001, 0.2], 0.2))*0.1;
sig = sig;
sig = LeakDC.ar(Ringz.ar(sig, TChoose.kr(Impulse.kr(0.1),[88, 97, 99, 100].midicps), LFTri.kr([0.05, 0.051]).range(0.2, 0.5)));
sig = sig + Decimator.ar(sig, 48000*LFNoise0.kr(1).range(0.25, 1), TChoose.kr(Impulse.kr(4), [8, 12, 16, 24]), 0.4);
    sig = LPF.ar(sig, 3000*LFTri.kr(0.01).range(0.1, 1));
    sig = sig + (Splay.ar(Array.fill(4, {PlayBuf.ar(2, c, rrand(-0.8, 0.8), loop: 2)*0.01}), 0.5));
    sig = CombC.ar(sig, 1.0, [0.1, 0.2], LFTri.kr(0.05).range(5, 9));

    local = sig + LocalIn.ar(2);
    15.do({
            local = AllpassN.ar(local, 0.06, Rand(0.001, 0.06), 3)
          });
    LocalOut.ar(local*0.4);

    Out.ar(0, Limiter.ar(LPF.ar(local, 4000), 0.8)*EnvGen.kr(Env([0, 1, 1, 0],[3, 100, 10])));
}.play;
}


SynthDef.new(\noiseOne, {
    arg freq = 100, phase = 1.32, mul = 1.1, add = 1;
    var modulator;
    modulator = SinOsc.ar(freq, phase, mul, 0);
    Out.ar(0, LPF.ar([PinkNoise.ar(modulator*0.33, 0), PinkNoise.ar(modulator*0.33, 0)]));
}).add;


SynthDef.new(\noiseTwo, {
    arg freq = 100, phase = 1, mul = 0.1;
    var modulator;
    modulator = SinTone.ar(freq, phase, mul);
    Out.ar(0, LPF.ar([PinkNoise.ar(modulator*0.2), PinkNoise.ar(modulator*0.2)]));
}).add;

SynthDef.new(\noiseThree, {
    arg freq = 500, phase = 1, mul = 0.9;
    var modulator;
    modulator = FSinOsc.ar(freq, phase, mul);
    Out.ar(0, LPF.ar(DelayN.ar([PinkNoise.ar(modulator*0.1), PinkNoise.ar(modulator*0.1)])));
}).add;


SynthDef.new(\noiseFour, {
    var n = PinkNoise.ar(), f = (0.01, 0.015 ..0.07);
    v = LFTri.kr(f.scramble[5..7]).range(0.0001, 0.003);
    Out.ar(0, DelayN.ar(Splay.ar( MembraneHexagon.ar(n, f.scramble[1..3], mul: v), SinOsc.kr(f.choose))))
}).add;

x = Synth.new(\noiseOne);

x.set(\mul, 1);
x.set(\freq, 100);
x.free;


z = Synth.new(\noiseTwo);
z.set(\freq, 1500);
z.set(\mul, 3);
z.free;

y = Synth.new(\noiseThree);
y.set(\mul, 3);
y.set(\freq, 500)
y.free

a = Synth.new(\noiseFour);
a.set(\mul, 3);
a.free;