Bz Buzz

"Era molto tozzo e panciuto, la sua testa era più simile a un rospo mostruoso di una divinità, e tutto il suo corpo era coperto con un’ imitazione di pelliccia, dandogli in qualche modo una vaga somiglianza sia a un pipistrello che a un bradipo. Le sue palpebre assonnate erano mezzo abbassate sugli occhi globulari; e la punta di una lingua strana spiccava dalla sua grassa bocca."

s.quit;
s.options.memSize = 65536;  // e.g., could be different for you
s.boot;

(
SynthDef(\thecroaking, {|out, sig, gate=1, freq=440|
 // doneAction: 2 rilascia la synth quando EvnGen ha finito
    sig = (AY.ar(freq)*0.7+AY.ar(freq/3+Rand(1,7))*0.7)
*EnvGen.kr(Env.asr(0.1, 0.3, 0.7), gate, doneAction:2);
    sig = sig*Blip.ar(freq/2)*1.3;
    sig = RLPF.ar(sig,SinOsc.kr(0.3, 0, 200, 500), 0.1);
    sig = FreeVerb.ar(sig, 0.5, 0.5, 0.5);
    Out.ar(out, sig);

}).add;
)

(
Pbind(
    \instrument, \thecroaking,
    \freq, Pseq([113,73,Prand([137, 173, 713],1)], inf),
    \legato, Pseq([1.7, 0.3], inf),
    \dur, Prand([0.2, 0.4, 0.8], inf),
    \out, Pseq([1, 0], inf)
).play;
)

«Che cosa sia, Dio solo lo sa. In termini di materia suppongo che la cosa sia un gas, ma obbediente a leggi che non sono quelle del nostro cosmo; non è il frutto dei pianeti o dei soli che splendono nei telescopi […] non è un soffio dei cieli di cui i nostri astronomi misurano i moti e le dimensioni […] era soltanto un colore venuto dallo spazio, messaggero spaventoso degli informi reami dell’infinito, al di là della natura che conosciamo.»

rielaborazione di http://sccode.org/1-4QT

(
    var durata;

    {
        SynthDef(\TheColourOutofSpace, {|durata = 317|
            //Sines
            var discesa = Line.kr(337, 137, durata);
            var salita = Line.kr(137, 317, durata);
            var signals = SinOsc.ar(discesa) * SinOsc.ar(salita);
            //Filter
            var filterLineLFO = SinOsc.ar(0.3);
            var filterLine = Line.kr(137, 7137, durata, doneAction: 2) * filterLineLFO;
            var filtLFO = SinOsc.kr(0.3).range(73, filterLine);
            var filter = BMoog.ar(signals, filtLFO, 0.7, 1).acos * 0.7;
            //Comb
            var comb = CombL.ar(filter, 1, 0.3, 1);
            var mix1 = (comb + GVerb.ar(filter)) * 0.1;
            mix1 = (CombL.ar(mix1, 1, 1, 7) * 0.3) + mix1;
            mix1 = HPF.ar(mix1, 17) * 0.7;
            Out.ar(0, mix1);
        }).add;

        s.sync;

        durata = 317; Synth(\TheColourOutofSpace, [\durata, durata]);
    }.fork
)