#N canvas 0 23 1280 751 10; #X obj 198 8 cnv 15 860 720 empty empty empty 20 12 0 14 -162280 -262144 0; #X obj 226 38 cnv 15 260 200 empty tap1 empty 20 12 0 14 -225280 -262144 0; #N canvas 546 214 734 500 tap_I 0; #N canvas 515 417 804 612 endstage 0; #X obj 105 64 inlet~; #X obj 172 261 outlet~; #X obj 103 336 throw~ L; #N canvas 342 130 789 622 autopan 0; #X obj 224 52 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 224 92 random 8; #X msg 308 200 0.6; #X msg 224 132 0.4; #X msg 266 166 0.5; #X floatatom 223 269 5 0 0 0 - - -; #X msg 327 217 0.55; #X obj 224 113 select 1 2 3 4 5 6; #X msg 349 234 0.45; #X obj 223 247 line 0 80; #X obj 80 53 inlet~; #X obj 240 52 loadbang; #X obj 134 288 *~; #X obj 100 260 expr 1 - $f1; #X obj 79 288 *~ 1; #X obj 79 310 outlet~; #X obj 134 310 outlet~; #X text 110 82 mono input -> autopanner slow sweep, f 13; #X msg 223 225 \$1 3850; #X msg 243 149 0.38; #X msg 286 183 0.67; #X obj 224 71 metro 5900; #X connect 0 0 21 0; #X connect 1 0 7 0; #X connect 2 0 18 0; #X connect 3 0 18 0; #X connect 4 0 18 0; #X connect 5 0 12 1; #X connect 5 0 13 0; #X connect 6 0 18 0; #X connect 7 0 3 0; #X connect 7 1 19 0; #X connect 7 2 4 0; #X connect 7 3 20 0; #X connect 7 4 2 0; #X connect 7 5 6 0; #X connect 7 6 8 0; #X connect 8 0 18 0; #X connect 9 0 5 0; #X connect 10 0 14 0; #X connect 10 0 12 0; #X connect 11 0 0 0; #X connect 12 0 16 0; #X connect 13 0 14 1; #X connect 14 0 15 0; #X connect 18 0 9 0; #X connect 19 0 18 0; #X connect 20 0 18 0; #X connect 21 0 1 0; #X restore 104 285 pd autopan; #X obj 161 336 throw~ R; #X obj 105 199 *~ 1, f 9; #X obj 156 169 line; #X obj 156 64 r mute1; #X msg 156 140 \$1 600; #X obj 156 105 == 0; #X msg 225 169 color \$1; #X msg 252 140 0; #X obj 225 105 sel 1; #X msg 225 140 13; #X obj 225 199 s muted1; #X connect 0 0 5 0; #X connect 3 0 2 0; #X connect 3 1 4 0; #X connect 5 0 1 0; #X connect 5 0 3 0; #X connect 6 0 5 1; #X connect 7 0 9 0; #X connect 7 0 12 0; #X connect 8 0 6 0; #X connect 9 0 8 0; #X connect 10 0 14 0; #X connect 11 0 10 0; #X connect 12 0 13 0; #X connect 12 1 11 0; #X connect 13 0 10 0; #X restore 180 432 pd endstage; #N canvas 0 50 1280 699 delay 0; #X obj 496 128 inlet; #X obj 438 128 inlet; #X obj 363 427 outlet~; #X obj 383 385 delwrite~ second 3000; #X obj 363 334 *~ 0.6, f 13; #X obj 363 128 inlet; #X obj 289 283 *~ 1; #X text 321 284 60%; #X text 501 107 60%; #X text 344 107 delay time; #X text 424 106 feedback; #N canvas 1386 23 450 381 60% 0; #X obj 226 78 inlet; #X obj 226 161 select 1 2 3 4 5; #X obj 226 135 random 8; #X obj 225 295 line 0 80; #X msg 225 273 \$1 850; #X msg 244 197 0; #X msg 300 253 0; #X msg 226 179 1; #X msg 281 235 1; #X msg 263 216 0; #X obj 164 161 == 0; #X obj 225 316 outlet; #X text 221 54 60% off; #X obj 226 110 metro 3740; #X connect 0 0 10 0; #X connect 0 0 13 0; #X connect 1 0 7 0; #X connect 1 1 5 0; #X connect 1 2 9 0; #X connect 1 3 8 0; #X connect 1 4 6 0; #X connect 2 0 1 0; #X connect 3 0 11 0; #X connect 4 0 3 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 4 0; #X connect 8 0 4 0; #X connect 9 0 4 0; #X connect 10 0 11 0; #X connect 13 0 2 0; #X restore 496 156 pd 60%; #X obj 289 128 inlet~; #X text 452 334 < feedback; #X obj 467 355 r clear; #X obj 363 226 line~; #X obj 363 203 pack 0 600; #X obj 363 283 delread4~ second 660; #X connect 0 0 11 0; #X connect 1 0 4 1; #X connect 4 0 3 0; #X connect 4 0 2 0; #X connect 5 0 16 0; #X connect 6 0 3 0; #X connect 11 0 6 1; #X connect 12 0 6 0; #X connect 14 0 3 0; #X connect 15 0 17 0; #X connect 16 0 15 0; #X connect 17 0 4 0; #X restore 180 264 pd delay; #X f 13; #N canvas 233 57 1047 717 pitcher 0; #X floatatom 169 117 0 0 0 0 - - -; #X obj 232 388 *~; #X obj 355 325 line~; #X floatatom 387 142 0 0 0 0 - - -; #X text 375 24 PITCH SHIFTER; #X obj 355 299 pack 0 200; #X obj 387 116 r window; #X obj 169 91 r transpose; #X obj 169 173 exp; #X floatatom 169 199 6 0 0 0 - - -; #X obj 169 289 /; #X obj 296 219 * 0.001; #X obj 464 395 line~; #X obj 464 370 pack 0 200; #X floatatom 464 319 0 0 0 0 - - -; #X obj 464 293 r delay; #X obj 232 414 +~; #X obj 169 440 cos~; #X obj 169 467 *~; #X obj 169 496 +~; #X obj 256 347 wrap~; #X obj 401 390 *~; #X obj 401 423 +~; #X obj 338 450 cos~; #X obj 338 477 *~; #X msg 562 86 \; transpose 0 \; window 100 \; delay 0; #X obj 562 60 loadbang; #X obj 296 246 t b f; #X floatatom 169 315 6 0 0 0 - - -; #X obj 256 320 +~ 0.5; #X obj 169 388 -~ 0.5; #X obj 169 414 *~ 0.5; #X obj 338 389 -~ 0.5; #X obj 338 422 *~ 0.5; #X obj 169 226 - 1; #X obj 169 147 * 0.05776; #X obj 169 252 * -1; #X text 203 116 <-- transposition; #X text 246 129 (halftones); #X text 232 193 speed; #X text 231 207 change; #X text 431 141 <--window (msec); #X text 204 282 tape head; #X obj 169 346 phasor~; #X obj 464 346 max 1.5; #X text 467 252 delay; #X text 464 270 (msec); #X obj 387 169 max 1; #X text 205 295 rotation freq; #X obj 169 523 outlet~; #X obj 24 60 inlet~; #X obj 170 60 inlet; #X obj 24 91 delwrite~ oaue 4000; #X obj 232 440 vd~ oaue; #X obj 401 452 vd~ oaue; #X connect 0 0 35 0; #X connect 1 0 16 0; #X connect 2 0 1 1; #X connect 2 0 21 1; #X connect 3 0 47 0; #X connect 5 0 2 0; #X connect 6 0 3 0; #X connect 7 0 0 0; #X connect 8 0 9 0; #X connect 9 0 34 0; #X connect 10 0 28 0; #X connect 11 0 27 0; #X connect 12 0 16 1; #X connect 12 0 22 1; #X connect 13 0 12 0; #X connect 14 0 44 0; #X connect 15 0 14 0; #X connect 16 0 53 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 49 0; #X connect 20 0 21 0; #X connect 20 0 32 0; #X connect 21 0 22 0; #X connect 22 0 54 0; #X connect 23 0 24 0; #X connect 24 0 19 1; #X connect 26 0 25 0; #X connect 27 0 10 0; #X connect 27 1 10 1; #X connect 28 0 43 0; #X connect 29 0 20 0; #X connect 30 0 31 0; #X connect 31 0 17 0; #X connect 32 0 33 0; #X connect 33 0 23 0; #X connect 34 0 36 0; #X connect 35 0 8 0; #X connect 36 0 10 0; #X connect 43 0 1 0; #X connect 43 0 30 0; #X connect 43 0 29 0; #X connect 44 0 13 0; #X connect 47 0 11 0; #X connect 47 0 5 0; #X connect 50 0 52 0; #X connect 51 0 0 0; #X connect 53 0 18 1; #X connect 54 0 24 1; #X restore 180 328 pd pitcher; #N canvas 81 169 760 576 filter 0; #X obj 95 57 inlet~; #X obj 95 289 *~; #X obj 110 192 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 125 289 *~; #X obj 125 221 == 0; #X obj 227 57 inlet; #N canvas 349 206 450 300 scale 0; #X obj 237 67 loadbang; #X obj 115 110 f \$1; #X obj 173 110 f \$2; #X obj 231 109 f \$3; #X obj 289 110 f \$4; #X obj 58 133 expr if($f2 == $f3 \, -1 \, (((($f1-$f2) / ($f3-$f2)) * ($f5-$f4)) + $f4)) \; $f4 \; $f5 \;, f 39; #X obj 58 42 inlet; #X text 123 44 low; #X text 195 41 high; #X text 262 37 new low, f 4; #X text 328 37 new high, f 4; #X obj 58 214 outlet; #X msg 115 92 0; #X msg 173 91 1; #X msg 231 89 80; #X msg 289 89 3200; #X connect 0 0 14 0; #X connect 0 0 15 0; #X connect 0 0 12 0; #X connect 0 0 13 0; #X connect 1 0 5 1; #X connect 2 0 5 2; #X connect 3 0 5 3; #X connect 4 0 5 4; #X connect 5 0 11 0; #X connect 6 0 5 0; #X connect 12 0 1 0; #X connect 13 0 2 0; #X connect 14 0 3 0; #X connect 15 0 4 0; #X restore 227 107 pd scale; #X obj 110 169 == 1; #X obj 95 348 outlet~; #X obj 227 138 sig~; #X obj 211 221 vcf~ 1; #X floatatom 287 128 5 0 0 0 - - -; #X connect 0 0 1 0; #X connect 0 0 10 0; #X connect 1 0 8 0; #X connect 2 0 4 0; #X connect 2 0 1 1; #X connect 3 0 8 0; #X connect 4 0 3 0; #X connect 5 0 6 0; #X connect 5 0 7 0; #X connect 6 0 9 0; #X connect 6 0 11 0; #X connect 7 0 2 0; #X connect 9 0 10 1; #X connect 10 0 3 1; #X restore 180 400 pd filter; #N canvas 951 353 969 582 reverse 0; #X obj 319 309 line~; #X obj 319 240 pack f f f; #X msg 319 278 \$1 \, \$2 \$3; #X floatatom 509 155 5 0 0 0 - - -; #X obj 319 157 metro 250; #X obj 319 88 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 509 123 / 2; #X obj 320 405 *~, f 13; #X msg 395 278 1 10; #X obj 395 307 line~; #X obj 320 447 outlet~; #X obj 494 270 del; #X obj 509 25 inlet; #X obj 150 78 inlet~; #X obj 319 25 loadbang; #X obj 509 224 - 10; #X msg 494 302 0 10; #X obj 413 25 inlet; #X obj 413 85 t b f; #N canvas 475 116 660 433 bypass 0; #X obj 94 41 inlet~; #X obj 189 307 *~; #X obj 208 261 line 0 0; #X floatatom 208 283 5 0 0 0 - - -; #X floatatom 114 279 5 0 0 0 - - -; #X text 124 308 dry; #X text 220 309 wet; #X obj 114 257 line 1 0; #X obj 93 362 outlet~; #X obj 189 363 outlet~; #X obj 155 41 inlet; #X text 222 100 simple crossfading true by-pass dry by default; #X obj 189 332 *~, f 17; #X obj 288 261 line 0 0; #X text 330 219 ramp on/off signal; #X msg 322 240 0 100; #X msg 288 220 1 100; #X obj 93 307 *~ 1; #X obj 155 99 sel 0 1 2; #X msg 148 236 0 60; #X msg 242 239 0 60; #X msg 114 218 1 60; #X msg 208 219 1 60; #X connect 0 0 1 0; #X connect 0 0 17 0; #X connect 1 0 12 0; #X connect 2 0 3 0; #X connect 3 0 1 1; #X connect 4 0 17 1; #X connect 7 0 4 0; #X connect 10 0 18 0; #X connect 12 0 9 0; #X connect 13 0 12 1; #X connect 15 0 13 0; #X connect 16 0 13 0; #X connect 17 0 8 0; #X connect 18 0 21 0; #X connect 18 0 20 0; #X connect 18 0 15 0; #X connect 18 1 19 0; #X connect 18 1 22 0; #X connect 18 1 16 0; #X connect 18 2 19 0; #X connect 18 2 22 0; #X connect 18 2 16 0; #X connect 19 0 7 0; #X connect 20 0 2 0; #X connect 21 0 7 0; #X connect 22 0 2 0; #X restore 150 243 pd bypass; #X obj 201 139 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 2 1; #X obj 150 355 delwrite~ \$0-rev 5000; #X obj 319 355 vd~ \$0-rev; #X connect 0 0 22 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 1 2; #X connect 3 0 15 0; #X connect 4 0 1 0; #X connect 4 0 8 0; #X connect 4 0 11 0; #X connect 5 0 4 0; #X connect 6 0 3 0; #X connect 6 0 4 1; #X connect 7 0 10 0; #X connect 8 0 9 0; #X connect 9 0 7 1; #X connect 11 0 16 0; #X connect 12 0 1 1; #X connect 12 0 6 0; #X connect 13 0 19 0; #X connect 14 0 5 0; #X connect 15 0 11 1; #X connect 16 0 9 0; #X connect 17 0 18 0; #X connect 17 0 20 0; #X connect 18 0 6 0; #X connect 18 1 6 1; #X connect 19 0 10 0; #X connect 19 1 21 0; #X connect 20 0 19 1; #X connect 22 0 7 0; #X restore 180 365 pd reverse; #X text 107 49 signal; #X text 461 46 60% off; #X text 212 46 time; #X text 152 46 feedback; #X text 281 50 pitch; #X text 523 52 filter; #X obj 112 72 r~ one; #X msg 433 264 0; #X text 403 51 reverse; #X obj 406 213 sel 1; #X msg 406 264 2; #N canvas 30 212 595 497 freeze 0; #X obj 216 235 f; #X obj 216 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 346 235 f; #X obj 346 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 216 301 set \$1; #X msg 346 301 set \$1; #X text 85 165 1) set a level; #X text 204 166 2) fade out; #X text 334 166 3) fade in to previous level; #X floatatom 216 420 5 0 0 0 - - -; #X obj 216 389 route set; #X obj 216 279 line; #X obj 346 279 line; #X floatatom 316 391 5 0 0 0 - - -; #X obj 269 99 sel 1; #X obj 288 444 send toGUI; #X msg 288 424 list /vol2 set \$1; #X text 416 426 change to feedback knob; #X msg 216 257 \$1 \, 1 400; #X obj 269 64 tgl 15 0 empty freezefb empty 17 7 0 10 -262144 -1 -1 0 1; #X msg 346 257 1 \, \$1 1000; #X obj 99 194 r setfb1; #X obj 99 367 s fb1; #X obj 231 213 r fb1; #X obj 216 323 s setfb1; #X obj 216 367 r setfb1; #X obj 316 367 r fb1; #X obj 361 213 r fb1; #X obj 346 323 s setfb1; #X obj 99 220 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 3810 1; #X msg 217 443 set \$1; #X obj 288 464 outlet; #X obj 99 48 r feed1; #X obj 217 464 s fbran1; #X connect 0 0 18 0; #X connect 1 0 0 0; #X connect 2 0 20 0; #X connect 3 0 2 0; #X connect 4 0 24 0; #X connect 5 0 28 0; #X connect 9 0 30 0; #X connect 9 0 31 0; #X connect 10 0 9 0; #X connect 10 0 16 0; #X connect 11 0 4 0; #X connect 12 0 5 0; #X connect 14 0 0 0; #X connect 14 1 3 0; #X connect 16 0 15 0; #X connect 18 0 11 0; #X connect 19 0 14 0; #X connect 20 0 12 0; #X connect 21 0 29 0; #X connect 23 0 0 1; #X connect 25 0 10 0; #X connect 26 0 9 0; #X connect 26 0 13 0; #X connect 27 0 2 1; #X connect 29 0 22 0; #X connect 30 0 33 0; #X connect 32 0 29 0; #X restore 242 123 pd freeze; #N canvas 1361 327 510 441 vu 0; #X floatatom 90 194 5 0 0 0 - - -; #X obj 90 146 / 10; #X obj 177 284 change; #X obj 263 284 change; #X obj 351 240 > 8.5; #X obj 351 284 change; #X msg 90 374 \; vu1a color \$1; #X msg 263 322 14; #X msg 90 322 7; #X msg 177 322 16; #X msg 351 322 13; #X obj 90 284 change; #X obj 90 90 env~; #X obj 90 30 inlet~; #X obj 90 240 < 1.9; #X obj 177 240 < 5.9; #X obj 263 240 < 8.4; #X connect 0 0 4 0; #X connect 0 0 14 0; #X connect 0 0 15 0; #X connect 0 0 16 0; #X connect 1 0 0 0; #X connect 2 0 9 0; #X connect 3 0 7 0; #X connect 4 0 5 0; #X connect 5 0 10 0; #X connect 7 0 6 0; #X connect 8 0 6 0; #X connect 9 0 6 0; #X connect 10 0 6 0; #X connect 11 0 8 0; #X connect 12 0 1 0; #X connect 13 0 12 0; #X connect 14 0 11 0; #X connect 15 0 2 0; #X connect 16 0 3 0; #X restore 180 456 pd vu; #X obj 160 72 r feed1; #X obj 215 72 r t1; #X obj 286 72 r pitch1; #X obj 406 72 r rev1; #X obj 465 72 r thin1; #X obj 526 72 r freq1; #X connect 0 0 17 0; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 3 0 0 0; #X connect 4 0 3 0; #X connect 11 0 1 0; #X connect 12 0 4 1; #X connect 14 0 15 0; #X connect 14 1 12 0; #X connect 15 0 4 1; #X connect 16 0 1 2; #X connect 18 0 1 2; #X connect 19 0 1 1; #X connect 19 0 4 2; #X connect 20 0 2 1; #X connect 21 0 14 0; #X connect 22 0 1 3; #X connect 23 0 3 1; #X restore 369 189 pd tap_I; #X f 7; #X obj 249 73 vsl 30 140 0.1 1 0 0 feed1 fbran1 empty 0 -9 0 10 -262144 -1 -1 3089 0; #X text 239 53 feedback; #X text 422 54 pitch; #X obj 405 126 tgl 25 0 thin1 sixty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 496 38 cnv 15 260 200 empty tap2 empty 20 12 0 14 -225280 -262144 0; #X obj 518 73 vsl 30 140 0.1 1 0 0 feed2 fbran2 empty 0 -9 0 10 -262144 -1 -1 3089 0; #X obj 578 73 vsl 30 140 0 1 0 0 filter2 flt2 empty 0 -9 0 10 -262144 -1 -1 2641 0; #X text 508 53 feedback; #X text 690 52 pitch; #X text 572 54 filter; #N canvas 546 274 734 500 tap_II 0; #N canvas 12 23 804 612 endstage 0; #X obj 105 64 inlet~; #X obj 172 261 outlet~; #X obj 103 336 throw~ L; #N canvas 342 130 789 622 autopan 0; #X obj 224 52 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 224 92 random 8; #X msg 308 200 0.6; #X msg 224 132 0.4; #X msg 266 166 0.5; #X floatatom 223 269 5 0 0 0 - - -; #X msg 327 217 0.55; #X obj 224 113 select 1 2 3 4 5 6; #X msg 349 234 0.45; #X obj 223 247 line 0 80; #X obj 80 53 inlet~; #X obj 240 52 loadbang; #X obj 134 288 *~; #X obj 100 260 expr 1 - $f1; #X obj 79 288 *~ 1; #X obj 79 310 outlet~; #X obj 134 310 outlet~; #X text 110 82 mono input -> autopanner slow sweep, f 13; #X msg 223 225 \$1 3850; #X obj 224 71 metro 5800; #X msg 243 149 0.38; #X msg 286 183 0.67; #X connect 0 0 19 0; #X connect 1 0 7 0; #X connect 2 0 18 0; #X connect 3 0 18 0; #X connect 4 0 18 0; #X connect 5 0 12 1; #X connect 5 0 13 0; #X connect 6 0 18 0; #X connect 7 0 3 0; #X connect 7 1 20 0; #X connect 7 2 4 0; #X connect 7 3 21 0; #X connect 7 4 2 0; #X connect 7 5 6 0; #X connect 7 6 8 0; #X connect 8 0 18 0; #X connect 9 0 5 0; #X connect 10 0 14 0; #X connect 10 0 12 0; #X connect 11 0 0 0; #X connect 12 0 16 0; #X connect 13 0 14 1; #X connect 14 0 15 0; #X connect 18 0 9 0; #X connect 19 0 1 0; #X connect 20 0 18 0; #X connect 21 0 18 0; #X restore 104 285 pd autopan; #X obj 161 336 throw~ R; #X obj 105 199 *~ 1, f 9; #X obj 156 169 line; #X msg 156 140 \$1 600; #X obj 156 105 == 0; #X msg 225 169 color \$1; #X msg 252 140 0; #X obj 225 105 sel 1; #X msg 225 140 13; #X obj 156 64 r mute2; #X obj 225 199 s muted2; #X connect 0 0 5 0; #X connect 3 0 2 0; #X connect 3 1 4 0; #X connect 5 0 1 0; #X connect 5 0 3 0; #X connect 6 0 5 1; #X connect 7 0 6 0; #X connect 8 0 7 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 11 1 10 0; #X connect 12 0 9 0; #X connect 13 0 8 0; #X connect 13 0 11 0; #X restore 180 432 pd endstage; #N canvas 233 57 1047 717 pitcher 0; #X floatatom 169 117 0 0 0 0 - - -; #X obj 232 388 *~; #X obj 355 325 line~; #X floatatom 387 142 0 0 0 0 - - -; #X text 375 24 PITCH SHIFTER; #X obj 355 299 pack 0 200; #X obj 387 116 r window; #X obj 169 91 r transpose; #X obj 169 173 exp; #X floatatom 169 199 6 0 0 0 - - -; #X obj 169 289 /; #X obj 296 219 * 0.001; #X obj 464 395 line~; #X obj 464 370 pack 0 200; #X floatatom 464 319 0 0 0 0 - - -; #X obj 464 293 r delay; #X obj 232 414 +~; #X obj 169 440 cos~; #X obj 169 467 *~; #X obj 169 496 +~; #X obj 256 347 wrap~; #X obj 401 390 *~; #X obj 401 423 +~; #X obj 338 450 cos~; #X obj 338 477 *~; #X msg 562 86 \; transpose 0 \; window 100 \; delay 0; #X obj 562 60 loadbang; #X obj 296 246 t b f; #X floatatom 169 315 6 0 0 0 - - -; #X obj 256 320 +~ 0.5; #X obj 169 388 -~ 0.5; #X obj 169 414 *~ 0.5; #X obj 338 389 -~ 0.5; #X obj 338 422 *~ 0.5; #X obj 169 226 - 1; #X obj 169 147 * 0.05776; #X obj 169 252 * -1; #X text 203 116 <-- transposition; #X text 246 129 (halftones); #X text 232 193 speed; #X text 231 207 change; #X text 431 141 <--window (msec); #X text 204 282 tape head; #X obj 169 346 phasor~; #X obj 464 346 max 1.5; #X text 467 252 delay; #X text 464 270 (msec); #X obj 387 169 max 1; #X text 205 295 rotation freq; #X obj 169 523 outlet~; #X obj 24 60 inlet~; #X obj 170 60 inlet; #X obj 24 91 delwrite~ orue 4000; #X obj 232 440 vd~ orue; #X obj 401 452 vd~ orue; #X connect 0 0 35 0; #X connect 1 0 16 0; #X connect 2 0 1 1; #X connect 2 0 21 1; #X connect 3 0 47 0; #X connect 5 0 2 0; #X connect 6 0 3 0; #X connect 7 0 0 0; #X connect 8 0 9 0; #X connect 9 0 34 0; #X connect 10 0 28 0; #X connect 11 0 27 0; #X connect 12 0 16 1; #X connect 12 0 22 1; #X connect 13 0 12 0; #X connect 14 0 44 0; #X connect 15 0 14 0; #X connect 16 0 53 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 49 0; #X connect 20 0 21 0; #X connect 20 0 32 0; #X connect 21 0 22 0; #X connect 22 0 54 0; #X connect 23 0 24 0; #X connect 24 0 19 1; #X connect 26 0 25 0; #X connect 27 0 10 0; #X connect 27 1 10 1; #X connect 28 0 43 0; #X connect 29 0 20 0; #X connect 30 0 31 0; #X connect 31 0 17 0; #X connect 32 0 33 0; #X connect 33 0 23 0; #X connect 34 0 36 0; #X connect 35 0 8 0; #X connect 36 0 10 0; #X connect 43 0 1 0; #X connect 43 0 30 0; #X connect 43 0 29 0; #X connect 44 0 13 0; #X connect 47 0 11 0; #X connect 47 0 5 0; #X connect 50 0 52 0; #X connect 51 0 0 0; #X connect 53 0 18 1; #X connect 54 0 24 1; #X restore 180 328 pd pitcher; #N canvas 81 169 760 576 filter 0; #X obj 95 57 inlet~; #X obj 95 289 *~; #X obj 110 192 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 125 289 *~; #X obj 125 221 == 0; #X obj 227 57 inlet; #N canvas 349 206 450 300 scale 0; #X obj 237 67 loadbang; #X obj 115 110 f \$1; #X obj 173 110 f \$2; #X obj 231 109 f \$3; #X obj 289 110 f \$4; #X obj 58 133 expr if($f2 == $f3 \, -1 \, (((($f1-$f2) / ($f3-$f2)) * ($f5-$f4)) + $f4)) \; $f4 \; $f5 \;, f 39; #X obj 58 42 inlet; #X text 123 44 low; #X text 195 41 high; #X text 262 37 new low, f 4; #X text 328 37 new high, f 4; #X obj 58 214 outlet; #X msg 115 92 0; #X msg 173 91 1; #X msg 231 89 80; #X msg 289 89 3200; #X connect 0 0 14 0; #X connect 0 0 15 0; #X connect 0 0 12 0; #X connect 0 0 13 0; #X connect 1 0 5 1; #X connect 2 0 5 2; #X connect 3 0 5 3; #X connect 4 0 5 4; #X connect 5 0 11 0; #X connect 6 0 5 0; #X connect 12 0 1 0; #X connect 13 0 2 0; #X connect 14 0 3 0; #X connect 15 0 4 0; #X restore 227 107 pd scale; #X obj 110 169 == 1; #X obj 95 348 outlet~; #X obj 227 138 sig~; #X obj 211 221 vcf~ 1; #X connect 0 0 1 0; #X connect 0 0 10 0; #X connect 1 0 8 0; #X connect 2 0 4 0; #X connect 2 0 1 1; #X connect 3 0 8 0; #X connect 4 0 3 0; #X connect 5 0 6 0; #X connect 5 0 7 0; #X connect 6 0 9 0; #X connect 7 0 2 0; #X connect 9 0 10 1; #X connect 10 0 3 1; #X restore 180 400 pd filter; #N canvas 184 192 969 582 reverse 0; #X obj 319 309 line~; #X obj 319 240 pack f f f; #X msg 319 278 \$1 \, \$2 \$3; #X floatatom 509 155 5 0 0 0 - - -; #X obj 319 157 metro 250; #X obj 319 88 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 509 123 / 2; #X obj 320 405 *~, f 13; #X msg 395 278 1 10; #X obj 395 307 line~; #X obj 320 447 outlet~; #X obj 494 270 del; #X obj 509 25 inlet; #X obj 150 78 inlet~; #X obj 319 25 loadbang; #X obj 509 224 - 10; #X msg 494 302 0 10; #X obj 413 25 inlet; #X obj 413 85 t b f; #N canvas 475 116 660 433 bypass 0; #X obj 94 41 inlet~; #X obj 189 307 *~; #X obj 208 261 line 0 0; #X floatatom 208 283 5 0 0 0 - - -; #X floatatom 114 279 5 0 0 0 - - -; #X text 124 308 dry; #X text 220 309 wet; #X obj 114 257 line 1 0; #X obj 93 362 outlet~; #X obj 189 363 outlet~; #X obj 155 41 inlet; #X text 222 100 simple crossfading true by-pass dry by default; #X obj 189 332 *~, f 17; #X obj 288 261 line 0 0; #X text 330 219 ramp on/off signal; #X msg 322 240 0 100; #X msg 288 220 1 100; #X obj 93 307 *~ 1; #X obj 155 99 sel 0 1 2; #X msg 148 236 0 60; #X msg 242 239 0 60; #X msg 114 218 1 60; #X msg 208 219 1 60; #X connect 0 0 1 0; #X connect 0 0 17 0; #X connect 1 0 12 0; #X connect 2 0 3 0; #X connect 3 0 1 1; #X connect 4 0 17 1; #X connect 7 0 4 0; #X connect 10 0 18 0; #X connect 12 0 9 0; #X connect 13 0 12 1; #X connect 15 0 13 0; #X connect 16 0 13 0; #X connect 17 0 8 0; #X connect 18 0 21 0; #X connect 18 0 20 0; #X connect 18 0 15 0; #X connect 18 1 19 0; #X connect 18 1 22 0; #X connect 18 1 16 0; #X connect 18 2 19 0; #X connect 18 2 22 0; #X connect 18 2 16 0; #X connect 19 0 7 0; #X connect 20 0 2 0; #X connect 21 0 7 0; #X connect 22 0 2 0; #X restore 150 243 pd bypass; #X obj 201 139 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 150 355 delwrite~ revv 5000; #X obj 319 355 vd~ revv; #X connect 0 0 22 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 1 2; #X connect 3 0 15 0; #X connect 4 0 1 0; #X connect 4 0 8 0; #X connect 4 0 11 0; #X connect 5 0 4 0; #X connect 6 0 3 0; #X connect 6 0 4 1; #X connect 7 0 10 0; #X connect 8 0 9 0; #X connect 9 0 7 1; #X connect 11 0 16 0; #X connect 12 0 1 1; #X connect 12 0 6 0; #X connect 13 0 19 0; #X connect 14 0 5 0; #X connect 15 0 11 1; #X connect 16 0 9 0; #X connect 17 0 18 0; #X connect 17 0 20 0; #X connect 18 0 6 0; #X connect 18 1 6 1; #X connect 19 0 10 0; #X connect 19 1 21 0; #X connect 20 0 19 1; #X connect 22 0 7 0; #X restore 180 368 pd reverse; #X text 104 48 signal; #X text 456 46 60% off; #X text 226 46 time; #X text 157 46 feedback; #X text 301 50 pitch; #X text 513 52 filter; #N canvas 0 48 709 699 delay 0; #X obj 286 128 inlet; #X obj 438 128 inlet; #X obj 363 457 outlet~; #X obj 363 334 *~ 0.6, f 13; #X obj 363 128 inlet; #X obj 229 283 *~ 1, f 10; #X text 303 284 60%; #X text 291 107 60%; #X text 344 107 delay time; #X text 424 106 feedback; #N canvas 617 124 450 381 60% 0; #X obj 226 78 inlet; #X obj 226 161 select 1 2 3 4 5; #X obj 226 135 random 8; #X obj 225 295 line 0 80; #X msg 225 273 \$1 850; #X msg 244 197 0; #X msg 300 253 0; #X msg 226 179 1; #X msg 281 235 1; #X msg 263 216 0; #X obj 164 161 == 0; #X obj 225 316 outlet; #X text 221 54 60% off; #X obj 226 110 metro 1840; #X connect 0 0 10 0; #X connect 0 0 13 0; #X connect 1 0 7 0; #X connect 1 1 5 0; #X connect 1 2 9 0; #X connect 1 3 8 0; #X connect 1 4 6 0; #X connect 2 0 1 0; #X connect 3 0 11 0; #X connect 4 0 3 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 4 0; #X connect 8 0 4 0; #X connect 9 0 4 0; #X connect 10 0 11 0; #X connect 13 0 2 0; #X restore 286 156 pd 60%; #X obj 229 128 inlet~; #X text 452 334 < feedback; #X obj 478 355 r clear; #X obj 363 226 line~; #X obj 363 247 delread4~ \$0-delay; #X obj 383 385 delwrite~ \$0-delay 3000; #X obj 363 203 pack 0 600; #X connect 0 0 10 0; #X connect 1 0 3 1; #X connect 3 0 16 0; #X connect 3 0 2 0; #X connect 4 0 17 0; #X connect 5 0 16 0; #X connect 10 0 5 1; #X connect 11 0 5 0; #X connect 13 0 16 0; #X connect 14 0 15 0; #X connect 15 0 3 0; #X connect 17 0 14 0; #X restore 180 256 pd delay; #X obj 106 72 r~ two; #X msg 433 264 0; #X text 403 51 reverse; #X obj 406 213 sel 1; #X msg 406 264 2; #N canvas 628 201 595 497 freeze 0; #X obj 96 220 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 3810 1; #X obj 216 235 f; #X obj 216 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 346 235 f; #X obj 346 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 216 301 set \$1; #X msg 346 301 set \$1; #X text 85 165 1) set a level; #X text 204 166 2) fade out; #X text 334 166 3) fade in to previous level; #X floatatom 216 420 5 0 0 0 - - -; #X obj 216 389 route set; #X obj 216 279 line; #X obj 346 279 line; #X floatatom 316 391 5 0 0 0 - - -; #X obj 272 79 sel 1; #X obj 288 446 send toGUI; #X msg 288 424 list /vol2 set \$1; #X text 416 426 change to feedback knob; #X msg 216 257 \$1 \, 1 400; #X obj 126 190 r setfb2; #X obj 98 355 s fb2; #X obj 231 213 r fb2; #X obj 216 323 s setfb2; #X obj 361 213 r fb2; #X obj 346 323 s setfb2; #X obj 216 367 r setfb2; #X obj 316 367 r fb2; #X obj 272 44 tgl 15 0 empty freezefb empty 17 7 0 10 -262144 -1 -1 0 1; #X msg 346 257 1 \, \$1 1000; #X msg 216 445 set \$1; #X obj 289 467 outlet; #X text 293 45 listening wirelessly; #X obj 96 45 r feed2; #X obj 216 467 s fbran2; #X connect 0 0 21 0; #X connect 1 0 19 0; #X connect 2 0 1 0; #X connect 3 0 29 0; #X connect 4 0 3 0; #X connect 5 0 23 0; #X connect 6 0 25 0; #X connect 10 0 30 0; #X connect 10 0 31 0; #X connect 11 0 10 0; #X connect 11 0 17 0; #X connect 12 0 5 0; #X connect 13 0 6 0; #X connect 15 0 1 0; #X connect 15 1 4 0; #X connect 17 0 16 0; #X connect 19 0 12 0; #X connect 20 0 0 0; #X connect 22 0 1 1; #X connect 24 0 3 1; #X connect 26 0 11 0; #X connect 27 0 10 0; #X connect 27 0 14 0; #X connect 28 0 15 0; #X connect 29 0 13 0; #X connect 30 0 34 0; #X connect 33 0 0 0; #X restore 157 116 pd freeze; #X obj 165 72 r feed2; #X obj 229 72 r time2; #X obj 306 72 r pitch2; #X obj 406 72 r rev2; #X obj 460 72 r thin2; #N canvas 749 262 510 441 vu 0; #X obj 177 284 change; #X obj 263 284 change; #X obj 351 284 change; #X msg 263 322 14; #X msg 90 322 7; #X msg 177 322 16; #X msg 351 322 13; #X obj 90 284 change; #X obj 90 30 inlet~; #X msg 90 374 \; vu2 color \$1; #X floatatom 90 194 5 0 0 0 - - -; #X obj 90 146 / 10; #X obj 351 240 > 8.5; #X obj 90 90 env~; #X obj 90 240 < 1.9; #X obj 177 240 < 5.9; #X obj 263 240 < 8.4; #X connect 0 0 5 0; #X connect 1 0 3 0; #X connect 2 0 6 0; #X connect 3 0 9 0; #X connect 4 0 9 0; #X connect 5 0 9 0; #X connect 6 0 9 0; #X connect 7 0 4 0; #X connect 8 0 13 0; #X connect 10 0 12 0; #X connect 10 0 14 0; #X connect 10 0 15 0; #X connect 10 0 16 0; #X connect 11 0 10 0; #X connect 12 0 2 0; #X connect 13 0 11 0; #X connect 14 0 7 0; #X connect 15 0 0 0; #X connect 16 0 1 0; #X restore 180 456 pd vu; #X obj 516 72 r filter2; #X connect 0 0 22 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X connect 3 0 2 0; #X connect 10 0 1 0; #X connect 11 0 10 0; #X connect 12 0 3 1; #X connect 14 0 15 0; #X connect 14 1 12 0; #X connect 15 0 3 1; #X connect 16 0 10 3; #X connect 17 0 10 3; #X connect 18 0 3 2; #X connect 18 0 10 2; #X connect 19 0 1 1; #X connect 20 0 14 0; #X connect 21 0 10 1; #X connect 23 0 2 1; #X restore 638 189 pd tap_II; #X f 7; #X obj 673 126 tgl 25 0 thin2 sixty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 766 38 cnv 15 260 200 empty tap3 empty 20 12 0 14 -225280 -262144 0; #X obj 787 73 vsl 30 140 0.1 1 0 0 feed3 fbran3 empty 0 -9 0 10 -262144 -1 -1 3089 0; #X obj 847 73 vsl 30 140 0 1 0 0 filter3 flt3 empty 0 -9 0 10 -262144 -1 -1 12649 0; #X text 776 54 feedback; #X text 963 50 pitch; #X text 841 54 filter; #N canvas 144 35 734 500 tap_III 0; #N canvas 12 23 804 612 endstage 0; #X obj 105 64 inlet~; #X obj 172 261 outlet~; #X obj 103 336 throw~ L; #N canvas 342 130 789 622 autopan 0; #X obj 224 52 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 224 92 random 8; #X msg 308 200 0.6; #X msg 224 132 0.4; #X msg 266 166 0.5; #X floatatom 223 269 5 0 0 0 - - -; #X msg 327 217 0.55; #X obj 224 113 select 1 2 3 4 5 6; #X msg 349 234 0.45; #X obj 223 247 line 0 80; #X obj 80 53 inlet~; #X obj 240 52 loadbang; #X obj 134 288 *~; #X obj 100 260 expr 1 - $f1; #X obj 79 288 *~ 1; #X obj 79 310 outlet~; #X obj 134 310 outlet~; #X text 110 82 mono input -> autopanner slow sweep, f 13; #X msg 223 225 \$1 3850; #X obj 224 71 metro 5800; #X msg 243 149 0.38; #X msg 286 183 0.67; #X connect 0 0 19 0; #X connect 1 0 7 0; #X connect 2 0 18 0; #X connect 3 0 18 0; #X connect 4 0 18 0; #X connect 5 0 12 1; #X connect 5 0 13 0; #X connect 6 0 18 0; #X connect 7 0 3 0; #X connect 7 1 20 0; #X connect 7 2 4 0; #X connect 7 3 21 0; #X connect 7 4 2 0; #X connect 7 5 6 0; #X connect 7 6 8 0; #X connect 8 0 18 0; #X connect 9 0 5 0; #X connect 10 0 14 0; #X connect 10 0 12 0; #X connect 11 0 0 0; #X connect 12 0 16 0; #X connect 13 0 14 1; #X connect 14 0 15 0; #X connect 18 0 9 0; #X connect 19 0 1 0; #X connect 20 0 18 0; #X connect 21 0 18 0; #X restore 104 285 pd autopan; #X obj 161 336 throw~ R; #X obj 105 199 *~ 1, f 9; #X obj 156 169 line; #X msg 156 140 \$1 600; #X obj 156 105 == 0; #X msg 225 169 color \$1; #X msg 252 140 0; #X obj 225 105 sel 1; #X msg 225 140 13; #X obj 156 64 r mute3; #X obj 225 199 s muted3; #X connect 0 0 5 0; #X connect 3 0 2 0; #X connect 3 1 4 0; #X connect 5 0 1 0; #X connect 5 0 3 0; #X connect 6 0 5 1; #X connect 7 0 6 0; #X connect 8 0 7 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 11 1 10 0; #X connect 12 0 9 0; #X connect 13 0 8 0; #X connect 13 0 11 0; #X restore 180 432 pd endstage; #N canvas 0 38 1280 699 delay 0; #X text 467 334 <-- feedback; #X obj 286 128 inlet; #X obj 438 128 inlet; #X obj 363 427 outlet~; #X obj 363 334 *~ 0.6, f 13; #X obj 363 128 inlet; #X obj 193 303 *~ 1, f 16; #X text 298 303 60%; #X text 291 107 60%; #X text 344 107 delay time; #X text 424 106 feedback; #N canvas 617 124 450 381 60% 0; #X obj 226 78 inlet; #X obj 226 161 select 1 2 3 4 5; #X obj 226 135 random 8; #X obj 225 295 line 0 80; #X msg 225 273 \$1 850; #X msg 244 197 0; #X msg 300 253 0; #X msg 226 179 1; #X msg 281 235 1; #X msg 263 216 0; #X obj 164 161 == 0; #X obj 225 316 outlet; #X text 221 54 60% off; #X obj 226 110 metro 1957; #X connect 0 0 10 0; #X connect 0 0 13 0; #X connect 1 0 7 0; #X connect 1 1 5 0; #X connect 1 2 9 0; #X connect 1 3 8 0; #X connect 1 4 6 0; #X connect 2 0 1 0; #X connect 3 0 11 0; #X connect 4 0 3 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 4 0; #X connect 8 0 4 0; #X connect 9 0 4 0; #X connect 10 0 11 0; #X connect 13 0 2 0; #X restore 286 156 pd 60%; #X obj 193 128 inlet~; #X obj 383 385 delwrite~ kadare 3000; #X obj 467 355 r clear; #X obj 363 283 delread4~ kadare 660; #X obj 363 226 line~; #X obj 363 203 pack 0 600; #X connect 1 0 11 0; #X connect 2 0 4 1; #X connect 4 0 3 0; #X connect 4 0 13 0; #X connect 5 0 17 0; #X connect 6 0 13 0; #X connect 11 0 6 1; #X connect 12 0 6 0; #X connect 14 0 13 0; #X connect 15 0 4 0; #X connect 16 0 15 0; #X connect 17 0 16 0; #X restore 180 264 pd delay; #N canvas 233 57 1047 717 pitcher 0; #X floatatom 169 117 0 0 0 0 - - -; #X obj 232 388 *~; #X obj 355 325 line~; #X floatatom 387 142 0 0 0 0 - - -; #X text 375 24 PITCH SHIFTER; #X obj 355 299 pack 0 200; #X obj 387 116 r window; #X obj 169 91 r transpose; #X obj 169 173 exp; #X floatatom 169 199 6 0 0 0 - - -; #X obj 169 289 /; #X obj 296 219 * 0.001; #X obj 464 395 line~; #X obj 464 370 pack 0 200; #X floatatom 464 319 0 0 0 0 - - -; #X obj 464 293 r delay; #X obj 232 414 +~; #X obj 169 440 cos~; #X obj 169 467 *~; #X obj 169 496 +~; #X obj 256 347 wrap~; #X obj 401 390 *~; #X obj 401 423 +~; #X obj 338 450 cos~; #X obj 338 477 *~; #X obj 296 246 t b f; #X floatatom 169 315 6 0 0 0 - - -; #X obj 256 320 +~ 0.5; #X obj 169 388 -~ 0.5; #X obj 169 414 *~ 0.5; #X obj 338 389 -~ 0.5; #X obj 338 422 *~ 0.5; #X obj 169 226 - 1; #X obj 169 147 * 0.05776; #X obj 169 252 * -1; #X text 203 116 <-- transposition; #X text 246 129 (halftones); #X text 232 193 speed; #X text 231 207 change; #X text 431 141 <--window (msec); #X text 204 282 tape head; #X obj 169 346 phasor~; #X obj 464 346 max 1.5; #X text 467 252 delay; #X text 464 270 (msec); #X obj 387 169 max 1; #X text 205 295 rotation freq; #X obj 169 523 outlet~; #X obj 24 60 inlet~; #X obj 170 60 inlet; #X obj 24 91 delwrite~ oran 4000; #X obj 232 440 vd~ oran; #X obj 401 452 vd~ oran; #X connect 0 0 33 0; #X connect 1 0 16 0; #X connect 2 0 1 1; #X connect 2 0 21 1; #X connect 3 0 45 0; #X connect 5 0 2 0; #X connect 6 0 3 0; #X connect 7 0 0 0; #X connect 8 0 9 0; #X connect 9 0 32 0; #X connect 10 0 26 0; #X connect 11 0 25 0; #X connect 12 0 16 1; #X connect 12 0 22 1; #X connect 13 0 12 0; #X connect 14 0 42 0; #X connect 15 0 14 0; #X connect 16 0 51 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 47 0; #X connect 20 0 21 0; #X connect 20 0 30 0; #X connect 21 0 22 0; #X connect 22 0 52 0; #X connect 23 0 24 0; #X connect 24 0 19 1; #X connect 25 0 10 0; #X connect 25 1 10 1; #X connect 26 0 41 0; #X connect 27 0 20 0; #X connect 28 0 29 0; #X connect 29 0 17 0; #X connect 30 0 31 0; #X connect 31 0 23 0; #X connect 32 0 34 0; #X connect 33 0 8 0; #X connect 34 0 10 0; #X connect 41 0 1 0; #X connect 41 0 28 0; #X connect 41 0 27 0; #X connect 42 0 13 0; #X connect 45 0 11 0; #X connect 45 0 5 0; #X connect 48 0 50 0; #X connect 49 0 0 0; #X connect 51 0 18 1; #X connect 52 0 24 1; #X restore 180 328 pd pitcher; #N canvas 81 169 760 576 filter 0; #X obj 95 57 inlet~; #X obj 95 289 *~; #X obj 110 192 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 125 289 *~; #X obj 125 221 == 0; #X obj 227 57 inlet; #N canvas 349 206 450 300 scale 0; #X obj 237 67 loadbang; #X obj 115 110 f \$1; #X obj 173 110 f \$2; #X obj 231 109 f \$3; #X obj 289 110 f \$4; #X obj 58 133 expr if($f2 == $f3 \, -1 \, (((($f1-$f2) / ($f3-$f2)) * ($f5-$f4)) + $f4)) \; $f4 \; $f5 \;, f 39; #X obj 58 42 inlet; #X text 123 44 low; #X text 195 41 high; #X text 262 37 new low, f 4; #X text 328 37 new high, f 4; #X obj 58 214 outlet; #X msg 115 92 0; #X msg 173 91 1; #X msg 289 89 3400; #X msg 231 89 60; #X connect 0 0 15 0; #X connect 0 0 14 0; #X connect 0 0 12 0; #X connect 0 0 13 0; #X connect 1 0 5 1; #X connect 2 0 5 2; #X connect 3 0 5 3; #X connect 4 0 5 4; #X connect 5 0 11 0; #X connect 6 0 5 0; #X connect 12 0 1 0; #X connect 13 0 2 0; #X connect 14 0 4 0; #X connect 15 0 3 0; #X restore 227 107 pd scale; #X obj 110 169 == 1; #X obj 95 348 outlet~; #X obj 227 138 sig~; #X obj 211 221 vcf~ 1; #X connect 0 0 1 0; #X connect 0 0 10 0; #X connect 1 0 8 0; #X connect 2 0 4 0; #X connect 2 0 1 1; #X connect 3 0 8 0; #X connect 4 0 3 0; #X connect 5 0 6 0; #X connect 5 0 7 0; #X connect 6 0 9 0; #X connect 7 0 2 0; #X connect 9 0 10 1; #X connect 10 0 3 1; #X restore 180 400 pd filter; #N canvas 184 192 969 582 reverse 0; #X obj 319 309 line~; #X obj 319 240 pack f f f; #X msg 319 278 \$1 \, \$2 \$3; #X floatatom 509 155 5 0 0 0 - - -; #X obj 319 157 metro 250; #X obj 319 88 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 509 123 / 2; #X obj 320 405 *~, f 13; #X msg 395 278 1 10; #X obj 395 307 line~; #X obj 320 447 outlet~; #X obj 494 270 del; #X obj 509 25 inlet; #X obj 150 78 inlet~; #X obj 319 25 loadbang; #X obj 509 224 - 10; #X msg 494 302 0 10; #X obj 413 25 inlet; #X obj 413 85 t b f; #N canvas 475 116 660 433 bypass 0; #X obj 94 41 inlet~; #X obj 189 307 *~; #X obj 208 261 line 0 0; #X floatatom 208 283 5 0 0 0 - - -; #X floatatom 114 279 5 0 0 0 - - -; #X text 124 308 dry; #X text 220 309 wet; #X obj 114 257 line 1 0; #X obj 93 362 outlet~; #X obj 189 363 outlet~; #X obj 155 41 inlet; #X text 222 100 simple crossfading true by-pass dry by default; #X obj 189 332 *~, f 17; #X obj 288 261 line 0 0; #X text 330 219 ramp on/off signal; #X msg 322 240 0 100; #X msg 288 220 1 100; #X obj 93 307 *~ 1; #X obj 155 99 sel 0 1 2; #X msg 148 236 0 60; #X msg 242 239 0 60; #X msg 114 218 1 60; #X msg 208 219 1 60; #X connect 0 0 1 0; #X connect 0 0 17 0; #X connect 1 0 12 0; #X connect 2 0 3 0; #X connect 3 0 1 1; #X connect 4 0 17 1; #X connect 7 0 4 0; #X connect 10 0 18 0; #X connect 12 0 9 0; #X connect 13 0 12 1; #X connect 15 0 13 0; #X connect 16 0 13 0; #X connect 17 0 8 0; #X connect 18 0 21 0; #X connect 18 0 20 0; #X connect 18 0 15 0; #X connect 18 1 19 0; #X connect 18 1 22 0; #X connect 18 1 16 0; #X connect 18 2 19 0; #X connect 18 2 22 0; #X connect 18 2 16 0; #X connect 19 0 7 0; #X connect 20 0 2 0; #X connect 21 0 7 0; #X connect 22 0 2 0; #X restore 150 243 pd bypass; #X obj 201 139 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 150 355 delwrite~ rerv 5000; #X obj 319 355 vd~ rerv; #X connect 0 0 22 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 1 2; #X connect 3 0 15 0; #X connect 4 0 1 0; #X connect 4 0 8 0; #X connect 4 0 11 0; #X connect 5 0 4 0; #X connect 6 0 3 0; #X connect 6 0 4 1; #X connect 7 0 10 0; #X connect 8 0 9 0; #X connect 9 0 7 1; #X connect 11 0 16 0; #X connect 12 0 1 1; #X connect 12 0 6 0; #X connect 13 0 19 0; #X connect 14 0 5 0; #X connect 15 0 11 1; #X connect 16 0 9 0; #X connect 17 0 18 0; #X connect 17 0 20 0; #X connect 18 0 6 0; #X connect 18 1 6 1; #X connect 19 0 10 0; #X connect 19 1 21 0; #X connect 20 0 19 1; #X connect 22 0 7 0; #X restore 180 368 pd reverse; #X text 104 48 signal; #X text 456 46 60% off; #X text 236 46 time; #X text 167 46 feedback; #X text 291 50 pitch; #X text 533 52 filter; #X obj 110 72 r~ tri; #X msg 393 264 0; #X text 363 51 reverse; #X obj 366 213 sel 1; #X msg 366 264 2; #N canvas 652 230 595 497 freeze 0; #X obj 216 235 f; #X obj 216 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 346 235 f; #X obj 346 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 216 301 set \$1; #X msg 346 301 set \$1; #X text 85 165 1) set a level; #X text 204 166 2) fade out; #X text 334 166 3) fade in to previous level; #X floatatom 216 420 5 0 0 0 - - -; #X obj 216 389 route set; #X obj 216 279 line; #X obj 346 279 line; #X floatatom 316 391 5 0 0 0 - - -; #X obj 269 99 sel 1; #X obj 288 446 send toGUI; #X msg 288 424 list /vol2 set \$1; #X text 416 426 change to feedback knob; #X msg 216 257 \$1 \, 1 400; #X obj 269 64 tgl 15 0 empty freezefb empty 17 7 0 10 -262144 -1 -1 0 1; #X msg 346 257 1 \, \$1 1000; #X msg 216 445 set \$1; #X obj 99 194 r setfb3; #X obj 231 213 r fb3; #X obj 361 213 r fb3; #X obj 216 323 s setfb3; #X obj 346 323 s setfb3; #X obj 216 367 r setfb3; #X obj 316 367 r fb3; #X obj 99 367 s fb3; #X obj 99 220 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 3810 1; #X obj 276 467 outlet; #X obj 99 48 r feed3; #X obj 216 467 s fbran3; #X connect 0 0 18 0; #X connect 1 0 0 0; #X connect 2 0 20 0; #X connect 3 0 2 0; #X connect 4 0 25 0; #X connect 5 0 26 0; #X connect 9 0 21 0; #X connect 9 0 31 0; #X connect 10 0 9 0; #X connect 10 0 16 0; #X connect 11 0 4 0; #X connect 12 0 5 0; #X connect 14 0 0 0; #X connect 14 1 3 0; #X connect 16 0 15 0; #X connect 18 0 11 0; #X connect 19 0 14 0; #X connect 20 0 12 0; #X connect 21 0 33 0; #X connect 22 0 30 0; #X connect 23 0 0 1; #X connect 24 0 2 1; #X connect 27 0 10 0; #X connect 28 0 9 0; #X connect 28 0 13 0; #X connect 30 0 29 0; #X connect 32 0 30 0; #X restore 153 117 pd freeze; #X obj 175 72 r feed3; #X obj 239 72 r time3; #X obj 296 72 r pitch3; #X obj 366 72 r rev3; #X obj 460 72 r thin3; #X obj 536 72 r filter3; #N canvas 560 196 510 441 vu 0; #X obj 177 284 change; #X obj 263 284 change; #X obj 351 284 change; #X msg 263 322 14; #X msg 90 322 7; #X msg 177 322 16; #X msg 351 322 13; #X obj 90 284 change; #X obj 90 30 inlet~; #X msg 90 374 \; vu3 color \$1; #X floatatom 90 194 5 0 0 0 - - -; #X obj 90 146 / 10; #X obj 351 240 > 8.5; #X obj 90 90 env~; #X obj 90 240 < 1.9; #X obj 177 240 < 5.9; #X obj 263 240 < 8.4; #X connect 0 0 5 0; #X connect 1 0 3 0; #X connect 2 0 6 0; #X connect 3 0 9 0; #X connect 4 0 9 0; #X connect 5 0 9 0; #X connect 6 0 9 0; #X connect 7 0 4 0; #X connect 8 0 13 0; #X connect 10 0 12 0; #X connect 10 0 14 0; #X connect 10 0 15 0; #X connect 10 0 16 0; #X connect 11 0 10 0; #X connect 12 0 2 0; #X connect 13 0 11 0; #X connect 14 0 7 0; #X connect 15 0 0 0; #X connect 16 0 1 0; #X restore 180 456 pd vu; #X connect 0 0 23 0; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 3 0 0 0; #X connect 4 0 3 0; #X connect 11 0 1 0; #X connect 12 0 4 1; #X connect 14 0 15 0; #X connect 14 1 12 0; #X connect 15 0 4 1; #X connect 16 0 1 3; #X connect 17 0 1 3; #X connect 18 0 1 2; #X connect 18 0 4 2; #X connect 19 0 2 1; #X connect 20 0 14 0; #X connect 21 0 1 1; #X connect 22 0 3 1; #X restore 907 189 pd tap_III; #X f 7; #X obj 944 126 tgl 25 0 thin3 sixty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 226 248 cnv 15 260 200 empty tap4 empty 20 12 0 14 -225280 -262144 0; #X obj 248 281 vsl 30 140 0.1 1 0 0 feed4 fbran4 empty 0 -9 0 10 -262144 -1 -1 3089 0; #X obj 309 281 vsl 30 140 0 1 0 0 filter4 flt4 empty 0 -9 0 10 -262144 -1 -1 11676 0; #X text 236 262 feedback; #X text 427 263 pitch; #X text 303 263 filter; #X obj 405 336 tgl 25 0 thin4 sixty empty 17 7 0 10 -262144 -1 -1 0 1; #N canvas 528 215 734 500 tap_IV 0; #N canvas 12 23 804 612 endstage 0; #X obj 105 64 inlet~; #X obj 172 261 outlet~; #X obj 103 336 throw~ L; #N canvas 342 130 789 622 autopan 0; #X obj 224 52 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 224 92 random 8; #X msg 308 200 0.6; #X msg 224 132 0.4; #X msg 266 166 0.5; #X floatatom 223 269 5 0 0 0 - - -; #X msg 327 217 0.55; #X obj 224 113 select 1 2 3 4 5 6; #X msg 349 234 0.45; #X obj 223 247 line 0 80; #X obj 80 53 inlet~; #X obj 240 52 loadbang; #X obj 134 288 *~; #X obj 100 260 expr 1 - $f1; #X obj 79 288 *~ 1; #X obj 79 310 outlet~; #X obj 134 310 outlet~; #X text 110 82 mono input -> autopanner slow sweep, f 13; #X msg 223 225 \$1 3850; #X msg 243 149 0.38; #X msg 286 183 0.67; #X obj 224 71 metro 5870; #X connect 0 0 21 0; #X connect 1 0 7 0; #X connect 2 0 18 0; #X connect 3 0 18 0; #X connect 4 0 18 0; #X connect 5 0 12 1; #X connect 5 0 13 0; #X connect 6 0 18 0; #X connect 7 0 3 0; #X connect 7 1 19 0; #X connect 7 2 4 0; #X connect 7 3 20 0; #X connect 7 4 2 0; #X connect 7 5 6 0; #X connect 7 6 8 0; #X connect 8 0 18 0; #X connect 9 0 5 0; #X connect 10 0 14 0; #X connect 10 0 12 0; #X connect 11 0 0 0; #X connect 12 0 16 0; #X connect 13 0 14 1; #X connect 14 0 15 0; #X connect 18 0 9 0; #X connect 19 0 18 0; #X connect 20 0 18 0; #X connect 21 0 1 0; #X restore 104 285 pd autopan; #X obj 161 336 throw~ R; #X obj 105 199 *~ 1, f 9; #X obj 156 169 line; #X msg 156 140 \$1 600; #X obj 156 105 == 0; #X msg 225 169 color \$1; #X msg 252 140 0; #X obj 225 105 sel 1; #X msg 225 140 13; #X obj 156 64 r mute4; #X obj 225 199 s muted4; #X connect 0 0 5 0; #X connect 3 0 2 0; #X connect 3 1 4 0; #X connect 5 0 1 0; #X connect 5 0 3 0; #X connect 6 0 5 1; #X connect 7 0 6 0; #X connect 8 0 7 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 11 1 10 0; #X connect 12 0 9 0; #X connect 13 0 8 0; #X connect 13 0 11 0; #X restore 180 432 pd endstage; #N canvas 0 37 1280 699 delay 0; #X text 467 334 <-- feedback; #X obj 286 128 inlet; #X obj 438 128 inlet; #X obj 363 427 outlet~; #X obj 363 334 *~ 0.6, f 13; #X obj 363 128 inlet; #X obj 193 303 *~ 1, f 16; #X text 298 303 60%; #X text 291 107 60%; #X text 344 107 delay time; #X text 424 106 feedback; #N canvas 617 124 450 381 60% 0; #X obj 226 78 inlet; #X obj 226 161 select 1 2 3 4 5; #X obj 226 135 random 8; #X obj 225 295 line 0 80; #X msg 225 273 \$1 850; #X msg 244 197 0; #X msg 300 253 0; #X msg 226 179 1; #X msg 281 235 1; #X msg 263 216 0; #X obj 164 161 == 0; #X obj 225 316 outlet; #X text 221 54 60% off; #X obj 226 110 metro 1300; #X connect 0 0 10 0; #X connect 0 0 13 0; #X connect 1 0 7 0; #X connect 1 1 5 0; #X connect 1 2 9 0; #X connect 1 3 8 0; #X connect 1 4 6 0; #X connect 2 0 1 0; #X connect 3 0 11 0; #X connect 4 0 3 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 4 0; #X connect 8 0 4 0; #X connect 9 0 4 0; #X connect 10 0 11 0; #X connect 13 0 2 0; #X restore 286 156 pd 60%; #X obj 193 128 inlet~; #X obj 383 385 delwrite~ adary 3000; #X obj 467 355 r clear; #X obj 363 226 line~; #X obj 363 203 pack 0 600; #X obj 363 283 delread4~ adary 660; #X connect 1 0 11 0; #X connect 2 0 4 1; #X connect 4 0 3 0; #X connect 4 0 13 0; #X connect 5 0 16 0; #X connect 6 0 13 0; #X connect 11 0 6 1; #X connect 12 0 6 0; #X connect 14 0 13 0; #X connect 15 0 17 0; #X connect 16 0 15 0; #X connect 17 0 4 0; #X restore 180 264 pd delay; #N canvas 233 57 1047 717 pitcher 0; #X floatatom 169 117 0 0 0 0 - - -; #X obj 232 388 *~; #X obj 355 325 line~; #X floatatom 387 142 0 0 0 0 - - -; #X text 375 24 PITCH SHIFTER; #X obj 355 299 pack 0 200; #X obj 387 116 r window; #X obj 169 91 r transpose; #X obj 169 173 exp; #X floatatom 169 199 6 0 0 0 - - -; #X obj 169 289 /; #X obj 296 219 * 0.001; #X obj 464 395 line~; #X obj 464 370 pack 0 200; #X floatatom 464 319 0 0 0 0 - - -; #X obj 464 293 r delay; #X obj 232 414 +~; #X obj 169 440 cos~; #X obj 169 467 *~; #X obj 169 496 +~; #X obj 256 347 wrap~; #X obj 401 390 *~; #X obj 401 423 +~; #X obj 338 450 cos~; #X obj 338 477 *~; #X obj 296 246 t b f; #X floatatom 169 315 6 0 0 0 - - -; #X obj 256 320 +~ 0.5; #X obj 169 388 -~ 0.5; #X obj 169 414 *~ 0.5; #X obj 338 389 -~ 0.5; #X obj 338 422 *~ 0.5; #X obj 169 226 - 1; #X obj 169 147 * 0.05776; #X obj 169 252 * -1; #X text 203 116 <-- transposition; #X text 246 129 (halftones); #X text 232 193 speed; #X text 231 207 change; #X text 431 141 <--window (msec); #X text 204 282 tape head; #X obj 169 346 phasor~; #X obj 464 346 max 1.5; #X text 467 252 delay; #X text 464 270 (msec); #X obj 387 169 max 1; #X text 205 295 rotation freq; #X obj 169 523 outlet~; #X obj 24 60 inlet~; #X obj 170 60 inlet; #X obj 24 91 delwrite~ doramoe 4000; #X obj 232 440 vd~ doramoe; #X obj 401 452 vd~ doramoe; #X connect 0 0 33 0; #X connect 1 0 16 0; #X connect 2 0 1 1; #X connect 2 0 21 1; #X connect 3 0 45 0; #X connect 5 0 2 0; #X connect 6 0 3 0; #X connect 7 0 0 0; #X connect 8 0 9 0; #X connect 9 0 32 0; #X connect 10 0 26 0; #X connect 11 0 25 0; #X connect 12 0 16 1; #X connect 12 0 22 1; #X connect 13 0 12 0; #X connect 14 0 42 0; #X connect 15 0 14 0; #X connect 16 0 51 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 47 0; #X connect 20 0 21 0; #X connect 20 0 30 0; #X connect 21 0 22 0; #X connect 22 0 52 0; #X connect 23 0 24 0; #X connect 24 0 19 1; #X connect 25 0 10 0; #X connect 25 1 10 1; #X connect 26 0 41 0; #X connect 27 0 20 0; #X connect 28 0 29 0; #X connect 29 0 17 0; #X connect 30 0 31 0; #X connect 31 0 23 0; #X connect 32 0 34 0; #X connect 33 0 8 0; #X connect 34 0 10 0; #X connect 41 0 1 0; #X connect 41 0 28 0; #X connect 41 0 27 0; #X connect 42 0 13 0; #X connect 45 0 11 0; #X connect 45 0 5 0; #X connect 48 0 50 0; #X connect 49 0 0 0; #X connect 51 0 18 1; #X connect 52 0 24 1; #X restore 180 328 pd pitcher; #N canvas 55 198 760 576 filter 0; #X obj 95 57 inlet~; #X obj 95 289 *~; #X obj 110 192 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 125 289 *~; #X obj 125 221 == 0; #X obj 227 57 inlet; #N canvas 349 206 450 300 scale 0; #X obj 237 67 loadbang; #X obj 115 110 f \$1; #X obj 173 110 f \$2; #X obj 231 109 f \$3; #X obj 289 110 f \$4; #X obj 58 133 expr if($f2 == $f3 \, -1 \, (((($f1-$f2) / ($f3-$f2)) * ($f5-$f4)) + $f4)) \; $f4 \; $f5 \;, f 39; #X obj 58 42 inlet; #X text 123 44 low; #X text 195 41 high; #X text 262 37 new low, f 4; #X text 328 37 new high, f 4; #X obj 58 214 outlet; #X msg 115 92 0; #X msg 173 91 1; #X msg 231 89 110; #X msg 289 89 3000; #X connect 0 0 14 0; #X connect 0 0 15 0; #X connect 0 0 12 0; #X connect 0 0 13 0; #X connect 1 0 5 1; #X connect 2 0 5 2; #X connect 3 0 5 3; #X connect 4 0 5 4; #X connect 5 0 11 0; #X connect 6 0 5 0; #X connect 12 0 1 0; #X connect 13 0 2 0; #X connect 14 0 3 0; #X connect 15 0 4 0; #X restore 227 107 pd scale; #X obj 110 169 == 1; #X obj 95 348 outlet~; #X obj 227 138 sig~; #X obj 211 221 vcf~ 1; #X connect 0 0 1 0; #X connect 0 0 10 0; #X connect 1 0 8 0; #X connect 2 0 4 0; #X connect 2 0 1 1; #X connect 3 0 8 0; #X connect 4 0 3 0; #X connect 5 0 6 0; #X connect 5 0 7 0; #X connect 6 0 9 0; #X connect 7 0 2 0; #X connect 9 0 10 1; #X connect 10 0 3 1; #X restore 180 400 pd filter; #N canvas 184 192 969 582 reverse 0; #X obj 319 309 line~; #X obj 319 240 pack f f f; #X msg 319 278 \$1 \, \$2 \$3; #X floatatom 509 155 5 0 0 0 - - -; #X obj 319 157 metro 250; #X obj 319 88 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 509 123 / 2; #X obj 320 405 *~, f 13; #X msg 395 278 1 10; #X obj 395 307 line~; #X obj 320 447 outlet~; #X obj 494 270 del; #X obj 509 25 inlet; #X obj 150 78 inlet~; #X obj 319 25 loadbang; #X obj 509 224 - 10; #X msg 494 302 0 10; #X obj 413 25 inlet; #X obj 413 85 t b f; #N canvas 475 116 660 433 bypass 0; #X obj 94 41 inlet~; #X obj 189 307 *~; #X obj 208 261 line 0 0; #X floatatom 208 283 5 0 0 0 - - -; #X floatatom 114 279 5 0 0 0 - - -; #X text 124 308 dry; #X text 220 309 wet; #X obj 114 257 line 1 0; #X obj 93 362 outlet~; #X obj 189 363 outlet~; #X obj 155 41 inlet; #X text 222 100 simple crossfading true by-pass dry by default; #X obj 189 332 *~, f 17; #X obj 288 261 line 0 0; #X text 330 219 ramp on/off signal; #X msg 322 240 0 100; #X msg 288 220 1 100; #X obj 93 307 *~ 1; #X obj 155 99 sel 0 1 2; #X msg 148 236 0 60; #X msg 242 239 0 60; #X msg 114 218 1 60; #X msg 208 219 1 60; #X connect 0 0 1 0; #X connect 0 0 17 0; #X connect 1 0 12 0; #X connect 2 0 3 0; #X connect 3 0 1 1; #X connect 4 0 17 1; #X connect 7 0 4 0; #X connect 10 0 18 0; #X connect 12 0 9 0; #X connect 13 0 12 1; #X connect 15 0 13 0; #X connect 16 0 13 0; #X connect 17 0 8 0; #X connect 18 0 21 0; #X connect 18 0 20 0; #X connect 18 0 15 0; #X connect 18 1 19 0; #X connect 18 1 22 0; #X connect 18 1 16 0; #X connect 18 2 19 0; #X connect 18 2 22 0; #X connect 18 2 16 0; #X connect 19 0 7 0; #X connect 20 0 2 0; #X connect 21 0 7 0; #X connect 22 0 2 0; #X restore 150 243 pd bypass; #X obj 201 139 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 2 1; #X obj 150 355 delwrite~ erervo 5000; #X obj 319 355 vd~ erervo; #X connect 0 0 22 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 1 2; #X connect 3 0 15 0; #X connect 4 0 1 0; #X connect 4 0 8 0; #X connect 4 0 11 0; #X connect 5 0 4 0; #X connect 6 0 3 0; #X connect 6 0 4 1; #X connect 7 0 10 0; #X connect 8 0 9 0; #X connect 9 0 7 1; #X connect 11 0 16 0; #X connect 12 0 1 1; #X connect 12 0 6 0; #X connect 13 0 19 0; #X connect 14 0 5 0; #X connect 15 0 11 1; #X connect 16 0 9 0; #X connect 17 0 18 0; #X connect 17 0 20 0; #X connect 18 0 6 0; #X connect 18 1 6 1; #X connect 19 0 10 0; #X connect 19 1 21 0; #X connect 20 0 19 1; #X connect 22 0 7 0; #X restore 180 368 pd reverse; #X text 104 48 signal; #X text 486 46 60% off; #X text 226 46 time; #X text 157 46 feedback; #X text 281 50 pitch; #X text 563 52 filter; #X obj 110 72 r~ fur; #X msg 433 264 0; #X text 403 51 reverse; #X obj 406 213 sel 1; #X msg 406 264 2; #N canvas 599 253 595 497 freeze 0; #X obj 216 235 f; #X obj 216 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 346 235 f; #X obj 346 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 216 301 set \$1; #X msg 346 301 set \$1; #X text 85 165 1) set a level; #X text 204 166 2) fade out; #X text 334 166 3) fade in to previous level; #X floatatom 216 420 5 0 0 0 - - -; #X obj 216 389 route set; #X obj 216 279 line; #X obj 346 279 line; #X floatatom 316 391 5 0 0 0 - - -; #X obj 269 99 sel 1; #X obj 288 446 send toGUI; #X msg 288 424 list /vol2 set \$1; #X text 416 426 change to feedback knob; #X msg 216 257 \$1 \, 1 400; #X obj 269 64 tgl 15 0 empty freezefb empty 17 7 0 10 -262144 -1 -1 0 1; #X msg 346 257 1 \, \$1 1000; #X msg 216 445 set \$1; #X obj 99 220 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 3810 1; #X obj 276 467 outlet; #X obj 99 194 r setfb4; #X obj 99 367 s fb4; #X obj 231 213 r fb4; #X obj 216 323 s setfb4; #X obj 361 213 r fb4; #X obj 346 323 s setfb4; #X obj 216 367 r setfb4; #X obj 316 367 r fb4; #X obj 99 48 r feed4; #X obj 216 467 s fbran4; #X connect 0 0 18 0; #X connect 1 0 0 0; #X connect 2 0 20 0; #X connect 3 0 2 0; #X connect 4 0 27 0; #X connect 5 0 29 0; #X connect 9 0 21 0; #X connect 9 0 23 0; #X connect 10 0 9 0; #X connect 10 0 16 0; #X connect 11 0 4 0; #X connect 12 0 5 0; #X connect 14 0 0 0; #X connect 14 1 3 0; #X connect 16 0 15 0; #X connect 18 0 11 0; #X connect 19 0 14 0; #X connect 20 0 12 0; #X connect 21 0 33 0; #X connect 22 0 25 0; #X connect 24 0 22 0; #X connect 26 0 0 1; #X connect 28 0 2 1; #X connect 30 0 10 0; #X connect 31 0 9 0; #X connect 31 0 13 0; #X connect 32 0 22 0; #X restore 171 140 pd freeze; #N canvas 576 286 510 441 vu 0; #X obj 177 284 change; #X obj 263 284 change; #X obj 351 284 change; #X msg 263 322 14; #X msg 90 322 7; #X msg 177 322 16; #X msg 351 322 13; #X obj 90 284 change; #X obj 90 30 inlet~; #X msg 90 374 \; vu4 color \$1; #X floatatom 90 194 5 0 0 0 - - -; #X obj 90 146 / 10; #X obj 351 240 > 8.5; #X obj 90 90 env~; #X obj 90 240 < 1.9; #X obj 177 240 < 5.9; #X obj 263 240 < 8.4; #X connect 0 0 5 0; #X connect 1 0 3 0; #X connect 2 0 6 0; #X connect 3 0 9 0; #X connect 4 0 9 0; #X connect 5 0 9 0; #X connect 6 0 9 0; #X connect 7 0 4 0; #X connect 8 0 13 0; #X connect 10 0 12 0; #X connect 10 0 14 0; #X connect 10 0 15 0; #X connect 10 0 16 0; #X connect 11 0 10 0; #X connect 12 0 2 0; #X connect 13 0 11 0; #X connect 14 0 7 0; #X connect 15 0 0 0; #X connect 16 0 1 0; #X restore 180 456 pd vu; #X obj 165 72 r feed4; #X obj 229 72 r time4; #X obj 286 72 r pitch4; #X obj 406 72 r rev4; #X obj 490 72 r thin4; #X obj 566 72 r filter4; #X connect 0 0 17 0; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 3 0 0 0; #X connect 4 0 3 0; #X connect 11 0 1 0; #X connect 12 0 4 1; #X connect 14 0 15 0; #X connect 14 1 12 0; #X connect 15 0 4 1; #X connect 16 0 1 3; #X connect 18 0 1 3; #X connect 19 0 1 2; #X connect 19 0 4 2; #X connect 20 0 2 1; #X connect 21 0 14 0; #X connect 22 0 1 1; #X connect 23 0 3 1; #X restore 369 397 pd tap_IV; #X f 7; #X obj 496 248 cnv 15 260 200 empty tap5 empty 20 12 0 14 -225280 -262144 0; #X obj 518 281 vsl 30 140 0.1 1 0 0 feed5 fbran5 empty 0 -9 0 10 -262144 -1 -1 3089 0; #X obj 578 281 vsl 30 140 0 1 0 0 filter5 flt5 empty 0 -9 0 10 -262144 -1 -1 10147 0; #X text 506 262 feedback; #X text 697 262 pitch; #X text 573 263 filter; #X obj 675 336 tgl 25 0 thin5 sixty empty 17 7 0 10 -262144 -1 -1 0 1; #N canvas 144 35 734 500 tap_V 0; #N canvas 12 23 804 612 endstage 0; #X obj 105 64 inlet~; #X obj 172 261 outlet~; #X obj 103 336 throw~ L; #N canvas 342 130 789 622 autopan 0; #X obj 224 52 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 224 92 random 8; #X msg 308 200 0.6; #X msg 224 132 0.4; #X msg 266 166 0.5; #X floatatom 223 269 5 0 0 0 - - -; #X msg 327 217 0.55; #X obj 224 113 select 1 2 3 4 5 6; #X msg 349 234 0.45; #X obj 223 247 line 0 80; #X obj 80 53 inlet~; #X obj 240 52 loadbang; #X obj 134 288 *~; #X obj 100 260 expr 1 - $f1; #X obj 79 288 *~ 1; #X obj 79 310 outlet~; #X obj 134 310 outlet~; #X text 110 82 mono input -> autopanner slow sweep, f 13; #X msg 223 225 \$1 3850; #X msg 243 149 0.38; #X msg 286 183 0.67; #X obj 224 71 metro 5870; #X connect 0 0 21 0; #X connect 1 0 7 0; #X connect 2 0 18 0; #X connect 3 0 18 0; #X connect 4 0 18 0; #X connect 5 0 12 1; #X connect 5 0 13 0; #X connect 6 0 18 0; #X connect 7 0 3 0; #X connect 7 1 19 0; #X connect 7 2 4 0; #X connect 7 3 20 0; #X connect 7 4 2 0; #X connect 7 5 6 0; #X connect 7 6 8 0; #X connect 8 0 18 0; #X connect 9 0 5 0; #X connect 10 0 14 0; #X connect 10 0 12 0; #X connect 11 0 0 0; #X connect 12 0 16 0; #X connect 13 0 14 1; #X connect 14 0 15 0; #X connect 18 0 9 0; #X connect 19 0 18 0; #X connect 20 0 18 0; #X connect 21 0 1 0; #X restore 104 285 pd autopan; #X obj 161 336 throw~ R; #X obj 105 199 *~ 1, f 9; #X obj 156 169 line; #X msg 156 140 \$1 600; #X obj 156 105 == 0; #X msg 225 169 color \$1; #X msg 252 140 0; #X obj 225 105 sel 1; #X msg 225 140 13; #X obj 156 64 r mute5; #X obj 225 199 s muted5; #X connect 0 0 5 0; #X connect 3 0 2 0; #X connect 3 1 4 0; #X connect 5 0 1 0; #X connect 5 0 3 0; #X connect 6 0 5 1; #X connect 7 0 6 0; #X connect 8 0 7 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 11 1 10 0; #X connect 12 0 9 0; #X connect 13 0 8 0; #X connect 13 0 11 0; #X restore 180 432 pd endstage; #N canvas 0 37 1280 699 delay 0; #X text 467 334 <-- feedback; #X obj 286 128 inlet; #X obj 438 128 inlet; #X obj 363 427 outlet~; #X obj 363 334 *~ 0.6, f 13; #X obj 363 128 inlet; #X obj 193 303 *~ 1, f 16; #X text 298 303 60%; #X text 291 107 60%; #X text 344 107 delay time; #X text 424 106 feedback; #N canvas 617 124 450 381 60% 0; #X obj 226 78 inlet; #X obj 226 161 select 1 2 3 4 5; #X obj 226 135 random 8; #X obj 225 295 line 0 80; #X msg 225 273 \$1 850; #X msg 244 197 0; #X msg 300 253 0; #X msg 226 179 1; #X msg 281 235 1; #X msg 263 216 0; #X obj 164 161 == 0; #X obj 225 316 outlet; #X text 221 54 60% off; #X obj 226 110 metro 1470; #X connect 0 0 10 0; #X connect 0 0 13 0; #X connect 1 0 7 0; #X connect 1 1 5 0; #X connect 1 2 9 0; #X connect 1 3 8 0; #X connect 1 4 6 0; #X connect 2 0 1 0; #X connect 3 0 11 0; #X connect 4 0 3 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 4 0; #X connect 8 0 4 0; #X connect 9 0 4 0; #X connect 10 0 11 0; #X connect 13 0 2 0; #X restore 286 156 pd 60%; #X obj 193 128 inlet~; #X obj 393 385 delwrite~ adar 3000; #X obj 467 355 r clear; #X obj 363 283 delread4~ adar 660; #X obj 363 226 line~; #X obj 363 203 pack 0 600; #X connect 1 0 11 0; #X connect 2 0 4 1; #X connect 4 0 3 0; #X connect 4 0 13 0; #X connect 5 0 17 0; #X connect 6 0 13 0; #X connect 11 0 6 1; #X connect 12 0 6 0; #X connect 14 0 13 0; #X connect 15 0 4 0; #X connect 16 0 15 0; #X connect 17 0 16 0; #X restore 180 264 pd delay; #N canvas 233 57 1047 717 pitcher 0; #X floatatom 169 117 0 0 0 0 - - -; #X obj 232 388 *~; #X obj 355 325 line~; #X floatatom 387 142 0 0 0 0 - - -; #X text 375 24 PITCH SHIFTER; #X obj 355 299 pack 0 200; #X obj 387 116 r window; #X obj 169 91 r transpose; #X obj 169 173 exp; #X floatatom 169 199 6 0 0 0 - - -; #X obj 169 289 /; #X obj 296 219 * 0.001; #X obj 464 395 line~; #X obj 464 370 pack 0 200; #X floatatom 464 319 0 0 0 0 - - -; #X obj 464 293 r delay; #X obj 232 414 +~; #X obj 169 440 cos~; #X obj 169 467 *~; #X obj 169 496 +~; #X obj 256 347 wrap~; #X obj 401 390 *~; #X obj 401 423 +~; #X obj 338 450 cos~; #X obj 338 477 *~; #X obj 296 246 t b f; #X floatatom 169 315 6 0 0 0 - - -; #X obj 256 320 +~ 0.5; #X obj 169 388 -~ 0.5; #X obj 169 414 *~ 0.5; #X obj 338 389 -~ 0.5; #X obj 338 422 *~ 0.5; #X obj 169 226 - 1; #X obj 169 147 * 0.05776; #X obj 169 252 * -1; #X text 203 116 <-- transposition; #X text 246 129 (halftones); #X text 232 193 speed; #X text 231 207 change; #X text 431 141 <--window (msec); #X text 204 282 tape head; #X obj 169 346 phasor~; #X obj 464 346 max 1.5; #X text 467 252 delay; #X text 464 270 (msec); #X obj 387 169 max 1; #X text 205 295 rotation freq; #X obj 169 523 outlet~; #X obj 24 60 inlet~; #X obj 170 60 inlet; #X obj 24 91 delwrite~ oramoe 4000; #X obj 232 440 vd~ oramoe; #X obj 401 452 vd~ oramoe; #X connect 0 0 33 0; #X connect 1 0 16 0; #X connect 2 0 1 1; #X connect 2 0 21 1; #X connect 3 0 45 0; #X connect 5 0 2 0; #X connect 6 0 3 0; #X connect 7 0 0 0; #X connect 8 0 9 0; #X connect 9 0 32 0; #X connect 10 0 26 0; #X connect 11 0 25 0; #X connect 12 0 16 1; #X connect 12 0 22 1; #X connect 13 0 12 0; #X connect 14 0 42 0; #X connect 15 0 14 0; #X connect 16 0 51 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 47 0; #X connect 20 0 21 0; #X connect 20 0 30 0; #X connect 21 0 22 0; #X connect 22 0 52 0; #X connect 23 0 24 0; #X connect 24 0 19 1; #X connect 25 0 10 0; #X connect 25 1 10 1; #X connect 26 0 41 0; #X connect 27 0 20 0; #X connect 28 0 29 0; #X connect 29 0 17 0; #X connect 30 0 31 0; #X connect 31 0 23 0; #X connect 32 0 34 0; #X connect 33 0 8 0; #X connect 34 0 10 0; #X connect 41 0 1 0; #X connect 41 0 28 0; #X connect 41 0 27 0; #X connect 42 0 13 0; #X connect 45 0 11 0; #X connect 45 0 5 0; #X connect 48 0 50 0; #X connect 49 0 0 0; #X connect 51 0 18 1; #X connect 52 0 24 1; #X restore 180 328 pd pitcher; #N canvas 81 169 760 576 filter 0; #X obj 95 57 inlet~; #X obj 95 289 *~; #X obj 110 192 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 125 289 *~; #X obj 125 221 == 0; #X obj 227 57 inlet; #N canvas 349 206 450 300 scale 0; #X obj 237 67 loadbang; #X obj 115 110 f \$1; #X obj 173 110 f \$2; #X obj 231 109 f \$3; #X obj 289 110 f \$4; #X obj 58 133 expr if($f2 == $f3 \, -1 \, (((($f1-$f2) / ($f3-$f2)) * ($f5-$f4)) + $f4)) \; $f4 \; $f5 \;, f 39; #X obj 58 42 inlet; #X text 123 44 low; #X text 195 41 high; #X text 262 37 new low, f 4; #X text 328 37 new high, f 4; #X obj 58 214 outlet; #X msg 115 92 0; #X msg 173 91 1; #X msg 231 89 100; #X msg 289 89 3300; #X connect 0 0 14 0; #X connect 0 0 15 0; #X connect 0 0 12 0; #X connect 0 0 13 0; #X connect 1 0 5 1; #X connect 2 0 5 2; #X connect 3 0 5 3; #X connect 4 0 5 4; #X connect 5 0 11 0; #X connect 6 0 5 0; #X connect 12 0 1 0; #X connect 13 0 2 0; #X connect 14 0 3 0; #X connect 15 0 4 0; #X restore 227 107 pd scale; #X obj 110 169 == 1; #X obj 95 348 outlet~; #X obj 227 138 sig~; #X obj 211 221 vcf~ 1; #X connect 0 0 1 0; #X connect 0 0 10 0; #X connect 1 0 8 0; #X connect 2 0 4 0; #X connect 2 0 1 1; #X connect 3 0 8 0; #X connect 4 0 3 0; #X connect 5 0 6 0; #X connect 5 0 7 0; #X connect 6 0 9 0; #X connect 7 0 2 0; #X connect 9 0 10 1; #X connect 10 0 3 1; #X restore 180 400 pd filter; #N canvas 184 192 969 582 reverse 0; #X obj 319 309 line~; #X obj 319 240 pack f f f; #X msg 319 278 \$1 \, \$2 \$3; #X floatatom 509 155 5 0 0 0 - - -; #X obj 319 157 metro 250; #X obj 319 88 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 509 123 / 2; #X obj 320 405 *~, f 13; #X msg 395 278 1 10; #X obj 395 307 line~; #X obj 320 447 outlet~; #X obj 494 270 del; #X obj 509 25 inlet; #X obj 150 78 inlet~; #X obj 319 25 loadbang; #X obj 509 224 - 10; #X msg 494 302 0 10; #X obj 413 25 inlet; #X obj 413 85 t b f; #N canvas 475 116 660 433 bypass 0; #X obj 94 41 inlet~; #X obj 189 307 *~; #X obj 208 261 line 0 0; #X floatatom 208 283 5 0 0 0 - - -; #X floatatom 114 279 5 0 0 0 - - -; #X text 124 308 dry; #X text 220 309 wet; #X obj 114 257 line 1 0; #X obj 93 362 outlet~; #X obj 189 363 outlet~; #X obj 155 41 inlet; #X text 222 100 simple crossfading true by-pass dry by default; #X obj 189 332 *~, f 17; #X obj 288 261 line 0 0; #X text 330 219 ramp on/off signal; #X msg 322 240 0 100; #X msg 288 220 1 100; #X obj 93 307 *~ 1; #X obj 155 99 sel 0 1 2; #X msg 148 236 0 60; #X msg 242 239 0 60; #X msg 114 218 1 60; #X msg 208 219 1 60; #X connect 0 0 1 0; #X connect 0 0 17 0; #X connect 1 0 12 0; #X connect 2 0 3 0; #X connect 3 0 1 1; #X connect 4 0 17 1; #X connect 7 0 4 0; #X connect 10 0 18 0; #X connect 12 0 9 0; #X connect 13 0 12 1; #X connect 15 0 13 0; #X connect 16 0 13 0; #X connect 17 0 8 0; #X connect 18 0 21 0; #X connect 18 0 20 0; #X connect 18 0 15 0; #X connect 18 1 19 0; #X connect 18 1 22 0; #X connect 18 1 16 0; #X connect 18 2 19 0; #X connect 18 2 22 0; #X connect 18 2 16 0; #X connect 19 0 7 0; #X connect 20 0 2 0; #X connect 21 0 7 0; #X connect 22 0 2 0; #X restore 150 243 pd bypass; #X obj 201 139 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 150 355 delwrite~ trerv 5000; #X obj 319 355 vd~ trerv; #X connect 0 0 22 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 1 2; #X connect 3 0 15 0; #X connect 4 0 1 0; #X connect 4 0 8 0; #X connect 4 0 11 0; #X connect 5 0 4 0; #X connect 6 0 3 0; #X connect 6 0 4 1; #X connect 7 0 10 0; #X connect 8 0 9 0; #X connect 9 0 7 1; #X connect 11 0 16 0; #X connect 12 0 1 1; #X connect 12 0 6 0; #X connect 13 0 19 0; #X connect 14 0 5 0; #X connect 15 0 11 1; #X connect 16 0 9 0; #X connect 17 0 18 0; #X connect 17 0 20 0; #X connect 18 0 6 0; #X connect 18 1 6 1; #X connect 19 0 10 0; #X connect 19 1 21 0; #X connect 20 0 19 1; #X connect 22 0 7 0; #X restore 180 368 pd reverse; #X text 104 48 signal; #X text 456 46 60% off; #X text 226 46 time; #X text 167 46 feedback; #X text 341 50 pitch; #X text 513 52 filter; #X obj 110 72 r~ san; #X msg 433 264 0; #X text 403 51 reverse; #X obj 406 213 sel 1; #X msg 406 264 2; #N canvas 536 256 595 497 freeze 0; #X obj 216 235 f; #X obj 216 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 346 235 f; #X obj 346 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 216 301 set \$1; #X msg 346 301 set \$1; #X text 85 165 1) set a level; #X text 204 166 2) fade out; #X text 334 166 3) fade in to previous level; #X floatatom 216 420 5 0 0 0 - - -; #X obj 216 389 route set; #X obj 216 279 line; #X obj 346 279 line; #X floatatom 316 391 5 0 0 0 - - -; #X obj 269 99 sel 1; #X obj 288 446 send toGUI; #X msg 288 424 list /vol2 set \$1; #X text 416 426 change to feedback knob; #X msg 216 257 \$1 \, 1 400; #X obj 269 64 tgl 15 0 empty freezefb empty 17 7 0 10 -262144 -1 -1 0 1; #X msg 346 257 1 \, \$1 1000; #X msg 216 445 set \$1; #X obj 99 220 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 3810 1; #X obj 276 467 outlet; #X obj 99 194 r setfb5; #X obj 99 367 s fb5; #X obj 231 213 r fb5; #X obj 216 323 s setfb5; #X obj 216 367 r setfb5; #X obj 316 367 r fb5; #X obj 346 323 s setfb5; #X obj 361 213 r fb5; #X obj 99 48 r feed5; #X obj 216 467 s fbran5; #X connect 0 0 18 0; #X connect 1 0 0 0; #X connect 2 0 20 0; #X connect 3 0 2 0; #X connect 4 0 27 0; #X connect 5 0 30 0; #X connect 9 0 21 0; #X connect 9 0 23 0; #X connect 10 0 9 0; #X connect 10 0 16 0; #X connect 11 0 4 0; #X connect 12 0 5 0; #X connect 14 0 0 0; #X connect 14 1 3 0; #X connect 16 0 15 0; #X connect 18 0 11 0; #X connect 19 0 14 0; #X connect 20 0 12 0; #X connect 21 0 33 0; #X connect 22 0 25 0; #X connect 24 0 22 0; #X connect 26 0 0 1; #X connect 28 0 10 0; #X connect 29 0 9 0; #X connect 29 0 13 0; #X connect 31 0 2 1; #X connect 32 0 22 0; #X restore 163 130 pd freeze; #X obj 175 72 r feed5; #X obj 229 72 r time5; #X obj 346 72 r pitch5; #X obj 406 72 r rev5; #X obj 460 72 r thin5; #X obj 516 72 r filter5; #N canvas 386 341 510 441 vu 0; #X obj 177 284 change; #X obj 263 284 change; #X obj 351 284 change; #X msg 263 322 14; #X msg 90 322 7; #X msg 177 322 16; #X msg 351 322 13; #X obj 90 284 change; #X obj 90 30 inlet~; #X msg 90 374 \; vu5 color \$1; #X floatatom 90 194 5 0 0 0 - - -; #X obj 90 146 / 10; #X obj 351 240 > 8.5; #X obj 90 90 env~; #X obj 90 240 < 1.9; #X obj 177 240 < 5.9; #X obj 263 240 < 8.4; #X connect 0 0 5 0; #X connect 1 0 3 0; #X connect 2 0 6 0; #X connect 3 0 9 0; #X connect 4 0 9 0; #X connect 5 0 9 0; #X connect 6 0 9 0; #X connect 7 0 4 0; #X connect 8 0 13 0; #X connect 10 0 12 0; #X connect 10 0 14 0; #X connect 10 0 15 0; #X connect 10 0 16 0; #X connect 11 0 10 0; #X connect 12 0 2 0; #X connect 13 0 11 0; #X connect 14 0 7 0; #X connect 15 0 0 0; #X connect 16 0 1 0; #X restore 180 456 pd vu; #X connect 0 0 23 0; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 3 0 0 0; #X connect 4 0 3 0; #X connect 11 0 1 0; #X connect 12 0 4 1; #X connect 14 0 15 0; #X connect 14 1 12 0; #X connect 15 0 4 1; #X connect 16 0 1 3; #X connect 17 0 1 3; #X connect 18 0 1 2; #X connect 18 0 4 2; #X connect 19 0 2 1; #X connect 20 0 14 0; #X connect 21 0 1 1; #X connect 22 0 3 1; #X restore 638 397 pd tap_V; #X f 7; #X obj 766 248 cnv 15 260 200 empty tap6 empty 20 12 0 14 -225280 -262144 0; #X obj 787 281 vsl 30 140 0.1 1 0 0 feed6 fbran6 empty 0 -9 0 10 -262144 -1 -1 3089 0; #X obj 847 281 vsl 30 140 0 1 0 0 filter6 flt6 empty 0 -9 0 10 -262144 -1 -1 2780 0; #X text 775 261 feedback; #X text 965 262 pitch; #X text 843 262 filter; #X obj 944 336 tgl 25 0 thin6 sixty empty 17 7 0 10 -262144 -1 -1 0 1; #N canvas 144 35 734 500 tap_VI 0; #N canvas 12 23 804 612 endstage 0; #X obj 105 64 inlet~; #X obj 172 261 outlet~; #X obj 103 336 throw~ L; #N canvas 342 130 789 622 autopan 0; #X obj 224 52 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 224 92 random 8; #X msg 308 200 0.6; #X msg 224 132 0.4; #X msg 266 166 0.5; #X floatatom 223 269 5 0 0 0 - - -; #X msg 327 217 0.55; #X obj 224 113 select 1 2 3 4 5 6; #X msg 349 234 0.45; #X obj 223 247 line 0 80; #X obj 80 53 inlet~; #X obj 240 52 loadbang; #X obj 134 288 *~; #X obj 100 260 expr 1 - $f1; #X obj 79 288 *~ 1; #X obj 79 310 outlet~; #X obj 134 310 outlet~; #X text 110 82 mono input -> autopanner slow sweep, f 13; #X msg 223 225 \$1 3850; #X msg 243 149 0.38; #X msg 286 183 0.67; #X obj 224 71 metro 5870; #X connect 0 0 21 0; #X connect 1 0 7 0; #X connect 2 0 18 0; #X connect 3 0 18 0; #X connect 4 0 18 0; #X connect 5 0 12 1; #X connect 5 0 13 0; #X connect 6 0 18 0; #X connect 7 0 3 0; #X connect 7 1 19 0; #X connect 7 2 4 0; #X connect 7 3 20 0; #X connect 7 4 2 0; #X connect 7 5 6 0; #X connect 7 6 8 0; #X connect 8 0 18 0; #X connect 9 0 5 0; #X connect 10 0 14 0; #X connect 10 0 12 0; #X connect 11 0 0 0; #X connect 12 0 16 0; #X connect 13 0 14 1; #X connect 14 0 15 0; #X connect 18 0 9 0; #X connect 19 0 18 0; #X connect 20 0 18 0; #X connect 21 0 1 0; #X restore 104 285 pd autopan; #X obj 161 336 throw~ R; #X obj 105 199 *~ 1, f 9; #X obj 156 169 line; #X msg 156 140 \$1 600; #X obj 156 105 == 0; #X msg 225 169 color \$1; #X msg 252 140 0; #X obj 225 105 sel 1; #X msg 225 140 13; #X obj 156 64 r mute6; #X obj 225 199 s muted6; #X connect 0 0 5 0; #X connect 3 0 2 0; #X connect 3 1 4 0; #X connect 5 0 1 0; #X connect 5 0 3 0; #X connect 6 0 5 1; #X connect 7 0 6 0; #X connect 8 0 7 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 11 1 10 0; #X connect 12 0 9 0; #X connect 13 0 8 0; #X connect 13 0 11 0; #X restore 180 432 pd endstage; #N canvas 0 37 1280 699 delay 0; #X text 467 334 <-- feedback; #X obj 286 128 inlet; #X obj 438 128 inlet; #X obj 363 427 outlet~; #X obj 363 334 *~ 0.6, f 13; #X obj 363 128 inlet; #X obj 193 303 *~ 1, f 16; #X text 298 303 60%; #X text 291 107 60%; #X text 344 107 delay time; #X text 424 106 feedback; #N canvas 617 124 450 381 60% 0; #X obj 226 78 inlet; #X obj 226 161 select 1 2 3 4 5; #X obj 226 135 random 8; #X obj 225 295 line 0 80; #X msg 225 273 \$1 850; #X msg 244 197 0; #X msg 300 253 0; #X msg 226 179 1; #X msg 281 235 1; #X msg 263 216 0; #X obj 164 161 == 0; #X obj 225 316 outlet; #X text 221 54 60% off; #X obj 226 110 metro 2004; #X connect 0 0 10 0; #X connect 0 0 13 0; #X connect 1 0 7 0; #X connect 1 1 5 0; #X connect 1 2 9 0; #X connect 1 3 8 0; #X connect 1 4 6 0; #X connect 2 0 1 0; #X connect 3 0 11 0; #X connect 4 0 3 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 4 0; #X connect 8 0 4 0; #X connect 9 0 4 0; #X connect 10 0 11 0; #X connect 13 0 2 0; #X restore 286 156 pd 60%; #X obj 193 128 inlet~; #X obj 383 385 delwrite~ adare 3000; #X obj 467 355 r clear; #X obj 363 226 line~; #X obj 363 203 pack 0 600; #X obj 363 283 delread4~ adare 660; #X connect 1 0 11 0; #X connect 2 0 4 1; #X connect 4 0 3 0; #X connect 4 0 13 0; #X connect 5 0 16 0; #X connect 6 0 13 0; #X connect 11 0 6 1; #X connect 12 0 6 0; #X connect 14 0 13 0; #X connect 15 0 17 0; #X connect 16 0 15 0; #X connect 17 0 4 0; #X restore 180 264 pd delay; #N canvas 233 57 1047 717 pitcher 0; #X floatatom 169 117 0 0 0 0 - - -; #X obj 232 388 *~; #X obj 355 325 line~; #X floatatom 387 142 0 0 0 0 - - -; #X text 375 24 PITCH SHIFTER; #X obj 355 299 pack 0 200; #X obj 387 116 r window; #X obj 169 91 r transpose; #X obj 169 173 exp; #X floatatom 169 199 6 0 0 0 - - -; #X obj 169 289 /; #X obj 296 219 * 0.001; #X obj 464 395 line~; #X obj 464 370 pack 0 200; #X floatatom 464 319 0 0 0 0 - - -; #X obj 464 293 r delay; #X obj 232 414 +~; #X obj 169 440 cos~; #X obj 169 467 *~; #X obj 169 496 +~; #X obj 256 347 wrap~; #X obj 401 390 *~; #X obj 401 423 +~; #X obj 338 450 cos~; #X obj 338 477 *~; #X obj 296 246 t b f; #X floatatom 169 315 6 0 0 0 - - -; #X obj 256 320 +~ 0.5; #X obj 169 388 -~ 0.5; #X obj 169 414 *~ 0.5; #X obj 338 389 -~ 0.5; #X obj 338 422 *~ 0.5; #X obj 169 226 - 1; #X obj 169 147 * 0.05776; #X obj 169 252 * -1; #X text 203 116 <-- transposition; #X text 246 129 (halftones); #X text 232 193 speed; #X text 231 207 change; #X text 431 141 <--window (msec); #X text 204 282 tape head; #X obj 169 346 phasor~; #X obj 464 346 max 1.5; #X text 467 252 delay; #X text 464 270 (msec); #X obj 387 169 max 1; #X text 205 295 rotation freq; #X obj 169 523 outlet~; #X obj 24 60 inlet~; #X obj 170 60 inlet; #X obj 24 91 delwrite~ oranmore 4000; #X obj 232 440 vd~ oranmore; #X obj 401 452 vd~ oranmore; #X connect 0 0 33 0; #X connect 1 0 16 0; #X connect 2 0 1 1; #X connect 2 0 21 1; #X connect 3 0 45 0; #X connect 5 0 2 0; #X connect 6 0 3 0; #X connect 7 0 0 0; #X connect 8 0 9 0; #X connect 9 0 32 0; #X connect 10 0 26 0; #X connect 11 0 25 0; #X connect 12 0 16 1; #X connect 12 0 22 1; #X connect 13 0 12 0; #X connect 14 0 42 0; #X connect 15 0 14 0; #X connect 16 0 51 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 47 0; #X connect 20 0 21 0; #X connect 20 0 30 0; #X connect 21 0 22 0; #X connect 22 0 52 0; #X connect 23 0 24 0; #X connect 24 0 19 1; #X connect 25 0 10 0; #X connect 25 1 10 1; #X connect 26 0 41 0; #X connect 27 0 20 0; #X connect 28 0 29 0; #X connect 29 0 17 0; #X connect 30 0 31 0; #X connect 31 0 23 0; #X connect 32 0 34 0; #X connect 33 0 8 0; #X connect 34 0 10 0; #X connect 41 0 1 0; #X connect 41 0 28 0; #X connect 41 0 27 0; #X connect 42 0 13 0; #X connect 45 0 11 0; #X connect 45 0 5 0; #X connect 48 0 50 0; #X connect 49 0 0 0; #X connect 51 0 18 1; #X connect 52 0 24 1; #X restore 180 328 pd pitcher; #N canvas 81 169 760 576 filter 0; #X obj 95 57 inlet~; #X obj 95 289 *~; #X obj 110 192 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 125 289 *~; #X obj 125 221 == 0; #X obj 227 57 inlet; #N canvas 349 206 450 300 scale 0; #X obj 237 67 loadbang; #X obj 115 110 f \$1; #X obj 173 110 f \$2; #X obj 231 109 f \$3; #X obj 289 110 f \$4; #X obj 58 133 expr if($f2 == $f3 \, -1 \, (((($f1-$f2) / ($f3-$f2)) * ($f5-$f4)) + $f4)) \; $f4 \; $f5 \;, f 39; #X obj 58 42 inlet; #X text 123 44 low; #X text 195 41 high; #X text 262 37 new low, f 4; #X text 328 37 new high, f 4; #X obj 58 214 outlet; #X msg 115 92 0; #X msg 173 91 1; #X msg 289 89 3500; #X msg 231 89 70; #X connect 0 0 15 0; #X connect 0 0 14 0; #X connect 0 0 12 0; #X connect 0 0 13 0; #X connect 1 0 5 1; #X connect 2 0 5 2; #X connect 3 0 5 3; #X connect 4 0 5 4; #X connect 5 0 11 0; #X connect 6 0 5 0; #X connect 12 0 1 0; #X connect 13 0 2 0; #X connect 14 0 4 0; #X connect 15 0 3 0; #X restore 227 107 pd scale; #X obj 110 169 == 1; #X obj 95 348 outlet~; #X obj 227 138 sig~; #X obj 211 221 vcf~ 1; #X connect 0 0 1 0; #X connect 0 0 10 0; #X connect 1 0 8 0; #X connect 2 0 4 0; #X connect 2 0 1 1; #X connect 3 0 8 0; #X connect 4 0 3 0; #X connect 5 0 6 0; #X connect 5 0 7 0; #X connect 6 0 9 0; #X connect 7 0 2 0; #X connect 9 0 10 1; #X connect 10 0 3 1; #X restore 180 400 pd filter; #N canvas 816 436 969 582 reverse 0; #X obj 319 309 line~; #X obj 319 240 pack f f f; #X msg 319 278 \$1 \, \$2 \$3; #X floatatom 509 155 5 0 0 0 - - -; #X obj 319 157 metro 250; #X obj 319 88 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 509 123 / 2; #X obj 320 405 *~, f 13; #X msg 395 278 1 10; #X obj 395 307 line~; #X obj 320 447 outlet~; #X obj 494 270 del; #X obj 509 25 inlet; #X obj 150 78 inlet~; #X obj 319 25 loadbang; #X obj 509 224 - 10; #X msg 494 302 0 10; #X obj 413 25 inlet; #X obj 413 85 t b f; #N canvas 475 116 660 433 bypass 0; #X obj 94 41 inlet~; #X obj 189 307 *~; #X obj 208 261 line 0 0; #X floatatom 208 283 5 0 0 0 - - -; #X floatatom 114 279 5 0 0 0 - - -; #X text 124 308 dry; #X text 220 309 wet; #X obj 114 257 line 1 0; #X obj 93 362 outlet~; #X obj 189 363 outlet~; #X obj 155 41 inlet; #X text 222 100 simple crossfading true by-pass dry by default; #X obj 189 332 *~, f 17; #X obj 288 261 line 0 0; #X text 330 219 ramp on/off signal; #X msg 322 240 0 100; #X msg 288 220 1 100; #X obj 93 307 *~ 1; #X obj 155 99 sel 0 1 2; #X msg 148 236 0 60; #X msg 242 239 0 60; #X msg 114 218 1 60; #X msg 208 219 1 60; #X connect 0 0 1 0; #X connect 0 0 17 0; #X connect 1 0 12 0; #X connect 2 0 3 0; #X connect 3 0 1 1; #X connect 4 0 17 1; #X connect 7 0 4 0; #X connect 10 0 18 0; #X connect 12 0 9 0; #X connect 13 0 12 1; #X connect 15 0 13 0; #X connect 16 0 13 0; #X connect 17 0 8 0; #X connect 18 0 21 0; #X connect 18 0 20 0; #X connect 18 0 15 0; #X connect 18 1 19 0; #X connect 18 1 22 0; #X connect 18 1 16 0; #X connect 18 2 19 0; #X connect 18 2 22 0; #X connect 18 2 16 0; #X connect 19 0 7 0; #X connect 20 0 2 0; #X connect 21 0 7 0; #X connect 22 0 2 0; #X restore 150 243 pd bypass; #X obj 201 139 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 150 355 delwrite~ krerv 5000; #X obj 319 355 vd~ krerv; #X connect 0 0 22 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 1 2; #X connect 3 0 15 0; #X connect 4 0 1 0; #X connect 4 0 8 0; #X connect 4 0 11 0; #X connect 5 0 4 0; #X connect 6 0 3 0; #X connect 6 0 4 1; #X connect 7 0 10 0; #X connect 8 0 9 0; #X connect 9 0 7 1; #X connect 11 0 16 0; #X connect 12 0 1 1; #X connect 12 0 6 0; #X connect 13 0 19 0; #X connect 14 0 5 0; #X connect 15 0 11 1; #X connect 16 0 9 0; #X connect 17 0 18 0; #X connect 17 0 20 0; #X connect 18 0 6 0; #X connect 18 1 6 1; #X connect 19 0 10 0; #X connect 19 1 21 0; #X connect 20 0 19 1; #X connect 22 0 7 0; #X restore 180 366 pd reverse; #X msg 393 264 0; #X text 104 48 signal; #X text 426 46 60% off; #X text 226 46 time; #X text 157 46 feedback; #X text 301 50 pitch; #X text 363 51 reverse; #X text 503 52 filter; #X obj 110 72 r~ six; #X obj 366 213 sel 1; #X msg 366 264 2; #N canvas 338 191 595 497 freeze 0; #X obj 216 235 f; #X obj 216 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 346 235 f; #X obj 346 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 216 301 set \$1; #X msg 346 301 set \$1; #X text 85 165 1) set a level; #X text 204 166 2) fade out; #X text 334 166 3) fade in to previous level; #X floatatom 216 420 5 0 0 0 - - -; #X obj 216 389 route set; #X obj 216 279 line; #X obj 346 279 line; #X floatatom 316 391 5 0 0 0 - - -; #X obj 269 99 sel 1; #X obj 288 446 send toGUI; #X msg 288 424 list /vol2 set \$1; #X text 416 426 change to feedback knob; #X msg 216 257 \$1 \, 1 400; #X obj 269 64 tgl 15 0 empty freezefb empty 17 7 0 10 -262144 -1 -1 0 1; #X msg 346 257 1 \, \$1 1000; #X msg 216 445 set \$1; #X obj 99 220 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 3810 1; #X obj 276 467 outlet; #X obj 99 194 r setfb6; #X obj 99 367 s fb6; #X obj 231 213 r fb6; #X obj 216 323 s setfb6; #X obj 216 367 r setfb6; #X obj 316 367 r fb6; #X obj 346 323 s setfb6; #X obj 361 213 r fb6; #X obj 216 467 s fbran6; #X obj 99 48 r feed6; #X connect 0 0 18 0; #X connect 1 0 0 0; #X connect 2 0 20 0; #X connect 3 0 2 0; #X connect 4 0 27 0; #X connect 5 0 30 0; #X connect 9 0 21 0; #X connect 9 0 23 0; #X connect 10 0 9 0; #X connect 10 0 16 0; #X connect 11 0 4 0; #X connect 12 0 5 0; #X connect 14 0 0 0; #X connect 14 1 3 0; #X connect 16 0 15 0; #X connect 18 0 11 0; #X connect 19 0 14 0; #X connect 20 0 12 0; #X connect 21 0 32 0; #X connect 22 0 25 0; #X connect 24 0 22 0; #X connect 26 0 0 1; #X connect 28 0 10 0; #X connect 29 0 9 0; #X connect 29 0 13 0; #X connect 31 0 2 1; #X connect 33 0 22 0; #X restore 133 137 pd freeze; #X obj 165 72 r feed6; #X obj 229 72 r time6; #X obj 296 72 r pitch6; #X obj 366 72 r rev6; #X obj 430 72 r thin6; #X obj 506 72 r filter6; #N canvas 560 196 510 441 vu 0; #X obj 177 284 change; #X obj 263 284 change; #X obj 351 284 change; #X msg 263 322 14; #X msg 90 322 7; #X msg 177 322 16; #X msg 351 322 13; #X obj 90 284 change; #X obj 90 30 inlet~; #X msg 90 374 \; vu6 color \$1; #X floatatom 90 194 5 0 0 0 - - -; #X obj 90 146 / 10; #X obj 351 240 > 8.5; #X obj 90 90 env~; #X obj 90 240 < 1.9; #X obj 177 240 < 5.9; #X obj 263 240 < 8.4; #X connect 0 0 5 0; #X connect 1 0 3 0; #X connect 2 0 6 0; #X connect 3 0 9 0; #X connect 4 0 9 0; #X connect 5 0 9 0; #X connect 6 0 9 0; #X connect 7 0 4 0; #X connect 8 0 13 0; #X connect 10 0 12 0; #X connect 10 0 14 0; #X connect 10 0 15 0; #X connect 10 0 16 0; #X connect 11 0 10 0; #X connect 12 0 2 0; #X connect 13 0 11 0; #X connect 14 0 7 0; #X connect 15 0 0 0; #X connect 16 0 1 0; #X restore 180 456 pd vu; #X connect 0 0 23 0; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 3 0 0 0; #X connect 4 0 3 0; #X connect 5 0 4 1; #X connect 13 0 1 0; #X connect 14 0 15 0; #X connect 14 1 5 0; #X connect 15 0 4 1; #X connect 16 0 1 3; #X connect 17 0 1 3; #X connect 18 0 1 2; #X connect 18 0 4 2; #X connect 19 0 2 1; #X connect 20 0 14 0; #X connect 21 0 1 1; #X connect 22 0 3 1; #X restore 908 397 pd tap_VI; #X f 7; #X obj 369 71 nbx 4 18 20 10000 0 0 t1 bangtime empty 0 -8 0 10 -262144 -1 -1 1200 256; #X obj 638 71 nbx 4 18 -1e+37 1e+37 0 0 time2 t2 empty 0 -8 0 10 -262144 -1 -1 1423 256; #X obj 907 70 nbx 4 18 -1e+37 1e+37 0 0 time3 t3 empty 0 -8 0 10 -262144 -1 -1 957 256; #X obj 907 279 nbx 4 18 30 90000 0 0 time6 t6 empty 0 -8 0 10 -262144 -1 -1 1975 256; #X obj 369 279 nbx 4 18 -1e+37 1e+37 0 0 time4 t4 empty 0 -8 0 10 -262144 -1 -1 1609 256; #X obj 638 279 nbx 5 18 20 10000 0 0 time5 t5 empty 0 -8 0 10 -262144 -1 -1 1111 256; #X obj 419 71 nbx 4 18 -36 24 0 0 pitch1 p1 empty 0 -8 0 10 -262144 -1 -1 4 256; #X obj 689 71 nbx 4 18 -36 24 0 0 pitch2 p2 empty 0 -8 0 10 -262144 -1 -1 -1 256; #X obj 962 70 nbx 4 18 -36 24 0 0 pitch3 p3 empty 0 -8 0 10 -262144 -1 -1 -8 256; #X obj 424 279 nbx 4 18 -36 24 0 0 pitch4 p4 empty 0 -8 0 10 -262144 -1 -1 0 256; #X obj 693 279 nbx 4 18 -36 24 0 0 pitch5 p5 empty 0 -8 0 10 -262144 -1 -1 -12 256; #X obj 963 279 nbx 4 18 -36 24 0 0 pitch6 p6 empty 0 -8 0 10 -262144 -1 -1 11 256; #X obj 907 336 tgl 25 0 rev6 r6 empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 638 336 tgl 25 0 rev5 r5 empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 369 336 tgl 25 0 rev4 r4 empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 635 126 tgl 25 0 rev2 r2 empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 369 126 tgl 25 0 rev1 r1 empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 907 126 tgl 25 0 rev3 r3 empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 226 458 cnv 15 800 200 empty empty empty 20 12 0 14 -228856 -262144 0; #X obj 864 505 bng 25 250 50 0 randomfb fbkey empty 17 7 0 10 -204800 -1 -1; #X obj 939 505 bng 25 250 50 0 randomflt fltkey empty 17 7 0 10 -204800 -1 -1; #X obj 510 617 tgl 25 0 sixty thinkey empty 17 7 0 10 -204800 -1 -1 0 1; #X obj 863 557 bng 25 250 50 0 randomreverse revkey empty 17 7 0 10 -204800 -1 -1; #X obj 510 557 tgl 25 0 globaldirection empty empty 17 7 0 10 -204800 -1 -1 0 1; #X obj 607 559 vsl 30 80 0 1 0 0 globalfbs globalfb empty 0 -9 0 10 -204800 -99865 -1 2370 0; #X obj 657 559 vsl 30 80 0 1 0 0 globalflts globalflt empty 0 -9 0 10 -204800 -1 -1 7900 0; #X obj 248 557 tgl 25 0 freezeonoff freezekey empty 17 7 0 10 -204800 -1 -1 0 1; #X obj 939 557 bng 25 250 50 0 randomALLs allkey empty 17 7 0 10 -204800 -1 -1; #X obj 789 617 tgl 25 0 keys empty empty 17 7 0 10 -204800 -1 -1 1 1; #X text 387 561 clear; #X obj 358 557 bng 25 250 50 0 cleardump clkey empty 17 7 0 10 -204800 -1 -1; #X obj 789 557 bng 25 250 50 0 randompitch pitchkey empty 17 7 0 10 -204800 -1 -1; #X obj 634 505 hradio 15 1 0 7 pitchclasss pitchclass empty 0 -8 0 10 -204800 -1 -1 0; #X obj 251 617 hsl 80 25 0 1 0 0 xfade xfadeset empty -2 -8 0 10 -204800 -1 -1 7900 0; #X text 258 597 dry / wet; #X symbolatom 634 520 18 0 0 0 - pc -; #X obj 789 505 bng 25 250 50 0 randomtime keytime empty 17 7 0 10 -204800 -1 -1; #X obj 248 505 tgl 25 0 onoffs onoff empty 17 7 0 10 -261234 -1 -1 0 1; #X text 278 508 i/o; #X text 355 488 tempo; #X obj 358 505 hradio 15 1 0 4 cycles tempostart empty 0 -8 0 10 -204800 -1 -1 1; #N canvas 665 23 615 405 stereobus 0; #X obj 109 71 catch~ L; #X obj 196 71 catch~ R; #N canvas 78 97 1202 655 wowflutter 0; #X obj 412 441 cos~; #X obj 487 441 line; #X obj 412 467 *~ 0, f 13; #X obj 412 489 lop~ 5; #X obj 261 277 +~ 1; #X obj 321 278 line; #X obj 261 310 *~ 4, f 9; #N canvas 559 72 660 433 bypass 0; #X obj 94 41 inlet~; #X obj 93 307 *~; #X obj 189 307 *~; #X obj 208 261 line 0 0; #X floatatom 208 283 5 0 0 0 - - -; #X floatatom 111 279 5 0 0 0 - - -; #X text 124 308 dry; #X text 220 309 wet; #X obj 155 99 sel 1; #X obj 111 257 line 1 0; #X obj 93 362 outlet~; #X obj 189 363 outlet~; #X obj 155 41 inlet; #X text 252 100 simple crossfading true by-pass dry by default; #X obj 189 332 *~, f 17; #X obj 305 277 line 0 0; #X obj 305 226 sel 1; #X text 347 225 ramp on/off signal; #X obj 255 118 loadbang; #X msg 111 223 1 600; #X msg 145 240 0 600; #X msg 208 227 1 600; #X msg 242 244 0 600; #X msg 339 260 0 300; #X msg 305 243 0.8 300; #X connect 0 0 1 0; #X connect 0 0 2 0; #X connect 1 0 10 0; #X connect 2 0 14 0; #X connect 3 0 4 0; #X connect 4 0 2 1; #X connect 5 0 1 1; #X connect 8 0 20 0; #X connect 8 0 21 0; #X connect 8 1 19 0; #X connect 8 1 22 0; #X connect 9 0 5 0; #X connect 12 0 8 0; #X connect 12 0 16 0; #X connect 14 0 11 0; #X connect 15 0 14 1; #X connect 16 0 24 0; #X connect 16 1 23 0; #X connect 18 0 19 0; #X connect 19 0 9 0; #X connect 20 0 9 0; #X connect 21 0 3 0; #X connect 22 0 3 0; #X connect 23 0 15 0; #X connect 24 0 15 0; #X restore 18 282 pd bypass; #X obj 69 237 tgl 15 0 empty empty dry_/_wet 17 7 0 10 -262144 -1 -1 1 1; #X msg 487 417 \$1 300; #X obj 412 524 vd~ nägemist; #X obj 69 516 delwrite~ nägemist 500; #X obj 261 61 loadbang; #X obj 261 127 random 40; #X obj 261 152 / 100; #X obj 261 204 line; #X floatatom 261 226 5 0 0 0 - - -; #X obj 412 417 phasor~ 3.9; #X obj 261 105 metro 2300; #X obj 18 146 inlet~; #X obj 18 600 outlet~; #N canvas 559 72 660 433 bypass 0; #X obj 94 41 inlet~; #X obj 93 307 *~; #X obj 189 307 *~; #X obj 208 261 line 0 0; #X floatatom 208 283 5 0 0 0 - - -; #X floatatom 111 279 5 0 0 0 - - -; #X text 124 308 dry; #X text 220 309 wet; #X obj 155 99 sel 1; #X obj 111 257 line 1 0; #X obj 93 362 outlet~; #X obj 189 363 outlet~; #X obj 155 41 inlet; #X text 252 100 simple crossfading true by-pass dry by default; #X obj 189 332 *~, f 17; #X obj 305 277 line 0 0; #X obj 305 226 sel 1; #X text 347 225 ramp on/off signal; #X obj 255 118 loadbang; #X msg 111 223 1 600; #X msg 145 240 0 600; #X msg 208 227 1 600; #X msg 242 244 0 600; #X msg 339 260 0 300; #X msg 305 243 0.8 300; #X connect 0 0 1 0; #X connect 0 0 2 0; #X connect 1 0 10 0; #X connect 2 0 14 0; #X connect 3 0 4 0; #X connect 4 0 2 1; #X connect 5 0 1 1; #X connect 8 0 20 0; #X connect 8 0 21 0; #X connect 8 1 19 0; #X connect 8 1 22 0; #X connect 9 0 5 0; #X connect 12 0 8 0; #X connect 12 0 16 0; #X connect 14 0 11 0; #X connect 15 0 14 1; #X connect 16 0 24 0; #X connect 16 1 23 0; #X connect 18 0 19 0; #X connect 19 0 9 0; #X connect 20 0 9 0; #X connect 21 0 3 0; #X connect 22 0 3 0; #X connect 23 0 15 0; #X connect 24 0 15 0; #X restore 874 278 pd bypass; #X obj 874 137 inlet~; #X obj 925 512 delwrite~ vabandust 500; #X obj 874 600 outlet~; #X obj 971 137 receive fromGUI; #X obj 971 156 list trim; #X obj 599 530 vd~ vabandust; #X obj 925 229 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X msg 261 178 \$1 2070; #X obj 463 284 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X msg 463 306 0, f 2; #X obj 431 263 random 4; #X obj 431 284 == 3; #X obj 431 305 == 0; #X obj 431 244 metro 5200; #X text 430 184 FX turns off 25% of the time, f 10; #X obj 971 353 send toGUI; #X obj 971 255 sel 0 1 2; #X msg 982 302 list /wowtext wow + flutter slow; #X msg 988 327 list /wowtext wow + flutter fast; #X msg 971 278 list /wowtext wow + flutter bypass; #X obj 971 178 route /wowon; #X obj 487 332 spigot; #X text 189 225 wow speed >; #X obj 261 251 osc~ 1; #X msg 320 211 2; #X msg 352 211 4; #X text 322 191 wow depth; #X msg 456 377 1.3; #X msg 412 377 4; #X floatatom 562 283 5 0 0 0 - - -; #X obj 780 225 metro 430; #X obj 562 196 loadbang; #X obj 636 225 metro 732; #X obj 709 225 metro 254; #X obj 689 176 * 5; #X obj 562 225 metro 450; #X obj 562 254 random 7; #X obj 662 170 * 7; #X obj 670 151 hsl 128 15 0 1 0 0 empty empty flutter_depth -2 -8 0 10 -262144 -1 -1 3683 1; #X floatatom 716 198 5 0 0 0 - - -; #X floatatom 662 198 5 0 0 0 - - -; #X floatatom 636 276 5 0 0 0 - - -; #X floatatom 610 292 5 0 0 0 - - -; #X obj 636 254 random 5; #X floatatom 749 170 5 0 0 0 - - -; #X msg 667 117 0.29; #X msg 719 117 0.42; #X obj 1054 384 s slow; #X obj 320 155 r slow; #X obj 412 355 r slow; #X obj 667 86 r slow; #X obj 1110 384 s fast; #X obj 719 86 r fast; #X obj 363 155 r fast; #X obj 456 355 r fast; #X obj 431 223 loadbang; #X obj 373 254 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 1054 354 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 1110 354 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 321 253 \$1 140; #X text 520 443 < flutter depth; #X obj 899 173 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 -262144 -1 -1 0 256; #X obj 1028 47 loadbang; #X msg 1028 68 1; #X text 1054 68 default slow w+f; #X connect 0 0 2 0; #X connect 1 0 2 1; #X connect 2 0 3 0; #X connect 3 0 10 0; #X connect 3 0 27 0; #X connect 4 0 6 0; #X connect 5 0 6 1; #X connect 6 0 10 0; #X connect 6 0 27 0; #X connect 7 0 20 0; #X connect 7 1 11 0; #X connect 8 0 7 1; #X connect 9 0 1 0; #X connect 10 0 20 0; #X connect 12 0 18 0; #X connect 13 0 14 0; #X connect 14 0 29 0; #X connect 15 0 16 0; #X connect 16 0 45 0; #X connect 17 0 0 0; #X connect 18 0 13 0; #X connect 19 0 7 0; #X connect 21 0 24 0; #X connect 21 1 23 0; #X connect 22 0 21 0; #X connect 25 0 26 0; #X connect 26 0 42 0; #X connect 27 0 24 0; #X connect 28 0 21 1; #X connect 29 0 15 0; #X connect 30 0 31 0; #X connect 30 0 43 1; #X connect 31 0 9 0; #X connect 32 0 33 0; #X connect 33 0 34 0; #X connect 34 0 30 0; #X connect 35 0 32 0; #X connect 38 0 41 0; #X connect 38 1 39 0; #X connect 38 1 79 0; #X connect 38 2 40 0; #X connect 38 2 80 0; #X connect 39 0 37 0; #X connect 40 0 37 0; #X connect 41 0 37 0; #X connect 42 0 8 0; #X connect 42 0 28 0; #X connect 42 0 38 0; #X connect 43 0 9 0; #X connect 45 0 4 0; #X connect 46 0 81 0; #X connect 47 0 81 0; #X connect 47 0 78 0; #X connect 49 0 17 0; #X connect 50 0 17 0; #X connect 51 0 43 0; #X connect 52 0 65 0; #X connect 53 0 52 0; #X connect 53 0 54 0; #X connect 53 0 55 0; #X connect 53 0 57 0; #X connect 54 0 65 0; #X connect 55 0 65 0; #X connect 56 0 61 0; #X connect 56 0 65 1; #X connect 57 0 58 0; #X connect 58 0 51 0; #X connect 58 0 64 0; #X connect 59 0 58 1; #X connect 59 0 62 0; #X connect 60 0 59 0; #X connect 60 0 56 0; #X connect 60 0 66 0; #X connect 65 0 51 0; #X connect 65 0 63 0; #X connect 67 0 60 0; #X connect 68 0 60 0; #X connect 70 0 46 0; #X connect 71 0 50 0; #X connect 72 0 67 0; #X connect 74 0 68 0; #X connect 75 0 47 0; #X connect 76 0 49 0; #X connect 77 0 35 0; #X connect 79 0 69 0; #X connect 80 0 73 0; #X connect 81 0 5 0; #X connect 83 0 28 0; #X connect 83 0 8 0; #X connect 84 0 85 0; #X connect 85 0 8 0; #X connect 85 0 38 0; #X restore 109 112 pd wowflutter; #X f 15; #N canvas 31 23 1064 731 saturation 0; #X obj 160 63 inlet~; #X obj 230 63 inlet~; #N canvas 475 116 660 433 bypass 0; #X obj 94 41 inlet~; #X obj 189 307 *~; #X obj 208 261 line 0 0; #X floatatom 208 283 5 0 0 0 - - -; #X floatatom 114 279 5 0 0 0 - - -; #X text 124 308 dry; #X text 220 309 wet; #X obj 114 257 line 1 0; #X obj 93 362 outlet~; #X obj 189 363 outlet~; #X obj 155 41 inlet; #X text 222 100 simple crossfading true by-pass dry by default; #X obj 189 332 *~, f 17; #X obj 288 261 line 0 0; #X text 330 219 ramp on/off signal; #X msg 322 240 0 100; #X msg 114 218 1 600; #X msg 148 236 0 600; #X msg 208 219 1 600; #X msg 242 239 0 600; #X msg 288 220 1 100; #X obj 93 307 *~ 1; #X obj 155 99 sel 0 1 2; #X connect 0 0 1 0; #X connect 0 0 21 0; #X connect 1 0 12 0; #X connect 2 0 3 0; #X connect 3 0 1 1; #X connect 4 0 21 1; #X connect 7 0 4 0; #X connect 10 0 22 0; #X connect 12 0 9 0; #X connect 13 0 12 1; #X connect 15 0 13 0; #X connect 16 0 7 0; #X connect 17 0 7 0; #X connect 18 0 2 0; #X connect 19 0 2 0; #X connect 20 0 13 0; #X connect 21 0 8 0; #X connect 22 0 16 0; #X connect 22 0 19 0; #X connect 22 0 15 0; #X connect 22 1 17 0; #X connect 22 1 18 0; #X connect 22 1 20 0; #X connect 22 2 17 0; #X connect 22 2 18 0; #X connect 22 2 20 0; #X restore 160 234 pd bypass; #X obj 281 179 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 281 62 receive fromGUI; #X obj 281 83 list trim; #X obj 342 128 sel 2; #X obj 302 128 sel 1; #X obj 392 661 outlet~; #X obj 479 661 outlet~; #X obj 160 426 *~ 1; #X obj 230 426 *~ 1; #X text 269 425 clean L + R; #X text 533 428 saturated L + R; #X text 23 227 0 = left out (dry) 1 = right out (wet), f 19; #X obj 281 104 route /saturation /masterlop; #X obj 382 128 s masterlop; #X obj 392 427 *~ 140; #X obj 479 428 *~ 140; #X msg 512 306 150, f 4; #N canvas 132 431 686 335 saturation3~ 0; #X obj 16 22 inlet~; #X obj 124 22 inlet~; #X obj 246 46 clip 0 1; #X obj 21 270 outlet~; #X obj 162 270 outlet~; #X obj 16 48 throw~ \$0-left; #X obj 124 48 throw~ \$0-right; #X obj 21 197 catch~ \$0-left; #X obj 162 197 catch~ \$0-right; #X obj 376 46 clip 0 1; #X text 290 203 SATURATION~; #X text 286 265 Attribution CC 4 \, formuls \, 2017; #X text 286 237 Saturation effect with waveshaping based on Pd audio example E05.chebychev; #X text 478 113 <- changes the waveshape; #N canvas 49 463 382 563 shaping-function_wavetable 0; #X obj 76 190 f; #X obj 105 190 + 1; #X msg 94 165 0; #X obj 76 139 until; #X obj 76 34 loadbang; #X obj 76 507 tabwrite \$0-tran-func; #X obj 76 309 -; #X obj 136 331 pow 2; #X obj 76 355 * -1; #X obj 76 377 pow 2; #X obj 76 399 * -1; #X obj 76 76 f 1; #X obj 83 55 r \$0-saturation; #X obj 202 295 random 100; #X obj 76 218 t f f b; #X obj 269 271 i; #X obj 76 97 t b b f b f f; #X obj 289 293 * 0.5; #X obj 76 254 moses 512; #X msg 76 287 \$1 512; #X obj 136 287 - 512; #X obj 136 309 / 512; #X obj 76 332 / 512; #X obj 76 535 array define \$0-tran-func 1024; #X msg 76 119 1024; #X obj 76 480 clip -1 1; #X obj 76 454 +; #X obj 76 432 t f f; #X obj 269 228 abs; #X floatatom 201 362 5 0 0 0 - - -; #X obj 269 250 * 100; #X obj 202 317 - 50; #X obj 202 341 * 0.005; #X msg 275 331 1 \$1; #X obj 275 353 -; #X obj 275 375 * 0.01; #X obj 275 397 max 0.002; #X floatatom 275 419 5 0 0 0 - - -; #X connect 0 0 1 0; #X connect 0 0 14 0; #X connect 1 0 0 1; #X connect 2 0 0 1; #X connect 3 0 0 0; #X connect 4 0 11 0; #X connect 6 0 22 0; #X connect 7 0 27 0; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 10 0 27 0; #X connect 11 0 16 0; #X connect 12 0 11 0; #X connect 13 0 31 0; #X connect 14 0 18 0; #X connect 14 1 5 1; #X connect 14 2 13 0; #X connect 15 0 13 1; #X connect 15 0 17 0; #X connect 16 0 24 0; #X connect 16 1 2 0; #X connect 16 3 3 1; #X connect 16 4 9 1; #X connect 16 4 7 1; #X connect 16 5 33 0; #X connect 17 0 31 1; #X connect 18 0 19 0; #X connect 18 1 20 0; #X connect 19 0 6 0; #X connect 20 0 21 0; #X connect 21 0 7 0; #X connect 22 0 8 0; #X connect 24 0 3 0; #X connect 25 0 5 0; #X connect 26 0 25 0; #X connect 27 0 26 0; #X connect 27 1 28 0; #X connect 28 0 30 0; #X connect 30 0 15 0; #X connect 31 0 32 0; #X connect 32 0 26 1; #X connect 32 0 29 0; #X connect 33 0 34 0; #X connect 34 0 35 0; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 36 0 32 1; #X restore 20 134 pd shaping-function_wavetable; #N canvas 1 98 426 235 upsampling+saturation 0; #X obj 28 37 inlet~; #X obj 151 37 inlet~; #X obj 28 208 outlet~; #X obj 151 208 outlet~; #X obj 257 39 block~ 1024 1 16; #N canvas 1 83 477 436 stereo_butterworth 0; #X obj 57 230 *~ 0.125; #X obj 57 253 rzero~ -1; #X obj 57 276 rzero~ -1; #X obj 57 299 rzero~ -1; #X obj 57 373 outlet~; #X obj 56 127 rpole~ 0.87467; #X obj 56 104 *~ 0.12532; #X obj 56 150 *~ 0.01668; #X obj 56 173 cpole~ 0.9293 0.10812; #X obj 56 199 cpole~ 0.9293 -0.10812; #X obj 57 27 inlet~; #X obj 277 230 *~ 0.125; #X obj 277 253 rzero~ -1; #X obj 277 276 rzero~ -1; #X obj 277 299 rzero~ -1; #X obj 277 373 outlet~; #X obj 276 127 rpole~ 0.87467; #X obj 276 104 *~ 0.12532; #X obj 276 150 *~ 0.01668; #X obj 276 173 cpole~ 0.9293 0.10812; #X obj 276 199 cpole~ 0.9293 -0.10812; #X obj 277 27 inlet~; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 5 0 7 0; #X connect 6 0 5 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 8 1 9 1; #X connect 9 0 0 0; #X connect 10 0 6 0; #X connect 11 0 12 0; #X connect 12 0 13 0; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 16 0 18 0; #X connect 17 0 16 0; #X connect 18 0 19 0; #X connect 19 0 20 0; #X connect 19 1 20 1; #X connect 20 0 11 0; #X connect 21 0 17 0; #X restore 28 97 pd stereo_butterworth; #N canvas 1 98 518 478 saturation~ 0; #X obj 75 209 *~; #X obj 75 331 hip~ 5; #X obj 74 309 lop~ 20000; #X obj 250 209 *~; #X obj 250 331 hip~ 5; #X obj 249 309 lop~ 20000; #X msg 266 132 \$1 10; #X obj 76 376 *~ 0.112; #X obj 249 375 *~ 0.112; #X obj 76 428 outlet~; #X obj 249 427 outlet~; #X obj 267 181 *~; #X text 333 324 <- bandlimiting?; #X obj 266 154 vline~; #X obj 250 282 tabread4~ \$0-tran-func; #X obj 75 282 tabread4~ \$0-tran-func; #X obj 76 85 inlet~; #X obj 249 81 inlet~; #X text 85 30 Where the saturation/shaping function is applied; #X obj 266 111 r \$0-input-gain; #X obj 75 234 *~ 512; #X obj 250 234 *~ 512; #X obj 250 258 +~ 513; #X obj 75 258 +~ 513; #X connect 0 0 20 0; #X connect 1 0 7 0; #X connect 2 0 1 0; #X connect 3 0 21 0; #X connect 4 0 8 0; #X connect 5 0 4 0; #X connect 6 0 13 0; #X connect 7 0 9 0; #X connect 8 0 10 0; #X connect 11 0 3 1; #X connect 11 0 0 1; #X connect 13 0 11 1; #X connect 13 0 11 0; #X connect 14 0 5 0; #X connect 15 0 2 0; #X connect 16 0 0 0; #X connect 17 0 3 0; #X connect 19 0 6 0; #X connect 20 0 23 0; #X connect 21 0 22 0; #X connect 22 0 14 0; #X connect 23 0 15 0; #X restore 29 125 pd saturation~ ------; #N canvas 1 78 477 436 stereo_butterworth 0; #X obj 57 230 *~ 0.125; #X obj 57 253 rzero~ -1; #X obj 57 276 rzero~ -1; #X obj 57 299 rzero~ -1; #X obj 57 373 outlet~; #X obj 56 127 rpole~ 0.87467; #X obj 56 104 *~ 0.12532; #X obj 56 150 *~ 0.01668; #X obj 56 173 cpole~ 0.9293 0.10812; #X obj 56 199 cpole~ 0.9293 -0.10812; #X obj 57 27 inlet~; #X obj 277 230 *~ 0.125; #X obj 277 253 rzero~ -1; #X obj 277 276 rzero~ -1; #X obj 277 299 rzero~ -1; #X obj 277 373 outlet~; #X obj 276 127 rpole~ 0.87467; #X obj 276 104 *~ 0.12532; #X obj 276 150 *~ 0.01668; #X obj 276 173 cpole~ 0.9293 0.10812; #X obj 276 199 cpole~ 0.9293 -0.10812; #X obj 277 27 inlet~; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 5 0 7 0; #X connect 6 0 5 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 8 1 9 1; #X connect 9 0 0 0; #X connect 10 0 6 0; #X connect 11 0 12 0; #X connect 12 0 13 0; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 16 0 18 0; #X connect 17 0 16 0; #X connect 18 0 19 0; #X connect 19 0 20 0; #X connect 19 1 20 1; #X connect 20 0 11 0; #X connect 21 0 17 0; #X restore 28 151 pd stereo_butterworth; #X connect 0 0 5 0; #X connect 1 0 5 1; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 6 0 7 0; #X connect 6 1 7 1; #X connect 7 0 2 0; #X connect 7 1 3 0; #X restore 21 231 pd upsampling+saturation; #X obj 376 20 inlet saturation; #X obj 246 68 s \$0-input-gain; #X obj 246 20 inlet input-gain; #X obj 376 113 s \$0-saturation; #X msg 376 68 1 \$1; #X obj 376 90 -; #X connect 0 0 5 0; #X connect 1 0 6 0; #X connect 2 0 17 0; #X connect 7 0 15 0; #X connect 8 0 15 1; #X connect 9 0 20 0; #X connect 15 0 3 0; #X connect 15 1 4 0; #X connect 16 0 9 0; #X connect 18 0 2 0; #X connect 20 0 21 0; #X connect 21 0 19 0; #X restore 392 336 pd saturation3~; #X text 599 259 input gain; #X text 600 282 saturation; #X text 601 306 main gain; #X msg 513 282 0.18; #N canvas 475 116 660 433 bypass 0; #X obj 94 41 inlet~; #X obj 189 307 *~; #X obj 208 261 line 0 0; #X floatatom 208 283 5 0 0 0 - - -; #X floatatom 114 279 5 0 0 0 - - -; #X text 124 308 dry; #X text 220 309 wet; #X obj 114 257 line 1 0; #X obj 93 362 outlet~; #X obj 189 363 outlet~; #X obj 155 41 inlet; #X text 222 100 simple crossfading true by-pass dry by default; #X obj 189 332 *~, f 17; #X obj 288 261 line 0 0; #X text 330 219 ramp on/off signal; #X msg 322 240 0 100; #X msg 114 218 1 600; #X msg 148 236 0 600; #X msg 208 219 1 600; #X msg 242 239 0 600; #X msg 288 220 1 100; #X obj 93 307 *~ 1; #X obj 155 99 sel 0 1 2; #X connect 0 0 1 0; #X connect 0 0 21 0; #X connect 1 0 12 0; #X connect 2 0 3 0; #X connect 3 0 1 1; #X connect 4 0 21 1; #X connect 7 0 4 0; #X connect 10 0 22 0; #X connect 12 0 9 0; #X connect 13 0 12 1; #X connect 15 0 13 0; #X connect 16 0 7 0; #X connect 17 0 7 0; #X connect 18 0 2 0; #X connect 19 0 2 0; #X connect 20 0 13 0; #X connect 21 0 8 0; #X connect 22 0 16 0; #X connect 22 0 19 0; #X connect 22 0 15 0; #X connect 22 1 17 0; #X connect 22 1 18 0; #X connect 22 1 20 0; #X connect 22 2 17 0; #X connect 22 2 18 0; #X connect 22 2 20 0; #X restore 230 234 pd bypass; #X obj 779 269 send toGUI; #X obj 779 171 sel 0 1 2; #X msg 779 194 list /sattext saturation bypass; #X msg 796 243 list /sattext saturation overdrive; #X msg 790 218 list /sattext saturation warmer; #X msg 512 260 0.15; #X msg 564 306 60, f 4; #X msg 562 260 0.22; #X msg 563 282 0.21; #X obj 534 185 loadbang; #X msg 534 206 1; #X text 563 209 defualt warm saturation; #X connect 0 0 2 0; #X connect 1 0 25 0; #X connect 2 0 10 0; #X connect 2 1 20 0; #X connect 3 0 2 1; #X connect 3 0 25 1; #X connect 4 0 5 0; #X connect 5 0 15 0; #X connect 6 0 33 0; #X connect 6 0 34 0; #X connect 6 0 32 0; #X connect 7 0 31 0; #X connect 7 0 24 0; #X connect 7 0 19 0; #X connect 10 0 8 0; #X connect 11 0 9 0; #X connect 15 0 6 0; #X connect 15 0 7 0; #X connect 15 0 3 0; #X connect 15 0 27 0; #X connect 15 1 16 0; #X connect 17 0 8 0; #X connect 18 0 9 0; #X connect 19 0 18 1; #X connect 19 0 17 1; #X connect 20 0 17 0; #X connect 20 1 18 0; #X connect 24 0 20 3; #X connect 25 0 11 0; #X connect 25 1 20 1; #X connect 27 0 28 0; #X connect 27 1 30 0; #X connect 27 2 29 0; #X connect 28 0 26 0; #X connect 29 0 26 0; #X connect 30 0 26 0; #X connect 31 0 20 2; #X connect 32 0 17 1; #X connect 32 0 18 1; #X connect 33 0 20 2; #X connect 34 0 20 3; #X connect 35 0 36 0; #X connect 36 0 31 0; #X connect 36 0 24 0; #X connect 36 0 19 0; #X restore 109 147 pd saturation; #X f 15; #N canvas 886 343 563 432 defaults 0; #X obj 116 90 loadbang; #X obj 116 151 s xfadeset; #X obj 202 151 s bangtime; #X msg 202 131 1200; #X msg 116 131 1; #X text 118 65 default settings; #X obj 116 172 s pitchclass; #X msg 149 131 0; #X obj 202 172 s globalflt; #X obj 202 195 s globalfb; #X msg 239 131 0.3; #X obj 116 195 s tempostart; #X msg 288 131 \; pd dsp 1; #X obj 287 172 s taptimes; #X obj 288 218 s defaultverb; #X obj 288 195 s defaultverbt; #X connect 0 0 4 0; #X connect 0 0 3 0; #X connect 0 0 7 0; #X connect 0 0 10 0; #X connect 0 0 12 0; #X connect 3 0 2 0; #X connect 4 0 1 0; #X connect 4 0 8 0; #X connect 4 0 11 0; #X connect 4 0 15 0; #X connect 7 0 6 0; #X connect 7 0 13 0; #X connect 10 0 9 0; #X connect 10 0 14 0; #X restore 340 71 pd defaults; #N canvas 21 126 1259 648 pitchclass 0; #X obj 85 346 s p1; #X obj 145 346 s p2; #X obj 205 346 s p3; #X text 132 127 loco; #X obj 265 346 s p4; #X obj 325 346 s p5; #X obj 385 346 s p6; #X msg 85 98 \; p1 0 \; p2 0 \; p3 0 \; p4 0 \; p5 0 \; p6 0, f 6 ; #X msg 180 98 \; p1 0 \; p2 -12 \; p3 0 \; p4 -12 \; p5 0 \; p6 -12 ; #X text 227 127 8vb; #X msg 275 98 \; p1 0 \; p2 -12 \; p3 12 \; p4 -12 \; p5 12 \; p6 -12 ; #X text 322 127 octaves; #X text 439 127 octaves + fifths, f 8; #X text 142 217 add minor thirds, f 6; #X text 237 217 add major thirds, f 6; #X text 398 221 random chromatic, f 9; #X obj 85 306 random 24; #X obj 382 265 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 85 325 - 12; #X obj 145 306 random 24; #X obj 145 325 - 12; #X obj 205 306 random 24; #X obj 205 325 - 12; #X obj 265 306 random 24; #X obj 265 325 - 12; #X obj 325 306 random 24; #X obj 325 325 - 12; #X obj 385 306 random 24; #X obj 385 325 - 12; #X obj 382 197 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 488 232 r randomALL; #X msg 275 198 \; p1 4 \; p2 -7 \; p3 -3 \; p4 -7.02 \; p5 7 \; p6 5; #X obj 244 43 route 0 1 2 3 4 5 6; #X msg 613 201 set loco; #X obj 613 272 s pc; #X msg 673 201 set 8vb; #X msg 728 201 set 8va; #X msg 613 227 set minor; #X msg 683 227 set major; #X msg 753 257 set random; #X msg 753 227 set up_fourth; #X obj 87 22 r randompitch; #X obj 244 22 r pitchclasss; #X text 334 222 up fourth, f 6; #X msg 180 198 \; p1 3.86 \; p2 0 \; p3 -5 \; p4 -1 \; p5 -12 \; p6 -8; #X msg 380 98 \; p1 0 \; p2 -12 \; p3 -5 \; p4 -7.02 \; p5 4.98 \; p6 7.02; #X msg 788 201 set fourths+fifths; #X msg 85 198 \; p1 3.14 \; p2 0 \; p3 -5 \; p4 -9 \; p5 4.98 \; p6 -12; #X connect 16 0 18 0; #X connect 17 0 16 0; #X connect 17 0 27 0; #X connect 17 0 25 0; #X connect 17 0 23 0; #X connect 17 0 21 0; #X connect 17 0 19 0; #X connect 18 0 0 0; #X connect 19 0 20 0; #X connect 20 0 1 0; #X connect 21 0 22 0; #X connect 22 0 2 0; #X connect 23 0 24 0; #X connect 24 0 4 0; #X connect 25 0 26 0; #X connect 26 0 5 0; #X connect 27 0 28 0; #X connect 28 0 6 0; #X connect 29 0 17 0; #X connect 29 0 39 0; #X connect 30 0 17 0; #X connect 32 0 7 0; #X connect 32 0 33 0; #X connect 32 1 8 0; #X connect 32 1 35 0; #X connect 32 2 10 0; #X connect 32 2 36 0; #X connect 32 3 45 0; #X connect 32 3 46 0; #X connect 32 4 47 0; #X connect 32 4 37 0; #X connect 32 5 44 0; #X connect 32 5 38 0; #X connect 32 6 31 0; #X connect 32 6 40 0; #X connect 33 0 34 0; #X connect 35 0 34 0; #X connect 36 0 34 0; #X connect 37 0 34 0; #X connect 38 0 34 0; #X connect 39 0 34 0; #X connect 40 0 34 0; #X connect 41 0 29 0; #X connect 42 0 32 0; #X connect 46 0 34 0; #X restore 340 216 pd pitchclass; #N canvas 881 424 1006 616 freeze 0; #X text 201 51 freeze; #X obj 225 104 tgl 15 0 freezefb empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 204 142 s freezefeedback; #X msg 356 92 clear; #X obj 356 143 s clear; #X text 354 49 clear; #X obj 204 69 r freezeonoff; #X obj 131 145 s onoff; #X msg 131 108 0; #X obj 356 69 r cleardump; #X obj 48 66 r onoffs; #X obj 48 100 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 13 114 f; #X obj 88 213 sel 0; #X obj 88 241 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 13 135 5 0 0 0 - - -; #X connect 1 0 13 0; #X connect 3 0 4 0; #X connect 6 0 1 0; #X connect 6 0 2 0; #X connect 6 0 8 0; #X connect 8 0 7 0; #X connect 9 0 3 0; #X connect 10 0 11 0; #X connect 10 0 12 1; #X connect 12 0 15 0; #X connect 13 0 14 0; #X connect 14 0 12 0; #X restore 340 166 pd freeze; #X f 11; #N canvas 728 91 552 304 randomALL 0; #X obj 57 68 s randomALL; #X text 54 96 bang here to randomly change delay time \, feedback levels \, pitch \, reverse direction \, fliter frequency, f 11; #X obj 281 90 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 281 110 metro 3000; #X obj 281 146 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X text 301 87 random metronome; #X obj 314 145 random 10000; #X obj 314 166 clip 2400 6400; #X obj 57 47 r randomALLs; #X obj 281 47 r randomplay; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 3 0 6 0; #X connect 4 0 0 0; #X connect 6 0 7 0; #X connect 7 0 3 1; #X connect 8 0 0 0; #X connect 9 0 2 0; #X restore 340 264 pd randomALL; #N canvas 620 185 450 381 feedback 0; #X obj 16 132 random 100; #X obj 16 166 / 100; #X obj 16 242 s fbran1; #X obj 86 132 random 100; #X obj 86 166 / 100; #X obj 156 132 random 100; #X obj 156 166 / 100; #X obj 226 132 random 100; #X obj 226 166 / 100; #X obj 296 132 random 100; #X obj 296 166 / 100; #X obj 366 132 random 100; #X obj 366 166 / 100; #X obj 86 242 s fbran2; #X obj 156 242 s fbran3; #X obj 226 242 s fbran4; #X obj 296 242 s fbran5; #X obj 366 242 s fbran6; #X obj 16 75 bang; #X obj 90 15 r randomALL; #X obj 182 27 r freezefeedback; #X obj 182 48 == 0; #X obj 90 46 spigot 1; #X obj 366 211 line; #X obj 296 211 line; #X obj 226 211 line; #X obj 156 211 line; #X obj 86 211 line; #X obj 16 211 line; #X msg 16 190 \$1 100; #X msg 86 190 \$1 110; #X msg 156 190 \$1 120; #X msg 226 190 \$1 130; #X msg 296 190 \$1 140; #X msg 366 190 \$1 150; #X obj 366 75 r globalfbs; #X obj 16 15 r randomfb; #X connect 0 0 1 0; #X connect 1 0 29 0; #X connect 3 0 4 0; #X connect 4 0 30 0; #X connect 5 0 6 0; #X connect 6 0 31 0; #X connect 7 0 8 0; #X connect 8 0 32 0; #X connect 9 0 10 0; #X connect 10 0 33 0; #X connect 11 0 12 0; #X connect 12 0 34 0; #X connect 18 0 0 0; #X connect 18 0 3 0; #X connect 18 0 11 0; #X connect 18 0 9 0; #X connect 18 0 7 0; #X connect 18 0 5 0; #X connect 19 0 22 0; #X connect 20 0 21 0; #X connect 21 0 22 1; #X connect 22 0 18 0; #X connect 23 0 17 0; #X connect 24 0 16 0; #X connect 25 0 15 0; #X connect 26 0 14 0; #X connect 27 0 13 0; #X connect 28 0 2 0; #X connect 29 0 28 0; #X connect 30 0 27 0; #X connect 31 0 26 0; #X connect 32 0 25 0; #X connect 33 0 24 0; #X connect 34 0 23 0; #X connect 35 0 33 0; #X connect 35 0 34 0; #X connect 35 0 32 0; #X connect 35 0 31 0; #X connect 35 0 30 0; #X connect 35 0 29 0; #X connect 36 0 18 0; #X restore 340 191 pd feedback; #N canvas 566 225 468 381 filters 0; #X obj 16 132 random 100; #X obj 16 166 / 100; #X obj 86 132 random 100; #X obj 86 166 / 100; #X obj 156 132 random 100; #X obj 156 166 / 100; #X obj 226 132 random 100; #X obj 226 166 / 100; #X obj 296 132 random 100; #X obj 296 166 / 100; #X obj 366 132 random 100; #X obj 366 166 / 100; #X obj 16 242 s flt1; #X obj 86 242 s flt2; #X obj 156 242 s flt3; #X obj 226 242 s flt4; #X obj 296 242 s flt5; #X obj 366 242 s flt6; #X obj 157 75 r randomALL; #X obj 86 75 bang; #X obj 366 211 line; #X obj 296 211 line; #X obj 226 211 line; #X obj 156 211 line; #X obj 86 211 line; #X obj 16 211 line; #X msg 16 190 \$1 100; #X msg 86 190 \$1 110; #X msg 156 190 \$1 120; #X msg 226 190 \$1 130; #X msg 296 190 \$1 140; #X msg 366 190 \$1 150; #X obj 86 45 r randomflt; #X obj 366 75 r globalflts; #X connect 0 0 1 0; #X connect 1 0 26 0; #X connect 2 0 3 0; #X connect 3 0 27 0; #X connect 4 0 5 0; #X connect 5 0 28 0; #X connect 6 0 7 0; #X connect 7 0 29 0; #X connect 8 0 9 0; #X connect 9 0 30 0; #X connect 10 0 11 0; #X connect 11 0 31 0; #X connect 18 0 19 0; #X connect 19 0 0 0; #X connect 19 0 2 0; #X connect 19 0 10 0; #X connect 19 0 8 0; #X connect 19 0 6 0; #X connect 19 0 4 0; #X connect 20 0 17 0; #X connect 21 0 16 0; #X connect 22 0 15 0; #X connect 23 0 14 0; #X connect 24 0 13 0; #X connect 25 0 12 0; #X connect 26 0 25 0; #X connect 27 0 24 0; #X connect 28 0 23 0; #X connect 29 0 22 0; #X connect 30 0 21 0; #X connect 31 0 20 0; #X connect 32 0 19 0; #X connect 33 0 31 0; #X connect 33 0 30 0; #X connect 33 0 26 0; #X connect 33 0 27 0; #X connect 33 0 28 0; #X connect 33 0 29 0; #X restore 339 118 pd filters; #N canvas 830 406 450 368 direction 0; #X obj 164 93 random 100; #X obj 164 114 moses 60; #X msg 164 135 0; #X msg 209 135 1; #X obj 84 93 random 100; #X obj 84 114 moses 60; #X msg 84 135 0; #X msg 129 135 1; #X obj 84 174 s r1; #X obj 244 93 random 100; #X obj 244 114 moses 60; #X msg 244 135 0; #X msg 289 135 1; #X obj 84 213 random 100; #X obj 84 234 moses 60; #X msg 84 255 0; #X msg 129 255 1; #X obj 164 213 random 100; #X obj 164 234 moses 60; #X msg 164 255 0; #X msg 209 255 1; #X obj 244 213 random 100; #X obj 244 234 moses 60; #X msg 244 255 0; #X msg 289 255 1; #X obj 164 174 s r2; #X obj 244 174 s r3; #X obj 84 294 s r4; #X obj 164 294 s r5; #X obj 244 294 s r6; #X text 214 17 1 = all reverse. 0 = all normal, f 16; #X obj 149 47 r randomALL; #X obj 84 46 bang; #X obj 84 21 r randomreverse; #X obj 244 46 r globaldirection; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 25 0; #X connect 3 0 25 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 5 1 7 0; #X connect 6 0 8 0; #X connect 7 0 8 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 12 0; #X connect 11 0 26 0; #X connect 12 0 26 0; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 14 1 16 0; #X connect 15 0 27 0; #X connect 16 0 27 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 18 1 20 0; #X connect 19 0 28 0; #X connect 20 0 28 0; #X connect 21 0 22 0; #X connect 22 0 23 0; #X connect 22 1 24 0; #X connect 23 0 29 0; #X connect 24 0 29 0; #X connect 31 0 32 0; #X connect 32 0 4 0; #X connect 32 0 9 0; #X connect 32 0 0 0; #X connect 32 0 13 0; #X connect 32 0 21 0; #X connect 32 0 17 0; #X connect 33 0 32 0; #X connect 34 0 26 0; #X connect 34 0 25 0; #X connect 34 0 8 0; #X connect 34 0 29 0; #X connect 34 0 28 0; #X connect 34 0 27 0; #X restore 340 240 pd direction; #N canvas 540 23 521 751 time 0; #X obj 93 314 spigot; #X obj 93 347 * 2; #X obj 93 368 s t2; #X obj 93 289 r t1; #X obj 133 368 s t3; #X obj 173 368 s t4; #X obj 213 368 s t5; #X obj 253 368 s t6; #X obj 133 347 / 2; #X obj 173 347 * 4; #X obj 213 347 / 3; #X obj 253 347 * 1; #X text 6 14 groove options could be expanded: types of relationships: random / 3:2 / long cycles / reverbesque / subdivisions...; #X obj 276 154 == 0; #X obj 306 154 == 1; #X obj 336 154 == 2; #X obj 93 204 spigot; #X obj 93 258 s t2; #X obj 93 179 r t1; #X obj 133 258 s t3; #X obj 173 258 s t4; #X obj 213 258 s t5; #X obj 253 258 s t6; #X obj 97 65 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 97 85 s bangtime; #X obj 93 424 spigot; #X obj 93 478 s t2; #X obj 93 399 r t1; #X obj 133 478 s t3; #X obj 173 478 s t4; #X obj 213 478 s t5; #X obj 253 478 s t6; #X obj 633 298 s t2; #X obj 633 348 s t3; #X obj 633 398 s t4; #X obj 633 448 s t5; #X obj 633 498 s t6; #X text 87 102 Send bang to t1 (time of TapI) to reset all time values , f 18; #X obj 696 152 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 696 282 clip 230 4000; #X obj 696 262 random 4000; #X obj 696 332 clip 230 4000; #X obj 696 312 random 4000; #X obj 696 382 clip 230 4000; #X obj 696 362 random 4000; #X obj 696 432 clip 230 4000; #X obj 696 412 random 4000; #X obj 696 482 clip 230 4000; #X obj 696 462 random 4000; #X obj 93 457 * 1.5; #X obj 133 457 / 4; #X obj 173 457 / 8; #X obj 213 457 / 16; #X obj 253 457 * 2; #X obj 93 237 * 1; #X obj 133 237 * 1; #X obj 173 237 * 1; #X obj 213 237 * 1; #X obj 253 237 * 1; #X obj 696 97 r randomALL; #X obj 696 71 r randomtime; #X obj 93 534 spigot; #X obj 93 588 s t2; #X obj 93 509 r t1; #X obj 133 588 s t3; #X obj 173 588 s t4; #X obj 213 588 s t5; #X obj 253 588 s t6; #X obj 366 154 == 3; #X text 5 204 unison; #X text 3 315 subdivisions; #X obj 93 567 * 2.5; #X obj 133 567 * 4; #X obj 173 567 * 8; #X obj 213 567 * 10; #X obj 253 567 * 5; #X text 7 534 long cycle; #X obj 276 51 r globalcycles; #X msg 713 187 set random; #X msg 424 193 set unison; #X text 3 425 subdivisions; #X msg 442 223 set spread; #X obj 424 314 s ct; #X obj 713 208 s ct; #X msg 461 253 set square; #X msg 480 283 set longform; #X obj 63 500 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 60 602 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 63 280 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 60 382 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 424 154 route 0 1 2 3; #X connect 0 0 1 0; #X connect 0 0 8 0; #X connect 0 0 11 0; #X connect 0 0 10 0; #X connect 0 0 9 0; #X connect 0 0 89 0; #X connect 1 0 2 0; #X connect 3 0 0 0; #X connect 8 0 4 0; #X connect 9 0 5 0; #X connect 10 0 6 0; #X connect 11 0 7 0; #X connect 13 0 16 1; #X connect 14 0 0 1; #X connect 15 0 25 1; #X connect 16 0 54 0; #X connect 16 0 55 0; #X connect 16 0 56 0; #X connect 16 0 57 0; #X connect 16 0 58 0; #X connect 16 0 88 0; #X connect 18 0 16 0; #X connect 23 0 24 0; #X connect 25 0 49 0; #X connect 25 0 50 0; #X connect 25 0 51 0; #X connect 25 0 52 0; #X connect 25 0 53 0; #X connect 25 0 86 0; #X connect 27 0 25 0; #X connect 38 0 40 0; #X connect 38 0 42 0; #X connect 38 0 48 0; #X connect 38 0 46 0; #X connect 38 0 44 0; #X connect 38 0 78 0; #X connect 39 0 32 0; #X connect 40 0 39 0; #X connect 41 0 33 0; #X connect 42 0 41 0; #X connect 43 0 34 0; #X connect 44 0 43 0; #X connect 45 0 35 0; #X connect 46 0 45 0; #X connect 47 0 36 0; #X connect 48 0 47 0; #X connect 49 0 26 0; #X connect 50 0 28 0; #X connect 51 0 29 0; #X connect 52 0 30 0; #X connect 53 0 31 0; #X connect 54 0 17 0; #X connect 55 0 19 0; #X connect 56 0 20 0; #X connect 57 0 21 0; #X connect 58 0 22 0; #X connect 59 0 38 0; #X connect 60 0 38 0; #X connect 61 0 71 0; #X connect 61 0 72 0; #X connect 61 0 73 0; #X connect 61 0 74 0; #X connect 61 0 75 0; #X connect 61 0 87 0; #X connect 63 0 61 0; #X connect 68 0 61 1; #X connect 71 0 62 0; #X connect 72 0 64 0; #X connect 73 0 65 0; #X connect 74 0 66 0; #X connect 75 0 67 0; #X connect 77 0 13 0; #X connect 77 0 15 0; #X connect 77 0 14 0; #X connect 77 0 68 0; #X connect 77 0 90 0; #X connect 77 0 23 0; #X connect 78 0 83 0; #X connect 79 0 82 0; #X connect 81 0 82 0; #X connect 84 0 82 0; #X connect 85 0 82 0; #X connect 90 0 79 0; #X connect 90 1 81 0; #X connect 90 2 84 0; #X connect 90 3 85 0; #X restore 339 141 pd time; #X f 10; #N canvas 405 23 875 723 tempo 0; #X obj 107 149 sel 1; #X obj 199 436 *~; #X obj 215 401 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 259 436 *~; #X obj 275 401 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 319 436 *~; #X obj 335 401 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 379 436 *~; #X obj 395 401 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 439 436 *~; #X obj 455 401 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 499 436 *~; #X obj 515 401 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X text 135 37 i/o; #X obj 199 480 s~ one; #X obj 259 480 s~ two; #X obj 319 480 s~ tri; #X obj 379 480 s~ fur; #X obj 439 480 s~ san; #X obj 499 480 s~ six; #X obj 199 517 sel 1; #X msg 199 538 3; #X msg 299 564 \; tap2 color \$1; #X msg 199 564 \; tap1 color \$1; #X obj 299 517 sel 1; #X msg 299 538 3; #X obj 399 517 sel 1; #X msg 399 538 3; #X obj 499 517 sel 1; #X msg 499 538 3; #X obj 599 517 sel 1; #X msg 599 538 3; #X obj 699 517 sel 1; #X msg 699 538 3; #X msg 399 564 \; tap3 color \$1; #X msg 499 564 \; tap4 color \$1; #X msg 599 564 \; tap5 color \$1; #X msg 699 564 \; tap6 color \$1; #X floatatom 359 95 5 0 0 0 - - -; #X obj 359 61 r t1; #X floatatom 359 148 5 0 0 0 - - -; #X obj 573 127 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 573 147 s bangtime; #X obj 199 133 delwrite~ tapin 6000; #X floatatom 413 95 5 0 0 0 - - -; #X obj 398 130 +; #X floatatom 398 148 5 0 0 0 - - -; #X obj 438 130 +; #X floatatom 438 148 5 0 0 0 - - -; #X obj 478 130 +; #X floatatom 478 148 5 0 0 0 - - -; #X obj 517 130 +; #X floatatom 517 148 5 0 0 0 - - -; #X obj 359 130 +; #X obj 199 178 delread~ tapin 1000; #X obj 259 218 delread~ tapin 1200; #X obj 319 248 delread~ tapin 1400; #X obj 379 278 delread~ tapin 1600; #X obj 439 308 delread~ tapin 1800; #X obj 499 338 delread~ tapin 2000; #X text 267 94 get tap I time; #X text 447 94 time between taps; #X msg 226 538 7; #X msg 326 538 7; #X msg 526 538 7; #X msg 726 538 7; #X msg 626 538 7; #X msg 426 538 7; #X obj 414 45 route 0 1 2 3, f 19; #X msg 414 68 50; #X msg 444 68 250; #X msg 474 68 1600; #X msg 504 68 3600; #X obj 199 104 adc~; #X obj 107 15 r onoffs; #X obj 414 15 r cycles; #X obj 694 131 route 0 1 2 3; #X obj 694 291 s tempo; #X msg 694 170 set short; #X msg 712 200 set medium; #X msg 731 230 set long; #X msg 750 260 set ultra; #X connect 0 0 2 0; #X connect 0 0 12 0; #X connect 0 0 10 0; #X connect 0 0 8 0; #X connect 0 0 6 0; #X connect 0 0 4 0; #X connect 0 1 12 0; #X connect 0 1 10 0; #X connect 0 1 8 0; #X connect 0 1 6 0; #X connect 0 1 4 0; #X connect 0 1 2 0; #X connect 1 0 14 0; #X connect 2 0 1 1; #X connect 2 0 20 0; #X connect 3 0 15 0; #X connect 4 0 3 1; #X connect 4 0 24 0; #X connect 5 0 16 0; #X connect 6 0 5 1; #X connect 6 0 26 0; #X connect 7 0 17 0; #X connect 8 0 7 1; #X connect 8 0 28 0; #X connect 9 0 18 0; #X connect 10 0 9 1; #X connect 10 0 30 0; #X connect 11 0 19 0; #X connect 12 0 11 1; #X connect 12 0 32 0; #X connect 20 0 21 0; #X connect 20 1 62 0; #X connect 21 0 23 0; #X connect 24 0 25 0; #X connect 24 1 63 0; #X connect 25 0 22 0; #X connect 26 0 27 0; #X connect 26 1 67 0; #X connect 27 0 34 0; #X connect 28 0 29 0; #X connect 28 1 64 0; #X connect 29 0 35 0; #X connect 30 0 31 0; #X connect 30 1 66 0; #X connect 31 0 36 0; #X connect 32 0 33 0; #X connect 32 1 65 0; #X connect 33 0 37 0; #X connect 38 0 53 0; #X connect 39 0 38 0; #X connect 40 0 45 0; #X connect 40 0 55 0; #X connect 41 0 42 0; #X connect 44 0 45 1; #X connect 44 0 47 1; #X connect 44 0 49 1; #X connect 44 0 51 1; #X connect 44 0 53 1; #X connect 44 0 41 0; #X connect 45 0 46 0; #X connect 45 0 47 0; #X connect 46 0 56 0; #X connect 47 0 48 0; #X connect 47 0 49 0; #X connect 48 0 57 0; #X connect 49 0 50 0; #X connect 49 0 51 0; #X connect 50 0 58 0; #X connect 51 0 52 0; #X connect 52 0 59 0; #X connect 53 0 40 0; #X connect 54 0 1 0; #X connect 55 0 3 0; #X connect 56 0 5 0; #X connect 57 0 7 0; #X connect 58 0 9 0; #X connect 59 0 11 0; #X connect 62 0 23 0; #X connect 63 0 22 0; #X connect 64 0 35 0; #X connect 65 0 37 0; #X connect 66 0 36 0; #X connect 67 0 34 0; #X connect 68 0 69 0; #X connect 68 1 70 0; #X connect 68 2 71 0; #X connect 68 3 72 0; #X connect 69 0 44 0; #X connect 70 0 44 0; #X connect 71 0 44 0; #X connect 72 0 44 0; #X connect 73 0 43 0; #X connect 74 0 0 0; #X connect 75 0 68 0; #X connect 75 0 76 0; #X connect 76 0 78 0; #X connect 76 1 79 0; #X connect 76 2 80 0; #X connect 76 3 81 0; #X connect 78 0 77 0; #X connect 79 0 77 0; #X connect 80 0 77 0; #X connect 81 0 77 0; #X restore 340 95 pd tempo; #X f 10; #N canvas 674 23 825 699 fakeVU 0; #X obj 80 95 env~; #X obj 80 25 inlet~; #X obj 80 205 outlet; #X floatatom 90 133 5 0 0 0 - - -; #X obj 80 164 - 100; #X connect 0 0 3 0; #X connect 0 0 4 0; #X connect 1 0 0 0; #X connect 4 0 2 0; #X restore 109 248 pd fakeVU; #X obj 109 282 s mastervu; #N canvas 712 374 450 413 keycommands 0; #X obj 66 144 s onoff; #X obj 90 118 s freezekey; #X obj 112 179 s clkey; #X obj 136 144 s keytime; #X obj 159 207 s fbkey; #X obj 183 179 s fltkey; #X obj 204 118 s pitchkey; #X obj 227 207 s revkey; #X obj 250 144 s allkey; #X obj 273 179 s playkey; #X obj 66 17 key; #X obj 66 54 spigot; #X obj 99 17 r keys; #X obj 297 118 s thinkey; #X obj 66 88 sel 32 102 99 108 98 116 112 114 97 121 110; #X text 62 266 i/o = spacebar. freeze = f. clear = c. length = l. feedback = b. filters = t. pitch = p. reverse = r. ALL = a. play = y.; #X connect 10 0 11 0; #X connect 11 0 14 0; #X connect 12 0 11 1; #X connect 14 0 0 0; #X connect 14 1 1 0; #X connect 14 2 2 0; #X connect 14 3 3 0; #X connect 14 4 4 0; #X connect 14 5 5 0; #X connect 14 6 6 0; #X connect 14 7 7 0; #X connect 14 8 8 0; #X connect 14 9 9 0; #X connect 14 10 13 0; #X restore 340 288 pd keycommands; #N canvas 303 99 785 641 reverbdrywet 0; #X obj 266 193 *~ 0.25; #X obj 184 251 cos~; #X obj 169 282 *~; #X obj 251 127 inlet~; #X obj 266 252 cos~; #X obj 251 282 *~; #X obj 266 221 -~ 0.25; #X obj 169 127 adc~; #X text 262 150 left fx; #X text 324 149 right fx; #X obj 331 193 *~ 0.25; #X obj 316 127 inlet~; #X obj 331 252 cos~; #X obj 316 282 *~; #X obj 331 221 -~ 0.25; #X obj 449 160 sig~; #X obj 449 127 r xfade; #X obj 375 389 *~; #X obj 326 389 *~; #X obj 376 252 *~ 0.25; #X obj 224 351 cos~; #X obj 356 312 cos~; #X obj 356 282 -~ 0.25; #X obj 169 432 *~; #X obj 232 432 *~; #X obj 395 221 sig~; #X text 430 92 0 = mic only. 1 = delays only., f 16; #N canvas 461 293 819 448 dattorrostereo 0; #N canvas 66 50 387 608 receive_params 0; #X msg 58 293 input_diffusion1 \$1; #X msg 70 349 input_diffusion2 \$1; #X msg 78 410 decay_diffusion1 \$1; #X msg 87 469 decay_diffusion2 \$1; #X msg 33 75 predelay \$1; #X msg 33 132 bandwidth \$1; #X msg 33 183 damping \$1; #X msg 33 238 decay \$1; #X msg 125 533 excursion \$1; #X obj 33 547 outlet; #X obj 33 48 r predelay; #X obj 33 105 r bandwidth; #X obj 33 159 r damping; #X obj 33 213 r decay; #X obj 58 268 r input_diffusion1; #X obj 70 322 r input_diffusion2; #X obj 78 383 r decay_diffusion1; #X obj 87 442 r decay_diffusion2; #X obj 125 503 r excursion; #X connect 0 0 9 0; #X connect 1 0 9 0; #X connect 2 0 9 0; #X connect 3 0 9 0; #X connect 4 0 9 0; #X connect 5 0 9 0; #X connect 6 0 9 0; #X connect 7 0 9 0; #X connect 8 0 9 0; #X connect 10 0 4 0; #X connect 11 0 5 0; #X connect 12 0 6 0; #X connect 13 0 7 0; #X connect 14 0 0 0; #X connect 15 0 1 0; #X connect 16 0 2 0; #X connect 17 0 3 0; #X connect 18 0 8 0; #X restore 158 230 pd receive_params; #N canvas 179 266 764 451 presets 0; #X msg 117 130 large; #N canvas 637 392 678 492 preset_loader 0; #X obj 39 30 inlet; #X msg 33 292 \; param1 0 \; param2 10000 \; param3 4637 \; param4 0.64 \; param5 0.685 \; param6 0.779 \; param7 0.74 \; param8 0.68 \; param9 0.53761 \;; #X msg 162 123 \; param1 0 \; param2 10000 \; param3 4637 \; param4 0.8 \; param5 0.685 \; param6 0.779 \; param7 0.74 \; param8 0.68 \; param9 0.66 \;; #X msg 201 293 \; param1 10 \; param2 10000 \; param3 1000 \; param4 0.99 \; param5 0.685 \; param6 0.779 \; param7 0.889 \; param8 0.84 \; param9 0.53761 \;; #X msg 285 124 \; param1 10 \; param2 10000 \; param3 4637 \; param4 0.99 \; param5 0.685 \; param6 0.779 \; param7 0.889 \; param8 0.84 \; param9 0.5 \;; #X msg 39 122 \; param1 0 \; param2 5000 \; param3 22050 \; param4 0.65 \; param5 0.75 \; param6 0.625 \; param7 0.7 \; param8 0.5 \; param9 1.4 \;; #X msg 346 293 \; param1 200 \; param2 22050 \; param3 5000 \; param4 1 \; param5 0.850394 \; param6 0.92126 \; param7 0.88 \; param8 0.93 \; param9 1.6 \;; #X obj 39 70 route short_dark large larger huge_dark huge_bright unnatural , f 62; #X connect 0 0 7 0; #X connect 7 0 5 0; #X connect 7 1 1 0; #X connect 7 2 2 0; #X connect 7 3 3 0; #X connect 7 4 4 0; #X connect 7 5 6 0; #X restore 97 299 pd preset_loader; #X obj 97 37 loadbang; #X msg 137 163 larger; #X msg 157 196 huge_dark; #X msg 177 229 huge_bright; #X msg 197 262 unnatural; #X obj 219 43 inlet; #X obj 219 67 sel 0 1 2 3 4 5; #X msg 97 87 short_dark; #X msg 331 128 set short dark; #X msg 341 148 set large; #X msg 351 168 set larger; #X msg 381 228 set unnatural; #X obj 331 296 s verbtype; #X msg 361 188 set huge_dark; #X msg 371 208 set huge_bright; #X connect 0 0 1 0; #X connect 0 0 11 0; #X connect 2 0 9 0; #X connect 3 0 1 0; #X connect 3 0 12 0; #X connect 4 0 1 0; #X connect 4 0 15 0; #X connect 5 0 1 0; #X connect 5 0 16 0; #X connect 6 0 1 0; #X connect 6 0 13 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 8 1 0 0; #X connect 8 2 3 0; #X connect 8 3 4 0; #X connect 8 4 5 0; #X connect 8 5 6 0; #X connect 9 0 1 0; #X connect 9 0 10 0; #X connect 10 0 14 0; #X connect 11 0 14 0; #X connect 12 0 14 0; #X connect 13 0 14 0; #X connect 15 0 14 0; #X connect 16 0 14 0; #X restore 274 230 pd presets; #X obj 575 142 hsl 128 15 220.5 22050 1 0 param3 param3 damping -2 -8 0 10 -262144 -1 -1 12700 0; #X floatatom 707 141 10 0 0 0 - param3 damping; #X obj 575 173 hsl 128 15 0 1 0 0 param4 param4 decay -2 -8 0 10 -262144 -1 -1 8255 0; #X floatatom 707 172 10 0 0 0 - param4 decay; #X obj 575 78 hsl 128 15 0 250 0 0 param1 param1 predelay -2 -8 0 10 -262144 -1 -1 0 0; #X floatatom 707 77 10 0 0 0 - param1 predelay; #X obj 575 110 hsl 128 15 220.5 22050 1 0 param2 param2 bandwidth -2 -8 0 10 -262144 -1 -1 8608 0; #X floatatom 707 109 10 0 0 0 - param2 bandwidth; #X obj 574 241 hsl 128 15 0 1 0 0 param6 param6 input_diffusion_2 -2 -8 0 10 -262144 -1 -1 7937 0; #X floatatom 706 240 10 0 0 0 - param6 input_diffusion2; #X obj 575 206 hsl 128 15 0 1 0 0 param5 param5 input_diffusion_1 -2 -8 0 10 -262144 -1 -1 9525 0; #X floatatom 707 205 10 0 0 0 - param5 input_diffusion1; #X obj 573 305 hsl 128 15 0 1 0 0 param8 param8 decay_diffusion_2 -2 -8 0 10 -262144 -1 -1 6350 0; #X floatatom 705 304 10 0 0 0 - param8 decay_diffusion2; #X obj 574 272 hsl 128 15 0 1 0 0 param7 param7 decay_diffusion_1 -2 -8 0 10 -262144 -1 -1 8890 0; #X floatatom 706 271 10 0 0 0 - param7 decay_diffusion1; #X obj 573 337 hsl 128 15 0 5 0 0 param9 param9 excursion -2 -8 0 10 -262144 -1 -1 3556 0; #X floatatom 705 336 10 0 0 0 - param9 excursion; #X obj 274 175 inlet; #X floatatom 274 199 5 0 0 0 - - -; #X obj 71 310 outlet~; #X obj 158 310 outlet~; #N canvas 459 338 450 436 jon~ 0; #X obj 25 32 inlet~; #X obj 27 282 outlet~; #X obj 175 282 outlet~; #N canvas 0 166 634 506 input_diffusion 0; #X obj 30 60 inlet~; #X obj 29 295 outlet~; #X obj 337 79 r \$0-input_diffusion1; #X obj 336 170 r \$0-input_diffusion2; #N canvas 393 50 574 578 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.75; #X obj 417 262 f 0.75; #X obj 56 491 delwrite~ \$0-tap_13_14 200; #X obj 252 262 *~ 0.75; #X obj 252 53 delread~ \$0-tap_13_14 4.77134; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 17 0; #X connect 2 0 16 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 15 0; #X connect 11 0 16 0; #X connect 11 0 18 1; #X connect 12 0 15 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 8 0; #X connect 16 0 3 0; #X connect 18 0 6 0; #X connect 18 0 13 0; #X connect 19 0 18 0; #X restore 30 99 pd allpass tap_13_14; #N canvas 314 50 579 582 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.75; #X obj 417 262 f 0.75; #X obj 252 262 *~ 0.75; #X obj 56 491 delwrite~ \$0-tap_19_20 200; #X obj 252 53 delread~ \$0-tap_19_20 3.5953; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 18 0; #X connect 2 0 16 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 15 0; #X connect 11 0 16 0; #X connect 11 0 17 1; #X connect 12 0 15 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 8 0; #X connect 16 0 3 0; #X connect 17 0 6 0; #X connect 17 0 13 0; #X connect 19 0 17 0; #X restore 30 135 pd allpass tap_19_20; #N canvas 238 50 570 590 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.625; #X obj 252 262 *~ 0.625; #X obj 417 262 f 0.625; #X obj 56 491 delwrite~ \$0-tap_15_16 200; #X obj 252 53 delread~ \$0-tap_15_16 12.7348; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 18 0; #X connect 2 0 17 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 15 0; #X connect 11 0 16 1; #X connect 11 0 17 0; #X connect 12 0 15 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 8 0; #X connect 16 0 6 0; #X connect 16 0 13 0; #X connect 17 0 3 0; #X connect 19 0 16 0; #X restore 30 190 pd allpass tap_15_16; #N canvas 238 50 566 586 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.625; #X obj 252 262 *~ 0.625; #X obj 417 262 f 0.625; #X obj 56 491 delwrite~ \$0-tap_21_22 200; #X obj 252 53 delread~ \$0-tap_21_22 9.30748; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 18 0; #X connect 2 0 17 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 15 0; #X connect 11 0 16 1; #X connect 11 0 17 0; #X connect 12 0 15 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 8 0; #X connect 16 0 6 0; #X connect 16 0 13 0; #X connect 17 0 3 0; #X connect 19 0 16 0; #X restore 30 230 pd allpass tap_21_22; #X connect 0 0 4 0; #X connect 2 0 4 1; #X connect 2 0 5 1; #X connect 3 0 6 1; #X connect 3 0 7 1; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 1 0; #X restore 25 168 pd input_diffusion; #N canvas 38 72 501 476 reverberation_tank 0; #X obj 168 85 inlet~; #X obj 43 120 +~; #X obj 255 121 +~; #N canvas 0 50 458 308 z^-4217 0; #X obj 106 55 inlet~; #X obj 105 120 delwrite~ \$0-tap_48_54 141.695; #X text 358 135 4217; #X obj 105 147 delread~ \$0-tap_48_54 141.695; #X obj 106 223 outlet~; #X connect 0 0 1 0; #X connect 3 0 4 0; #X restore 255 190 pd z^-4217; #N canvas 0 50 458 308 z^-4453 0; #X obj 41 104 delwrite~ \$0-tap_24_30 149.625; #X obj 42 128 delread~ \$0-tap_24_30 149.625; #X text 287 119 4453; #X obj 43 60 inlet~; #X obj 43 168 outlet~; #X connect 1 0 4 0; #X connect 3 0 0 0; #X restore 43 192 pd z^-4453; #N canvas 0 50 466 316 damping 0; #X obj 74 53 inlet~; #X obj 70 222 outlet~; #X obj 73 137 lop~ 22050; #X obj 162 137 r \$0-damping; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X restore 44 221 pd damping; #N canvas 0 50 470 320 damping 0; #X obj 74 53 inlet~; #X obj 70 222 outlet~; #X obj 73 137 lop~ 22050; #X obj 162 137 r \$0-damping; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X restore 256 221 pd damping; #N canvas 0 50 470 320 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 43 249 pd decay; #N canvas 0 50 470 320 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 257 250 pd decay; #N canvas 0 50 466 316 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 43 87 pd decay; #N canvas 0 50 466 316 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 273 85 pd decay; #N canvas 0 50 498 348 decay_diffusion1 0; #N canvas 232 298 494 344 excursion 0; #X obj 66 192 outlet~; #X obj 62 90 osc~ 1; #X obj 63 143 *~ 0.53761; #X obj 138 109 r \$0-excursion; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 2 1; #X restore 133 120 pd excursion; #X obj 43 32 inlet~; #X obj 44 250 outlet~; #X obj 88 84 r \$0-decay_diffusion1; #N canvas 409 74 612 523 allpassvd 0; #X obj 48 83 inlet~; #X obj 48 296 +~; #X obj 285 142 loadbang; #X obj 285 196 t f f; #X obj 285 220 *; #X obj 285 244 expr 1-$f1; #X obj 229 277 *~; #X obj 216 300 +~; #X obj 94 138 * -1; #X obj 80 163 *~; #X obj 217 401 outlet~; #X obj 392 30 inlet~; #X obj 447 56 sig~; #X obj 447 10 loadbang; #X obj 390 78 +~; #X obj 255 45 inlet; #X obj 94 60 loadbang; #X text 9 6 arguments: delay(ms) feedback(mult); #X text 10 20 inlets: signal feedback(mult) excursion; #X obj 94 114 f 0.7; #X obj 230 152 *~ 0.7; #X obj 285 172 f 0.7; #X obj 391 404 +~; #X text 372 428 excursion; #X obj 48 327 delwrite~ \$0-tap_23_24 100; #X obj 283 101 vd~ \$0-tap_23_24; #X obj 447 33 f 22.5599; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 24 0; #X connect 2 0 21 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 7 0; #X connect 11 0 14 0; #X connect 12 0 14 1; #X connect 13 0 26 0; #X connect 14 0 22 0; #X connect 14 0 25 0; #X connect 15 0 19 0; #X connect 15 0 20 1; #X connect 15 0 21 0; #X connect 16 0 19 0; #X connect 19 0 8 0; #X connect 20 0 1 1; #X connect 20 0 6 0; #X connect 21 0 3 0; #X connect 25 0 20 0; #X connect 26 0 12 0; #X restore 43 150 pd allpassvd; #X connect 0 0 4 2; #X connect 1 0 4 0; #X connect 3 0 4 1; #X connect 4 0 2 0; #X restore 44 156 pd decay_diffusion1; #N canvas 0 50 529 394 decay_diffusion1 0; #N canvas 232 298 482 332 excursion 0; #X obj 65 192 outlet~; #X obj 63 81 osc~ 1; #X obj 64 134 *~ 0.53761; #X obj 139 104 r \$0-excursion; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 2 1; #X restore 138 92 pd excursion; #X obj 49 25 inlet~; #X obj 49 200 outlet~; #X obj 93 60 r \$0-decay_diffusion1; #N canvas 348 52 608 519 allpassvd 0; #X obj 48 83 inlet~; #X obj 48 296 +~; #X obj 285 142 loadbang; #X obj 285 196 t f f; #X obj 285 220 *; #X obj 285 244 expr 1-$f1; #X obj 229 277 *~; #X obj 216 300 +~; #X obj 94 138 * -1; #X obj 80 163 *~; #X obj 217 401 outlet~; #X obj 392 30 inlet~; #X obj 447 56 sig~; #X obj 447 10 loadbang; #X obj 390 78 +~; #X obj 255 45 inlet; #X obj 94 60 loadbang; #X text 9 6 arguments: delay(ms) feedback(mult); #X text 10 20 inlets: signal feedback(mult) excursion; #X obj 48 327 delwrite~ \$0-tap_46_48 100; #X obj 283 101 vd~ \$0-tap_46_48; #X obj 447 33 f 30.5097; #X obj 94 114 f 0.7; #X obj 230 152 *~ 0.7; #X obj 285 172 f 0.7; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 19 0; #X connect 2 0 24 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 7 0; #X connect 11 0 14 0; #X connect 12 0 14 1; #X connect 13 0 21 0; #X connect 14 0 20 0; #X connect 15 0 22 0; #X connect 15 0 23 1; #X connect 15 0 24 0; #X connect 16 0 22 0; #X connect 20 0 23 0; #X connect 21 0 12 0; #X connect 22 0 8 0; #X connect 23 0 1 1; #X connect 23 0 6 0; #X connect 24 0 3 0; #X restore 48 135 pd allpassvd; #X connect 0 0 4 2; #X connect 1 0 4 0; #X connect 3 0 4 1; #X connect 4 0 2 0; #X restore 256 155 pd decay_diffusion1; #N canvas 327 329 552 336 decay_diffusion2 0; #X obj 37 63 inlet~; #X obj 37 220 outlet~; #N canvas 393 50 582 586 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 252 52 delread~ \$0-tap_31_33 60.4818; #X obj 56 491 delwrite~ \$0-tap_31_33 200; #X obj 114 149 f 0.5; #X obj 252 262 *~ 0.5; #X obj 417 262 f 0.5; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 16 0; #X connect 2 0 19 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 17 0; #X connect 11 0 18 1; #X connect 11 0 19 0; #X connect 12 0 17 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 18 0; #X connect 17 0 8 0; #X connect 18 0 6 0; #X connect 18 0 13 0; #X connect 19 0 3 0; #X restore 36 143 pd allpass tap_31_33; #X obj 191 114 r \$0-decay_diffusion2; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X restore 43 277 pd decay_diffusion2; #N canvas 0 50 553 336 decay_diffusion2 0; #X obj 52 38 inlet~; #X obj 54 171 outlet~; #X obj 210 85 r \$0-decay_diffusion2; #N canvas 393 50 586 590 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.5; #X obj 252 262 *~ 0.5; #X obj 417 262 f 0.5; #X obj 56 491 delwrite~ \$0-tap_55_59 200; #X obj 252 52 delread~ \$0-tap_55_59 89.2443; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 18 0; #X connect 2 0 17 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 15 0; #X connect 11 0 16 1; #X connect 11 0 17 0; #X connect 12 0 15 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 8 0; #X connect 16 0 6 0; #X connect 16 0 13 0; #X connect 17 0 3 0; #X connect 19 0 16 0; #X restore 55 114 pd allpass tap_55_59; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 256 278 pd decay_diffusion2; #N canvas 0 50 454 304 feedback 0; #X obj 43 118 outlet~; #X obj 44 55 delread~ \$0-tap_59_63 106.28; #X connect 1 0 0 0; #X restore 43 49 pd feedback; #N canvas 0 50 454 304 feedback 0; #X obj 81 188 outlet~; #X obj 81 134 delread~ \$0-tap_33_39 124.996; #X connect 1 0 0 0; #X restore 274 51 pd feedback; #N canvas 0 50 458 308 to_left 0; #X obj 48 52 inlet~; #X obj 48 95 delwrite~ \$0-tap_59_63 106.28; #X connect 0 0 1 0; #X restore 255 306 pd to_left; #N canvas 0 50 454 304 to_right 0; #X obj 53 173 delwrite~ \$0-tap_33_39 124.996; #X obj 56 100 inlet~; #X connect 1 0 0 0; #X restore 44 305 pd to_right; #X text 344 190 48_54; #X text 136 193 24_30; #X connect 0 0 1 1; #X connect 0 0 2 0; #X connect 1 0 11 0; #X connect 2 0 12 0; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 7 0; #X connect 6 0 8 0; #X connect 7 0 13 0; #X connect 8 0 14 0; #X connect 9 0 1 0; #X connect 10 0 2 1; #X connect 11 0 4 0; #X connect 12 0 3 0; #X connect 13 0 18 0; #X connect 14 0 17 0; #X connect 15 0 9 0; #X connect 16 0 10 0; #X restore 25 198 pd reverberation_tank; #N canvas 58 172 593 487 predelay 0; #X obj 97 19 inlet~; #X obj 97 317 outlet~; #X obj 393 56 sel 0; #X obj 96 209 *~ 1; #X obj 110 178 f 1; #X obj 140 179 f 0; #X obj 428 106 t a b; #X obj 377 222 *~ 1; #X obj 402 191 f 0; #X obj 433 191 f 1; #X text 17 210 no delay; #X text 237 212 delay; #N canvas 0 50 496 308 predelay 0; #X obj 35 52 inlet~; #X obj 263 227 outlet~; #X obj 264 50 inlet; #X obj 35 101 delwrite~ \$0-predelay 1000; #X obj 264 183 delread~ \$0-predelay 1; #X connect 0 0 3 0; #X connect 2 0 4 0; #X connect 4 0 1 0; #X restore 297 190 pd predelay; #X obj 393 25 r \$0-predelay; #X connect 0 0 3 0; #X connect 0 0 12 0; #X connect 2 0 4 0; #X connect 2 0 8 0; #X connect 2 1 6 0; #X connect 3 0 1 0; #X connect 4 0 3 1; #X connect 5 0 3 1; #X connect 6 0 12 1; #X connect 6 1 5 0; #X connect 6 1 9 0; #X connect 7 0 1 0; #X connect 8 0 7 1; #X connect 9 0 7 1; #X connect 12 0 7 0; #X connect 13 0 2 0; #X restore 25 105 pd predelay; #X obj 175 32 inlet~; #X obj 323 32 inlet; #N canvas 0 50 458 308 bandwidth 0; #X obj 66 22 inlet~; #X obj 65 183 outlet~; #X obj 65 107 lop~; #X obj 92 74 r \$0-bandwidth; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X restore 25 137 pd bandwidth; #N canvas 0 50 903 567 params 0; #X obj 44 29 inlet; #X obj 44 158 s \$0-predelay; #X obj 161 158 s \$0-bandwidth; #X obj 44 205 route input_diffusion1 input_diffusion2 decay_diffusion1 decay_diffusion2; #X obj 44 65 route predelay bandwidth damping decay; #X obj 285 157 s \$0-damping; #X obj 398 158 s \$0-decay; #X obj 44 312 s \$0-input_diffusion1; #X obj 224 312 s \$0-input_diffusion2; #X obj 400 313 s \$0-decay_diffusion1; #X obj 580 314 s \$0-decay_diffusion2; #X obj 42 450 s \$0-excursion; #N canvas 295 162 450 343 default 0; #X obj 55 33 inlet; #X obj 55 299 outlet; #X obj 194 34 loadbang; #X obj 231 144 f 0; #X obj 55 198 f; #X obj 194 69 t b b; #X obj 174 97 f \$1; #X obj 174 124 sel 0; #X text 269 145 default; #X text 250 97 argument; #X connect 0 0 4 0; #X connect 2 0 5 0; #X connect 3 0 4 0; #X connect 4 0 1 0; #X connect 5 0 6 0; #X connect 5 1 3 0; #X connect 6 0 7 0; #X connect 7 1 4 0; #X restore 44 110 pd default; #N canvas 295 162 450 343 default 0; #X obj 55 33 inlet; #X obj 55 299 outlet; #X obj 194 34 loadbang; #X obj 55 198 f; #X obj 194 69 t b b; #X obj 174 124 sel 0; #X text 299 145 default; #X text 250 97 argument; #X obj 174 97 f \$2; #X obj 231 144 f 22050; #X connect 0 0 3 0; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 4 1 9 0; #X connect 5 1 3 0; #X connect 8 0 5 0; #X connect 9 0 3 0; #X restore 161 111 pd default; #N canvas 295 162 450 343 default 0; #X obj 55 33 inlet; #X obj 55 299 outlet; #X obj 194 34 loadbang; #X obj 55 198 f; #X obj 194 69 t b b; #X obj 174 124 sel 0; #X text 299 145 default; #X text 250 97 argument; #X obj 174 97 f \$3; #X obj 231 144 f 22050; #X connect 0 0 3 0; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 4 1 9 0; #X connect 5 1 3 0; #X connect 8 0 5 0; #X connect 9 0 3 0; #X restore 285 112 pd default; #N canvas 295 162 450 343 default 0; #X obj 55 33 inlet; #X obj 55 299 outlet; #X obj 194 34 loadbang; #X obj 55 198 f; #X obj 194 69 t b b; #X obj 174 124 sel 0; #X text 299 145 default; #X text 250 97 argument; #X obj 174 97 f \$4; #X obj 231 144 f 0.5; #X connect 0 0 3 0; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 4 1 9 0; #X connect 5 1 3 0; #X connect 8 0 5 0; #X connect 9 0 3 0; #X restore 398 112 pd default; #N canvas 295 162 450 343 default 0; #X obj 55 33 inlet; #X obj 55 299 outlet; #X obj 194 34 loadbang; #X obj 55 198 f; #X obj 194 69 t b b; #X obj 174 124 sel 0; #X text 299 145 default; #X text 250 97 argument; #X obj 174 97 f \$5; #X obj 231 144 f 0.75; #X connect 0 0 3 0; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 4 1 9 0; #X connect 5 1 3 0; #X connect 8 0 5 0; #X connect 9 0 3 0; #X restore 44 266 pd default; #N canvas 295 162 450 343 default 0; #X obj 55 33 inlet; #X obj 55 299 outlet; #X obj 194 34 loadbang; #X obj 55 198 f; #X obj 194 69 t b b; #X obj 174 124 sel 0; #X text 299 145 default; #X text 250 97 argument; #X obj 174 97 f \$6; #X obj 231 144 f 0.625; #X connect 0 0 3 0; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 4 1 9 0; #X connect 5 1 3 0; #X connect 8 0 5 0; #X connect 9 0 3 0; #X restore 224 269 pd default; #N canvas 295 162 450 343 default 0; #X obj 55 33 inlet; #X obj 55 299 outlet; #X obj 194 34 loadbang; #X obj 55 198 f; #X obj 194 69 t b b; #X obj 174 124 sel 0; #X text 299 145 default; #X text 250 97 argument; #X obj 174 97 f \$7; #X obj 231 144 f 0.7; #X connect 0 0 3 0; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 4 1 9 0; #X connect 5 1 3 0; #X connect 8 0 5 0; #X connect 9 0 3 0; #X restore 400 268 pd default; #N canvas 295 162 450 343 default 0; #X obj 55 33 inlet; #X obj 55 299 outlet; #X obj 194 34 loadbang; #X obj 55 198 f; #X obj 194 69 t b b; #X obj 174 124 sel 0; #X text 299 145 default; #X text 250 97 argument; #X obj 174 97 f \$8; #X obj 231 144 f 0.5; #X connect 0 0 3 0; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 4 1 9 0; #X connect 5 1 3 0; #X connect 8 0 5 0; #X connect 9 0 3 0; #X restore 580 268 pd default; #N canvas 189 104 450 343 default 0; #X obj 55 33 inlet; #X obj 55 299 outlet; #X obj 194 34 loadbang; #X obj 55 198 f; #X obj 194 69 t b b; #X obj 174 124 sel 0; #X text 319 145 default; #X text 250 97 argument; #X obj 174 97 f \$9; #X obj 231 144 f 0.53761; #X connect 0 0 3 0; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 4 1 9 0; #X connect 5 1 3 0; #X connect 8 0 5 0; #X connect 9 0 3 0; #X restore 42 404 pd default; #X obj 42 361 route excursion; #X obj 218 416 print jon~_nosuchparameter; #X connect 0 0 4 0; #X connect 3 0 16 0; #X connect 3 1 17 0; #X connect 3 2 18 0; #X connect 3 3 19 0; #X connect 3 4 21 0; #X connect 4 0 12 0; #X connect 4 1 13 0; #X connect 4 2 14 0; #X connect 4 3 15 0; #X connect 4 4 3 0; #X connect 12 0 1 0; #X connect 13 0 2 0; #X connect 14 0 5 0; #X connect 15 0 6 0; #X connect 16 0 7 0; #X connect 17 0 8 0; #X connect 18 0 9 0; #X connect 19 0 10 0; #X connect 20 0 11 0; #X connect 21 0 20 0; #X connect 21 1 22 0; #X restore 323 69 pd params; #N canvas 0 50 458 308 1/2 0; #X obj 102 56 inlet~; #X obj 182 56 inlet~; #X obj 103 138 *~ 0.5; #X obj 103 102 +~; #X obj 103 175 outlet~; #X connect 0 0 3 0; #X connect 1 0 3 1; #X connect 2 0 4 0; #X connect 3 0 2 0; #X restore 25 72 pd 1/2; #N canvas 120 111 856 498 output_taps 0; #X obj 28 409 outlet~; #X obj 30 267 -~; #X obj 31 109 +~; #X obj 30 215 +~; #X obj 29 369 -~; #X text 30 26 left; #X obj 32 55 delread~ \$0-tap_48_54 8.93787; #X obj 51 82 delread~ \$0-tap_48_54 99.9294; #X obj 50 134 delread~ \$0-tap_55_59 64.2787; #X obj 31 163 -~; #X obj 49 188 delread~ \$0-tap_59_63 67.0676; #X obj 50 240 delread~ \$0-tap_24_30 66.866; #X obj 50 293 delread~ \$0-tap_31_33 6.28339; #X obj 30 317 -~; #X obj 49 342 delread~ \$0-tap_33_39 35.8187; #X obj 371 407 outlet~; #X obj 370 105 +~; #X obj 371 261 -~; #X obj 370 208 +~; #X obj 371 365 -~; #X text 370 20 right; #X obj 371 51 delread~ \$0-tap_24_30 11.8612; #X obj 390 78 delread~ \$0-tap_24_30 121.871; #X obj 390 130 delread~ \$0-tap_31_33 41.2621; #X obj 390 181 delread~ \$0-tap_33_39 89.8155; #X obj 391 234 delread~ \$0-tap_48_54 70.9317; #X obj 372 313 -~; #X obj 392 286 delread~ \$0-tap_55_59 11.2563; #X obj 390 338 delread~ \$0-tap_59_63 4.06572; #X obj 370 154 -~; #X connect 1 0 13 0; #X connect 2 0 9 0; #X connect 3 0 1 0; #X connect 4 0 0 0; #X connect 6 0 2 0; #X connect 7 0 2 1; #X connect 8 0 9 1; #X connect 9 0 3 0; #X connect 10 0 3 1; #X connect 11 0 1 1; #X connect 12 0 13 1; #X connect 13 0 4 0; #X connect 14 0 4 1; #X connect 16 0 29 0; #X connect 17 0 26 0; #X connect 18 0 17 0; #X connect 19 0 15 0; #X connect 21 0 16 0; #X connect 22 0 16 1; #X connect 23 0 29 1; #X connect 24 0 18 1; #X connect 25 0 17 1; #X connect 26 0 19 0; #X connect 27 0 26 1; #X connect 28 0 19 1; #X connect 29 0 18 0; #X restore 27 247 pd output_taps; #N canvas 878 519 634 506 input_diffusion 0; #X obj 30 60 inlet~; #X obj 30 295 outlet~; #X obj 337 79 r \$0-input_diffusion1; #X obj 336 170 r \$0-input_diffusion2; #N canvas 393 50 574 578 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.75; #X obj 417 262 f 0.75; #X obj 252 262 *~ 0.75; #X obj 252 53 delread~ righttap_13_14 4.77134; #X obj 56 491 delwrite~ righttap_13_14 200; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 19 0; #X connect 2 0 16 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 15 0; #X connect 11 0 16 0; #X connect 11 0 17 1; #X connect 12 0 15 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 8 0; #X connect 16 0 3 0; #X connect 17 0 6 0; #X connect 17 0 13 0; #X connect 18 0 17 0; #X restore 30 99 pd allpass tap_13_14; #N canvas 314 50 579 582 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.75; #X obj 417 262 f 0.75; #X obj 252 262 *~ 0.75; #X obj 252 53 delread~ righttap_19_20 3.5953; #X obj 56 491 delwrite~ righttap_19_20 200; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 19 0; #X connect 2 0 16 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 15 0; #X connect 11 0 16 0; #X connect 11 0 17 1; #X connect 12 0 15 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 8 0; #X connect 16 0 3 0; #X connect 17 0 6 0; #X connect 17 0 13 0; #X connect 18 0 17 0; #X restore 30 135 pd allpass tap_19_20; #N canvas 238 50 570 590 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.625; #X obj 252 262 *~ 0.625; #X obj 417 262 f 0.625; #X obj 252 53 delread~ righttap_15_16 12.7348; #X obj 56 491 delwrite~ righttap_15_16 200; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 19 0; #X connect 2 0 17 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 15 0; #X connect 11 0 16 1; #X connect 11 0 17 0; #X connect 12 0 15 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 8 0; #X connect 16 0 6 0; #X connect 16 0 13 0; #X connect 17 0 3 0; #X connect 18 0 16 0; #X restore 30 190 pd allpass tap_15_16; #N canvas 238 50 566 586 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.625; #X obj 252 262 *~ 0.625; #X obj 417 262 f 0.625; #X obj 252 53 delread~ righttap_21_22 9.30748; #X obj 56 491 delwrite~ righttap_21_22 200; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 19 0; #X connect 2 0 17 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 15 0; #X connect 11 0 16 1; #X connect 11 0 17 0; #X connect 12 0 15 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 8 0; #X connect 16 0 6 0; #X connect 16 0 13 0; #X connect 17 0 3 0; #X connect 18 0 16 0; #X restore 30 230 pd allpass tap_21_22; #X connect 0 0 4 0; #X connect 2 0 4 1; #X connect 2 0 5 1; #X connect 3 0 6 1; #X connect 3 0 7 1; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 1 0; #X restore 175 168 pd input_diffusion; #N canvas 706 451 501 476 reverberation_tank 0; #X obj 168 85 inlet~; #X obj 43 120 +~; #X obj 255 121 +~; #N canvas 336 300 458 308 z^-4217 0; #X obj 106 55 inlet~; #X text 358 135 4217; #X obj 106 223 outlet~; #X obj 105 120 delwrite~ righttap_48_54 141.695; #X obj 105 147 delread~ righttap_48_54 141.695; #X connect 0 0 3 0; #X connect 4 0 2 0; #X restore 255 190 pd z^-4217; #N canvas 0 50 458 308 z^-4453 0; #X text 287 119 4453; #X obj 43 60 inlet~; #X obj 43 168 outlet~; #X obj 41 104 delwrite~ righttap_24_30 149.625; #X obj 42 128 delread~ righttap_24_30 149.625; #X connect 1 0 3 0; #X connect 4 0 2 0; #X restore 43 192 pd z^-4453; #N canvas 0 50 466 316 damping 0; #X obj 74 53 inlet~; #X obj 70 222 outlet~; #X obj 73 137 lop~ 22050; #X obj 162 137 r \$0-damping; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X restore 44 221 pd damping; #N canvas 0 50 470 320 damping 0; #X obj 74 53 inlet~; #X obj 70 222 outlet~; #X obj 73 137 lop~ 22050; #X obj 162 137 r \$0-damping; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X restore 256 221 pd damping; #N canvas 0 50 470 320 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 43 249 pd decay; #N canvas 0 50 470 320 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 257 250 pd decay; #N canvas 0 50 466 316 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 43 87 pd decay; #N canvas 0 50 466 316 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 270 85 pd decay; #N canvas 413 462 498 348 decay_diffusion1 0; #N canvas 232 298 494 344 excursion 0; #X obj 63 192 outlet~; #X obj 63 90 osc~ 1; #X obj 63 143 *~ 0.53761; #X obj 138 109 r \$0-excursion; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 2 1; #X restore 133 120 pd excursion; #X obj 43 32 inlet~; #X obj 44 250 outlet~; #X obj 88 84 r \$0-decay_diffusion1; #N canvas 409 74 612 523 allpassvd 0; #X obj 48 83 inlet~; #X obj 48 296 +~; #X obj 285 142 loadbang; #X obj 285 196 t f f; #X obj 285 220 *; #X obj 285 244 expr 1-$f1; #X obj 229 277 *~; #X obj 216 300 +~; #X obj 94 138 * -1; #X obj 80 163 *~; #X obj 217 401 outlet~; #X obj 390 30 inlet~; #X obj 447 56 sig~; #X obj 447 10 loadbang; #X obj 390 78 +~; #X obj 255 45 inlet; #X obj 94 60 loadbang; #X text 9 6 arguments: delay(ms) feedback(mult); #X text 10 20 inlets: signal feedback(mult) excursion; #X obj 94 114 f 0.7; #X obj 230 152 *~ 0.7; #X obj 285 172 f 0.7; #X obj 391 404 +~; #X text 372 428 excursion; #X obj 447 33 f 22.5599; #X obj 48 327 delwrite~ righttap_23_24 100; #X obj 283 101 vd~ righttap_23_24; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 25 0; #X connect 2 0 21 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 7 0; #X connect 11 0 14 0; #X connect 12 0 14 1; #X connect 13 0 24 0; #X connect 14 0 22 0; #X connect 14 0 26 0; #X connect 15 0 19 0; #X connect 15 0 20 1; #X connect 15 0 21 0; #X connect 16 0 19 0; #X connect 19 0 8 0; #X connect 20 0 1 1; #X connect 20 0 6 0; #X connect 21 0 3 0; #X connect 24 0 12 0; #X connect 26 0 20 0; #X restore 43 150 pd allpassvd; #X connect 0 0 4 2; #X connect 1 0 4 0; #X connect 3 0 4 1; #X connect 4 0 2 0; #X restore 44 156 pd decay_diffusion1; #N canvas 0 50 529 394 decay_diffusion1 0; #N canvas 232 298 482 332 excursion 0; #X obj 65 192 outlet~; #X obj 63 81 osc~ 1; #X obj 64 134 *~ 0.53761; #X obj 139 104 r \$0-excursion; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 2 1; #X restore 138 92 pd excursion; #X obj 49 25 inlet~; #X obj 49 200 outlet~; #X obj 93 60 r \$0-decay_diffusion1; #N canvas 348 52 608 519 allpassvd 0; #X obj 48 83 inlet~; #X obj 48 296 +~; #X obj 285 142 loadbang; #X obj 285 196 t f f; #X obj 285 220 *; #X obj 285 244 expr 1-$f1; #X obj 229 277 *~; #X obj 216 300 +~; #X obj 94 138 * -1; #X obj 80 163 *~; #X obj 217 401 outlet~; #X obj 392 30 inlet~; #X obj 447 56 sig~; #X obj 447 10 loadbang; #X obj 390 78 +~; #X obj 255 45 inlet; #X obj 94 60 loadbang; #X text 9 6 arguments: delay(ms) feedback(mult); #X text 10 20 inlets: signal feedback(mult) excursion; #X obj 447 33 f 30.5097; #X obj 94 114 f 0.7; #X obj 230 152 *~ 0.7; #X obj 285 172 f 0.7; #X obj 48 327 delwrite~ righttap_46_48 100; #X obj 283 101 vd~ righttap_46_48; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 23 0; #X connect 2 0 22 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 7 0; #X connect 11 0 14 0; #X connect 12 0 14 1; #X connect 13 0 19 0; #X connect 14 0 24 0; #X connect 15 0 20 0; #X connect 15 0 21 1; #X connect 15 0 22 0; #X connect 16 0 20 0; #X connect 19 0 12 0; #X connect 20 0 8 0; #X connect 21 0 1 1; #X connect 21 0 6 0; #X connect 22 0 3 0; #X connect 24 0 21 0; #X restore 48 135 pd allpassvd; #X connect 0 0 4 2; #X connect 1 0 4 0; #X connect 3 0 4 1; #X connect 4 0 2 0; #X restore 256 155 pd decay_diffusion1; #N canvas 327 329 552 336 decay_diffusion2 0; #X obj 37 63 inlet~; #X obj 37 220 outlet~; #N canvas 393 50 582 586 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.5; #X obj 252 262 *~ 0.5; #X obj 417 262 f 0.5; #X obj 252 52 delread~ righttap_31_33 60.4818; #X obj 56 491 delwrite~ righttap_31_33 200; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 19 0; #X connect 2 0 17 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 15 0; #X connect 11 0 16 1; #X connect 11 0 17 0; #X connect 12 0 15 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 8 0; #X connect 16 0 6 0; #X connect 16 0 13 0; #X connect 17 0 3 0; #X connect 18 0 16 0; #X restore 36 143 pd allpass tap_31_33; #X obj 191 114 r \$0-decay_diffusion2; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X restore 43 277 pd decay_diffusion2; #N canvas 0 50 553 336 decay_diffusion2 0; #X obj 52 38 inlet~; #X obj 54 171 outlet~; #X obj 210 85 r \$0-decay_diffusion2; #N canvas 393 50 586 590 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 417 334 expr 1-$f1; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.5; #X obj 252 262 *~ 0.5; #X obj 417 262 f 0.5; #X obj 252 52 delread~ righttap_55_59 89.2443; #X obj 56 491 delwrite~ righttap_55_59 200; #X connect 0 0 1 0; #X connect 0 0 9 0; #X connect 1 0 19 0; #X connect 2 0 17 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 7 1; #X connect 7 0 10 0; #X connect 8 0 9 1; #X connect 9 0 14 0; #X connect 11 0 15 0; #X connect 11 0 16 1; #X connect 11 0 17 0; #X connect 12 0 15 0; #X connect 13 0 1 1; #X connect 14 0 7 0; #X connect 15 0 8 0; #X connect 16 0 6 0; #X connect 16 0 13 0; #X connect 17 0 3 0; #X connect 18 0 16 0; #X restore 55 114 pd allpass tap_55_59; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 256 278 pd decay_diffusion2; #N canvas 0 50 454 304 feedback 0; #X obj 43 118 outlet~; #X obj 44 55 delread~ righttap_59_63 106.28; #X connect 1 0 0 0; #X restore 43 49 pd feedback; #N canvas 0 50 454 304 feedback 0; #X obj 81 188 outlet~; #X obj 81 134 delread~ righttap_33_39 124.996; #X connect 1 0 0 0; #X restore 270 51 pd feedback; #N canvas 0 50 458 308 to_left 0; #X obj 48 52 inlet~; #X obj 48 95 delwrite~ righttap_59_63 106.28; #X connect 0 0 1 0; #X restore 255 306 pd to_left; #N canvas 0 50 454 304 to_right 0; #X obj 56 100 inlet~; #X obj 53 173 delwrite~ righttap_33_39 124.996; #X connect 0 0 1 0; #X restore 44 305 pd to_right; #X text 344 190 48_54; #X text 136 193 24_30; #X connect 0 0 1 1; #X connect 0 0 2 0; #X connect 1 0 11 0; #X connect 2 0 12 0; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 7 0; #X connect 6 0 8 0; #X connect 7 0 13 0; #X connect 8 0 14 0; #X connect 9 0 1 0; #X connect 10 0 2 1; #X connect 11 0 4 0; #X connect 12 0 3 0; #X connect 13 0 18 0; #X connect 14 0 17 0; #X connect 15 0 9 0; #X connect 16 0 10 0; #X restore 175 198 pd reverberation_tank; #N canvas 772 536 593 487 predelay 0; #X obj 97 19 inlet~; #X obj 97 317 outlet~; #X obj 393 56 sel 0; #X obj 96 209 *~ 1; #X obj 110 178 f 1; #X obj 140 179 f 0; #X obj 428 106 t a b; #X obj 377 222 *~ 1; #X obj 402 191 f 0; #X obj 433 191 f 1; #X text 17 210 no delay; #X text 237 212 delay; #N canvas 122 597 496 308 predelay 0; #X obj 35 52 inlet~; #X obj 264 227 outlet~; #X obj 264 50 inlet; #X obj 35 101 delwrite~ jonpredelayright 1000; #X obj 264 183 delread~ jonpredelayright 1; #X connect 0 0 3 0; #X connect 2 0 4 0; #X connect 4 0 1 0; #X restore 297 190 pd predelay; #X obj 393 25 r jonpredelayright; #X connect 0 0 3 0; #X connect 0 0 12 0; #X connect 2 0 4 0; #X connect 2 0 8 0; #X connect 2 1 6 0; #X connect 3 0 1 0; #X connect 4 0 3 1; #X connect 5 0 3 1; #X connect 6 0 12 1; #X connect 6 1 5 0; #X connect 6 1 9 0; #X connect 7 0 1 0; #X connect 8 0 7 1; #X connect 9 0 7 1; #X connect 12 0 7 0; #X connect 13 0 2 0; #X restore 175 105 pd predelay; #N canvas 318 202 458 308 bandwidth 0; #X obj 66 22 inlet~; #X obj 65 183 outlet~; #X obj 65 107 lop~; #X obj 92 74 r \$0-bandwidth; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X restore 175 137 pd bandwidth; #X text 27 312 this is might be dual mono version, f 44; #N canvas 0 50 458 308 1/2 0; #X obj 102 56 inlet~; #X obj 182 56 inlet~; #X obj 103 138 *~ 0.5; #X obj 103 102 +~; #X obj 103 175 outlet~; #X connect 0 0 3 0; #X connect 1 0 3 1; #X connect 2 0 4 0; #X connect 3 0 2 0; #X restore 175 72 pd 1/2; #N canvas 725 409 856 498 output_taps 0; #X obj 28 409 outlet~; #X obj 30 267 -~; #X obj 31 109 +~; #X obj 30 215 +~; #X obj 29 369 -~; #X text 30 26 left; #X obj 31 163 -~; #X obj 30 317 -~; #X obj 371 407 outlet~; #X obj 370 105 +~; #X obj 371 261 -~; #X obj 370 208 +~; #X obj 371 365 -~; #X text 370 20 right; #X obj 372 313 -~; #X obj 370 154 -~; #X obj 32 55 delread~ righttap_48_54 8.93787; #X obj 51 82 delread~ righttap_48_54 99.9294; #X obj 50 134 delread~ righttap_55_59 64.2787; #X obj 49 188 delread~ righttap_59_63 67.0676; #X obj 50 240 delread~ righttap_24_30 66.866; #X obj 50 293 delread~ righttap_31_33 6.28339; #X obj 49 342 delread~ righttap_33_39 35.8187; #X obj 371 51 delread~ righttap_24_30 11.8612; #X obj 390 78 delread~ righttap_24_30 121.871; #X obj 390 130 delread~ righttap_31_33 41.2621; #X obj 390 181 delread~ righttap_33_39 89.8155; #X obj 391 234 delread~ righttap_48_54 70.9317; #X obj 392 286 delread~ righttap_55_59 11.2563; #X obj 390 338 delread~ righttap_59_63 4.06572; #X connect 1 0 7 0; #X connect 2 0 6 0; #X connect 3 0 1 0; #X connect 4 0 0 0; #X connect 6 0 3 0; #X connect 7 0 4 0; #X connect 9 0 15 0; #X connect 10 0 14 0; #X connect 11 0 10 0; #X connect 12 0 8 0; #X connect 14 0 12 0; #X connect 15 0 11 0; #X connect 16 0 2 0; #X connect 17 0 2 1; #X connect 18 0 6 1; #X connect 19 0 3 1; #X connect 20 0 1 1; #X connect 21 0 7 1; #X connect 22 0 4 1; #X connect 23 0 9 0; #X connect 24 0 9 1; #X connect 25 0 15 1; #X connect 26 0 11 1; #X connect 27 0 10 1; #X connect 28 0 14 1; #X connect 29 0 12 1; #X restore 175 247 pd output_taps; #X text 267 247 renamed all righttaps; #X connect 0 0 10 0; #X connect 0 0 10 1; #X connect 3 0 4 0; #X connect 5 0 8 0; #X connect 6 0 17 0; #X connect 6 0 17 1; #X connect 7 0 9 0; #X connect 8 0 3 0; #X connect 10 0 5 0; #X connect 11 0 1 0; #X connect 12 0 13 0; #X connect 14 0 15 0; #X connect 15 0 12 0; #X connect 17 0 14 0; #X connect 18 0 2 0; #X restore 71 270 pd jon~; #X f 15; #X obj 71 175 inlet~; #X obj 114 175 inlet~; #X text 171 271 By Jon Dattorro. Stereo adaptation.; #X connect 0 0 24 2; #X connect 20 0 21 0; #X connect 21 0 1 0; #X connect 24 0 22 0; #X connect 24 1 23 0; #X connect 25 0 24 0; #X connect 26 0 24 1; #X restore 326 432 pd dattorrostereo; #X obj 425 389 r verbpreset; #X obj 395 193 r verbmix; #X obj 169 504 outlet~, f 8; #X obj 232 504 outlet~, f 8; #X connect 0 0 1 0; #X connect 0 0 6 0; #X connect 1 0 2 1; #X connect 2 0 18 0; #X connect 2 0 17 0; #X connect 2 0 23 0; #X connect 2 0 24 0; #X connect 3 0 5 0; #X connect 4 0 5 1; #X connect 5 0 18 0; #X connect 5 0 23 0; #X connect 6 0 4 0; #X connect 7 0 2 0; #X connect 10 0 14 0; #X connect 11 0 13 0; #X connect 12 0 13 1; #X connect 13 0 17 0; #X connect 13 0 24 0; #X connect 14 0 12 0; #X connect 15 0 10 0; #X connect 15 0 0 0; #X connect 16 0 15 0; #X connect 17 0 27 1; #X connect 18 0 27 0; #X connect 19 0 20 0; #X connect 19 0 22 0; #X connect 20 0 24 1; #X connect 20 0 23 1; #X connect 21 0 18 1; #X connect 21 0 17 1; #X connect 22 0 21 0; #X connect 23 0 30 0; #X connect 24 0 31 0; #X connect 25 0 19 0; #X connect 27 0 30 0; #X connect 27 1 31 0; #X connect 28 0 27 2; #X connect 29 0 25 0; #X restore 109 182 pd reverbdrywet; #N canvas 455 114 618 476 limiter 0; #X obj 291 368 *~; #X obj 320 166 env~; #X obj 320 188 dbtorms; #X obj 384 368 *~; #X msg 320 241 1 \$1; #X obj 320 271 /; #X obj 320 301 min 1; #X obj 320 214 + 0.5; #X obj 320 328 lop~ 5; #X text 207 47 Limiter that basically divides the output by the peak power - assuming it's about 3db greater than the rms; #X obj 291 394 dac~, f 16; #X text 22 264 attenuator for freeze mode.; #X text 23 279 turning up six feedback controls to 100% boosts the overall volume too much., f 41; #X obj 99 103 sel 1; #X msg 99 124 0.7; #X msg 126 124 1; #X obj 99 178 line; #X msg 99 151 \$1 800; #X obj 99 76 r freezeonoff; #X obj 293 76 inlet~; #X obj 384 76 inlet~; #X obj 293 123 *~ 1; #X obj 384 123 *~ 1; #X connect 0 0 10 0; #X connect 1 0 2 0; #X connect 2 0 7 0; #X connect 3 0 10 1; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 8 0; #X connect 7 0 4 0; #X connect 8 0 0 1; #X connect 8 0 3 1; #X connect 13 0 14 0; #X connect 13 1 15 0; #X connect 14 0 17 0; #X connect 15 0 17 0; #X connect 16 0 21 1; #X connect 16 0 22 1; #X connect 17 0 16 0; #X connect 18 0 13 0; #X connect 19 0 21 0; #X connect 20 0 22 0; #X connect 21 0 1 0; #X connect 21 0 0 0; #X connect 22 0 3 0; #X connect 22 0 1 0; #X restore 109 216 pd limiter; #X f 15; #X connect 0 0 2 0; #X connect 1 0 2 1; #X connect 2 0 3 0; #X connect 2 1 3 1; #X connect 3 0 16 0; #X connect 3 1 16 1; #X connect 13 0 14 0; #X connect 16 0 13 0; #X connect 16 0 17 0; #X connect 16 1 17 1; #X restore 925 626 pd stereobus; #X f 13; #X text 277 562 freeze; #X text 537 621 thinner; #X text 969 560 ALL; #X text 890 620 play; #X text 965 508 filters; #X text 816 560 pitch; #X text 888 509 feedback; #X text 890 560 reverse; #X text 536 558 reverse; #X text 595 541 feedback; #X text 647 542 filters; #X obj 511 505 hradio 15 1 0 4 globalcycles taptimes empty 0 -8 0 10 -204800 -1 -1 0; #X symbolatom 512 520 10 0 0 0 - ct -; #X symbolatom 358 520 9 0 0 0 - tempo -; #X text 236 465 ____________// controls //____________________________// global parameters //___________________// randomise parameters //_______ , f 134; #X text 402 111 thin; #X text 671 111 thin; #X text 942 111 thin; #X text 403 320 thin; #X text 673 320 thin; #X text 942 321 thin; #X obj 708 560 vu 30 80 mastervu empty -1 -8 0 10 -204800 -1 0 0; #X text 368 46 master time, f 8; #X text 630 488 pitch class; #N canvas 273 23 878 751 the 1; #X text 33 759 Patch designed by Seán Mac Erlaine leaning on the work of countless others from the Pd community with thanks. www.seanmacerlaine.com , f 118; #X text 32 134 * i/o = open/close input to all six taps.; #X text 32 190 * clear = clears all six taps.; #X text 32 211 * dry/wet = mix of microphone signal \, default is 100% wet. Less than this CAN cause feedback., f 102; #X text 32 234 * tempo = distance of spacing of taps. short = 50ms \, medium = 250ms \, long = 1600ms \, ultra = 3600, f 100; #X text 34 307 * tap times = length of individual taps in relation to mater time (tap I). see individual times on taps., f 112; #X text 34 329 * pitch class: loco = no transposition \, 8vb = some an octave lower \, 8va = add some octave higher \, fifths = add fifths \, minor = add minor thirds \, add major thirds \, up fourth = transpose up a fourth., f 120; #X text 34 362 * reverse = change direction of six taps.; #X text 35 422 * feedback = controls all six feedback parameters.; #X text 35 445 * filters = controls all six filter frequencies (filters are disengaged when at top position)., f 101; #X text 311 8 // spiritditch // v1 (October 2019); #X text 36 536 * feedback = random feedback settings for all taps. This is disabled when in freeze mode., f 92; #X text 36 558 * filters = random filter frequency for all taps.; #X text 36 581 * pitch = random pitch for all taps (chromatic between octave down and octave up)., f 85; #X text 36 602 * reverse = change direction for random amount of taps. ; #X text 36 641 * play = auto randomiser \, essentially a random metronome pressing ALL button., f 118; #X text 35 621 * ALL = randomise all parameters except thin and master time. When in freeze mode feedback is disabled to keep sustained sounds. , f 129; #X text 31 271 // global parameters //____________________________________________ , f 88; #X text 31 99 // controls //___________________________________________________ , f 82; #X text 32 486 // randomise parameters //__________________________________________ , f 92; #X text 33 732 _______________________________________________________________________ , f 77; #X text 34 385 * thinner = turning on will activate a mode where each tap only recieves a signal 60% of the time \, good for turning on spiritditch for longer periods and not becoming overwhelmed., f 118; #X text 36 515 * length = random tap length (except tap I master time). ; #X text 31 701 i/o = spacebar. freeze = f. clear = c. length = l. feedback = b. filters = t. pitch = p. reverse = r. ALL = a. play = y. thinner = n., f 133; #X text 30 678 // key commands (only active when toggle is on) //_____________________ , f 85; #X text 32 156 `, f 95; #X text 33 51 A six-tap delay with independent control (per tap) of feedback \, delay time \, pitch \, direction \, and filter frequency. Loosely based on Rainmaker eurorack module by Intellijel \, but I soon deviated to my own musical preferencees. Enjoy!, f 118; #X restore 925 603 pd the manual; #X obj 309 73 vsl 30 140 0 1 0 0 freq1 flt1 empty 0 -9 0 10 -262144 -1 -1 1112 0; #X text 305 53 filter; #X obj 420 189 hsl 44 27 0 127 0 0 empty empty empty -2 -8 0 10 -262144 -262144 -159808 0 1; #X obj 418 190 cnv 15 47 25 empty vu1a empty 20 12 0 14 -225280 -66577 0; #X obj 690 189 hsl 44 27 0 127 0 0 empty vu2 empty -2 -8 0 10 -225280 -262144 -159808 0 1; #X obj 688 190 cnv 15 47 25 empty vu2 empty 20 12 0 14 -225280 -66577 0; #X obj 958 189 hsl 44 27 0 127 0 0 empty empty empty -2 -8 0 10 -262144 -262144 -159808 0 1; #X obj 956 190 cnv 15 47 25 empty vu3 empty 20 12 0 14 -225280 -66577 0; #X obj 420 397 hsl 44 27 0 127 0 0 empty empty empty -2 -8 0 10 -262144 -262144 -159808 0 1; #X obj 418 398 cnv 15 47 25 empty vu4 empty 20 12 0 14 -225280 -66577 0; #X obj 690 397 hsl 44 27 0 127 0 0 empty vu5 empty -2 -8 0 10 -225280 -262144 -159808 0 1; #X obj 688 398 cnv 15 47 25 empty vu5 empty 20 12 0 14 -225280 -66577 0; #X obj 959 397 hsl 44 27 0 127 0 0 empty empty empty -2 -8 0 10 -262144 -262144 -159808 0 1; #X obj 957 398 cnv 15 47 25 empty vu6 empty 20 12 0 14 -225280 -66577 0; #X text 714 541 vu; #X text 292 685 ____________// spiritditch (multitap delay) //__________________________// seán mac erlaine 2019 //___________, f 121; #X obj 863 617 tgl 25 0 randomplay playkey empty 17 7 0 10 -204800 -1 -1 0 1; #X text 813 616 key commands, f 8; #X text 639 53 length; #X text 909 51 length; #X text 907 261 length; #X text 637 260 length; #X text 371 259 length; #X text 815 509 length; #X text 506 488 tap lengths; #X obj 456 559 vsl 30 80 0 1 0 0 verbmix defaultverb empty 0 -9 0 10 -204800 -99865 -1 2370 0; #X obj 358 617 hradio 15 1 0 6 verbpreset defaultverbt empty 0 -8 0 10 -204800 -1 -1 1; #X symbolatom 358 632 15 0 0 0 - verbtype -; #X text 354 600 reverb type; #X text 459 542 mix; #X text 451 532 reverb; #X obj 441 126 tgl 25 0 mute1 muted1 empty 17 7 0 10 -262144 -1 -1 0 1; #X text 438 111 mute; #X text 369 110 rev; #X text 636 110 rev; #X obj 711 126 tgl 25 0 mute2 muted2 empty 17 7 0 10 -262144 -1 -1 0 1; #X text 709 111 mute; #X text 907 109 rev; #X obj 981 126 tgl 25 0 mute3 muted3 empty 17 7 0 10 -262144 -1 -1 0 1; #X text 979 111 mute; #X text 906 320 rev; #X obj 981 336 tgl 25 0 mute6 muted6 empty 17 7 0 10 -262144 -1 -1 0 1; #X text 979 321 mute; #X text 638 320 rev; #X obj 711 336 tgl 25 0 mute5 muted5 empty 17 7 0 10 -262144 -1 -1 0 1; #X text 709 321 mute; #X text 369 319 rev; #X obj 441 336 tgl 25 0 mute4 muted4 empty 17 7 0 10 -262144 -1 -1 0 1; #X text 439 321 mute;