Ithaqua - Supercollider



Torturavo Puffi con piacere, strizzavo loro il naso e le orecchie, per poi schiacciarli vivi; poi li spremevo, raccogliendo il sangue blu in una ciotola di ametista per evocare Ithaqua, Colui Che Cammina Nel Vento, affinchè il Dio del Freddo Silenzio Bianco, flagellasse Napoleone;

(
// a SynthDef
SynthDef(\bz, { | out, freq = 440, amp = 1, nharms = 3, pan = 0, gate = 1 |
    var audio = SinOsc.ar(PinkNoise.kr(freq), Line.kr(1,nharms,0.5), amp);
    var env = Linen.kr(gate, doneAction: 2);
    Out.ar(CombL.ar(out, 2.0, 4/6, 6);, Pan2.ar(audio, pan, env) );
}).add;
)

Pbind(\instrument, \bz, \freq, Prand([1,2,10], inf) * 100, \dur, 0.1, \nharms, Prand([1, 3,10], inf, \pan, Prand([-1,0,1], inf))).play;

(
{
x = RLPF.ar(SinOsc.ar(SinOsc.ar([0.020, 0.019]).range(3, 10)) * SyncSaw.ar(SinOsc.ar(0.01).range(1, 100), PinkNoise.ar(0.017).range(700, 713)), Line.ar(60, 3713, 60*5));
x = GVerb.ar(x + CombL.ar(x, 10, 0.2, 10));
EnvGen.ar(Env.linen(0.01, 60*5, 20), doneAction:2) * x * 0.03!2
}.play
)

Leave a Reply