Rituel des Anneaux – Phase I : Éveil

[Nilrem22]

// *** Rituel des Anneaux – Phase I : Éveil ***
// BPM : 180 | Tonalité : D# Phrygien | Fréquence racine : 111 Hz
(
s.waitForBoot {
var bpm = 180;
var rootHz = 111;
var kick, hats, pads, binaural, voice;
var dur = 6.5 * 60; // Durée en secondes (~6:30 min)
var theta = 4; // Theta wave (hypnose)
var alpha = 8;
var gamma30 = 30, gamma40 = 40;

// *** KICK HARDTEK ***
SynthDef(\hardtekKick, { |out=0|
    var env = Env.perc(0.001, 0.2, 1, -4).kr(2);
    var freqEnv = Env([60, 40], [0.05]).kr(2);
    var sig = SinOsc.ar(freqEnv) * env;
    sig = LPF.ar(sig, 1000);
    sig = sig + (WhiteNoise.ar(0.1) * env);
    sig = tanh(sig * 5);
    Out.ar(out, sig!2);
}).add;

// *** HI-HATS avec motif runique (Algiz) ***
SynthDef(\hihat, { |out=0|
    var env = Env.perc(0.001, 0.05).kr(2);
    var sig = WhiteNoise.ar(0.3) * env;
    sig = HPF.ar(sig, 8000);
    Out.ar(out, sig!2);
}).add;

// *** PADS (D# Phrygien) ***
SynthDef(\pads, { |out=0, freq=200|
    var sig = SinOsc.ar(freq, 0, 0.2) + SinOsc.ar(freq*2, 0, 0.1);
    sig = LPF.ar(sig, 1000);
    sig = sig * EnvGen.kr(Env.asr(2, 1, 4), doneAction:2);
    Out.ar(out, sig!2);
}).add;

// *** BINAURAL BEATS (Theta -> Gamma) ***
SynthDef(\binaural, { |out=0, base=111, offset=4|
    var sigL = SinOsc.ar(base);
    var sigR = SinOsc.ar(base + offset);
    sigL = sigL * 0.1; sigR = sigR * 0.1;
    Out.ar(out, [sigL, sigR]);
}).add;

// *** VOIX CRYPTÉE ***
SynthDef(\voice, { |out=0|
    var buf = Buffer.read(s, Platform.resourceDir +/+ "sounds/a11wlk01.wav"); // Exemple
    var sig = PlayBuf.ar(1, buf, BufRateScale.kr(buf) * 0.5, loop: 0);
    sig = sig * 0.2;
    Out.ar(out, sig!2);
}).add;

// *** PATTERN GLOBAL ***
TempoClock.default.tempo = bpm / 60;

// Kick every 1 beat
Pbind(
    \instrument, \hardtekKick,
    \dur, 0.5
).play;

// Hi-hat motif (Algiz : | x   x x   | )
Pbind(
    \instrument, \hihat,
    \dur, Pseq([0.5, 0.5, 0.5, 0.5], inf),
    \skip, Pseq([1,0,1,1,0,0], inf)
).play;

// Pads on top (D#, F#, C)
Pbind(
    \instrument, \pads,
    \freq, Pseq([622.25, 739.99, 523.25], inf),
    \dur, 4
).play;

// Binaural Beats – starts hypnose, then gamma
Synth(\binaural, [\base, rootHz, \offset, theta]); // Theta 4 Hz
SystemClock.sched(60, { Synth(\binaural, [\base, rootHz, \offset, gamma30]) }); // Switch after 1 min
SystemClock.sched(120, { Synth(\binaural, [\base, rootHz, \offset, gamma40]) }); // Later

// Play voice at intro + outro
SystemClock.sched(5, { Synth(\voice) });
SystemClock.sched(dur - 30, { Synth(\voice) });

};
)