Advertisement
Guest User

Untitled

a guest
Jan 16th, 2019
170
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. // synthdef copied from "stealthissound" -> https://composerprogrammer.com/code.html
  2.  
  3. (
  4. SynthDef(\everythingrhodes,{|out= 0 freq = 440 amp = 0.1 gate=1 lforate = 4.85 lfowidth= 0.5 cutoff= 2000 rq=0.5 pan = 0.0|
  5.     var pulse, filter, env;
  6.     pulse = Pulse.ar(freq*[1,33.5.midiratio],[0.2,0.1],[0.7,0.3]);
  7.     env = EnvGen.ar(Env.adsr(0.0,1.0,0.8,3.0),gate,doneAction:2);
  8.     //keyboard tracking filter cutoff
  9.     filter = BLowPass4.ar(pulse,(cutoff*(env.squared))+200+freq,rq);
  10.     Out.ar(out,Pan2.ar(Mix(filter)*env*amp,pan));
  11. }).add;
  12. )
  13.  
  14. (
  15. Pbind(
  16.     \instrument,\everythingrhodes,
  17.  
  18.     \midinote, Pseq([
  19.         Pseq([[-8,-3,1]], 4),
  20.         [-8,-3,1], [-11,-4,-1], [-8,1,4], [13,18], [11,16],
  21.         Pseq([[8, 13], [11, 16], [13, 18], [11, 16]], 2),
  22.         [8, 13], [6, 11], [8, 13], [6, 11], [8, 13], [13, 18], [11, 16]
  23.     ]+60, inf),
  24.  
  25.     \dur,Pseq([
  26.         0.75, 0.50, 0.50, 0.25,
  27.         0.50, 0.50, 0.50, 0.25, 0.25,
  28.         Pseq([0.25], 8),
  29.         Pseq([0.26], 6), 0.5
  30.     ],inf),
  31.  
  32.     \cutoff,Pstutter(11,Pn(Pseries(500,500,4),inf)),
  33.     \legato, 0.5
  34. ).play(TempoClock(86/60))
  35. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement