グラニュラーシンセシス

granulerSynthDef.scd

b = Buffer.read(s,  "/Applications/SuperCollider/sounds/fools_gold.wav");

SynthDef("grain1", {
	arg outBus= 0, gate = 1, amp = 0.5, pan = 0, sndbuf, envbuf = -1;
    var env, freqdev, grain, out;
	
    env = EnvGen.kr(
        Env.linen(0, 0.1, 1/8, 0.3, \sine),
        gate,
        doneAction:2);
	
	envbuf = EnvGen.kr(
		Env.linen(0, 0.1, 1/2, 0.6, \sine),
		doneAction:2);
	
	grain = GrainBuf.ar(2, 
		Impulse.kr(8),
		1/2, 
		b, 
		LFNoise1.kr.range(0, 10),
        LFNoise2.kr(0.5).range(0, 10),
		4,
		pan,
		-1);
	
	out = grain;
	out = out * 4;
	out = out.softclip * amp;
	
    Out.ar(outBus , out.dup * env)
    }
	
).send(s);