// title: Amplitude modulation with a Rossler attractor.
// author: LFSaw
// description:
// uses the RosslerL implementation found in [MCLDUgens](https://github.com/supercollider/sc3-plugins).
// code:
Ndef(\roses, {
    
    var snd, roses;
    
    var rID   = \rID.kr(0);
    var rTrig = \rTrig.tr(1);
    var rSeed = \rSeed.kr(2347);
    var amps = [\amp1, \amp2, \amp3, \amp4].collect{|d| d.kr(0, 0.1)};
    RandID.ir(rID);
    RandSeed.kr(rTrig, rSeed);
    
    roses = RosslerL.ar(Ndef(\rate).kr(1),
        a: \a.kr(0.2),
        b: \b.kr(0.2),
        c: \c.kr(5.7),
        xi: ({TRand.kr(0, 0.1, rTrig)}!freqs.size).postln,
        yi: {TRand.kr(0, 0.1, rTrig)}!freqs.size,
        zi: {TRand.kr(0, 0.1, rTrig)}!freqs.size,
    );
    
    snd = roses.collect{|rs, i|
        SinOscFB.ar(
            freq:     freqs[i] * (1 + (rs[0] * 0.004)),
            feedback: rs[1].linlin(-2, 2, 0, 0.8),
            mul:      ([1, 0].choose - rs[2])
        )
    } * amps;
    
    
    Splay.ar(snd);
})