pasic equalizer problem - Pd-list

15 Jun 2004 · *~ 1; #X obj 198 266 *


      hi list
 . .i try to build a equalizer . . .but i got some problem.in neutral 
position the output isent linear
with a multipliation be -1 in one band it is better but not perfect . 
.but i dont understand the reasen . .
could please giving me a hand   . .?
thanx nos
#N canvas 284 276 582 514 10;
#N canvas 0 0 492 550 equalizer 1;
#X obj 24 6 inlet~;
#X obj 67 238 inlet;
#X obj 197 208 lop~;
#X obj 183 164 hip~;
#X obj 353 164 hip~;
#X obj 27 264 *~ 1;
#X obj 198 266 *~ 1;
#X obj 353 264 *~ 1;
#X obj 65 402 outlet~;
#X obj 239 236 inlet;
#X obj 389 234 inlet;
#X obj 197 228 lop~;
#X obj 183 184 hip~;
#X obj 353 184 hip~;
#X obj 27 214 lop~;
#X obj 27 234 lop~;
#X obj 421 82 loadbang;
#X msg 183 99 250;
#X msg 269 99 1500;
#X obj 183 184 hip~;
#X obj 248 318 +~;
#X obj 65 356 +~;
#X obj 155 119 f;
#X obj 303 119 f;
#X obj 24 34 s~ $0-input;
#X obj 28 132 r~ $0-input;
#X obj 184 132 r~ $0-input;
#X obj 353 132 r~ $0-input;
#X obj 252 286 *~ -1;
#X connect 0 0 24 0;
#X connect 1 0 5 1;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 3 0 19 0;
#X connect 4 0 13 0;
#X connect 5 0 21 0;
#X connect 6 0 20 0;
#X connect 7 0 20 1;
#X connect 9 0 6 1;
#X connect 10 0 7 1;
#X connect 11 0 6 0;
#X connect 13 0 7 0;
#X connect 14 0 15 0;
#X connect 15 0 5 0;
#X connect 16 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 22 0;
#X connect 18 0 23 0;
#X connect 19 0 2 0;
#X connect 20 0 21 1;
#X connect 21 0 8 0;
#X connect 22 0 14 1;
#X connect 22 0 15 1;
#X connect 22 0 3 1;
#X connect 22 0 12 1;
#X connect 23 0 2 1;
#X connect 23 0 11 1;
#X connect 23 0 4 1;
#X connect 23 0 13 1;
#X connect 25 0 14 0;
#X connect 26 0 3 0;
#X connect 27 0 4 0;
#X restore 178 164 pd equalizer;
#X obj 223 71 vsl 20 60 0 4 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 1475 1;
#X obj 259 70 vsl 20 60 0 4 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 1475 1;
#X obj 296 71 vsl 20 60 0 4 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 1475 1;
#X obj 84 58 noise~;
#N canvas 0 0 460 310 rfft 0;
#X obj 326 58 inlet~;
#X obj 326 112 rfft~;
#X obj 326 145 *~;
#X obj 357 145 *~;
#X obj 326 175 sqrt~;
#X obj 404 213 metro 200;
#X obj 1 213 tabwrite~ $0_spectrum;
#N canvas 0 0 452 302 graph1 0;
#X array $0_spectrum 128 float 0;
#X coords 0 200 128 0 128 100 1;
#X restore 168 9 graph;
#X obj 43 108 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -262144 -1
1 1;
#X floatatom 43 180 5 0 0 0 - - -;
#X obj 325 88 *~ 1;
#X obj 88 141 loadbang;
#X obj 325 35 block~ 1024 1;
#X msg 43 158 4;
#X msg 40 69 1;
#X obj 33 30 loadbang;
#X connect 0 0 10 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 1 1 3 0;
#X connect 1 1 3 1;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 8 0 5 0;
#X connect 9 0 10 1;
#X connect 10 0 1 0;
#X connect 11 0 13 0;
#X connect 13 0 9 0;
#X connect 14 0 8 0;
#X connect 15 0 14 0;
#X coords 0 0 1 1 200 140 1;
#X restore 178 260 pd rfft;
#X msg 363 51 1;
#X obj 106 112 *~;
#X obj 142 112 *~;
#X obj 16 160 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -262144 -1
0 1;
#X obj 42 278 expr 1 - $f1;
#X text 25 173 on = equalizer;
#X obj 396 22 loadbang;
#X obj 16 16 loadbang;
#X msg 13 45 1;
#X obj 400 123 osc~;
#X floatatom 424 93 5 0 0 0 - - -;
#X obj 398 196 *~ 0.7;
#X connect 0 0 5 0;
#X connect 1 0 0 1;
#X connect 2 0 0 2;
#X connect 3 0 0 3;
#X connect 4 0 7 0;
#X connect 4 0 8 0;
#X connect 6 0 3 0;
#X connect 6 0 2 0;
#X connect 6 0 1 0;
#X connect 7 0 5 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 7 1;
#X connect 12 0 6 0;
#X connect 13 0 14 0;
#X connect 14 0 9 0;
#X connect 15 0 17 0;
#X connect 16 0 15 0;