examples/demonstrations/DemandingStudies.scd

   1
   2 (
   3 SynthDef(\demanding, { arg impulsefreq = 10;
   4         var freq, trig, reset, seq1, seq2, signal;
   5         trig = Impulse.kr(impulsefreq);
   6         seq1 = Drand([72, 75, 79, 82] - 12, inf).midicps;
   7         seq2 = Dseq([72, 75, 79, Drand([82,84,86])], inf).midicps;
   8         freq = Demand.kr(trig, 0, [seq1, seq2]);
   9         signal = (SinOsc.ar(freq + [0,0.7]) + Saw.ar(freq + [0,0.7], 0.3)).distort.log.distort.cubed * 0.1;
  10
  11         Out.ar(0, signal);
  12 }).add;
  13 )
  14
  15
  16 x = Synth.new(\demanding)
  17
  18 x.set(\impulsefreq, 6)
  19 x.set(\impulsefreq, 4)
  20 x.set(\impulsefreq, 2)
  21 x.set(\impulsefreq, 1)