max v2;
#N vpatcher 194 184 786 554;
#P origin 45 0;
#P message 387 294 53 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 387 315 73 196617 p clear_buffer;
#N vpatcher 197 137 868 621;
#P newex 58 280 61 196617 vasp.update;
#P comment 600 218 37 196617 buf*b;
#P user umenu 78 79 72 196647 1 64 95 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 1074path;
#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 fasten 1 0 2 0 143 134 64 134;
#P connect 5 0 2 0;
#P connect 4 1 1 0;
#P pop;
#P hidden newobj 140 100 43 196617 p loader;
#P message 433 395 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 433 416 78 196617 p clear_buffers;
#P newex 58 159 61 196617 vasp.update;
#P hidden newex 526 367 48 196617 r 1074path;
#P comment 52 81 26 196617 read;
#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 325 50 49 196617 p wfkeys;
#P comment 126 313 157 196617 multiplie noise with the envelope;
#P comment 126 119 100 196617 generate noise;
#P comment 109 259 100 196617 normalize the vasp;
#P comment 133 231 149 196617 filter the values with a lowpass to get the envelope (2Hz);
#P message 58 312 58 196617 vasp buf*a;
#P newex 58 333 68 196617 vasp.* buf*b;
#P message 292 417 27 196617 stop;
#P message 224 417 65 196617 startwindow;
#P newex 325 441 29 196617 dac~;
#P newex 325 389 30 196617 line~;
#P message 325 360 72 196617 0 \, 2000 2000;
#P newex 325 415 62 196617 play~ buf*a;
#P newex 58 360 61 196617 vasp.update;
#P newex 58 257 45 196617 vasp.opt;
#P newex 58 234 71 196617 vasp.flp 2205;
#P message 58 188 58 196617 vasp buf*b;
#P newex 58 210 45 196617 vasp.abs;
#P message 58 118 58 196617 vasp buf*a;
#P newex 58 137 55 196617 vasp.noise;
#P hidden message 325 215 51 196617 set buf*b;
#P user waveform~ 325 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 325 93 51 196617 set buf*a;
#P hidden newex 325 69 45 196617 loadbang;
#P user waveform~ 325 113 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 539 415 98 196617 buffer~ buf*b 2000;
#P newex 539 390 98 196617 buffer~ buf*a 2000;
#P comment 125 189 100 196617 get absolute values;
#P comment 52 43 336 196622 use vasp.* to multiplie an envelope to noise;
#P comment 150 81 100 196617 into buffer buf*b;
#P comment 600 98 37 196617 buf*a;
#P connect 12 0 11 0;
#P connect 11 0 33 0;
#P connect 14 0 13 0;
#P connect 13 0 15 0;
#P connect 15 0 16 0;
#P connect 16 0 39 0;
#P connect 25 0 24 0;
#P connect 24 0 17 0;
#P hidden connect 37 1 36 0;
#P hidden connect 7 0 8 0;
#P hidden connect 30 0 6 0;
#P hidden connect 8 0 6 0;
#P hidden connect 7 0 10 0;
#P hidden fasten 5 1 10 0 632 436 644 436 644 213 330 213;
#P hidden connect 10 0 9 0;
#P hidden connect 30 0 9 0;
#P connect 19 0 20 0;
#P connect 20 0 18 0;
#P connect 18 0 21 0;
#P fasten 22 0 21 0 229 438 330 438;
#P fasten 23 0 21 0 297 438 330 438;
#P connect 18 0 21 1;
#P connect 35 0 34 0;
#P hidden fasten 32 0 5 0 531 413 544 413;
#P pop;
#P newobj 45 315 98 196617 p envelope_example;
#P comment 103 141 76 196617 generate noise;
#P newex 45 263 61 196617 vasp.update;
#P message 45 140 53 196617 vasp buf*;
#P newex 45 175 55 196617 vasp.noise;
#P comment 39 74 189 196617 optional argument/right inlet: multiplier;
#P flonum 90 208 35 9 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P comment 39 59 97 196617 multiplies a vasp;
#P comment 39 36 66 196622 vasp.*;
#P newex 463 315 93 196617 buffer~ buf* 2000;
#P hidden message 246 120 45 196617 set buf*;
#P hidden newex 246 94 45 196617 loadbang;
#P user waveform~ 246 144 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 45 229 55 196617 vasp.* 0.5;
#P comment 129 210 59 196617 change gain;
#P connect 11 0 10 0;
#P connect 10 0 1 0;
#P connect 1 0 12 0;
#P connect 8 0 1 1;
#P hidden connect 3 0 4 0;
#P hidden connect 4 0 2 0;
#P connect 16 0 15 0;
#P pop;