Pruebas con MUSE EEG

En esta prueba estoy utilizando el sensor EEG leyendo las ondas Theta con un sintetizador granular con el siguiente código:


(
SynthDef(\upMONO, {| senal, paneo, out, env, gate = 1, salida, efecto, senal1, grains, trate, dur, rate, kr1 = 2, kr2 = 0.1 |
    trate = kr1;
    dur = 4 / trate;
    rate = kr2; //Dseq([10, 1, 1, 0.5, 0.5, 0.2, 0.1], inf);
    grains = TGrains.ar(2, Impulse.ar(trate), ~upMONO_buf, rate, 120, dur, Dseq([-1, 1], inf), 0.1, 2)*2;
    env = EnvGen.ar(Env.adsr(1, 3, 0.5, 15, 0.6, -4, 0), gate, doneAction:2);
    salida = env*grains;
    Out.ar(0, Pan4.ar(salida,paneo,1));
}).add;
)

~upMONO = Synth(\upMONO);
~upMONO.set(\gate, 0);

(
        b=OSCdef(\museOscb, {|msg|
            var alpha1, alpha2;
            msg.postln;
            alpha1 = msg[1].linlin(0.1,0.9,0.3,4);
            alpha2 = msg[1].linlin(0.1,0.9,0.1,10);
            ~upMONO.set(\kr1, alpha1);
            ~upMONO.set(\kr2, alpha2);
        },'/muse/elements/theta_relative')
    );

b.free;