Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- b = Buffer.alloc(s,512,1,{|z|z.sine1Msg(1.0/[1,3,5,7,9,11,13,15,17])});
- c = Buffer.read(s, "~/dminor1.wav");
- fork{
- s.sync;
- ~sound = {
- var sig;
- var local;
- var f = [30,60,15]*Lag.kr(TChoose.kr(Impulse.kr(0.05),[0.75, 0.5, 1]), 8);
- sig = Mix(COsc.ar(b.bufnum,f + SinOsc.ar(f*25, 0, LFTri.kr(0.01).range(0, 10)), [0.1, 0.1001, 0.2], 0.2))*0.1;
- sig = sig;
- sig = LeakDC.ar(Ringz.ar(sig, TChoose.kr(Impulse.kr(0.1),[88, 97, 99, 100].midicps), LFTri.kr([0.05, 0.051]).range(0.2, 0.5)));
- sig = sig + Decimator.ar(sig, 48000*LFNoise0.kr(1).range(0.25, 1), TChoose.kr(Impulse.kr(4), [8, 12, 16, 24]), 0.4);
- sig = LPF.ar(sig, 3000*LFTri.kr(0.01).range(0.1, 1));
- sig = sig + (Splay.ar(Array.fill(4, {PlayBuf.ar(2, c, rrand(-0.8, 0.8), loop: 2)*0.01}), 0.5));
- sig = CombC.ar(sig, 1.0, [0.1, 0.2], LFTri.kr(0.05).range(5, 9));
- local = sig + LocalIn.ar(2);
- 15.do({
- local = AllpassN.ar(local, 0.06, Rand(0.001, 0.06), 3)
- });
- LocalOut.ar(local*0.4);
- Out.ar(0, Limiter.ar(LPF.ar(local, 4000), 0.8)*EnvGen.kr(Env([0, 1, 1, 0],[3, 100, 10])));
- }.play;
- }
- (
- ~play = { | path, out = 0 |
- if (~buffer.notNil) { ~buffer.free };
- Buffer.read(
- Server.default, path, action: { | buffer, out = 0 |
- ~buffer = buffer;
- ~synth = { | out = 0, amp1 = 1, amp2 = 1, amp3 = 1, amp4 = 1, amp5 = 1, amp6 = 1, amp7 = 1, amp8 = 1 |
- var left, right;
- #left, right = PlayBuf.ar(2, buffer, BufRateScale.kr(buffer), doneAction: 2);
- // Out.ar(out, [left, left, left, left, right, right, right, right])
- Out.ar(0, [left, left, left, left, right, right, right, right]
- * [amp1, amp2, amp3, amp4, amp5, amp6, amp7, amp8]
- )
- }.play(args: [\out, out]);
- })
- }
- )
- SynthDef.new(\noiseOne, {
- arg freq = 100, phase = 1.32, mul = 1.1, add = 1;
- var modulator;
- modulator = SinOsc.ar(freq, phase, mul, 0);
- Out.ar(0, LPF.ar([PinkNoise.ar(modulator*0.33, 0), PinkNoise.ar(modulator*0.33, 0)]));
- }).add;
- SynthDef.new(\noiseTwo, {
- arg freq = 100, phase = 1, mul = 0.1;
- var modulator;
- modulator = SinTone.ar(freq, phase, mul);
- Out.ar(0, LPF.ar([PinkNoise.ar(modulator*0.2), PinkNoise.ar(modulator*0.2)]));
- }).add;
- SynthDef.new(\noiseThree, {
- arg freq = 500, phase = 1, mul = 0.9;
- var modulator;
- modulator = FSinOsc.ar(freq, phase, mul);
- Out.ar(0, LPF.ar(DelayN.ar([PinkNoise.ar(modulator*0.1), PinkNoise.ar(modulator*0.1)])));
- }).add;
- SynthDef.new(\noiseFour, {
- var n = PinkNoise.ar(), f = (0.01, 0.015 ..0.07);
- v = LFTri.kr(f.scramble[5..7]).range(0.0001, 0.003);
- Out.ar(0, DelayN.ar(Splay.ar( MembraneHexagon.ar(n, f.scramble[1..3], mul: v), SinOsc.kr(f.choose))))
- }).add;
- ~synth = ~play.();
- x = Synth.new(\noiseOne);
- x.set(\mul, 10);
- x.set(\freq, 100);
- x.free;
- z = Synth.new(\noiseTwo);
- z.set(\freq, 5000);
- z.set(\mul, 10);
- z.free;
- y = Synth.new(\noiseThree);
- y.set(\mul, 157);
- y.set(\freq, 500)
- y.free
- a = Synth.new(\noiseFour);
- a.set(\mul, 3);
- a.free;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement