[maxmsp] Allpass

Hi,
I tried to figure out, what allpass~ really does and tried to patch it with a tapin-tapout.

I thought it was what you see in the following patch. But somehow allpass~ doesn't react exactly the same.

Do you know why?

Kind regards - ATH

#N vpreset 1;
#X append 1 2 4 59 155 toggle int 0 \; 11 234 232 number int 400 \; 14 239 141 flonum float 0.7 \; 16 300 166 flonum float 0.3 \; 26 269 563 flonum float 400. \; 27 270 649 flonum float;
#X append 1 2 0.7 \; 32 347 557 flonum float 1. \;;
#P preset 358 95 47 27;
#P window setfont Tahoma 10.;
#P window linecount 1;
#P message 265 451 14 431423498 2;
#P message 240 449 14 431423498 1;
#P newex 255 498 59 431423498 selector~ 2;
#P window setfont "Sans Serif" 9.;
#P flonum 557 347 35 9 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 477 339 41 196617 *~;
#P message 413 339 27 196617 stop;
#P message 341 339 65 196617 startwindow;
#P comment 598 350 28 196617 vol.;
#P flonum 649 270 35 9 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 563 269 50 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P comment 652 254 30 196617 gain;
#P comment 563 253 54 196617 delay Zeit;
#P comment 486 277 30 196617 input;
#P newex 477 250 38 196617 adc~ 1;
#P newex 477 295 107 196617 allpass~ 1000 30 0.5;
#P user ezdac~ 242 535 286 568 0;
#P outlet 117 493 15 0;
#P window setfont Tahoma 10.;
#P newex 117 452 34 431423498 *~ 1.;
#P newex 39 265 34 431423498 *~ 1.;
#P flonum 166 300 35 10 0 0 0 6583 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 166 279 27 431423498 !- 1.;
#P flonum 141 239 35 10 0. 1. 3 6583 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 205 331 34 431423498 *~ 1.;
#P newex 117 366 34 431423498 *~ 1.;
#P number 232 234 35 10 0 0 0 6583 0 0 0 221 221 221 222 222 222 0 0 0;
#P inlet 81 111 15 0;
#P newex 116 140 34 431423498 *~ 1.;
#P newex 117 403 34 431423498 *~ 1.;
#P window setfont "Sans Serif" 9.;
#P message 116 59 31 196617 open;
#N sfplay~  1 120960 0 ;
#P newobj 116 89 60 196617 sfplay~;
#P message 182 60 35 196617 loop 1;
#P toggle 155 59 15 0;
#P window setfont Tahoma 10.;
#P newex 205 265 64 431423498 tapout~ 200;
#P newex 205 196 62 431423498 tapin~ 1000;
#P comment 235 218 100 431423498 Zeit;
#P comment 141 219 52 431423498 Gain (LS);
#P fasten 8 0 17 0 122 431 20 431 20 252 44 252;
#P fasten 14 0 17 1 146 259 68 259;
#P connect 7 0 6 0;
#P connect 5 0 6 0;
#P connect 4 0 6 0;
#P connect 6 0 9 0;
#P connect 10 0 9 0;
#P connect 9 0 12 0;
#P connect 12 0 8 0;
#P connect 13 0 8 0;
#P connect 8 0 18 0;
#P connect 18 0 19 0;
#P connect 14 0 12 1;
#P connect 14 0 15 0;
#P connect 15 0 16 0;
#P fasten 17 0 2 0 44 293 97 293 97 176 210 176;
#P fasten 9 0 2 0 121 166 210 166;
#P fasten 2 0 3 0 210 239 210 239;
#P connect 11 0 3 0;
#P connect 3 0 13 0;
#P fasten 16 0 13 1 171 323 234 323;
#P connect 33 0 20 0;
#P connect 34 0 33 0;
#P connect 35 0 33 0;
#P connect 33 0 20 1;
#P connect 18 0 33 1;
#P connect 31 0 33 2;
#P fasten 6 0 21 0 121 129 482 129;
#P connect 21 0 31 0;
#P fasten 32 0 31 1 562 369 533 369 533 334 513 334;
#P connect 26 0 21 1;
#P connect 27 0 21 2;
#P window clipboard copycount 37;