Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // Basic audio chunking test
- (
- SynthDef.new("fldemo", {
- a = FLInterval.fr(['interval', 16384]);
- b = SinOsc.ar(Rand(100, 2000));
- c = FLSource.fr(b, a);
- d = FLSink.fr(FLMul.fr(c, 0.08));
- Out.ar(0, d);
- Out.ar(1, d)
- }).play;
- )
- // Fancy audio chunking test
- (
- SynthDef.new("fldemo", {
- scheduler = FLInterval.fr(['interval', 16384]
- );
- input_sine = SinOsc.ar(Rand(100, 2000));
- source = FLSource.fr(b, a);
- windowing = FLMul.fr(FLWindow.fr(c, 0.0, ['size', 4096]), 0.08);
- noise = FLRand.fr(a);
- sink_left = FLSink.fr(FLMul.fr(d, e));
- sink_right = FLSink.fr(FLMul.fr(d, FLSub.fr(1, e)));
- Out.ar(0, f);
- Out.ar(1, g)
- }).play;
- )
- // A looping granular thing, showing how UGens producing one number (Rand) can feed straight into an input
- z = Buffer.read(s, Platform.resourceDir +/+ "sounds/a11wlk01.wav");
- (
- SynthDef.new("flread", {
- a = FLRamp.fr(FLInterval.fr(['interval', 4096]), 0.0, ['mode', 'requested', 'length', 4096]);
- b = FLRead.fr(FLAdd.fr(a, Rand(0, 88200)), 0.0, ['buffer', 'buf0', 'units', 'samples']);
- c = FLSink.fr(FLMul.fr(FLWindow.fr(b, 0.0, ['size', 4096]), 0.5));
- Out.ar(0, c);
- Out.ar(1, c)
- }).play;
- )
- // Now randomise the position per grain
- (
- SynthDef.new("flread", {
- a = FLRamp.fr(FLInterval.fr(['interval', 128]), 0.0, ['mode', 'requested', 'length', 4096]);
- b = FLRead.fr(FLAdd.fr(a, FLMap.fr(FLRand.fr(a), 0.0, ['mode', 'linear', 'outhi', 88200])), 0.0, ['buffer', 'buf0', 'units', 'samples']);
- c = FLSink.fr(FLMul.fr(FLWindow.fr(b, 0.0, ['size', 4096]), 0.5));
- Out.ar(0, c);
- Out.ar(1, c)
- }).play;
- )
- // Now randomise the position and pan per grain
- (
- SynthDef.new("flread", {
- a = FLRamp.fr(FLInterval.fr(['interval', 10]), 0.0, ['mode', 'requested', 'length', 4096]);
- b = FLRead.fr(FLAdd.fr(a, FLMap.fr(FLRand.fr(a), 0.0, ['mode', 'linear', 'outhi', 88200])), 0.0, ['buffer', 'buf0', 'units', 'samples', 'interp', 'hermite']);
- c = FLMul.fr(FLRand.fr(a), pi * 0.5);
- w = FLWindow.fr(b, 0.0, ['size', 4096]);
- d = FLSink.fr(FLMul.fr(w, FLCos.fr(c)));
- e = FLSink.fr(FLMul.fr(w, FLSin.fr(c)));
- Out.ar(0, d * 0.2);
- Out.ar(1, e * 0.2)
- }).play;
- )
- (
- SynthDef.new("native", {
- var t = Impulse.ar(44100/10);
- var dur = 4096/44100;
- d = GrainBuf.ar(2, t, dur, 0, 1, TRand.ar(0, 2 / BufDur.kr(0), t), 4, TRand.ar(-1, 1, t), -1, 512);
- Out.ar(0, d * 0.2);
- }).play;
- )
- z = Buffer.read(s, Platform.resourceDir +/+ "sounds/a11wlk01.wav");
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement