#N canvas 207 58 444 273 10;
#X text -83 -13 pd implementation of the method presented by 'viznut'
on the countercomplex-blog.;
#X obj -69 182 dac~;
#X obj -60 90 expr~ max(min($v1*(($v1>>12|$v1>>8)&63&$v1>>4) \, 1)
\, -1);
#X obj -60 124 hip~ 100;
#X obj -60 62 rpole~ 1;
#X obj -59 41 sig~ 1;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 0 1 1;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
