blob: c53910a6e2887aaceceee28055e28b153aacc8b2 (
plain)
1
|
max v2;
#N vpatcher 180 75 870 686;
#P message 437 500 135 196617 vasp bufrmax?1 bufrmax?2;
#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 437 542 78 196617 p clear_buffers;
#P newex 59 452 61 196617 vasp.update;
#P newex 59 210 61 196617 vasp.update;
#P hidden newex 535 500 48 196617 r 1155path;
#P user umenu 78 127 72 196647 1 64 143 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 1155path;
#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 149 43 196617 p loader;
#P comment 52 129 26 196617 read;
#P comment 46 90 137 196617 needs two vectors;
#P newex 59 430 52 196617 vasp.c!fft;
#P message 59 409 135 196617 vasp bufrmax?1 bufrmax?2;
#P newex 59 189 49 196617 vasp.cfft;
#P message 59 167 135 196617 vasp bufrmax?1 bufrmax?2;
#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 344 97 49 196617 p wfkeys;
#P hidden message 344 278 75 196617 set bufrmax?2;
#P user waveform~ 344 299 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 534 542 122 196617 buffer~ bufrmax?2 2000;
#P flonum 92 321 68 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P comment 46 60 286 196617 maximum of the radius values of a complex vasp;
#P message 59 293 135 196617 vasp bufrmax?1 bufrmax?2;
#P newex 59 350 43 196617 vasp.c/;
#P newex 59 372 61 196617 vasp.update;
#P newex 58 522 51 196617 vasp.ropt;
#P message 58 498 135 196617 vasp bufrmax?1 bufrmax?2;
#P newex 59 260 62 196617 vasp.rmax?;
#P hidden message 344 145 75 196617 set bufrmax?1;
#P hidden newex 344 118 45 196617 loadbang;
#P user waveform~ 344 166 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 message 291 542 27 196617 stop;
#P message 224 542 65 196617 startwindow;
#P newex 344 520 30 196617 line~;
#P message 344 500 72 196617 0 \, 2000 2000;
#P newex 344 568 29 196617 dac~;
#P newex 344 542 85 196617 play~ bufrmax?1;
#P newex 58 542 61 196617 vasp.update;
#P message 59 241 135 196617 vasp bufrmax?1 bufrmax?2;
#P newex 534 521 122 196617 buffer~ bufrmax?1 2000;
#P comment 163 322 141 196617 -> current maximum;
#P comment 106 351 181 196617 use the maximum to optimize radius;
#P comment 52 482 179 196617 or use vasp.ropt which does the same;
#P comment 46 37 92 196622 vasp.rmax?;
#P comment 46 75 137 196617 right outlet: calculated value;
#P connect 18 0 19 0;
#P connect 19 0 7 0;
#P connect 29 0 30 0;
#P connect 30 0 38 0;
#P connect 6 0 17 0;
#P connect 22 0 21 0;
#P connect 21 0 20 0;
#P connect 31 0 32 0;
#P connect 32 0 39 0;
#P fasten 17 1 24 0 116 283 200 283 200 314 97 314;
#P connect 24 0 21 1;
#P hidden connect 36 1 35 0;
#P hidden connect 15 0 16 0;
#P hidden fasten 5 1 16 0 651 540 662 540 662 139 349 139;
#P hidden connect 28 0 14 0;
#P hidden connect 16 0 14 0;
#P hidden fasten 25 1 27 0 651 561 662 561 662 272 349 272;
#P hidden connect 15 0 27 0;
#P hidden connect 27 0 26 0;
#P hidden connect 28 0 26 0;
#P connect 10 0 11 0;
#P connect 11 0 8 0;
#P fasten 12 0 9 0 229 562 349 562;
#P fasten 13 0 9 0 296 562 349 562;
#P connect 8 0 9 0;
#P connect 8 0 9 1;
#P connect 41 0 40 0;
#P hidden connect 37 0 5 0;
#P pop;
|
