Example 2-5 resonant tube.pd

#N canvas 233 22 358 437 10;
#X obj 45 373 output~;
#X obj 28 231 noise~;
#X obj 80 81 vsl 15 128 0 1 0 0 empty empty left_end -15 -9 0 10 -262144
-1 -1 0 1;
#X obj 243 81 vsl 15 128 0 1 0 0 empty empty right_end -15 -9 0 10
-262144 -1 -1 12700 1;
#X obj 105 135 hsl 128 15 5 30 0 0 empty empty length_(cm) -2 -8 0
10 -262144 -1 -1 10160 1;
#X floatatom 102 161 5 0 0 0 - - -;
#X text 100 200 <======= open =======>;
#X obj 178 6 loadbang;
#X msg 81 43 0;
#X msg 243 45 1;
#X obj 80 230 sig~;
#X obj 243 229 sig~;
#X obj 102 183 sig~;
#X text 26 209 source;
#X obj 118 372 wsprobe~;
#N canvas 1026 181 668 617 cylinder 0;
#X obj 137 506 outlet~;
#X obj 45 141 inlet~;
#X text 41 118 audio in;
#X text 134 530 audio out;
#X text 113 -51 left end;
#X text 355 -49 right end;
#X text 227 -51 length (cm);
#X floatatom 119 78 5 0 0 0 - - -;
#X floatatom 365 77 5 0 0 0 - - -;
#X floatatom 232 471 5 0 0 0 - - -;
#X obj 418 323 vcf~;
#X floatatom 464 152 5 0 0 0 - - -;
#X text 474 67 Q;
#X floatatom 347 204 5 0 0 0 - - -;
#X text 37 323 resonances =>;
#X floatatom 308 472 5 0 0 0 - - -;
#X floatatom 393 471 5 0 0 0 - - -;
#X floatatom 480 470 5 0 0 0 - - -;
#X obj 137 324 vcf~;
#X obj 231 323 vcf~;
#X obj 326 323 vcf~;
#X obj 138 414 +~;
#X text 273 128 <= c/4L;
#X text 384 205 <= x1+x2;
#X text 488 232 <= 2n;
#X text 39 69 0 = open;
#X text 39 83 1 = closed;
#X obj 119 -20 inlet~;
#X obj 365 -20 inlet~;
#X obj 143 25 bang~;
#X obj 119 50 snapshot~;
#X obj 389 25 bang~;
#X obj 365 50 snapshot~;
#X obj 324 120 +~;
#X obj 371 145 bang~;
#X obj 347 170 snapshot~;
#X obj 232 444 snapshot~;
#X obj 147 233 sig~ 2;
#X obj 147 262 -~;
#X obj 147 291 *~;
#X obj 340 410 bang~;
#X obj 308 446 snapshot~;
#X obj 240 262 -~;
#X obj 240 291 *~;
#X obj 240 233 sig~ 4;
#X obj 393 445 snapshot~;
#X obj 335 262 -~;
#X obj 335 291 *~;
#X obj 480 445 snapshot~;
#X obj 428 262 -~;
#X obj 428 291 *~;
#X obj 335 233 sig~ 6;
#X obj 428 233 sig~ 8;
#X obj 237 -20 inlet~;
#X obj 238 27 *~ 4;
#X obj 221 50 sig~ 34300;
#X obj 222 74 /~;
#X floatatom 236 127 5 0 0 0 - - -;
#X obj 260 75 bang~;
#X obj 236 100 snapshot~;
#X obj 137 376 lop~ 10000;
#X obj 418 374 lop~ 10000;
#X obj 326 375 lop~ 10000;
#X obj 230 376 lop~ 10000;
#X obj 120 3 clip~ 0 1;
#X obj 365 3 clip~ 0 1;
#X obj 238 3 clip~ 1 100;
#X obj 232 505 outlet;
#X obj 308 505 outlet;
#X obj 393 504 outlet;
#X obj 480 504 outlet;
#X obj 231 352 *~ 0.75;
#X obj 417 352 *~ 0.25;
#X obj 326 352 *~ 0.5;
#X text 217 529 fundamental;
#X text 294 528 1st harmonic;
#X text 377 528 2nd harmonic;
#X text 460 528 3rd harmonic;
#X msg 464 123 50;
#X obj 464 96 loadbang;
#X text 528 469 <= (2n-(x1+x2))c/4L;
#X text 156 77 <= x1;
#X text 400 77 <= x2;
#X connect 1 0 10 0;
#X connect 1 0 18 0;
#X connect 1 0 19 0;
#X connect 1 0 20 0;
#X connect 9 0 67 0;
#X connect 10 0 72 0;
#X connect 11 0 10 2;
#X connect 11 0 18 2;
#X connect 11 0 19 2;
#X connect 11 0 20 2;
#X connect 15 0 68 0;
#X connect 16 0 69 0;
#X connect 17 0 70 0;
#X connect 18 0 60 0;
#X connect 19 0 71 0;
#X connect 20 0 73 0;
#X connect 21 0 0 0;
#X connect 27 0 64 0;
#X connect 28 0 65 0;
#X connect 29 0 30 0;
#X connect 30 0 7 0;
#X connect 31 0 32 0;
#X connect 32 0 8 0;
#X connect 33 0 35 0;
#X connect 33 0 38 1;
#X connect 33 0 42 1;
#X connect 33 0 46 1;
#X connect 33 0 49 1;
#X connect 34 0 35 0;
#X connect 35 0 13 0;
#X connect 36 0 9 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 36 0;
#X connect 39 0 18 1;
#X connect 40 0 41 0;
#X connect 40 0 36 0;
#X connect 40 0 45 0;
#X connect 40 0 48 0;
#X connect 41 0 15 0;
#X connect 42 0 43 0;
#X connect 43 0 41 0;
#X connect 43 0 19 1;
#X connect 44 0 42 0;
#X connect 45 0 16 0;
#X connect 46 0 47 0;
#X connect 47 0 45 0;
#X connect 47 0 20 1;
#X connect 48 0 17 0;
#X connect 49 0 50 0;
#X connect 50 0 48 0;
#X connect 50 0 10 1;
#X connect 51 0 46 0;
#X connect 52 0 49 0;
#X connect 53 0 66 0;
#X connect 54 0 56 1;
#X connect 55 0 56 0;
#X connect 56 0 59 0;
#X connect 56 0 39 1;
#X connect 56 0 43 1;
#X connect 56 0 47 1;
#X connect 56 0 50 1;
#X connect 58 0 59 0;
#X connect 59 0 57 0;
#X connect 60 0 21 0;
#X connect 61 0 21 1;
#X connect 62 0 21 0;
#X connect 63 0 21 1;
#X connect 64 0 33 0;
#X connect 64 0 30 0;
#X connect 65 0 33 1;
#X connect 65 0 32 0;
#X connect 66 0 54 0;
#X connect 71 0 63 0;
#X connect 72 0 61 0;
#X connect 73 0 62 0;
#X connect 78 0 11 0;
#X connect 79 0 78 0;
#X restore 59 264 pd cylinder;
#X text 98 74 <====== closed ======>;
#X floatatom 181 294 5 0 0 0 - - -;
#X floatatom 180 318 5 0 0 0 - - -;
#X floatatom 180 342 5 0 0 0 - - -;
#X floatatom 180 365 5 0 0 0 - - -;
#X text 218 294 <= fundamental (Hz);
#X text 218 318 <= 1st harmonic (Hz);
#X text 218 364 <= 3rd harmonic (Hz);
#X text 218 341 <= 2nd harmonic (Hz);
#X msg 178 99 25;
#X msg 103 99 12.5;
#X msg 140 99 17.5;
#X connect 1 0 15 0;
#X connect 2 0 10 0;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 5 0 12 0;
#X connect 7 0 8 0;
#X connect 7 0 25 0;
#X connect 7 0 9 0;
#X connect 8 0 2 0;
#X connect 9 0 3 0;
#X connect 10 0 15 1;
#X connect 11 0 15 3;
#X connect 12 0 15 2;
#X connect 15 0 0 1;
#X connect 15 0 0 0;
#X connect 15 0 14 0;
#X connect 15 1 17 0;
#X connect 15 2 18 0;
#X connect 15 3 19 0;
#X connect 15 4 20 0;
#X connect 25 0 4 0;
#X connect 26 0 4 0;
#X connect 27 0 4 0;