Shoggoth - Supercollider





s.boot;


play{a=HPF.ar(ar(GrayNoise,3e-3),7)*Line.kr(0,1,17);ar(GVerb,({|i|ar(Ringz,a*LFNoise1.kr(0.05+0.1.rand),55*i+60,0.2)}!9).sum,70,99).tanh}

SynthDef(\recordMe, {arg buffer; DiskOut.ar(buffer, In.ar(0, 2)); }).add;

// allocate a disk i/o buffer
z= Buffer.alloc(s, 65536, 2);

// create an output file for this buffer, leave it open
z.write("~/crescendo.wav".standardizePath, "wav", "int16", 0, 0, true);

x = Synth(\recordMe, [\buffer, z], addAction: \addToTail);

x.free; // when done recording

z.close; // close the file

z.free; // free the buffer

******************************************************************************


a è uguale  = HPF è un filtro di 2 grado Passa Alto
il segnale di ingresso al filtro è un GreyNoise moltiplicato per un segnalde di controllo di tipo Line
che passa da 0 a 1 in 17 secondi

A two-channel reverb UGen, based on the "GVerb" LADSPA effect by Juhana Sadeharju

#left, right = GVerb.ar(in, roomsize, revtime, damping, inputbw, spread, drylevel, earlyreflevel, taillevel, 
maxroomsize, mul, add)

tanh tangente iperbolica 

Ringz Ringz.ar(in, freq, decaytime, mul, add) ringing filter



Leave a Reply