max v2; #N vpatcher 241 84 852 554; #P message 396 398 52 196617 vasp buf=; #N vpatcher 40 55 218 175; #P newex 45 79 61 196617 vasp.update; #P newex 45 56 45 196617 vasp.= 0; #N comlet vasp to clear in; #P inlet 45 26 15 0; #P connect 0 0 1 0; #P connect 1 0 2 0; #P pop; #P newobj 396 419 73 196617 p clear_buffer; #N vpatcher 113 336 466 586; #P newex 152 160 27 196617 t b f; #P newex 67 98 27 196617 - 0.; #P newex 67 76 27 196617 t b i; #P comment 226 139 72 196617 msec to samps; #P comment 107 80 118 196617 <<< end - start = length; #P newex 152 137 71 196617 * 44.099998; #P newex 67 137 67 196617 * 44.099998; #P newex 67 190 50 196617 pack 0 0; #N comlet endpoint in ms; #P inlet 152 32 15 0; #N comlet startpoint in ms; #P inlet 67 32 15 0; #N comlet length and offset in samples (list); #P outlet 67 215 15 0; #P comment 151 98 75 196617 start = offset; #P connect 2 0 9 0; #P connect 3 0 10 0; #P connect 9 0 10 0; #P connect 10 0 5 0; #P fasten 11 0 4 0 157 180 72 180; #P connect 5 0 4 0; #P connect 4 0 1 0; #P connect 9 1 10 1; #P fasten 11 1 4 1 174 183 112 183; #P connect 2 0 6 0; #P connect 6 0 11 0; #P pop; #P newobj 362 281 115 196617 p loop_to_length/offset; #N vpatcher 40 55 418 371; #P button 183 82 15 0; #P newex 129 145 60 196617 prepend set; #N comlet waveform~ mode messages; #P inlet 129 121 15 0; #P newex 259 64 27 196617 << 1; #P newex 206 121 40 196617 change; #P newex 206 145 107 196617 select 0 1 2; #P newex 206 98 27 196617 |; #P newex 47 121 40 196617 change; #P outlet 129 252 15 0; #P message 47 145 65 196617 constrain \$1; #P newex 129 195 45 196617 loadbang; #P newex 47 40 222 196617 pushkeys; #P message 270 169 58 196617 mode move; #P message 206 213 61 196617 mode select; #P message 238 191 52 196617 mode loop; #P connect 3 0 7 0; #P connect 7 0 5 0; #P connect 12 0 13 0; #P fasten 2 0 6 0 275 243 134 243; #P fasten 1 0 6 0 211 243 134 243; #P fasten 0 0 6 0 243 243 134 243; #P fasten 5 0 6 0 52 243 134 243; #P connect 11 0 14 0; #P connect 14 0 8 0; #P connect 3 3 8 0; #P connect 8 0 10 0; #P connect 10 0 9 0; #P connect 13 0 1 0; #P connect 9 0 1 0; #P connect 4 0 1 0; #P connect 11 0 8 1; #P connect 9 1 0 0; #P connect 3 4 11 0; #P connect 9 2 2 0; #P pop; #P hidden newobj 261 89 49 196617 p wfkeys; #P comment 114 298 136 196617 set selected samples to zero; #P button 95 297 15 0; #P newex 55 219 61 196617 vasp.update; #P newex 55 193 55 196617 vasp.* 0.5; #P message 362 327 99 196617 set vasp \$1 buf= \$2; #P comment 114 147 70 196617 generate noise; #N vpatcher 278 163 996 630; #P user umenu 86 119 72 196647 1 64 135 1; #X add bass.aif; #X add beat.aif; #X add fly.aif; #X add plastic.aif; #X add your_own...; #N vpatcher 93 462 355 682; #P message 59 102 28 196617 read; #P newex 59 69 89 196617 route your_own...; #N comlet popup comment in; #P inlet 59 26 15 0; #P newex 59 149 48 196617 s 1077path; #P newex 138 102 79 196617 sprintf read %s; #P user umenu 48 169 100 196647 1 64 185 1; #X add drums.aif; #X add voice.aif; #X add test.aif; #X add read a soundfile; #P connect 3 0 4 0; #P connect 4 0 5 0; #P connect 5 0 2 0; #P fasten 1 0 2 0 143 134 64 134; #P connect 4 1 1 0; #P pop; #P hidden newobj 148 140 43 196617 p loader; #P message 504 394 85 196617 vasp buf=a buf=b; #N vpatcher 40 55 218 175; #P newex 45 79 61 196617 vasp.update; #P newex 45 56 45 196617 vasp.= 0; #N comlet vasp to clear in; #P inlet 45 26 15 0; #P connect 0 0 1 0; #P connect 1 0 2 0; #P pop; #P newobj 504 415 78 196617 p clear_buffers; #P hidden newex 637 374 48 196617 r 1077path; #P comment 59 121 26 196617 read; #N vpatcher 113 336 466 586; #N comlet length in ms out; #P outlet 11 215 15 0; #P newex 152 160 27 196617 t b f; #P newex 67 98 27 196617 - 0.; #P newex 67 76 27 196617 t b i; #P comment 226 139 72 196617 msec to samps; #P comment 107 80 118 196617 <<< end - start = length; #P newex 152 137 71 196617 * 44.099998; #P newex 67 137 67 196617 * 44.099998; #P newex 67 190 50 196617 pack 0 0; #N comlet endpoint in ms; #P inlet 152 32 15 0; #N comlet startpoint in ms; #P inlet 67 32 15 0; #N comlet length and offset in samples (list); #P outlet 67 215 15 0; #P comment 151 98 75 196617 start = offset; #P connect 10 0 12 0; #P connect 2 0 9 0; #P connect 9 0 10 0; #P connect 3 0 10 0; #P connect 10 0 5 0; #P connect 5 0 4 0; #P fasten 11 0 4 0 157 180 72 180; #P connect 4 0 1 0; #P connect 9 1 10 1; #P fasten 11 1 4 1 174 183 112 183; #P connect 2 0 6 0; #P connect 6 0 11 0; #P pop; #P newobj 214 233 115 196617 p loop_to_length/offset; #N vpatcher 40 55 418 371; #P button 183 82 15 0; #P newex 129 145 60 196617 prepend set; #N comlet waveform~ mode messages; #P inlet 129 121 15 0; #P newex 259 64 27 196617 << 1; #P newex 206 121 40 196617 change; #P newex 206 145 107 196617 select 0 1 2; #P newex 206 98 27 196617 |; #P newex 47 121 40 196617 change; #P outlet 129 252 15 0; #P message 47 145 65 196617 constrain \$1; #P newex 129 195 45 196617 loadbang; #P newex 47 40 222 196617 pushkeys; #P message 270 169 58 196617 mode move; #P message 206 213 61 196617 mode select; #P message 238 191 52 196617 mode loop; #P connect 3 0 7 0; #P connect 7 0 5 0; #P connect 12 0 13 0; #P fasten 2 0 6 0 275 243 134 243; #P fasten 1 0 6 0 211 243 134 243; #P fasten 0 0 6 0 243 243 134 243; #P fasten 5 0 6 0 52 243 134 243; #P connect 11 0 14 0; #P connect 14 0 8 0; #P connect 3 3 8 0; #P connect 8 0 10 0; #P connect 10 0 9 0; #P connect 13 0 1 0; #P connect 9 0 1 0; #P connect 4 0 1 0; #P connect 11 0 8 1; #P connect 9 1 0 0; #P connect 3 4 11 0; #P connect 9 2 2 0; #P pop; #P hidden newobj 375 51 49 196617 p wfkeys; #P newex 73 289 27 196617 t f f; #P message 593 376 41 196617 size \$1; #P newex 73 323 74 196617 * 44.099998; #P newex 73 264 27 196617 f; #P button 73 200 15 0; #P message 168 348 85 196617 vasp \$1 buf=a \$2; #P message 73 349 72 196617 vasp \$1 buf=b; #P newex 73 378 38 196617 vasp.=; #P comment 359 235 14 196617 B; #P newex 73 408 61 196617 vasp.update; #P hidden message 375 214 50 196617 set buf=b; #P user waveform~ 375 233 312 99 3 9; #W mode select; #W mouseoutput continuous; #W unit ms; #W grid 1000.; #W ticks 8.; #W labels 1; #W vlabels 1; #W vticks 1; #W vzoom 1.; #W voffset 0.; #W bpm 120. 4.; #W frgb 0 0 0; #W brgb 255 255 255; #W rgb2 132 132 132; #W rgb3 0 0 0; #W rgb4 0 0 0; #W rgb5 255 255 255; #W rgb6 100 100 100; #W rgb7 100 100 100; #P hidden message 375 92 50 196617 set buf=a; #P hidden newex 375 71 45 196617 loadbang; #P user waveform~ 374 112 312 99 3 9; #W mode select; #W mouseoutput continuous; #W unit ms; #W grid 1000.; #W ticks 8.; #W labels 1; #W vlabels 1; #W vticks 1; #W vzoom 1.; #W voffset 0.; #W bpm 120. 4.; #W frgb 0 0 0; #W brgb 255 255 255; #W rgb2 132 132 132; #W rgb3 0 0 0; #W rgb4 0 0 0; #W rgb5 255 255 255; #W rgb6 100 100 100; #W rgb7 100 100 100; #P newex 593 394 95 196617 buffer~ buf=b 2000; #P newex 593 414 95 196617 buffer~ buf=a 2000; #P comment 359 114 14 196617 A; #P comment 90 200 124 196617 copy selection from a to b; #P comment 73 160 162 196617 choose a selection from buffer a; #P comment 36 49 326 196622 use vasp.= to copy from buffer a to buffer b; #P comment 358 363 100 196617 resize the buffer with selectionlength; #P connect 17 0 18 0; #P connect 18 0 21 0; #P connect 21 0 19 0; #P connect 19 0 15 0; #P connect 15 0 14 0; #P connect 14 0 12 0; #P fasten 23 0 18 1 219 256 95 256; #P fasten 16 0 14 1 173 371 106 371; #P hidden connect 29 1 28 0; #P fasten 23 1 16 0 324 283 173 283; #P fasten 7 2 23 0 499 219 219 219; #P fasten 7 3 23 1 559 225 324 225; #P hidden connect 22 0 7 0; #P hidden connect 9 0 7 0; #P hidden fasten 5 1 9 0 683 434 694 434 694 88 380 88; #P hidden connect 8 0 9 0; #P hidden connect 8 0 11 0; #P hidden connect 11 0 10 0; #P hidden connect 22 0 10 0; #P connect 27 0 26 0; #P fasten 21 1 20 0 95 317 357 317 357 362 598 362; #P fasten 20 0 6 0 598 389 598 389; #P hidden connect 25 0 5 0; #P pop; #P newobj 55 419 85 196617 p more_examples; #P message 55 146 52 196617 vasp buf=; #P newex 55 167 55 196617 vasp.noise; #P newex 55 378 61 196617 vasp.update; #P message 55 272 52 196617 vasp buf=; #P newex 55 354 45 196617 vasp.= 0; #P comment 52 81 195 196617 optional argument/right inlet: value/vasp; #P comment 52 66 102 196617 set a vasp to a value; #P comment 52 43 89 196622 vasp.=; #P hidden message 261 129 45 196617 set buf=; #P hidden newex 261 109 45 196617 loadbang; #P user waveform~ 261 148 312 99 3 9; #W mode select; #W mouseoutput continuous; #W unit ms; #W grid 1000.; #W ticks 8.; #W labels 1; #W vlabels 1; #W vticks 1; #W vzoom 1.; #W voffset 0.; #W bpm 120. 4.; #W frgb 0 0 0; #W brgb 255 255 255; #W rgb2 132 132 132; #W rgb3 0 0 0; #W rgb4 0 0 0; #W rgb5 255 255 255; #W rgb6 100 100 100; #W rgb7 100 100 100; #P comment 114 273 110 196617 set all samples to zero; #P newex 481 419 92 196617 buffer~ buf= 2000; #P comment 55 121 131 196617 use vasp.= to clear a buffer; #P connect 13 0 12 0; #P connect 12 0 17 0; #P connect 17 0 18 0; #P fasten 16 0 9 0 367 346 60 346; #P fasten 19 0 9 0 100 346 60 346; #P connect 10 0 9 0; #P connect 9 0 11 0; #P hidden connect 4 0 5 0; #P hidden connect 21 0 3 0; #P hidden connect 5 0 3 0; #P fasten 3 2 22 0 386 264 367 264; #P connect 22 0 16 0; #P connect 24 0 23 0; #P fasten 3 3 22 1 446 264 472 264; #P pop;