blob: a808923524769bf389c9aab3b7de8d5f63aac06c (
plain)
1
|
max v2;
#N vpatcher 282 124 678 511;
#P hidden message 324 118 22 196617 set;
#P hidden newex 324 92 45 196617 loadbang;
#N vpatcher 116 168 848 567;
#P message 515 334 85 196617 vasp bufn1 bufn2;
#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 515 355 73 196617 p clear_buffer;
#P hidden newex 707 332 48 196617 r 1048path;
#P user umenu 88 71 72 196647 1 64 87 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 631 722;
#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 1048path;
#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 150 93 43 196617 p loader;
#P newex 58 158 61 196617 vasp.update;
#P comment 155 190 157 196617 clear imaginary part of soundfile (vector with index 1);
#P message 58 191 85 196617 vasp bufn1 bufn2;
#P newex 58 238 45 196617 vasp.= 0;
#P newex 58 213 45 196617 vasp.n 1;
#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 5 0 6 0 52 243 134 243;
#P fasten 0 0 6 0 243 243 134 243;
#P fasten 1 0 6 0 211 243 134 243;
#P fasten 2 0 6 0 275 243 134 243;
#P connect 11 0 14 0;
#P connect 3 3 8 0;
#P connect 14 0 8 0;
#P connect 8 0 10 0;
#P connect 10 0 9 0;
#P connect 4 0 1 0;
#P connect 9 0 1 0;
#P connect 13 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 389 41 49 196617 p wfkeys;
#P comment 574 212 127 196617 imaginary part of soundfile;
#P message 58 115 85 196617 vasp bufn1 bufn2;
#P hidden message 389 206 50 196617 set bufn2;
#P user waveform~ 389 227 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 606 355 95 196617 buffer~ bufn2 2000;
#P hidden message 390 82 50 196617 set bufn1;
#P hidden newex 389 60 45 196617 loadbang;
#P user waveform~ 389 100 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 58 285 61 196617 vasp.update;
#P newex 606 334 95 196617 buffer~ bufn1 2000;
#P newex 58 137 49 196617 vasp.cfft;
#P comment 155 116 197 196617 transform into real and imaginary part;
#P comment 581 84 119 196617 real part of the soundfile;
#P comment 58 73 29 196617 read;
#P connect 12 0 3 0;
#P connect 3 0 19 0;
#P connect 17 0 15 0;
#P connect 15 0 16 0;
#P connect 16 0 5 0;
#P hidden connect 21 1 20 0;
#P hidden connect 14 0 6 0;
#P hidden connect 8 0 6 0;
#P hidden fasten 7 0 11 0 394 70 394 70;
#P hidden fasten 11 0 10 0 394 222 394 222;
#P hidden connect 14 0 10 0;
#P hidden fasten 4 1 8 0 696 352 707 352 707 71 395 71;
#P hidden connect 7 0 8 0;
#P connect 24 0 23 0;
#P hidden connect 22 0 4 0;
#P pop;
#P newobj 57 325 85 196617 p more_examples;
#P message 57 143 85 196617 vasp bufn1 bufn2;
#P newex 57 219 45 196617 vasp.n 0;
#P newex 220 219 45 196617 vasp.n 1;
#P comment 269 220 53 196617 vector 1;
#P message 220 271 130 196617;
#P newex 220 241 60 196617 prepend set;
#P comment 105 220 53 196617 vector 0;
#P message 57 271 130 196617;
#P newex 57 241 60 196617 prepend set;
#P comment 52 70 168 196617 get one vector of a vasp;
#P comment 52 48 89 196622 vasp.n;
#P comment 52 88 183 196617 argument/right inlet: index of vector;
#P connect 11 0 10 0;
#P connect 10 0 3 0;
#P hidden fasten 14 0 4 0 329 267 62 267;
#P connect 3 0 4 0;
#P fasten 11 0 9 0 62 187 225 187;
#P connect 9 0 6 0;
#P connect 6 0 7 0;
#P hidden fasten 14 0 7 0 329 268 225 268;
#P hidden connect 13 0 14 0;
#P pop;
|
