examples/demonstrations/single_sample_feedback.scd

   1
   2
   3
   4 // single sample feedback
   5
   6 // a simple sawtooth
   7
   8 (
   9 {
  10 var x, y, rate, a, c, m, b;
  11         b = LocalBuf(1);
  12         rate = MouseX.kr(100, SampleRate.ir);
  13         a = 0.1;
  14         c = 0.13;
  15         m = 1.0;
  16         x = Dbufrd(b); // read from buffer
  17         x = x + a;
  18         x = if(x > 1, 0, x);
  19         y = Dbufwr(x, b); // write to buffer
  20         Duty.ar(1 / rate, 0, y) * 0.1.dup;
  21 }.scope;
  22 )
  23
  24 // linear congruence
  25
  26 (
  27 {
  28 var x, y, rate, a, c, m, b;
  29         b = LocalBuf(1);
  30         rate = MouseX.kr(100, SampleRate.ir);
  31         a = 1.1;
  32         c = 0.13;
  33         m = 1.0;
  34         x = Dbufrd(b); // read from buffer
  35         x = x * a + c % m;
  36         y = Dbufwr(x, b); // write to buffer
  37         Duty.ar(1 / rate, 0, y) * 0.1.dup;
  38 }.scope;
  39 )
  40
  41
  42 // compare LinCongN and Duty
  43 // plotting some..
  44
  45
  46 (
  47 {
  48 var x, y, rate, a, c, m, u1, u2, b;
  49         b = LocalBuf(1);
  50         rate = SampleRate.ir / 32;
  51         a = 1.1;
  52         c = 0.13;
  53         m = 1.0;
  54         x = Dbufrd(b); // read from buffer
  55         x = x * a + c % m;
  56         y = Dbufwr(x, b); // write to buffer
  57         u1 = LinCongN.ar(rate, a, c, m);
  58         u2 = Duty.ar(1 / rate, 0, y);
  59
  60         // not exactly the same, but very similar. lincong uses doubles
  61         [u1, u2];
  62 }.plot(0.1);
  63 )
  64
  65
  66 // put in a delay line and some amplitude modulation and couple stereo pairs
  67 (
  68 {
  69 var x, y, rate, a, c, m, z, b;
  70         b = LocalBuf(1);
  71         rate = MouseX.kr(100, SampleRate.ir) * [1, 1.2];
  72         a = 1.1;
  73         c = 0.13;
  74         m = 1.0;
  75         x = Dbufrd(b); // read from buffer
  76         x = x * a + c % m;
  77         z = Duty.ar(1 / rate, 0, Dbufwr(x, b));// write to buffer
  78
  79         // insert a delay and some amplitude modulation
  80         z = LFSaw.ar(MouseY.kr(1, 10000, 1)) * z;
  81         z = DelayL.ar(z, 1, 1);
  82
  83         z = Duty.ar(1 / rate, 0, Dbufwr(z, b));// write to buffer
  84         z * 0.1;
  85 }.scope;
  86 )
  87
  88