SHARE
TWEET

Untitled

a guest Dec 31st, 2018 107 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Server.default.record;
  2. s.pauseRecording;
  3.  
  4.  
  5. b = Buffer.alloc(s,512,1,{|z|z.sine1Msg(1.0/[1,3,5,7,9,11,13,15,17])});
  6. c = Buffer.read(s, "~/dminor1.wav");
  7.  
  8. fork{
  9.     s.sync;
  10. ~sound = {
  11.     var sig;
  12.     var local;
  13.     var f = [30,60,15]*Lag.kr(TChoose.kr(Impulse.kr(0.05),[0.75, 0.5, 1]), 8);
  14.     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;
  15. sig = sig;
  16. 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)));
  17. sig = sig + Decimator.ar(sig, 48000*LFNoise0.kr(1).range(0.25, 1), TChoose.kr(Impulse.kr(4), [8, 12, 16, 24]), 0.4);
  18.     sig = LPF.ar(sig, 3000*LFTri.kr(0.01).range(0.1, 1));
  19.     sig = sig + (Splay.ar(Array.fill(4, {PlayBuf.ar(2, c, rrand(-0.8, 0.8), loop: 2)*0.01}), 0.5));
  20.     sig = CombC.ar(sig, 1.0, [0.1, 0.2], LFTri.kr(0.05).range(5, 9));
  21.  
  22.     local = sig + LocalIn.ar(2);
  23.     15.do({
  24.             local = AllpassN.ar(local, 0.06, Rand(0.001, 0.06), 3)
  25.           });
  26.     LocalOut.ar(local*0.4);
  27.  
  28.     Out.ar(0, Limiter.ar(LPF.ar(local, 4000), 0.8)*EnvGen.kr(Env([0, 1, 1, 0],[3, 100, 10])));
  29. }.play;
  30. }
  31.  
  32.  
  33. SynthDef.new(\noiseOne, {
  34.     arg freq = 100, phase = 1.32, mul = 1.1, add = 1;
  35.     var modulator;
  36.     modulator = SinOsc.ar(freq, phase, mul, 0);
  37.     Out.ar(0, LPF.ar([PinkNoise.ar(modulator*0.33, 0), PinkNoise.ar(modulator*0.33, 0)]));
  38. }).add;
  39.  
  40.  
  41. SynthDef.new(\noiseTwo, {
  42.     arg freq = 100, phase = 1, mul = 0.1;
  43.     var modulator;
  44.     modulator = SinTone.ar(freq, phase, mul);
  45.     Out.ar(0, LPF.ar([PinkNoise.ar(modulator*0.2), PinkNoise.ar(modulator*0.2)]));
  46. }).add;
  47.  
  48. SynthDef.new(\noiseThree, {
  49.     arg freq = 500, phase = 1, mul = 0.9;
  50.     var modulator;
  51.     modulator = FSinOsc.ar(freq, phase, mul);
  52.     Out.ar(0, LPF.ar(DelayN.ar([PinkNoise.ar(modulator*0.1), PinkNoise.ar(modulator*0.1)])));
  53. }).add;
  54.  
  55.  
  56. SynthDef.new(\noiseFour, {
  57.     var n = PinkNoise.ar(), f = (0.01, 0.015 ..0.07);
  58.     v = LFTri.kr(f.scramble[5..7]).range(0.0001, 0.003);
  59.     Out.ar(0, DelayN.ar(Splay.ar( MembraneHexagon.ar(n, f.scramble[1..3], mul: v), SinOsc.kr(f.choose))))
  60. }).add;
  61.  
  62. x = Synth.new(\noiseOne);
  63.  
  64. x.set(\mul, 1);
  65. x.set(\freq, 100);
  66. x.free;
  67.  
  68.  
  69. z = Synth.new(\noiseTwo);
  70. z.set(\freq, 1500);
  71. z.set(\mul, 3);
  72. z.free;
  73.  
  74. y = Synth.new(\noiseThree);
  75. y.set(\mul, 3);
  76. y.set(\freq, 500)
  77. y.free
  78.  
  79. a = Synth.new(\noiseFour);
  80. a.set(\mul, 3);
  81. a.free;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top