Subject: MAX Digest - 14 Jun 1999 to 15 Jun 1999 - Special issue (#1999-180)
Date: Tue, 15 Jun 1999 10:58:01 -0400
From:
Automatic digest processor <LISTSERV@LISTS.MCGILL.CA>
Reply-To: MAX - Interactive Music/Multimedia Standard Environments <MAX@LISTS.MCGILL.CA>
To: Recipients of MAX digests <MAX@LISTS.MCGILL.CA>


There are 2 messages totalling 2407 lines in this issue.

Topics in this special issue:

  1. Max - Canon
  2. Karplus Strong & filters

----------------------------------------------------------------------

Date:Tue, 15 Jun 1999 08:33:08 +0200
From:Roby Steinmetzer <roby@ARTS.LU>
Subject: Re: Max - Canon

>
>I would like to know if anyone could send me (or tell me about) patches who
>can play canons.
>


There is a Canon patch by Robert Gibson on the Max3.5 CD in the Third Party
Examples folder.


Roby Steinmetzer
Luxembourg, Europe

------------------------------

Date:Tue, 15 Jun 1999 11:01:27 -0400
From:Neal Farwell <nfarwell@FAS.HARVARD.EDU>
Subject: Re: Karplus Strong & filters

--============_-1282663604==_ma============
Content-Type: text/plain; charset="us-ascii"

Long message ahead...

Since the attachment I sent may have been corrupted (or at least, you
needed Stuffit Expander 5.1) here are text versions of the SV_coeffs,
filter responser, and MultiKarp patches.

SV-coeffs has a small modification to the way Q is normalized:
for low/high pass the passband is flat and the response is down ~3dB at the
specified cutoff freq;
for band pass, the gain at the passband centre = Q

Neal


3 sections folowing:

============================================================

SV_coeffs

max v2;
#N vpatcher 11 45 745 594;
#N vpatcher 50 40 450 340;
#N comlet type of filter;


#P inlet 153 42 15 0;
#N comlet type # of filter;
#P outlet 196 250 15 0;
#N comlet Q normalizer;
#P outlet 82 250 15 0;
#P message 196 218 20 196617 \$1;
#P newex 153 93 125 196617 select low high band notch;
#P message 153 187 14 196617 1;
#P message 181 187 14 196617 2;
#P message 209 187 14 196617 3;
#P message 237 187 14 196617 4;
#P message 65 140 51 196617 set -1.36;
#P message 113 165 39 196617 set -1.;
#P user com 13 106 78 196617 8;
#K set 0 20768 28271 29293 24940 27002 24948 26991 28160;
#K end;
#P user com 13 142 45 196617 5;
#K set 0 26223 29216 27692 26668 28160;
#K end;
#P user com 13 167 35 196617 3;
#K set 0 26223 29216 25200;
#K end;
#P user com 216 251 95 196617 11;
#K set 0 11822 11892 28448 25455 25958 26144 29541 27749 25460 26991 28160;
#K end;
#P connect 11 0 13 0;
#P connect 10 3 5 0;
#P connect 10 0 5 0;
#P connect 10 1 5 0;
#P connect 10 2 4 0;
#P connect 10 0 9 0;
#P connect 10 1 8 0;
#P connect 10 2 7 0;
#P connect 10 3 6 0;
#P connect 14 0 10 0;
#P connect 9 0 11 0;
#P connect 8 0 11 0;
#P connect 7 0 11 0;
#P connect 6 0 11 0;
#P connect 5 0 12 0;
#P connect 4 0 12 0;
#P pop;
#P newobj 583 160 74 196617 p shape_select;
#P hidden message 343 56 24 196617 low;
#P hidden newex 328 31 45 196617 loadbang;
#P hidden message 370 56 23 196617 1.;
#P hidden message 317 56 23 196617 0.5;
#P newex 565 115 28 196617 t b s;
#N vpatcher 50 40 690 489;
#P user com 246 386 19 196617 1;
#K set 0 24882;
#K end;
#P user com 145 386 19 196617 1;
#K set 0 24881;
#K end;
#N comlet type;
#P inlet 466 45 15 0;
#P newex 271 86 32 196617 * -1.;
#P message 222 195 17 196617 0.;
#P message 303 220 17 196617 1.;
#P message 202 220 22 196617 -1.;
#P message 101 220 17 196617 1.;
#P newex 246 340 27 196617 * 0.;
#P newex 145 340 27 196617 * 0.;
#P newex 162 306 27 196617 * 2.;
#P newex 44 340 27 196617 * 0.;
#P newex 263 284 91 196617 switch 4;


#P newex 162 284 90 196617 switch 4;
#P newex 61 284 91 196617 switch 4;
#P newex 216 87 27 196617 - 1.;
#P newex 178 87 27 196617 + 1.;
#N comlet a2;
#P outlet 246 364 15 0;
#N comlet a1;
#P outlet 145 364 15 0;
#N comlet a0;
#P outlet 44 364 15 0;
#N comlet B;
#P inlet 323 45 15 0;
#N comlet B2;
#P inlet 153 45 15 0;
#N comlet g;
#P inlet 44 45 15 0;
#P user com 25 28 60 196617 6;
#K set 0 28021 27764 26992 27753 25970 8295;
#K end;
#P user com 152 28 20 196617 1;
#K set 0 16946;
#K end;
#P user com 325 28 14 196617 1;
#K set 0 16896;
#K end;
#P user com 44 386 19 196617 1;
#K set 0 24880;
#K end;
#P user com 442 28 75 196617 9;
#K set 0 29817 28773 8227 8303 26144 26217 27764 25970 8192;
#K end;
#P user com 382 312 165 196617 18;
#K set 0 21349 25888 28261 30836 8300 25974 25964 8309 28704 26223 29216
25976 28780 24942 24948 26991 28206 11822;
#K end;
#P comment 381 344 170 196617 There's probably a neater way to do this -
but it's fairly efficient computationally.;
#P fasten 26 0 15 3 276 162 126 162;
#P connect 25 0 16 3;
#P connect 21 0 12 0;
#P fasten 27 0 15 0 471 266 66 266;
#P fasten 27 0 16 0 471 266 167 266;
#P fasten 27 0 17 0 471 266 268 266;
#P connect 19 0 20 1;
#P connect 24 0 17 2;
#P connect 23 0 16 2;
#P connect 22 0 15 2;
#P connect 18 0 10 0;
#P connect 17 0 21 1;
#P connect 16 0 19 0;
#P connect 15 0 18 1;
#P fasten 14 0 16 4 221 115 247 115;
#P fasten 13 0 15 4 183 126 146 126;
#P fasten 13 0 17 4 183 126 348 126;
#P fasten 9 0 22 0 328 182 106 182;
#P fasten 9 0 23 0 328 182 207 182;
#P fasten 9 0 25 0 328 182 227 182;
#P connect 9 0 26 0;
#P fasten 9 0 24 0 328 182 308 182;
#P connect 9 0 17 3;
#P fasten 8 0 15 1 158 146 86 146;
#P connect 8 0 13 0;
#P fasten 8 0 16 1 158 146 187 146;
#P connect 8 0 14 0;
#P fasten 8 0 17 1 158 146 288 146;
#P connect 7 0 18 0;
#P fasten 7 0 20 0 49 331 150 331;


#P fasten 7 0 21 0 49 331 251 331;
#P connect 20 0 11 0;
#P pop;
#P newobj 219 412 55 196617 p a_coeffs;
#P user com 287 515 45 196617 4;
#K set 0 26408 16946 11057 10496;
#K end;
#P user com 228 515 50 196617 4;
#K set 0 12903 10306 12845 12585;
#K end;
#P user com 177 515 45 196617 4;
#K set 0 26408 16946 11057 10496;
#K end;
#P user com 184 501 24 196617 2;
#K set 0 11623 66;
#K end;
#P user com 243 501 14 196617 1;
#K set 0 12288;
#K end;
#P user com 297 501 19 196617 1;
#K set 0 26434;
#K end;
#P user com 299 487 13 196617 1;
#K set 0 26368;
#K end;
#P user com 238 487 24 196617 2;
#K set 0 11570 26368;
#K end;
#P user com 189 487 13 196617 1;
#K set 0 26368;
#K end;
#N comlet low \, high \, band \, notch;
#P inlet 565 87 15 0;
#P message 383 91 34 196617 -1.36;
#P newex 399 118 27 196617 / 1.;
#P newex 416 58 69 196617 maximum 0.1;
#N comlet 0 < Q \, 1 is flat;
#P inlet 416 33 15 0;
#P newex 219 119 139 196617 expr (1. - cos($f1))/sin($f1);
#P newex 219 99 55 196617 * 3.14159;
#P newex 219 79 78 196617 minimum 0.952;
#P newex 219 59 81 196617 maximum 0.002;
#N comlet 0 < freq < 1;
#P inlet 219 33 15 0;
#P flonum 399 151 35 9 0 0 0 3;
#P flonum 219 150 35 9 0 0 0 3;
#P button 382 254 15 0;
#P newex 365 376 27 196617 * 0.;
#P newex 382 304 27 196617 + 1.;
#P newex 382 284 27 196617 + 0.;
#P newex 308 299 27 196617 * 2.;
#P newex 291 376 27 196617 * 0.;
#P newex 308 279 27 196617 - 1.;
#P button 382 184 15 0;
#P newex 382 212 27 196617 * 0.;
#N comlet b2 for biquad~;
#P outlet 425 442 15 0;
#N comlet b1 for biquad~;
#P outlet 352 442 15 0;
#N comlet a2 for biquad~;
#P outlet 296 442 15 0;
#N comlet a1 for biquad~;
#P outlet 241 442 15 0;
#N comlet a0 for biquad~;
#P outlet 186 442 15 0;
#P newex 219 322 146 196617 expr 1./(1. - $f2 + $f1);
#P newex 219 212 27 196617 * 1.;


#P user com 199 152 14 196617 1;
#K set 0 16896;
#K end;
#P user com 440 152 21 196617 2;
#K set 0 11552 29184;
#K end;
#P user com 422 324 149 196617 16;
#K set 0 28021 27764 26992 27753 25970 14880 26400 15648 12591 10289 8235
8306 16928 11040 16946 10496;
#K end;
#P user com 186 459 19 196617 1;
#K set 0 24880;
#K end;
#P user com 241 459 19 196617 1;
#K set 0 24881;
#K end;
#P user com 296 459 19 196617 1;
#K set 0 24882;
#K end;
#P user com 352 459 19 196617 1;
#K set 0 25137;
#K end;
#P user com 425 459 19 196617 1;
#K set 0 25138;
#K end;
#P user com 184 473 25 196617 2;
#K set 0 26434 12800;
#K end;
#P user com 235 473 31 196617 2;
#K set 0 12903 16946;
#K end;
#P user com 294 473 25 196617 2;
#K set 0 26434 12800;
#K end;
#P user com 331 492 55 196617 5;
#K set 0 12903 10306 12832 11552 12585;
#K end;
#P user com 400 492 73 196617 7;
#K set 0 26408 12576 11552 29250 8235 8258 12841;
#K end;
#P comment 86 33 123 196617 0 < freq < 1 corresponds to 0 .. sr/2. Bounded
for stability: at sr=44.1kHz min = 44Hz \, max = 21kHz;
#P comment 496 32 116 196617 Q=1 gives flat \, unpeaked <1 gives softer
curve >1 gives resonance;
#P comment 11 203 158 196620 Emulation of analogue state-variable filter.;
#P comment 11 266 115 196620 Outlets are coefficients for biquad~;
#P user com 602 112 98 196617 10;
#K set 0 27759 30508 26729 26472 11362 24942 25644 28271 29795 26624;
#K end;
#P user com 602 131 92 196617 10;
#K set 0 25701 26209 30060 29728 26995 8300 28535 8304 24947 29440;
#K end;
#P user com 602 87 71 196617 8;
#K set 0 29817 28773 8303 26144 26217 27764 25970 14861;
#K end;
#P user com 116 473 45 196617 4;
#K set 0 27759 30496 28769 29555;
#K end;
#P user com 114 487 49 196617 5;
#K set 0 26729 26472 8304 24947 29440;
#K end;
#P user com 113 501 51 196617 5;
#K set 0 25185 28260 8304 24947 29440;
#K end;
#P user com 122 515 32 196617 3;
#K set 0 28271 29795 26624;
#K end;


#P comment 191 235 31 196617 B2 = B*B;
#P user com 11 383 125 196617 12;
#K set 0 28262 24946 30565 27756 16486 24947 11880 24946 30305 29284 11877
25717;
#K end;
#P user com 11 333 85 196620 6;
#K set 0 20069 24940 8262 24946 30565 27756;
#K end;
#P user com 11 351 119 196620 9;
#K set 0 30258 11296 19061 28261 8241 13612 8241 14649 14592;
#K end;
#P connect 45 0 36 0;
#P connect 45 0 35 1;
#P fasten 71 1 65 3 652 405 269 405;
#P fasten 71 0 54 0 588 187 482 187 482 85 388 85;
#P fasten 66 0 44 0 570 140 224 140;
#P fasten 66 0 52 0 570 140 489 140 489 53 421 53;
#P hidden fasten 70 0 66 0 348 111 570 111;
#P hidden connect 69 0 70 0;
#P hidden connect 69 0 67 0;
#P hidden connect 69 0 68 0;
#P hidden fasten 68 0 52 0 375 75 401 75 401 53 421 53;
#P hidden fasten 67 0 47 0 322 76 308 76 308 53 224 53;
#P connect 54 0 53 0;
#P connect 65 0 30 0;
#P connect 66 1 71 0;
#P connect 65 1 31 0;
#P connect 65 2 32 0;
#P connect 52 0 54 0;
#P connect 53 0 45 0;
#P connect 52 0 53 1;
#P connect 55 0 66 0;
#P connect 49 0 50 0;
#P connect 50 0 44 0;
#P connect 51 0 52 0;
#P connect 47 0 48 0;
#P connect 48 0 49 0;
#P connect 41 0 42 1;
#P connect 42 0 34 0;
#P connect 46 0 47 0;
#P connect 44 0 28 0;
#P connect 44 0 28 1;
#P connect 44 0 35 0;
#P fasten 44 0 65 2 254 197;
#P connect 43 0 40 0;
#P connect 40 0 41 0;
#P connect 39 0 38 1;
#P connect 38 0 33 0;
#P connect 37 0 39 0;
#P fasten 35 0 29 1 360 256;
#P connect 35 0 43 0;
#P fasten 35 0 40 1 404 246;
#P connect 29 0 65 0;
#P connect 29 0 38 0;
#P connect 29 0 42 0;
#P connect 36 0 29 0;
#P connect 36 0 35 0;
#P connect 28 0 29 0;
#P fasten 28 0 65 1 239 266;
#P connect 28 0 37 0;
#P connect 28 0 40 0;
#P pop;

============================================================

filter responser


max v2;
#N vpatcher 36 46 692 605;
#P message 289 272 26 196617 118;
#P newex 289 250 45 196617 loadbang;
#P flonum 242 519 35 9 0 0 0 3;
#P newex 109 215 132 196617 SV_coeffs;
#P message 264 187 32 196617 notch;
#P message 262 161 28 196617 band;
#P message 245 136 26 196617 high;
#P message 214 137 24 196617 low;
#P flonum 170 181 35 9 0 0 0 3;
#P newex 242 487 38 196617 / 500.;
#P user hslider 319 496 25 284 501 1 0 14;
#P newex 79 244 162 196617 biquad~ 0.11 0.23 0.11 0.84 0.31;
#B color 14;
#P newex 79 102 35 196617 ==~ 1;
#P message 482 248 51 196617 range 0 1;
#P newex 92 419 33 196617 sqrt~;
#P newex 111 388 27 196617 *~;
#P newex 73 388 27 196617 *~;
#P newex 79 353 89 196617 fft~ 2048 2048 0;
#P user gain~ 288 307 24 100 158 0 1.071519 7.94321 10.;
#P message 427 248 20 196617 16;
#P message 553 248 26 196617 128;
#P toggle 518 34 15 0;
#P user scope~ 324 301 896 483 16 3 128 0. 1. 0 0. 0 0.;
#P newex 324 62 74 196617 count~ 0 2048;
#P user ezdac~ 420 113 464 146 0;
#P user com 387 526 155 196617 17;
#K set 0 21364 24948 25901 22113 29289 24930 27749 8308 25971 29754 8294
26988 29797 29216 25461 29807 26214;
#K end;
#P user com 319 484 14 196617 1;
#K set 0 12288;
#K end;
#P user com 594 483 30 196617 2;
#K set 0 29554 12082;
#K end;
#P user com 178 160 14 196620 1;
#K set 0 20736;
#K end;
#P comment 27 100 43 196617 make impulse;
#P comment 17 353 48 196617 test response;
#P comment 241 353 32 196617 view scale;
#P comment 11 236 56 196617 the test>>>>> filter;
#P user com 537 35 43 196617 4;
#K set 0 28526 8239 8303 26214;
#K end;
#P user com 408 288 170 196617 18;
#K set 0 18720 30575 28260 25970 8296 28535 8308 28448 28001 27493 8308
26729 29472 27759 26415 27759 26414 11822;
#K end;
#P user com 31 22 169 196622 11;
#K set 0 26217 27764 25970 8306 25971 28783 28275 25888 29797 29556 25970;
#K end;
#P user com 31 45 91 196617 9;
#K set 0 20069 24940 8262 24946 30565 27756 8241 14649 14592;
#K end;
#P user com 31 62 125 196617 12;
#K set 0 28262 24946 30565 27756 16486 24947 11880 24946 30305 29284 11877
25717;
#K end;
#P connect 37 0 19 0;
#P connect 34 0 26 1;
#P connect 34 1 26 2;
#P connect 34 2 26 3;
#P connect 34 3 26 4;


#P connect 34 4 26 5;
#P connect 36 0 37 0;
#P connect 33 0 34 2;
#P connect 32 0 34 2;
#P connect 31 0 34 2;
#P connect 30 0 34 2;
#P connect 29 0 34 1;
#P fasten 28 0 34 0 174 530 8 530 8 193 114 193;
#P connect 28 0 35 0;
#P fasten 27 0 28 0 324 531 296 531 296 476 247 476;
#P connect 26 0 20 0;
#P connect 25 0 26 0;
#P connect 24 0 15 0;
#P fasten 23 0 19 0 97 452 276 452 276 293 293 293;
#P connect 22 0 23 0;
#P connect 21 0 23 0;
#P connect 20 0 21 0;
#P connect 20 0 21 1;
#P connect 20 1 22 0;
#P connect 20 1 22 1;
#P fasten 19 0 15 0 293 436 316 436 316 293 329 293;
#P connect 18 0 15 0;
#P connect 17 0 15 1;
#P fasten 16 0 14 0 329 49;
#P connect 16 0 13 0;
#P connect 16 0 18 0;
#P connect 16 0 24 0;
#P connect 16 0 17 0;
#P fasten 14 0 25 0 329 88 84 88;
#P pop;

============================================================

MultiKarp

max v2;
#N vpatcher 80 39 662 598;
#P hidden message 402 411 26 196617 100;
#P hidden message 368 411 29 196617 0.99;
#P hidden newex 382 379 45 196617 loadbang;
#P hidden newex 94 25 45 196617 loadbang;
#P hidden message 298 66 23 196617 0.5;
#P hidden message 309 40 26 196617 150;
#P hidden message 94 63 32 196617 2000;
#P message 452 440 28 196617 open;
#P newex 77 276 27 196617 * 5.;
#P message 55 111 35 196617 1000.;
#P newex 77 138 27 196617 / 1.;
#P newex 441 267 27 196617 + 1.;
#P newex 381 267 27 196617 + 1.;
#P newex 321 267 27 196617 + 1.;
#P newex 259 267 32 196617 + 10.;
#P number 94 83 58 9 20 3400 3 3;
#P message 33 177 31 196617 clear;
#P toggle 183 37 15 0;
#P number 228 36 35 9 0 0 0 3;
#P newex 183 61 55 196617 metro 500;
#P flonum 368 465 41 9 0 0 0 3;
#P newex 322 504 33 196617 *~ 0.;
#P user ezdac~ 470 473 514 506 0;
#P user gain~ 485 331 24 100 158 0 1.071519 7.94321 10.;
#P newex 183 136 44 196617 change~;
#P newex 183 111 27 196617 sig~;
#P toggle 183 87 15 0;
#N vpatcher 226 251 626 551;
#P outlet 116 209 13 0;
#P inlet 116 85 15 0;


#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;
#P newex 147 127 27 196617 r a0;
#P newex 178 127 27 196617 r a1;
#P newex 209 127 27 196617 r a2;
#P newex 240 127 27 196617 r b1;
#P newex 271 127 27 196617 r b2;
#P connect 6 0 5 0;
#P connect 5 0 7 0;
#P connect 4 0 5 1;
#P connect 3 0 5 2;
#P connect 2 0 5 3;
#P connect 1 0 5 4;
#P connect 0 0 5 5;
#P pop;
#P newobj 322 478 26 196617 p f~;
#N vpatcher 226 251 626 551;
#P outlet 116 209 13 0;
#P inlet 116 85 15 0;
#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;
#P newex 147 127 27 196617 r a0;
#P newex 178 127 27 196617 r a1;
#P newex 209 127 27 196617 r a2;
#P newex 240 127 27 196617 r b1;
#P newex 271 127 27 196617 r b2;
#P connect 6 0 5 0;
#P connect 5 0 7 0;
#P connect 4 0 5 1;
#P connect 3 0 5 2;
#P connect 2 0 5 3;
#P connect 1 0 5 4;
#P connect 0 0 5 5;
#P pop;
#P newobj 322 458 26 196617 p f~;
#N vpatcher 226 251 626 551;
#P outlet 116 209 13 0;
#P inlet 116 85 15 0;
#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;
#P newex 147 127 27 196617 r a0;
#P newex 178 127 27 196617 r a1;
#P newex 209 127 27 196617 r a2;
#P newex 240 127 27 196617 r b1;
#P newex 271 127 27 196617 r b2;
#P connect 6 0 5 0;
#P connect 5 0 7 0;
#P connect 4 0 5 1;
#P connect 3 0 5 2;
#P connect 2 0 5 3;
#P connect 1 0 5 4;
#P connect 0 0 5 5;
#P pop;
#P newobj 322 438 26 196617 p f~;
#N vpatcher 226 251 626 551;
#P outlet 116 209 13 0;
#P inlet 116 85 15 0;
#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;
#P newex 147 127 27 196617 r a0;
#P newex 178 127 27 196617 r a1;
#P newex 209 127 27 196617 r a2;
#P newex 240 127 27 196617 r b1;
#P newex 271 127 27 196617 r b2;
#P connect 6 0 5 0;
#P connect 5 0 7 0;
#P connect 4 0 5 1;
#P connect 3 0 5 2;
#P connect 2 0 5 3;
#P connect 1 0 5 4;
#P connect 0 0 5 5;


#P pop;
#P newobj 322 418 26 196617 p f~;
#N vpatcher 226 251 626 551;
#P outlet 116 209 13 0;
#P inlet 116 85 15 0;
#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;
#P newex 147 127 27 196617 r a0;
#P newex 178 127 27 196617 r a1;
#P newex 209 127 27 196617 r a2;
#P newex 240 127 27 196617 r b1;
#P newex 271 127 27 196617 r b2;
#P connect 6 0 5 0;
#P connect 5 0 7 0;
#P connect 4 0 5 1;
#P connect 3 0 5 2;
#P connect 2 0 5 3;
#P connect 1 0 5 4;
#P connect 0 0 5 5;
#P pop;
#P newobj 322 398 26 196617 p f~;
#P newex 322 370 51 196617 tapout~ 5;
#P newex 322 338 55 196617 tapin~ 600;
#N vpatcher 226 251 626 551;
#P outlet 116 209 13 0;
#P inlet 116 85 15 0;
#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;
#P newex 147 127 27 196617 r a0;
#P newex 178 127 27 196617 r a1;
#P newex 209 127 27 196617 r a2;
#P newex 240 127 27 196617 r b1;
#P newex 271 127 27 196617 r b2;
#P connect 6 0 5 0;
#P connect 5 0 7 0;
#P connect 4 0 5 1;
#P connect 3 0 5 2;
#P connect 2 0 5 3;
#P connect 1 0 5 4;
#P connect 0 0 5 5;
#P pop;
#P newobj 427 172 26 196617 p f~;
#N vpatcher 226 251 626 551;
#P outlet 116 209 13 0;
#P inlet 116 85 15 0;
#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;
#P newex 147 127 27 196617 r a0;
#P newex 178 127 27 196617 r a1;
#P newex 209 127 27 196617 r a2;
#P newex 240 127 27 196617 r b1;
#P newex 271 127 27 196617 r b2;
#P connect 6 0 5 0;
#P connect 5 0 7 0;
#P connect 4 0 5 1;
#P connect 3 0 5 2;
#P connect 2 0 5 3;
#P connect 1 0 5 4;
#P connect 0 0 5 5;
#P pop;
#P newobj 366 172 26 196617 p f~;
#N vpatcher 226 251 626 551;
#P outlet 116 209 13 0;
#P inlet 116 85 15 0;
#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;
#P newex 147 127 27 196617 r a0;
#P newex 178 127 27 196617 r a1;
#P newex 209 127 27 196617 r a2;
#P newex 240 127 27 196617 r b1;
#P newex 271 127 27 196617 r b2;


#P connect 6 0 5 0;
#P connect 5 0 7 0;
#P connect 4 0 5 1;
#P connect 3 0 5 2;
#P connect 2 0 5 3;
#P connect 1 0 5 4;
#P connect 0 0 5 5;
#P pop;
#P newobj 305 172 26 196617 p f~;
#N vpatcher 226 251 626 551;
#P outlet 116 209 13 0;
#P inlet 116 85 15 0;
#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;
#P newex 147 127 27 196617 r a0;
#P newex 178 127 27 196617 r a1;
#P newex 209 127 27 196617 r a2;
#P newex 240 127 27 196617 r b1;
#P newex 271 127 27 196617 r b2;
#P connect 6 0 5 0;
#P connect 5 0 7 0;
#P connect 4 0 5 1;
#P connect 3 0 5 2;
#P connect 2 0 5 3;
#P connect 1 0 5 4;
#P connect 0 0 5 5;
#P pop;
#P newobj 244 172 26 196617 p f~;
#P newex 427 293 55 196617 tapout~ 14;
#P newex 427 218 55 196617 tapin~ 100;
#P newex 366 218 55 196617 tapin~ 100;
#P newex 366 293 55 196617 tapout~ 13;
#P newex 305 293 55 196617 tapout~ 12;
#P newex 305 218 55 196617 tapin~ 100;
#P newex 244 218 55 196617 tapin~ 100;
#P newex 244 293 55 196617 tapout~ 11;
#P newex 183 293 55 196617 tapout~ 10;
#P newex 183 218 55 196617 tapin~ 100;
#P newex 474 118 27 196617 s b2;
#P newex 443 118 27 196617 s b1;
#P newex 412 118 27 196617 s a2;
#P newex 381 118 27 196617 s a1;
#P newex 350 118 27 196617 s a0;
#P newex 350 68 38 196617 / 200.;
#P user hslider 350 36 23 187 200 1 0 0;
#P flonum 412 68 35 9 0 0 0 3;
#P newex 350 91 135 196617 SV_coeffs;
#P comment 222 97 55 196617 ping with an impulse;
#P user com 469 61 65 196617 7;
#K set 0 26217 27764 25970 14880 25461 29807 26214;
#K end;
#P user com 449 69 14 196617 1;
#K set 0 20736;
#K end;
#P user com 10 85 82 196617 8;
#K set 0 26229 28260 24941 25966 29793 27680 12104 31232;
#K end;
#P user com 164 23 53 196617 5;
#K set 0 25976 25449 29793 29801 28526;
#K end;
#P user com 366 451 45 196617 4;
#K set 0 26213 25956 25185 25451;
#K end;
#P user com 509 389 40 196617 3;
#K set 0 30319 27765 28005;
#K end;
#P user com 12 380 75 196622 5;
#K set 0 19829 27764 26955 24946 28672;


#K end;
#P user com 12 404 200 196617 21;
#K set 0 29545 25701 11635 29797 28784 26990 26400 29793 28777 28207 28533
29735 29472 28009 28265 28021 27936 25701 27745 31022 11822;
#K end;
#P user com 12 432 198 196617 20;
#K set 0 16997 30561 29285 14880 28271 8295 30049 29284 29472 24935 24937
28275 29728 19535 21828 8294 25957 25698 24931 27438;
#K end;
#P user com 12 449 251 196617 26;
#K set 0 16756 8307 28525 25888 26229 28260 24941 25966 29793 27763 11296
24864 26229 28260 12085 8291 28525 28783 28261 28276 8297 29472 24949 25705
25196 25902;
#K end;
#P user com 12 466 120 196617 13;
#K set 0 18804 10099 8298 30067 29728 24942 8293 30832 25970 26989 25966
29742 11822;
#K end;
#P user com 12 493 91 196617 9;
#K set 0 20069 24940 8262 24946 30565 27756 8241 14649 14592;
#K end;
#P user com 12 508 125 196617 12;
#K set 0 28262 24946 30565 27756 16486 24947 11880 24946 30305 29284 11877
25717;
#K end;
#P hidden fasten 70 0 47 0 407 433 454 433 454 318 490 318;
#P hidden fasten 67 0 66 0 99 55 303 55;
#P hidden connect 67 0 64 0;
#P hidden fasten 67 0 65 0 99 55 287 55 287 30 314 30;
#P connect 55 0 61 0;
#P connect 55 0 60 1;
#P hidden connect 68 0 69 0;
#P hidden connect 68 0 70 0;
#P hidden connect 69 0 50 0;
#P fasten 62 0 38 0 82 362 327 362;
#P hidden connect 66 0 15 0;
#P hidden connect 65 0 16 0;
#P hidden connect 64 0 55 0;
#P connect 63 0 48 0;
#P connect 61 0 60 0;
#P fasten 54 0 23 0 38 208 188 208;
#P fasten 54 0 26 0 38 208 249 208;
#P fasten 54 0 27 0 38 209 310 209;
#P fasten 54 0 37 0 38 321 327 321;
#P fasten 54 0 30 0 38 209 371 209;
#P fasten 54 0 31 0 38 208 432 208;
#P connect 44 0 45 0;
#P connect 53 0 51 0;
#P connect 60 0 54 0;
#P connect 60 0 62 0;
#P fasten 60 0 56 0 82 247 264 247;
#P fasten 60 0 57 1 82 246 343 246;
#P fasten 60 0 58 1 82 247 403 247;
#P fasten 60 0 59 1 82 246 463 246;
#P connect 58 0 29 0;
#P fasten 58 0 59 0 386 288 417 288 417 258 446 258;
#P connect 56 0 25 0;
#P fasten 56 0 57 0 264 288 295 288 295 258 326 258;
#P fasten 49 0 37 0 327 527 218 527 218 321 327 321;
#P connect 46 0 23 0;
#P fasten 46 0 33 0 188 163 249 163;
#P connect 45 0 46 0;
#P connect 59 0 32 0;
#P connect 57 0 28 0;
#P fasten 57 0 58 0 326 288 357 288 357 258 386 258;
#P connect 51 0 44 0;
#P connect 43 0 49 0;


#P fasten 43 0 47 0 327 500 431 500 431 322 490 322;
#P connect 52 0 51 1;
#P connect 50 0 49 1;
#P connect 42 0 43 0;
#P connect 15 0 14 1;
#P connect 16 0 17 0;
#P connect 40 0 41 0;
#P connect 41 0 42 0;
#P connect 47 0 48 0;
#P connect 47 0 48 1;
#P connect 39 0 40 0;
#P connect 38 0 39 0;
#P connect 37 0 38 0;
#P connect 35 0 30 0;
#P connect 36 0 31 0;
#P fasten 35 0 36 0 371 196 409 196 409 161 432 161;
#P connect 34 0 27 0;
#P fasten 34 0 35 0 310 196 347 196 347 163 371 163;
#P fasten 33 0 34 0 249 198 288 198 288 163 310 163;
#P connect 33 0 26 0;
#P connect 32 0 37 0;
#P connect 31 0 32 0;
#P connect 30 0 29 0;
#P connect 28 0 37 0;
#P connect 29 0 37 0;
#P connect 27 0 28 0;
#P connect 26 0 25 0;
#P connect 25 0 37 0;
#P connect 24 0 37 0;
#P connect 23 0 24 0;
#P connect 17 0 14 0;
#P connect 14 1 19 0;
#P connect 14 0 18 0;
#P connect 14 2 20 0;
#P connect 14 3 21 0;
#P connect 14 4 22 0;
#P pop;

============================================================
--============_-1282663604==_ma============
Content-Type: text/enriched; charset="us-ascii"

Long message ahead...


Since the attachment I sent may have been corrupted (or at least, you
needed Stuffit Expander 5.1) here are text versions of the SV_coeffs,
filter responser, and MultiKarp patches.


SV-coeffs has a small modification to the way Q is normalized:

for low/high pass the passband is flat and the response is down ~3dB at
the specified cutoff freq;

for band pass, the gain at the passband centre = Q


Neal


3 sections folowing:


============================================================


SV_coeffs


<fontfamily><param>Geneva</param>max v2;

#N vpatcher 11 45 745 594;

#N vpatcher 50 40 450 340;

#N comlet type of filter;

#P inlet 153 42 15 0;

#N comlet type # of filter;

#P outlet 196 250 15 0;

#N comlet Q normalizer;

#P outlet 82 250 15 0;

#P message 196 218 20 196617 \$1;

#P newex 153 93 125 196617 select low high band notch;

#P message 153 187 14 196617 1;

#P message 181 187 14 196617 2;

#P message 209 187 14 196617 3;

#P message 237 187 14 196617 4;

#P message 65 140 51 196617 set -1.36;

#P message 113 165 39 196617 set -1.;

#P user com 13 106 78 196617 8;

#K set 0 20768 28271 29293 24940 27002 24948 26991 28160;

#K end;

#P user com 13 142 45 196617 5;

#K set 0 26223 29216 27692 26668 28160;

#K end;

#P user com 13 167 35 196617 3;

#K set 0 26223 29216 25200;

#K end;

#P user com 216 251 95 196617 11;

#K set 0 11822 11892 28448 25455 25958 26144 29541 27749 25460 26991
28160;

#K end;

#P connect 11 0 13 0;

#P connect 10 3 5 0;


#P connect 10 0 5 0;

#P connect 10 1 5 0;

#P connect 10 2 4 0;

#P connect 10 0 9 0;

#P connect 10 1 8 0;

#P connect 10 2 7 0;

#P connect 10 3 6 0;

#P connect 14 0 10 0;

#P connect 9 0 11 0;

#P connect 8 0 11 0;

#P connect 7 0 11 0;

#P connect 6 0 11 0;

#P connect 5 0 12 0;

#P connect 4 0 12 0;

#P pop;

#P newobj 583 160 74 196617 p shape_select;

#P hidden message 343 56 24 196617 low;

#P hidden newex 328 31 45 196617 loadbang;

#P hidden message 370 56 23 196617 1.;

#P hidden message 317 56 23 196617 0.5;

#P newex 565 115 28 196617 t b s;

#N vpatcher 50 40 690 489;

#P user com 246 386 19 196617 1;

#K set 0 24882;

#K end;

#P user com 145 386 19 196617 1;

#K set 0 24881;

#K end;

#N comlet type;

#P inlet 466 45 15 0;

#P newex 271 86 32 196617 * -1.;

#P message 222 195 17 196617 0.;

#P message 303 220 17 196617 1.;

#P message 202 220 22 196617 -1.;


#P message 101 220 17 196617 1.;

#P newex 246 340 27 196617 * 0.;

#P newex 145 340 27 196617 * 0.;

#P newex 162 306 27 196617 * 2.;

#P newex 44 340 27 196617 * 0.;

#P newex 263 284 91 196617 switch 4;

#P newex 162 284 90 196617 switch 4;

#P newex 61 284 91 196617 switch 4;

#P newex 216 87 27 196617 - 1.;

#P newex 178 87 27 196617 + 1.;

#N comlet a2;

#P outlet 246 364 15 0;

#N comlet a1;

#P outlet 145 364 15 0;

#N comlet a0;

#P outlet 44 364 15 0;

#N comlet B;

#P inlet 323 45 15 0;

#N comlet B2;

#P inlet 153 45 15 0;

#N comlet g;

#P inlet 44 45 15 0;

#P user com 25 28 60 196617 6;

#K set 0 28021 27764 26992 27753 25970 8295;

#K end;

#P user com 152 28 20 196617 1;

#K set 0 16946;

#K end;

#P user com 325 28 14 196617 1;

#K set 0 16896;

#K end;

#P user com 44 386 19 196617 1;

#K set 0 24880;


#K end;

#P user com 442 28 75 196617 9;

#K set 0 29817 28773 8227 8303 26144 26217 27764 25970 8192;

#K end;

#P user com 382 312 165 196617 18;

#K set 0 21349 25888 28261 30836 8300 25974 25964 8309 28704 26223
29216 25976 28780 24942 24948 26991 28206 11822;

#K end;

#P comment 381 344 170 196617 There's probably a neater way to do this
- but it's fairly efficient computationally.;

#P fasten 26 0 15 3 276 162 126 162;

#P connect 25 0 16 3;

#P connect 21 0 12 0;

#P fasten 27 0 15 0 471 266 66 266;

#P fasten 27 0 16 0 471 266 167 266;

#P fasten 27 0 17 0 471 266 268 266;

#P connect 19 0 20 1;

#P connect 24 0 17 2;

#P connect 23 0 16 2;

#P connect 22 0 15 2;

#P connect 18 0 10 0;

#P connect 17 0 21 1;

#P connect 16 0 19 0;

#P connect 15 0 18 1;

#P fasten 14 0 16 4 221 115 247 115;

#P fasten 13 0 15 4 183 126 146 126;

#P fasten 13 0 17 4 183 126 348 126;

#P fasten 9 0 22 0 328 182 106 182;

#P fasten 9 0 23 0 328 182 207 182;

#P fasten 9 0 25 0 328 182 227 182;

#P connect 9 0 26 0;

#P fasten 9 0 24 0 328 182 308 182;

#P connect 9 0 17 3;

#P fasten 8 0 15 1 158 146 86 146;

#P connect 8 0 13 0;


#P fasten 8 0 16 1 158 146 187 146;

#P connect 8 0 14 0;

#P fasten 8 0 17 1 158 146 288 146;

#P connect 7 0 18 0;

#P fasten 7 0 20 0 49 331 150 331;

#P fasten 7 0 21 0 49 331 251 331;

#P connect 20 0 11 0;

#P pop;

#P newobj 219 412 55 196617 p a_coeffs;

#P user com 287 515 45 196617 4;

#K set 0 26408 16946 11057 10496;

#K end;

#P user com 228 515 50 196617 4;

#K set 0 12903 10306 12845 12585;

#K end;

#P user com 177 515 45 196617 4;

#K set 0 26408 16946 11057 10496;

#K end;

#P user com 184 501 24 196617 2;

#K set 0 11623 66;

#K end;

#P user com 243 501 14 196617 1;

#K set 0 12288;

#K end;

#P user com 297 501 19 196617 1;

#K set 0 26434;

#K end;

#P user com 299 487 13 196617 1;

#K set 0 26368;

#K end;

#P user com 238 487 24 196617 2;

#K set 0 11570 26368;

#K end;


#P user com 189 487 13 196617 1;

#K set 0 26368;

#K end;

#N comlet low \, high \, band \, notch;

#P inlet 565 87 15 0;

#P message 383 91 34 196617 -1.36;

#P newex 399 118 27 196617 / 1.;

#P newex 416 58 69 196617 maximum 0.1;

#N comlet 0 << Q \, 1 is flat;

#P inlet 416 33 15 0;

#P newex 219 119 139 196617 expr (1. - cos($f1))/sin($f1);

#P newex 219 99 55 196617 * 3.14159;

#P newex 219 79 78 196617 minimum 0.952;

#P newex 219 59 81 196617 maximum 0.002;

#N comlet 0 << freq << 1;

#P inlet 219 33 15 0;

#P flonum 399 151 35 9 0 0 0 3;

#P flonum 219 150 35 9 0 0 0 3;

#P button 382 254 15 0;

#P newex 365 376 27 196617 * 0.;

#P newex 382 304 27 196617 + 1.;

#P newex 382 284 27 196617 + 0.;

#P newex 308 299 27 196617 * 2.;

#P newex 291 376 27 196617 * 0.;

#P newex 308 279 27 196617 - 1.;

#P button 382 184 15 0;

#P newex 382 212 27 196617 * 0.;

#N comlet b2 for biquad~;

#P outlet 425 442 15 0;

#N comlet b1 for biquad~;

#P outlet 352 442 15 0;

#N comlet a2 for biquad~;

#P outlet 296 442 15 0;

#N comlet a1 for biquad~;


#P outlet 241 442 15 0;

#N comlet a0 for biquad~;

#P outlet 186 442 15 0;

#P newex 219 322 146 196617 expr 1./(1. - $f2 + $f1);

#P newex 219 212 27 196617 * 1.;

#P user com 199 152 14 196617 1;

#K set 0 16896;

#K end;

#P user com 440 152 21 196617 2;

#K set 0 11552 29184;

#K end;

#P user com 422 324 149 196617 16;

#K set 0 28021 27764 26992 27753 25970 14880 26400 15648 12591 10289
8235 8306 16928 11040 16946 10496;

#K end;

#P user com 186 459 19 196617 1;

#K set 0 24880;

#K end;

#P user com 241 459 19 196617 1;

#K set 0 24881;

#K end;

#P user com 296 459 19 196617 1;

#K set 0 24882;

#K end;

#P user com 352 459 19 196617 1;

#K set 0 25137;

#K end;

#P user com 425 459 19 196617 1;

#K set 0 25138;

#K end;

#P user com 184 473 25 196617 2;

#K set 0 26434 12800;

#K end;

#P user com 235 473 31 196617 2;


#K set 0 12903 16946;

#K end;

#P user com 294 473 25 196617 2;

#K set 0 26434 12800;

#K end;

#P user com 331 492 55 196617 5;

#K set 0 12903 10306 12832 11552 12585;

#K end;

#P user com 400 492 73 196617 7;

#K set 0 26408 12576 11552 29250 8235 8258 12841;

#K end;

#P comment 86 33 123 196617 0 << freq << 1 corresponds to 0 .. sr/2.
Bounded for stability: at sr=44.1kHz min = 44Hz \, max = 21kHz;

#P comment 496 32 116 196617 Q=1 gives flat \, unpeaked <<1 gives
softer curve >1 gives resonance;

#P comment 11 203 158 196620 Emulation of analogue state-variable
filter.;

#P comment 11 266 115 196620 Outlets are coefficients for biquad~;

#P user com 602 112 98 196617 10;

#K set 0 27759 30508 26729 26472 11362 24942 25644 28271 29795 26624;

#K end;

#P user com 602 131 92 196617 10;

#K set 0 25701 26209 30060 29728 26995 8300 28535 8304 24947 29440;

#K end;

#P user com 602 87 71 196617 8;

#K set 0 29817 28773 8303 26144 26217 27764 25970 14861;

#K end;

#P user com 116 473 45 196617 4;

#K set 0 27759 30496 28769 29555;

#K end;

#P user com 114 487 49 196617 5;

#K set 0 26729 26472 8304 24947 29440;

#K end;

#P user com 113 501 51 196617 5;

#K set 0 25185 28260 8304 24947 29440;


#K end;

#P user com 122 515 32 196617 3;

#K set 0 28271 29795 26624;

#K end;

#P comment 191 235 31 196617 B2 = B*B;

#P user com 11 383 125 196617 12;

#K set 0 28262 24946 30565 27756 16486 24947 11880 24946 30305 29284
11877 25717;

#K end;

#P user com 11 333 85 196620 6;

#K set 0 20069 24940 8262 24946 30565 27756;

#K end;

#P user com 11 351 119 196620 9;

#K set 0 30258 11296 19061 28261 8241 13612 8241 14649 14592;

#K end;

#P connect 45 0 36 0;

#P connect 45 0 35 1;

#P fasten 71 1 65 3 652 405 269 405;

#P fasten 71 0 54 0 588 187 482 187 482 85 388 85;

#P fasten 66 0 44 0 570 140 224 140;

#P fasten 66 0 52 0 570 140 489 140 489 53 421 53;

#P hidden fasten 70 0 66 0 348 111 570 111;

#P hidden connect 69 0 70 0;

#P hidden connect 69 0 67 0;

#P hidden connect 69 0 68 0;

#P hidden fasten 68 0 52 0 375 75 401 75 401 53 421 53;

#P hidden fasten 67 0 47 0 322 76 308 76 308 53 224 53;

#P connect 54 0 53 0;

#P connect 65 0 30 0;

#P connect 66 1 71 0;

#P connect 65 1 31 0;

#P connect 65 2 32 0;

#P connect 52 0 54 0;

#P connect 53 0 45 0;


#P connect 52 0 53 1;

#P connect 55 0 66 0;

#P connect 49 0 50 0;

#P connect 50 0 44 0;

#P connect 51 0 52 0;

#P connect 47 0 48 0;

#P connect 48 0 49 0;

#P connect 41 0 42 1;

#P connect 42 0 34 0;

#P connect 46 0 47 0;

#P connect 44 0 28 0;

#P connect 44 0 28 1;

#P connect 44 0 35 0;

#P fasten 44 0 65 2 254 197;

#P connect 43 0 40 0;

#P connect 40 0 41 0;

#P connect 39 0 38 1;

#P connect 38 0 33 0;

#P connect 37 0 39 0;

#P fasten 35 0 29 1 360 256;

#P connect 35 0 43 0;

#P fasten 35 0 40 1 404 246;

#P connect 29 0 65 0;

#P connect 29 0 38 0;

#P connect 29 0 42 0;

#P connect 36 0 29 0;

#P connect 36 0 35 0;

#P connect 28 0 29 0;

#P fasten 28 0 65 1 239 266;

#P connect 28 0 37 0;

#P connect 28 0 40 0;

#P pop;


</fontfamily>============================================================


<fontfamily><param>Geneva</param>filter responser


max v2;

#N vpatcher 36 46 692 605;

#P message 289 272 26 196617 118;

#P newex 289 250 45 196617 loadbang;

#P flonum 242 519 35 9 0 0 0 3;

#P newex 109 215 132 196617 SV_coeffs;

#P message 264 187 32 196617 notch;

#P message 262 161 28 196617 band;

#P message 245 136 26 196617 high;

#P message 214 137 24 196617 low;

#P flonum 170 181 35 9 0 0 0 3;

#P newex 242 487 38 196617 / 500.;

#P user hslider 319 496 25 284 501 1 0 14;

#P newex 79 244 162 196617 biquad~ 0.11 0.23 0.11 0.84 0.31;

#B color 14;

#P newex 79 102 35 196617 ==~ 1;

#P message 482 248 51 196617 range 0 1;

#P newex 92 419 33 196617 sqrt~;

#P newex 111 388 27 196617 *~;

#P newex 73 388 27 196617 *~;

#P newex 79 353 89 196617 fft~ 2048 2048 0;

#P user gain~ 288 307 24 100 158 0 1.071519 7.94321 10.;

#P message 427 248 20 196617 16;

#P message 553 248 26 196617 128;

#P toggle 518 34 15 0;

#P user scope~ 324 301 896 483 16 3 128 0. 1. 0 0. 0 0.;

#P newex 324 62 74 196617 count~ 0 2048;

#P user ezdac~ 420 113 464 146 0;

#P user com 387 526 155 196617 17;

#K set 0 21364 24948 25901 22113 29289 24930 27749 8308 25971 29754
8294 26988 29797 29216 25461 29807 26214;

#K end;


#P user com 319 484 14 196617 1;

#K set 0 12288;

#K end;

#P user com 594 483 30 196617 2;

#K set 0 29554 12082;

#K end;

#P user com 178 160 14 196620 1;

#K set 0 20736;

#K end;

#P comment 27 100 43 196617 make impulse;

#P comment 17 353 48 196617 test response;

#P comment 241 353 32 196617 view scale;

#P comment 11 236 56 196617 the test>>>>> filter;

#P user com 537 35 43 196617 4;

#K set 0 28526 8239 8303 26214;

#K end;

#P user com 408 288 170 196617 18;

#K set 0 18720 30575 28260 25970 8296 28535 8308 28448 28001 27493 8308
26729 29472 27759 26415 27759 26414 11822;

#K end;

#P user com 31 22 169 196622 11;

#K set 0 26217 27764 25970 8306 25971 28783 28275 25888 29797 29556
25970;

#K end;

#P user com 31 45 91 196617 9;

#K set 0 20069 24940 8262 24946 30565 27756 8241 14649 14592;

#K end;

#P user com 31 62 125 196617 12;

#K set 0 28262 24946 30565 27756 16486 24947 11880 24946 30305 29284
11877 25717;

#K end;

#P connect 37 0 19 0;

#P connect 34 0 26 1;

#P connect 34 1 26 2;

#P connect 34 2 26 3;


#P connect 34 3 26 4;

#P connect 34 4 26 5;

#P connect 36 0 37 0;

#P connect 33 0 34 2;

#P connect 32 0 34 2;

#P connect 31 0 34 2;

#P connect 30 0 34 2;

#P connect 29 0 34 1;

#P fasten 28 0 34 0 174 530 8 530 8 193 114 193;

#P connect 28 0 35 0;

#P fasten 27 0 28 0 324 531 296 531 296 476 247 476;

#P connect 26 0 20 0;

#P connect 25 0 26 0;

#P connect 24 0 15 0;

#P fasten 23 0 19 0 97 452 276 452 276 293 293 293;

#P connect 22 0 23 0;

#P connect 21 0 23 0;

#P connect 20 0 21 0;

#P connect 20 0 21 1;

#P connect 20 1 22 0;

#P connect 20 1 22 1;

#P fasten 19 0 15 0 293 436 316 436 316 293 329 293;

#P connect 18 0 15 0;

#P connect 17 0 15 1;

#P fasten 16 0 14 0 329 49;

#P connect 16 0 13 0;

#P connect 16 0 18 0;

#P connect 16 0 24 0;

#P connect 16 0 17 0;

#P fasten 14 0 25 0 329 88 84 88;

#P pop;


</fontfamily>============================================================


<fontfamily><param>Geneva</param>MultiKarp


max v2;

#N vpatcher 80 39 662 598;

#P hidden message 402 411 26 196617 100;

#P hidden message 368 411 29 196617 0.99;

#P hidden newex 382 379 45 196617 loadbang;

#P hidden newex 94 25 45 196617 loadbang;

#P hidden message 298 66 23 196617 0.5;

#P hidden message 309 40 26 196617 150;

#P hidden message 94 63 32 196617 2000;

#P message 452 440 28 196617 open;

#P newex 77 276 27 196617 * 5.;

#P message 55 111 35 196617 1000.;

#P newex 77 138 27 196617 / 1.;

#P newex 441 267 27 196617 + 1.;

#P newex 381 267 27 196617 + 1.;

#P newex 321 267 27 196617 + 1.;

#P newex 259 267 32 196617 + 10.;

#P number 94 83 58 9 20 3400 3 3;

#P message 33 177 31 196617 clear;

#P toggle 183 37 15 0;

#P number 228 36 35 9 0 0 0 3;

#P newex 183 61 55 196617 metro 500;

#P flonum 368 465 41 9 0 0 0 3;

#P newex 322 504 33 196617 *~ 0.;

#P user ezdac~ 470 473 514 506 0;

#P user gain~ 485 331 24 100 158 0 1.071519 7.94321 10.;

#P newex 183 136 44 196617 change~;

#P newex 183 111 27 196617 sig~;

#P toggle 183 87 15 0;

#N vpatcher 226 251 626 551;

#P outlet 116 209 13 0;

#P inlet 116 85 15 0;


#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;

#P newex 147 127 27 196617 r a0;

#P newex 178 127 27 196617 r a1;

#P newex 209 127 27 196617 r a2;

#P newex 240 127 27 196617 r b1;

#P newex 271 127 27 196617 r b2;

#P connect 6 0 5 0;

#P connect 5 0 7 0;

#P connect 4 0 5 1;

#P connect 3 0 5 2;

#P connect 2 0 5 3;

#P connect 1 0 5 4;

#P connect 0 0 5 5;

#P pop;

#P newobj 322 478 26 196617 p f~;

#N vpatcher 226 251 626 551;

#P outlet 116 209 13 0;

#P inlet 116 85 15 0;

#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;

#P newex 147 127 27 196617 r a0;

#P newex 178 127 27 196617 r a1;

#P newex 209 127 27 196617 r a2;

#P newex 240 127 27 196617 r b1;

#P newex 271 127 27 196617 r b2;

#P connect 6 0 5 0;

#P connect 5 0 7 0;

#P connect 4 0 5 1;

#P connect 3 0 5 2;

#P connect 2 0 5 3;

#P connect 1 0 5 4;

#P connect 0 0 5 5;

#P pop;

#P newobj 322 458 26 196617 p f~;

#N vpatcher 226 251 626 551;


#P outlet 116 209 13 0;

#P inlet 116 85 15 0;

#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;

#P newex 147 127 27 196617 r a0;

#P newex 178 127 27 196617 r a1;

#P newex 209 127 27 196617 r a2;

#P newex 240 127 27 196617 r b1;

#P newex 271 127 27 196617 r b2;

#P connect 6 0 5 0;

#P connect 5 0 7 0;

#P connect 4 0 5 1;

#P connect 3 0 5 2;

#P connect 2 0 5 3;

#P connect 1 0 5 4;

#P connect 0 0 5 5;

#P pop;

#P newobj 322 438 26 196617 p f~;

#N vpatcher 226 251 626 551;

#P outlet 116 209 13 0;

#P inlet 116 85 15 0;

#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;

#P newex 147 127 27 196617 r a0;

#P newex 178 127 27 196617 r a1;

#P newex 209 127 27 196617 r a2;

#P newex 240 127 27 196617 r b1;

#P newex 271 127 27 196617 r b2;

#P connect 6 0 5 0;

#P connect 5 0 7 0;

#P connect 4 0 5 1;

#P connect 3 0 5 2;

#P connect 2 0 5 3;

#P connect 1 0 5 4;

#P connect 0 0 5 5;


#P pop;

#P newobj 322 418 26 196617 p f~;

#N vpatcher 226 251 626 551;

#P outlet 116 209 13 0;

#P inlet 116 85 15 0;

#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;

#P newex 147 127 27 196617 r a0;

#P newex 178 127 27 196617 r a1;

#P newex 209 127 27 196617 r a2;

#P newex 240 127 27 196617 r b1;

#P newex 271 127 27 196617 r b2;

#P connect 6 0 5 0;

#P connect 5 0 7 0;

#P connect 4 0 5 1;

#P connect 3 0 5 2;

#P connect 2 0 5 3;

#P connect 1 0 5 4;

#P connect 0 0 5 5;

#P pop;

#P newobj 322 398 26 196617 p f~;

#P newex 322 370 51 196617 tapout~ 5;

#P newex 322 338 55 196617 tapin~ 600;

#N vpatcher 226 251 626 551;

#P outlet 116 209 13 0;

#P inlet 116 85 15 0;

#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;

#P newex 147 127 27 196617 r a0;

#P newex 178 127 27 196617 r a1;

#P newex 209 127 27 196617 r a2;

#P newex 240 127 27 196617 r b1;

#P newex 271 127 27 196617 r b2;

#P connect 6 0 5 0;

#P connect 5 0 7 0;

#P connect 4 0 5 1;


#P connect 3 0 5 2;

#P connect 2 0 5 3;

#P connect 1 0 5 4;

#P connect 0 0 5 5;

#P pop;

#P newobj 427 172 26 196617 p f~;

#N vpatcher 226 251 626 551;

#P outlet 116 209 13 0;

#P inlet 116 85 15 0;

#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;

#P newex 147 127 27 196617 r a0;

#P newex 178 127 27 196617 r a1;

#P newex 209 127 27 196617 r a2;

#P newex 240 127 27 196617 r b1;

#P newex 271 127 27 196617 r b2;

#P connect 6 0 5 0;

#P connect 5 0 7 0;

#P connect 4 0 5 1;

#P connect 3 0 5 2;

#P connect 2 0 5 3;

#P connect 1 0 5 4;

#P connect 0 0 5 5;

#P pop;

#P newobj 366 172 26 196617 p f~;

#N vpatcher 226 251 626 551;

#P outlet 116 209 13 0;

#P inlet 116 85 15 0;

#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;

#P newex 147 127 27 196617 r a0;

#P newex 178 127 27 196617 r a1;

#P newex 209 127 27 196617 r a2;

#P newex 240 127 27 196617 r b1;

#P newex 271 127 27 196617 r b2;


#P connect 6 0 5 0;

#P connect 5 0 7 0;

#P connect 4 0 5 1;

#P connect 3 0 5 2;

#P connect 2 0 5 3;

#P connect 1 0 5 4;

#P connect 0 0 5 5;

#P pop;

#P newobj 305 172 26 196617 p f~;

#N vpatcher 226 251 626 551;

#P outlet 116 209 13 0;

#P inlet 116 85 15 0;

#P newex 116 155 168 196617 biquad~ 0. 1. 0. 0. 0.;

#P newex 147 127 27 196617 r a0;

#P newex 178 127 27 196617 r a1;

#P newex 209 127 27 196617 r a2;

#P newex 240 127 27 196617 r b1;

#P newex 271 127 27 196617 r b2;

#P connect 6 0 5 0;

#P connect 5 0 7 0;

#P connect 4 0 5 1;

#P connect 3 0 5 2;

#P connect 2 0 5 3;

#P connect 1 0 5 4;

#P connect 0 0 5 5;

#P pop;

#P newobj 244 172 26 196617 p f~;

#P newex 427 293 55 196617 tapout~ 14;

#P newex 427 218 55 196617 tapin~ 100;

#P newex 366 218 55 196617 tapin~ 100;

#P newex 366 293 55 196617 tapout~ 13;

#P newex 305 293 55 196617 tapout~ 12;

#P newex 305 218 55 196617 tapin~ 100;

#P newex 244 218 55 196617 tapin~ 100;


#P newex 244 293 55 196617 tapout~ 11;

#P newex 183 293 55 196617 tapout~ 10;

#P newex 183 218 55 196617 tapin~ 100;

#P newex 474 118 27 196617 s b2;

#P newex 443 118 27 196617 s b1;

#P newex 412 118 27 196617 s a2;

#P newex 381 118 27 196617 s a1;

#P newex 350 118 27 196617 s a0;

#P newex 350 68 38 196617 / 200.;

#P user hslider 350 36 23 187 200 1 0 0;

#P flonum 412 68 35 9 0 0 0 3;

#P newex 350 91 135 196617 SV_coeffs;

#P comment 222 97 55 196617 ping with an impulse;

#P user com 469 61 65 196617 7;

#K set 0 26217 27764 25970 14880 25461 29807 26214;

#K end;

#P user com 449 69 14 196617 1;

#K set 0 20736;

#K end;

#P user com 10 85 82 196617 8;

#K set 0 26229 28260 24941 25966 29793 27680 12104 31232;

#K end;

#P user com 164 23 53 196617 5;

#K set 0 25976 25449 29793 29801 28526;

#K end;

#P user com 366 451 45 196617 4;

#K set 0 26213 25956 25185 25451;

#K end;

#P user com 509 389 40 196617 3;

#K set 0 30319 27765 28005;

#K end;

#P user com 12 380 75 196622 5;

#K set 0 19829 27764 26955 24946 28672;


#K end;

#P user com 12 404 200 196617 21;

#K set 0 29545 25701 11635 29797 28784 26990 26400 29793 28777 28207
28533 29735 29472 28009 28265 28021 27936 25701 27745 31022 11822;

#K end;

#P user com 12 432 198 196617 20;

#K set 0 16997 30561 29285 14880 28271 8295 30049 29284 29472 24935
24937 28275 29728 19535 21828 8294 25957 25698 24931 27438;

#K end;

#P user com 12 449 251 196617 26;

#K set 0 16756 8307 28525 25888 26229 28260 24941 25966 29793 27763
11296 24864 26229 28260 12085 8291 28525 28783 28261 28276 8297 29472
24949 25705 25196 25902;

#K end;

#P user com 12 466 120 196617 13;

#K set 0 18804 10099 8298 30067 29728 24942 8293 30832 25970 26989
25966 29742 11822;

#K end;

#P user com 12 493 91 196617 9;

#K set 0 20069 24940 8262 24946 30565 27756 8241 14649 14592;

#K end;

#P user com 12 508 125 196617 12;

#K set 0 28262 24946 30565 27756 16486 24947 11880 24946 30305 29284
11877 25717;

#K end;

#P hidden fasten 70 0 47 0 407 433 454 433 454 318 490 318;

#P hidden fasten 67 0 66 0 99 55 303 55;

#P hidden connect 67 0 64 0;

#P hidden fasten 67 0 65 0 99 55 287 55 287 30 314 30;

#P connect 55 0 61 0;

#P connect 55 0 60 1;

#P hidden connect 68 0 69 0;

#P hidden connect 68 0 70 0;

#P hidden connect 69 0 50 0;

#P fasten 62 0 38 0 82 362 327 362;

#P hidden connect 66 0 15 0;

#P hidden connect 65 0 16 0;


#P hidden connect 64 0 55 0;

#P connect 63 0 48 0;

#P connect 61 0 60 0;

#P fasten 54 0 23 0 38 208 188 208;

#P fasten 54 0 26 0 38 208 249 208;

#P fasten 54 0 27 0 38 209 310 209;

#P fasten 54 0 37 0 38 321 327 321;

#P fasten 54 0 30 0 38 209 371 209;

#P fasten 54 0 31 0 38 208 432 208;

#P connect 44 0 45 0;

#P connect 53 0 51 0;

#P connect 60 0 54 0;

#P connect 60 0 62 0;

#P fasten 60 0 56 0 82 247 264 247;

#P fasten 60 0 57 1 82 246 343 246;

#P fasten 60 0 58 1 82 247 403 247;

#P fasten 60 0 59 1 82 246 463 246;

#P connect 58 0 29 0;

#P fasten 58 0 59 0 386 288 417 288 417 258 446 258;

#P connect 56 0 25 0;

#P fasten 56 0 57 0 264 288 295 288 295 258 326 258;

#P fasten 49 0 37 0 327 527 218 527 218 321 327 321;

#P connect 46 0 23 0;

#P fasten 46 0 33 0 188 163 249 163;

#P connect 45 0 46 0;

#P connect 59 0 32 0;

#P connect 57 0 28 0;

#P fasten 57 0 58 0 326 288 357 288 357 258 386 258;

#P connect 51 0 44 0;

#P connect 43 0 49 0;

#P fasten 43 0 47 0 327 500 431 500 431 322 490 322;

#P connect 52 0 51 1;

#P connect 50 0 49 1;


#P connect 42 0 43 0;

#P connect 15 0 14 1;

#P connect 16 0 17 0;

#P connect 40 0 41 0;

#P connect 41 0 42 0;

#P connect 47 0 48 0;

#P connect 47 0 48 1;

#P connect 39 0 40 0;

#P connect 38 0 39 0;

#P connect 37 0 38 0;

#P connect 35 0 30 0;

#P connect 36 0 31 0;

#P fasten 35 0 36 0 371 196 409 196 409 161 432 161;

#P connect 34 0 27 0;

#P fasten 34 0 35 0 310 196 347 196 347 163 371 163;

#P fasten 33 0 34 0 249 198 288 198 288 163 310 163;

#P connect 33 0 26 0;

#P connect 32 0 37 0;

#P connect 31 0 32 0;

#P connect 30 0 29 0;

#P connect 28 0 37 0;

#P connect 29 0 37 0;

#P connect 27 0 28 0;

#P connect 26 0 25 0;

#P connect 25 0 37 0;

#P connect 24 0 37 0;

#P connect 23 0 24 0;

#P connect 17 0 14 0;

#P connect 14 1 19 0;

#P connect 14 0 18 0;

#P connect 14 2 20 0;

#P connect 14 3 21 0;

#P connect 14 4 22 0;

#P pop;


</fontfamily>============================================================

--============_-1282663604==_ma============--

------------------------------

End of MAX Digest - 14 Jun 1999 to 15 Jun 1999 - Special issue (#1999-180)
**************************************************************************