plugin loading for supernova on win32
[supercollider.git] / examples / demonstrations / single_sample_feedback.scd
blobc29ab7f5fb96f4c8331c3f57c31ca72d905a5626
4 // single sample feedback
6 // a simple sawtooth
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;
24 // linear congruence
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;
42 // compare LinCongN and Duty
43 // plotting some..
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);
66 // put in a delay line and some amplitude modulation and couple stereo pairs
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;