pd/abs/no.pinknoise~.pd

#N canvas 558 152 470 341 10;
#X obj 12 78 noise~;
#X obj 121 94 *~ 0.099046;
#X text 149 72 b0;
#X text 267 73 b1;
#X text 367 72 b2;
#X obj 241 94 *~ 0.296516;
#X obj 341 94 *~ 1.05269;
#X obj 12 152 +~;
#X obj 12 173 +~;
#X obj 12 126 *~ 0.1848;
#X obj 12 194 +~;
#X obj 12 237 outlet~;
#X text 142 192 http://www.firstpr.com.au/dsp/pink-noise/;
#X obj 12 215 *~ 0.2;
#X obj 154 115 sig~ 0.99765;
#X obj 274 115 sig~ 0.963;
#X obj 374 115 sig~ 0.57;
#X obj 121 136 rpole~;
#X obj 241 136 rpole~;
#X obj 341 136 rpole~;
#X text 142 212 Paul Kellet's economy method:;
#X text 142 232 b0 = 0.99765 * b0 + white * 0.099046 \;;
#X text 142 252 b1 = 0.963 * b1 + white * 0.296516 \;;
#X text 142 272 b2 = 0.57 * b2 + white * 1.05269 \;;
#X text 142 292 tmp = b0 + b1 + b2 + white * 0.1848 \;;
#X text 12 257 (01) Output;
#X obj 48 31 inlet;
#X obj 48 52 t a b;
#X msg 75 120 clear;
#X text 48 11 (I1) Reset noise's seed and filter's state;
#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 17 0;
#X connect 5 0 18 0;
#X connect 6 0 19 0;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 9 0 7 0;
#X connect 10 0 13 0;
#X connect 13 0 11 0;
#X connect 14 0 17 1;
#X connect 15 0 18 1;
#X connect 16 0 19 1;
#X connect 17 0 7 1;
#X connect 18 0 8 1;
#X connect 19 0 10 1;
#X connect 26 0 27 0;
#X connect 27 0 0 0;
#X connect 27 1 28 0;
#X connect 28 0 17 0;
#X connect 28 0 19 0;
#X connect 28 0 18 0;