[maxmsp] [OT] converting 5-track sound file to 5 mono tracks

Here¹s a version using buf.OP to convert a quad file into four mono files.

#P button 505 86 28 1;
#P button 601 85 28 1;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 675 481 92 196617 sprintf write %sD;
#P newex 675 433 92 196617 sprintf write %sC;
#P newex 675 388 92 196617 sprintf write %sB;
#P button 149 48 28 1;
#P newex 675 340 93 196617 sprintf write %sA;
#P newex 625 297 69 196617 route symbol;
#P button 624 240 28 1;
#P newex 625 274 80 196617 dialog file name;
#P window setfont "Sans Serif" 18.;
#P window linecount 2;
#P comment 657 218 117 196626 6 write mono files;
#P window linecount 3;
#P comment 27 49 117 196626 5 split into mono channels;
#P window linecount 2;
#P comment 122 312 117 196626 4 normalize all channels;
#P window linecount 1;
#P comment 274 50 177 196626 3 find peak amp;
#P comment 503 54 103 196626 2 read file;
#P window setfont "Sans Serif" 9.;
#P message 601 121 101 196617 setLength 4 600000;
#P window linecount 5;
#P message 151 79 54 196617 split monoA monoB monoC monoD;
#P window linecount 1;
#P newex 305 399 85 196617 prepend multiply;
#P button 256 312 28 1;
#P newex 257 345 58 196617 uzi 4;
#P newex 305 374 51 196617 pack 0 0.;
#P flonum 404 334 91 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 368 333 31 196617 !/ 1.;
#P flonum 383 296 126 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 453 121 40 196617 t clear;
#P newex 333 295 45 196617 minmax;
#P newex 281 232 62 196617 unpack 0 0.;
#P newex 333 262 37 196617 abs 0.;
#P message 370 123 52 196617 set snake;
#P window setfont "Sans Serif" 18.;
#P newex 281 196 152 196626 mxj buf.Op multi;
#P button 232 50 28 1;
#P window setfont "Sans Serif" 9.;
#P newex 233 95 58 196617 uzi 4;
#P message 281 124 82 196617 min \$1 \, max \$1;
#P newex 675 502 124 196617 buffer~ monoD 600000 1;
#P newex 675 456 124 196617 buffer~ monoC 600000 1;
#P newex 675 411 124 196617 buffer~ monoB 600000 1;
#P newex 675 365 125 196617 buffer~ monoA 600000 1;
#P message 505 121 30 196617 read;
#P newex 505 144 88 196617 buffer~ multi 0 4;
#P window setfont "Sans Serif" 18.;
#P window linecount 2;
#P comment 635 61 129 196626 1 set buffer length;
#P window setfont "Sans Serif" 9.;
#P comment 515 294 86 196617 peak amplitude of all four channels;
#P window linecount 1;
#P comment 503 336 100 196617 normalizing factor;
#P connect 39 0 8 0;
#P fasten 34 0 35 0 630 332 680 332;
#P fasten 34 0 37 0 630 385 680 385;
#P fasten 34 0 38 0 630 431 680 431;
#P fasten 34 0 39 0 630 476 680 476;
#P connect 38 0 7 0;
#P connect 37 0 6 0;
#P connect 35 0 5 0;
#P connect 32 0 34 0;
#P connect 33 0 32 0;
#P connect 40 0 26 0;
#P connect 4 0 3 0;
#P connect 41 0 4 0;
#P connect 11 0 10 0;
#P fasten 11 0 17 0 237 83 458 83;
#P connect 19 0 21 1;
#P connect 19 0 20 0;
#P connect 16 1 18 0;
#P connect 16 1 19 0;
#P fasten 17 0 16 0 458 287 338 287;
#P connect 14 0 16 0;
#P connect 15 1 14 0;
#P connect 21 0 24 0;
#P connect 22 2 21 0;
#P connect 12 0 15 0;
#P fasten 13 0 12 0 375 167 286 167;
#P connect 9 0 12 0;
#P fasten 24 0 12 0 310 428 246 428 246 170 286 170;
#P fasten 25 0 12 0 156 156 286 156;
#P fasten 26 0 12 0 606 177 286 177;
#P connect 10 2 9 0;
#P connect 23 0 22 0;
#P connect 36 0 25 0;
#P window clipboard copycount 42;



Cheers
Gary Lee Nelson
Oberlin College
www.timara.oberlin.edu/GaryLeeNelson

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.cycling74.com/pipermail/maxmsp/attachments/20070710/b437edf7/attachment.htm