-
Notifications
You must be signed in to change notification settings - Fork 5
/
hv.pinknoise~.pd
44 lines (44 loc) · 1.15 KB
/
hv.pinknoise~.pd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#N canvas 558 152 506 456 10;
#X obj 49 24 noise~;
#X obj 139 127 *~ 0.099046;
#X text 167 105 b0;
#X text 275 106 b1;
#X text 375 105 b2;
#X obj 249 127 *~ 0.296516;
#X obj 349 127 *~ 1.05269;
#X obj 50 228 +~;
#X obj 50 257 +~;
#X obj 49 127 *~ 0.1848;
#X obj 50 284 +~;
#X obj 50 416 outlet~;
#X text 151 340 b0 = 0.99765 * b0 + white * 0.099046 \;;
#X text 151 360 b1 = 0.963 * b1 + white * 0.296516 \;;
#X text 151 380 b2 = 0.57 * b2 + white * 1.05269 \;;
#X text 150 399 tmp = b0 + b1 + b2 + white * 0.1848 \;;
#X text 150 287 http://www.firstpr.com.au/dsp/pink-noise/;
#X text 150 316 Paul Kellet's economy method:;
#X obj 50 336 *~ 0.2;
#X obj 172 150 sig~ 0.99765;
#X obj 281 149 sig~ 0.963;
#X obj 382 149 sig~ 0.57;
#X obj 139 171 rpole~;
#X obj 249 171 rpole~;
#X obj 349 171 rpole~;
#X connect 0 0 1 0;
#X connect 0 0 5 0;
#X connect 0 0 6 0;
#X connect 0 0 9 0;
#X connect 1 0 22 0;
#X connect 5 0 23 0;
#X connect 6 0 24 0;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 9 0 7 0;
#X connect 10 0 18 0;
#X connect 18 0 11 0;
#X connect 19 0 22 1;
#X connect 20 0 23 1;
#X connect 21 0 24 1;
#X connect 22 0 7 1;
#X connect 23 0 8 1;
#X connect 24 0 10 1;