view Propellor/waveguide_engineNew.pd @ 303:8b51c20529a6

Edgetone development models

#N canvas 292 23 674 799 10;
#X obj 364 62 hsl 128 12 0 1 0 1 \$0-speed empty engine-speed 6 6 1
8 -262144 -1 -1 9588 1;
#N canvas 0 22 733 539 fourstroke 0;
#X obj 51 336 outlet~;
#X obj 168 336 outlet~;
#X obj 287 338 outlet~;
#X obj 399 340 outlet~;
#X obj 97 95 -~ 0.75;
#X obj 215 87 -~ 0.5;
#X obj 334 87 -~ 0.25;
#X obj 50 285 sig~ 1;
#X obj 51 311 /~;
#X obj 98 286 +~ 1;
#X obj 98 265 *~;
#X obj 98 243 *~;
#X obj 167 285 sig~ 1;
#X obj 166 311 /~;
#X obj 215 286 +~ 1;
#X obj 215 265 *~;
#X obj 215 243 *~;
#X obj 286 287 sig~ 1;
#X obj 287 313 /~;
#X obj 334 288 +~ 1;
#X obj 334 267 *~;
#X obj 334 245 *~;
#X obj 398 291 sig~ 1;
#X obj 399 317 /~;
#X obj 446 292 +~ 1;
#X obj 446 271 *~;
#X obj 446 249 *~;
#X obj 576 -13 noise~;
#X obj 461 226 +~;
#X obj 351 223 +~;
#X obj 232 222 +~;
#X obj 115 221 +~;
#X obj 446 65 +~;
#X obj 334 62 +~;
#X obj 215 62 +~;
#X obj 97 61 +~;
#X obj 130 193 vd~ b 5;
#X obj 247 194 vd~ b 10;
#X obj 366 195 vd~ b 15;
#X obj 476 196 vd~ b 20;
#X obj 606 88 delwrite~ a 20;
#X obj 112 -15 delread~ a 5;
#X obj 230 -14 delread~ a 10;
#X obj 349 -14 delread~ a 15;
#X obj 462 -13 delread~ a 20;
#X obj 547 112 delwrite~ b 20;
#X obj 576 8 lop~ 20;
#X obj 576 30 lop~ 20;
#X obj 606 63 *~ 0.5;
#X obj 98 117 cos~;
#X obj 215 113 cos~;
#X obj 334 111 cos~;
#X obj 446 111 cos~;
#X obj 43 9 swap 1;
#X obj 43 31 -;
#X obj 43 -13 inlet;
#X obj 42 74 + 2;
#X obj 43 53 * 3;
#X obj 277 30 inlet~;
#X obj 547 62 *~ 10;
#X obj 277 157 line~;
#X msg 277 137 \$1 250;
#X connect 4 0 49 0;
#X connect 5 0 50 0;
#X connect 6 0 51 0;
#X connect 7 0 8 0;
#X connect 8 0 0 0;
#X connect 9 0 8 1;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 11 0 10 1;
#X connect 12 0 13 0;
#X connect 13 0 1 0;
#X connect 14 0 13 1;
#X connect 15 0 14 0;
#X connect 16 0 15 0;
#X connect 16 0 15 1;
#X connect 17 0 18 0;
#X connect 18 0 2 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 20 0;
#X connect 21 0 20 1;
#X connect 22 0 23 0;
#X connect 23 0 3 0;
#X connect 24 0 23 1;
#X connect 25 0 24 0;
#X connect 26 0 25 0;
#X connect 26 0 25 1;
#X connect 27 0 46 0;
#X connect 28 0 26 1;
#X connect 29 0 21 1;
#X connect 30 0 16 1;
#X connect 31 0 11 1;
#X connect 32 0 52 0;
#X connect 33 0 6 0;
#X connect 34 0 5 0;
#X connect 35 0 4 0;
#X connect 36 0 31 1;
#X connect 37 0 30 1;
#X connect 38 0 29 1;
#X connect 39 0 28 1;
#X connect 41 0 35 1;
#X connect 42 0 34 1;
#X connect 43 0 33 1;
#X connect 44 0 32 1;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 47 0 59 0;
#X connect 48 0 40 0;
#X connect 49 0 11 0;
#X connect 50 0 16 0;
#X connect 51 0 21 0;
#X connect 52 0 26 0;
#X connect 53 0 54 0;
#X connect 53 1 54 1;
#X connect 54 0 57 0;
#X connect 55 0 53 0;
#X connect 56 0 61 0;
#X connect 57 0 56 0;
#X connect 58 0 35 0;
#X connect 58 0 34 0;
#X connect 58 0 33 0;
#X connect 58 0 32 0;
#X connect 59 0 45 0;
#X connect 60 0 28 0;
#X connect 60 0 31 0;
#X connect 60 0 30 0;
#X connect 60 0 29 0;
#X connect 61 0 60 0;
#X restore 0 125 pd fourstroke engine;
#N canvas 0 22 276 452 overtone 0;
#X obj 73 65 max~;
#X obj 73 87 -~;
#X obj 103 96 sig~ 1;
#X obj 103 118 -~;
#X obj 88 140 sig~ 1;
#X obj 88 163 /~;
#X obj 72 185 *~;
#X obj 72 206 *~;
#X obj 71 250 -~ 0.5;
#X obj 71 274 *~;
#X obj 71 293 *~ -4;
#X obj 71 312 +~ 1;
#X obj 71 331 *~ 0.5;
#X obj 71 229 wrap~;
#X obj 71 361 *~;
#X obj 119 290 sig~ 1;
#X obj 119 331 -~;
#X obj 71 405 *~;
#X obj 88 383 *~ 12;
#X obj 149 118 *~;
#X obj 165 98 *~ 12;
#X obj 34 2 inlet~ drive;
#X obj 149 2 inlet~ phase;
#X obj 165 77 inlet~ freq;
#X obj 177 330 inlet~ amp;
#X obj 71 428 outlet~;
#X obj 3 64 s~ \$0-env;
#X obj 135 309 r~ \$0-env;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 13 0 8 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 14 1;
#X connect 17 0 25 0;
#X connect 18 0 17 1;
#X connect 19 0 7 1;
#X connect 20 0 19 1;
#X connect 21 0 0 0;
#X connect 21 0 26 0;
#X connect 22 0 0 1;
#X connect 22 0 1 1;
#X connect 22 0 3 1;
#X connect 22 0 19 0;
#X connect 23 0 20 0;
#X connect 24 0 18 0;
#X connect 27 0 16 1;
#X restore 362 517 pd overtone;
#N canvas 0 22 1000 760 overtone 0;
#X obj 459 157 max~;
#X obj 459 185 -~;
#X obj 495 215 sig~ 1;
#X obj 500 239 -~;
#X obj 479 253 sig~ 1;
#X obj 485 281 /~;
#X obj 458 323 *~;
#X obj 458 361 *~;
#X obj 452 428 -~ 0.5;
#X obj 451 452 *~;
#X obj 450 475 *~ -4;
#X obj 449 500 +~ 1;
#X obj 452 530 *~ 0.5;
#X obj 457 390 wrap~;
#X obj 450 557 *~;
#X obj 504 391 sig~ 1;
#X obj 509 415 -~;
#X obj 449 580 *~;
#X obj 689 431 *~ 12;
#X obj 506 328 *~;
#X obj 581 321 *~ 12;
#X obj 338 29 inlet~ drive;
#X obj 546 79 inlet~ phase;
#X obj 579 294 inlet~ freq;
#X obj 692 384 inlet~ amp;
#X obj 449 609 outlet~;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 13 0 8 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 14 1;
#X connect 17 0 25 0;
#X connect 18 0 17 1;
#X connect 19 0 7 1;
#X connect 20 0 19 1;
#X connect 21 0 0 0;
#X connect 21 0 16 1;
#X connect 22 0 0 1;
#X connect 22 0 1 1;
#X connect 22 0 3 1;
#X connect 22 0 19 0;
#X connect 23 0 20 0;
#X connect 24 0 18 0;
#X restore 501 855 pd overtone;
#N canvas 0 22 1000 760 overtone 0;
#X obj 459 157 max~;
#X obj 459 185 -~;
#X obj 495 215 sig~ 1;
#X obj 500 239 -~;
#X obj 479 253 sig~ 1;
#X obj 485 281 /~;
#X obj 458 323 *~;
#X obj 458 361 *~;
#X obj 452 428 -~ 0.5;
#X obj 451 452 *~;
#X obj 450 475 *~ -4;
#X obj 449 500 +~ 1;
#X obj 452 530 *~ 0.5;
#X obj 457 390 wrap~;
#X obj 450 557 *~;
#X obj 504 391 sig~ 1;
#X obj 509 415 -~;
#X obj 449 580 *~;
#X obj 689 431 *~ 12;
#X obj 506 328 *~;
#X obj 581 321 *~ 12;
#X obj 338 29 inlet~ drive;
#X obj 546 79 inlet~ phase;
#X obj 579 294 inlet~ freq;
#X obj 692 384 inlet~ amp;
#X obj 449 609 outlet~;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 13 0 8 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 14 1;
#X connect 17 0 25 0;
#X connect 18 0 17 1;
#X connect 19 0 7 1;
#X connect 20 0 19 1;
#X connect 21 0 0 0;
#X connect 21 0 16 1;
#X connect 22 0 0 1;
#X connect 22 0 1 1;
#X connect 22 0 3 1;
#X connect 22 0 19 0;
#X connect 23 0 20 0;
#X connect 24 0 18 0;
#X restore 431 687 pd overtone;
#N canvas 0 22 450 300 parabola 0;
#X obj 193 88 -~ 0.5;
#X obj 192 112 *~;
#X obj 191 135 *~ -4;
#X obj 190 160 +~ 1;
#X obj 192 58 inlet~;
#X obj 190 211 outlet~;
#X obj 190 185 *~ 3;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 0 0;
#X connect 6 0 5 0;
#X restore 156 225 pd parabola;
#X obj 135 101 phasor~;
#X obj 62 904 *~ 0.5;
#X obj 225 379 -~;
#X obj 225 439 *~;
#X obj 294 441 *~;
#X obj 294 462 +~ 0.5;
#X obj 225 462 +~ 0.5;
#X obj 225 354 sig~ 1;
#X obj 241 322 cos~;
#N canvas 701 265 579 456 spacewarping 0;
#X obj 263 429 outlet~;
#X obj 428 154 delwrite~ e1b 50;
#X obj 336 240 delwrite~ e2b 50;
#X obj 161 334 s~ ewgfb1;
#X obj 323 364 s~ ewgfb2;
#X obj 25 53 r~ ewgfb2;
#X obj 428 111 r~ ewgfb1;
#X obj 9 33 hip~ 30;
#X obj 263 385 hip~ 200;
#X obj 263 407 hip~ 200;
#X obj 336 155 vd~ e1b 12;
#X obj 161 313 vd~ e2a 12;
#X obj 323 343 vd~ e2b 12;
#X obj 9 123 delwrite~ e1a 50;
#X obj 161 276 delwrite~ e2a 50;
#X obj 428 133 +~;
#X obj 300 17 inlet~ b;
#X obj 161 171 +~;
#X obj 9 12 inlet~ a;
#X obj 444 89 inlet~ c;
#X obj 337 207 +~;
#X obj 352 185 inlet~ d;
#X obj 125 275 *~;
#X obj 322 319 *~;
#X obj 161 99 *~;
#X obj 335 130 *~;
#X obj 142 19 inlet~ fm1;
#X obj 221 18 inlet~ fm2;
#X obj 25 96 *~;
#X obj 41 74 r \$0-wg-fb;
#X obj 125 230 r \$0-wg-l1;
#X obj 338 279 r \$0-wg-l2;
#X obj 351 90 r \$0-wg-w1;
#X obj 161 58 r \$0-wg-w2;
#X obj 125 251 * 40;
#X obj 338 299 * 40;
#X obj 351 110 * 40;
#X obj 161 79 * 40;
#X obj 162 125 vd~ e1a;
#X connect 5 0 28 0;
#X connect 6 0 15 0;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 10 0 20 0;
#X connect 11 0 3 0;
#X connect 11 0 8 0;
#X connect 12 0 4 0;
#X connect 12 0 8 0;
#X connect 15 0 1 0;
#X connect 16 0 17 1;
#X connect 17 0 14 0;
#X connect 17 0 8 0;
#X connect 18 0 7 0;
#X connect 19 0 15 1;
#X connect 20 0 2 0;
#X connect 20 0 8 0;
#X connect 21 0 20 1;
#X connect 22 0 11 0;
#X connect 23 0 12 0;
#X connect 24 0 38 0;
#X connect 25 0 10 0;
#X connect 26 0 25 0;
#X connect 26 0 22 1;
#X connect 27 0 24 1;
#X connect 27 0 23 0;
#X connect 28 0 13 0;
#X connect 29 0 28 1;
#X connect 30 0 34 0;
#X connect 31 0 35 0;
#X connect 32 0 36 0;
#X connect 33 0 37 0;
#X connect 34 0 22 0;
#X connect 35 0 23 1;
#X connect 36 0 25 1;
#X connect 37 0 24 0;
#X connect 38 0 17 0;
#X restore 156 875 pd spacewarping nonlinear waveguide exhaust system
;
#X obj 501 781 wrap~;
#X obj 362 438 wrap~;
#X obj 431 613 wrap~;
#X obj 501 762 *~ 8;
#X obj 362 418 *~ 16;
#X obj 431 594 *~ 4;
#X obj 134 41 * 30;
#X obj 62 879 hip~ 2;
#X obj 0 103 r \$0-speed;
#X obj 134 22 r \$0-speed;
#X obj 310 321 r \$0-speed;
#X obj 364 86 hsl 128 12 0 1 0 1 \$0-transmission_delay2 empty transmission_delay2
6 6 1 8 -262144 -1 -1 2000 1;
#X obj 362 379 * 100;
#X obj 386 457 r \$0-ot1-phase;
#X obj 410 476 r \$0-ot1-freq;
#X obj 434 495 r \$0-ot1-amp;
#X obj 525 799 r \$0-ot2-phase;
#X obj 549 817 r \$0-ot2-freq;
#X obj 573 835 r \$0-ot2-amp;
#X obj 455 631 r \$0-ot3-phase;
#X obj 479 649 r \$0-ot3-freq;
#X obj 503 668 r \$0-ot3-amp;
#X obj 310 380 sig~;
#X obj 364 146 hsl 128 12 0 1 0 1 \$0-wg-fb empty waveguide-feedback
6 6 1 8 -262144 -1 -1 2000 1;
#X obj 364 158 hsl 128 12 0 1 0 1 \$0-wg-l1 empty wguide-length1 6
6 1 8 -262144 -1 -1 3000 1;
#X obj 364 170 hsl 128 12 0 1 0 1 \$0-wg-l2 empty wguide-length2 6
6 1 8 -262144 -1 -1 3500 1;
#X obj 364 182 hsl 128 12 0 1 0 1 \$0-wg-w1 empty wguide-width1 6 6
1 8 -262144 -1 -1 8900 1;
#X obj 364 194 hsl 128 12 0 1 0 1 \$0-wg-w2 empty wguide-width2 6 6
1 8 -262144 -1 -1 6300 1;
#X obj 364 206 hsl 128 12 0 1 0 1 \$0-ot1-phase empty overtone1-phase
6 6 1 8 -262144 -1 -1 1000 1;
#X obj 364 218 hsl 128 12 0 1 0 1 \$0-ot1-freq empty overtone1-freq
6 6 1 8 -262144 -1 -1 1100 1;
#X obj 364 230 hsl 128 12 0 1 0 1 \$0-ot1-amp empty overtone1-amp 6
6 1 8 -262144 -1 -1 9900 1;
#X obj 364 242 hsl 128 12 0 1 0 1 \$0-ot2-phase empty overtone2-phase
6 6 1 8 -262144 -1 -1 1800 1;
#X obj 364 254 hsl 128 12 0 1 0 1 \$0-ot2-freq empty overtone2-freq
6 6 1 8 -262144 -1 -1 1700 1;
#X obj 364 266 hsl 128 12 0 1 0 1 \$0-ot2-amp empty overtone2-amp 6
6 1 8 -262144 -1 -1 3900 1;
#X obj 364 278 hsl 128 12 0 1 0 1 \$0-ot3-phase empty overtone3-phase
6 6 1 8 -262144 -1 -1 10300 1;
#X obj 364 290 hsl 128 12 0 1 0 1 \$0-ot3-freq empty overtone3-freq
6 6 1 8 -262144 -1 -1 9600 1;
#X obj 364 302 hsl 128 12 0 1 0 1 \$0-ot3-amp empty overtone3-amp 6
6 1 8 -262144 -1 -1 11200 1;
#X obj 310 360 *;
#X obj 364 134 hsl 128 12 0 1 0 1 \$0-waveguide-warping empty waveguide-warp
6 6 1 8 -262144 -1 -1 3600 1;
#X obj 156 269 *~;
#X obj 172 243 r \$0-mix-para;
#X obj 364 50 hsl 128 12 0 1 0 1 \$0-mix-para empty mix-parabolic 6
6 1 8 -262144 -1 -1 4000 1;
#X obj 364 38 hsl 128 12 0 1 0 1 \$0-mix-cylinders empty mix-cylinders
6 6 1 8 -262144 -1 -1 6200 1;
#X obj 62 168 *~;
#X obj 78 147 r \$0-mix-cylinders;
#X obj 326 340 r \$0-waveguide-warping;
#X obj 364 74 hsl 128 12 0 1 0 1 \$0-transmission_delay1 empty transmission_delay1
6 6 1 8 -262144 -1 -1 1900 1;
#X obj 431 556 * 100;
#X obj 431 575 delread~ td;
#X obj 362 398 delread~ td;
#X obj 146 124 delwrite~ td 300;
#X obj 501 724 * 100;
#X obj 501 705 r \$0-transmission_delay1;
#X obj 501 743 delread~ td;
#X obj 364 110 hsl 128 12 0 1 0 1 \$0-parabola-delay empty parabola-delay
6 6 1 8 -262144 -1 -1 1700 1;
#X obj 362 359 r \$0-transmission_delay2;
#X obj 431 536 r \$0-transmission_delay3;
#X obj 241 282 * 100;
#X obj 241 302 delread~ td;
#X obj 241 262 r \$0-warp-delay;
#X obj 364 122 hsl 128 12 0 1 0 1 \$0-warp-delay empty warp-delay 6
6 1 8 -262144 -1 -1 1900 1;
#X obj 156 186 * 100;
#X obj 156 206 delread~ td;
#X obj 156 166 r \$0-parabola-delay;
#X obj 364 98 hsl 128 12 0 1 0 1 \$0-transmission_delay3 empty transmission_delay3
6 6 1 8 -262144 -1 -1 3400 1;
#X obj 134 81 line~;
#X msg 134 62 \$1 250;
#X obj 309 401 lop~ 0.2;
#X obj 301 24 inlet;
#X floatatom 287 69 0 0 0 0 - - -;
#X obj 62 927 outlet~;
#X obj 310 49 / 2;
#X connect 1 0 59 0;
#X connect 1 1 59 0;
#X connect 1 2 59 0;
#X connect 1 3 59 0;
#X connect 2 0 15 3;
#X connect 3 0 15 5;
#X connect 4 0 15 4;
#X connect 5 0 55 0;
#X connect 6 0 1 1;
#X connect 6 0 66 0;
#X connect 7 0 86 0;
#X connect 8 0 9 0;
#X connect 9 0 12 0;
#X connect 10 0 11 0;
#X connect 11 0 15 2;
#X connect 12 0 15 1;
#X connect 13 0 8 0;
#X connect 14 0 8 1;
#X connect 14 0 10 0;
#X connect 15 0 7 0;
#X connect 16 0 3 0;
#X connect 17 0 2 0;
#X connect 18 0 4 0;
#X connect 19 0 16 0;
#X connect 20 0 17 0;
#X connect 21 0 18 0;
#X connect 22 0 82 0;
#X connect 23 0 7 0;
#X connect 24 0 1 0;
#X connect 25 0 22 0;
#X connect 26 0 53 0;
#X connect 28 0 65 0;
#X connect 29 0 2 1;
#X connect 30 0 2 2;
#X connect 31 0 2 3;
#X connect 32 0 3 1;
#X connect 33 0 3 2;
#X connect 34 0 3 3;
#X connect 35 0 4 1;
#X connect 36 0 4 2;
#X connect 37 0 4 3;
#X connect 38 0 83 0;
#X connect 53 0 38 0;
#X connect 55 0 15 0;
#X connect 56 0 55 1;
#X connect 59 0 23 0;
#X connect 60 0 59 1;
#X connect 61 0 53 1;
#X connect 63 0 64 0;
#X connect 64 0 21 0;
#X connect 65 0 20 0;
#X connect 67 0 69 0;
#X connect 68 0 67 0;
#X connect 69 0 19 0;
#X connect 71 0 28 0;
#X connect 72 0 63 0;
#X connect 73 0 74 0;
#X connect 74 0 14 0;
#X connect 75 0 73 0;
#X connect 77 0 78 0;
#X connect 78 0 5 0;
#X connect 79 0 77 0;
#X connect 81 0 6 0;
#X connect 82 0 81 0;
#X connect 83 0 10 1;
#X connect 83 0 9 1;
#X connect 84 0 85 0;
#X connect 84 0 87 0;
#X connect 87 0 0 0;