- Edited
It seems to work with this:
#N canvas 50 47 212 440 12;
#X obj 25 163 snapshot~;
#N canvas 1 67 450 300 LowPass 0;
#X obj 49 102 lop~ 10;
#X obj 49 138 lop~ 10;
#X obj 49 162 lop~ 10;
#X obj 50 72 inlet~;
#X obj 49 187 outlet~;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X restore 25 79 pd LowPass;
#X obj 25 198 int;
#X obj 25 260 / 1000;
#X obj 25 289 change;
#X obj 25 317 abs;
#X obj 25 351 pow 2;
#X obj 25 392 outlet;
#X obj 25 48 *~ 1200;
#X obj 25 226 clip 0 1000;
#X obj 113 92 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 113 68 loadbang;
#X obj 113 112 metro 20;
#X obj 25 18 adc~;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 9 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 12 0 0 0;
#X connect 13 0 8 0;
or, in a graphical mode:
[adc~ x]
|
[*~ 1200]
|
[pd LowPass (3x[lop~ 10])]
|
[snapshot~]β[metro 20]
|
[int]
|
[clip 0 1000]
|
[/ 1000]
|
[change]
|
[abs]
|
[pow 2]
|
[outlet]
If somebody have a correction or a better proposition...