Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: f2c0720fde
Fetching contributors…

Cannot retrieve contributors at this time

204 lines (203 sloc) 5.853 kb
#N canvas 365 472 683 483 10;
#N canvas 0 22 450 300 (subpatch) 0;
#X array dopey 62079 float 2;
#X coords 0 1 62079 -1 200 140 1;
#X restore 65 35 graph;
#N canvas 750 474 538 388 load-samples 0;
#X obj 36 151 soundfiler;
#X msg 36 83 bang;
#X obj 36 109 openpanel;
#X obj 144 37 loadbang;
#X msg 36 131 read -resize \$1 dopey;
#X obj 117 17 inlet;
#X msg 117 64 read -resize examples/voice.wav dopey;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X restore 276 80 pd load-samples;
#X obj 253 211 buffet~ dopey 100 300;
#X obj 252 258 bng 15 100 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 394 241 5 0 0 0 - - -;
#N canvas 0 22 450 300 (subpatch) 0;
#X array soapy 22050 float 2;
#X coords 0 1 22050 -1 100 70 1;
#X restore 65 204 graph;
#N canvas 171 294 544 498 processing 0;
#X obj 44 402 s buffet-msgs;
#X msg 203 208 reverse;
#X msg 171 150 normalize 0.95;
#X msg 173 176 killdc;
#X text 43 34 Destructive Buffer Edits;
#X msg 182 386 autoredraw \$1;
#X obj 182 364 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X text 199 363 turn off if redraw hurts performance;
#X msg 182 345 1;
#X obj 182 329 loadbang;
#X msg 43 67 fadein 100;
#X msg 89 92 fadeout 500;
#X msg 112 121 rotatetozero 300;
#X msg 221 247 erase 300 460;
#X msg 223 285 internal_fadeout 500 800;
#X msg 251 309 internal_fadein 200 500;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 5 0;
#X connect 8 0 6 0;
#X connect 9 0 8 0;
#X connect 10 0 0 0;
#X connect 11 0 0 0;
#X connect 12 0 0 0;
#X connect 13 0 0 0;
#X connect 14 0 0 0;
#X connect 15 0 0 0;
#X coords 0 0 1 1 85 60 0;
#X restore 167 345 pd processing;
#X obj 253 184 r buffet-msgs;
#N canvas 172 437 474 306 copying 0;
#X obj 48 70 buffet~ soapy 100 200;
#X text 46 30 clear receiver (optional);
#X obj 50 236 s buffet-msgs;
#X text 156 162 too long requests are truncated;
#X msg 270 53 normalize 1;
#X msg 47 50 erase 0 500;
#X msg 49 112 copy_to_buffer soapy 0 500;
#X msg 62 135 copy_to_buffer soapy 500 1000;
#X msg 154 181 copy_to_buffer soapy 300 1200;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X connect 8 0 2 0;
#X restore 168 318 pd copying;
#X text 260 271 operation completion indicator;
#X text 441 240 rms report;
#N canvas 594 46 470 320 analysis 0;
#X obj 65 188 s buffet-msgs;
#X text 66 88 get rms reading from a specified segment of buffer;
#X msg 120 145 pevents 50 0.05;
#X text 117 130 look for percussive events;
#X msg 64 112 rmschunk 200 300;
#X connect 2 0 0 0;
#X connect 4 0 0 0;
#X restore 167 397 pd analysis;
#X obj 325 314 print;
#X text 365 317 list of estimated onsets in buffer;
#X obj 422 174 dac~;
#X floatatom 445 121 5 0 1 0 - - -;
#X obj 422 148 *~ 0;
#X obj 448 108 hsl 32 8 0 1 0 0 empty empty empty -2 -8 0 10 -261197
-1 -1 400 1;
#X text 487 120 playback gain;
#X obj 422 88 player~ dopey 1;
#X msg 277 48 bang;
#X text 313 50 reload;
#X text 120 435 buffet~ - Various operations on contents of an array
;
#N canvas 34 269 705 565 scrambler 0;
#X obj 57 356 s buffet-msgs;
#X msg 57 153 minswap \$1;
#X floatatom 57 123 5 0 0 0 - - -;
#X floatatom 147 121 5 0 0 0 - - -;
#X msg 146 151 maxswap \$1;
#X floatatom 144 223 5 0 0 0 - - -;
#X msg 143 253 overlap \$1;
#X msg 145 194 30;
#X msg 224 256 retroblock;
#X msg 314 276 swap;
#X msg 172 335 specswap 0 1000 250;
#X obj 59 57 t b b b;
#X obj 58 28 loadbang;
#X text 187 120 minimum and maximum swap times in ms.;
#X text 155 209 fade time for tapering swap blocks (20 ms. by default)
;
#X text 226 240 reverse a piece of the buffer;
#X text 354 276 swap two pieces of the buffer;
#X text 177 357 specify which parts of buffer to exchange. arguments
are skip1 \, skip2 and duration. In this example the first 250 ms block
of the buffer is swapped with the 250 ms block beginning 1000 ms into
the buffer.;
#X text 165 26 Destructive rearrangement of buffer;
#X msg 200 479 autoredraw \$1;
#X obj 200 453 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X text 217 452 turn off if redraw hurts performance;
#X msg 200 434 1;
#X obj 200 418 loadbang;
#X obj 316 141 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 315 164 metro 250;
#X msg 58 94 100;
#X msg 148 92 200;
#X obj 237 158 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 236 181 metro 500;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X connect 8 0 0 0;
#X connect 9 0 0 0;
#X connect 10 0 0 0;
#X connect 11 0 26 0;
#X connect 11 1 27 0;
#X connect 11 2 7 0;
#X connect 12 0 11 0;
#X connect 19 0 0 0;
#X connect 20 0 19 0;
#X connect 22 0 20 0;
#X connect 23 0 22 0;
#X connect 24 0 25 0;
#X connect 25 0 9 0;
#X connect 26 0 2 0;
#X connect 27 0 3 0;
#X connect 28 0 29 0;
#X connect 29 0 8 0;
#X restore 167 371 pd scrambler;
#N canvas 0 22 470 320 playback-controls 0;
#X obj 18 59 impulse~;
#X msg 19 31 bang;
#X text 57 31 retrigger;
#X msg 95 54 pause;
#X msg 144 55 resume;
#X msg 204 56 stop;
#X obj 18 129 outlet~;
#X obj 203 130 outlet;
#X msg 238 103 static_increment 1;
#X obj 238 84 loadbang;
#X obj 18 89 samm~ 40 1;
#X connect 0 0 10 0;
#X connect 1 0 0 0;
#X connect 3 0 10 0;
#X connect 4 0 10 0;
#X connect 5 0 7 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 6 0;
#X restore 422 44 pd playback-controls;
#X msg 417 368 \; pd dsp \$1;
#X obj 417 342 tgl 23 0 empty empty empty 17 7 0 10 -261882 -1 -1 1
1;
#X connect 2 0 3 0;
#X connect 2 1 12 0;
#X connect 2 2 4 0;
#X connect 7 0 2 0;
#X connect 15 0 16 1;
#X connect 16 0 14 0;
#X connect 16 0 14 1;
#X connect 17 0 15 0;
#X connect 19 0 16 0;
#X connect 20 0 1 0;
#X connect 24 0 19 0;
#X connect 24 0 19 1;
#X connect 24 1 19 0;
#X connect 26 0 25 0;
Jump to Line
Something went wrong with that request. Please try again.