Server.default.record;
s.pauseRecording;

(
SynthDef("fm1", {


    arg bus = 0, freq = 440, carPartial = 1, modPartial = 1, index = 3, mul = 3;
    var mod, car, dist;

    mod = SinOsc.ar(freq * modPartial, 0, freq * index * LFNoise1.kr(5.reciprocal).abs);

    car = SinOsc.ar((freq * carPartial) + mod, 0, mul);

    dist = FreeVerb.ar(car, mix: 1, room: 1).distort*0.5;

    Out.ar(bus, dist)}).load(s)!2;

)
(

Synth("fm1", [\bus, 0, \freq, 20, \carPartial, 2, \modPartial, 2.4]);

Synth("fm1", [\bus, 1, \freq, 100, \carPartial, 2, \modPartial, 2.401]);

)

f = {

var n = 24;
var freq = Array.geom(n,60,1.25);
var amp = Array.geom(n,0.5,0.75);
var tim = Array.geom(n,10,1.25);

// var tim = Array.geom(n,0.125,1.1); // Smaller tim values for more rhythmic effect – Phase Music
var src = Mix.fill(n, {arg i;
var src = SinOsc.ar([freq[i], freq[i]],4.0.rand,amp[i])*LFGauss.ar([tim.choose,tim.choose],0.35);
// var src = Saw.ar([freq[i], freq[i]],amp[i])*LFGauss.ar([tim.choose,tim.choose],0.35);

var mod = SinOsc.ar([freq[(n/2).rand], freq[(n/2).rand]],4.0.rand,amp[i])*LFGauss.ar([tim.choose,tim.choose],0.35);

mod*src
});
src*EnvGen.ar(Env.linen(0.0001, 360, 40),doneAction:2)
}

g = {(FreeVerb.ar(f)).distort};
g.play;


{LPF.ar(FreqShift.ar((FreeVerb.ar(f*SinOsc.ar(80, mul:1.4))).distort, freq: 120, mul: 0.2), 300)!2}.play