Changed midifile playback to print status instead of playing it.

(thanks Alex x37v.alex@gmail.com)

svn path=/trunk/externals/mrpeach/; revision=11853

1 files changed, 111 insertions, 328 deletions

diff --git a/midifile/midifile-help.pd b/midifile/midifile-help.pd
index 9ac6e86..a7ac591 100644
--- a/midifile/midifile-help.pd
+++ b/midifile/midifile-help.pd
@@ -1,4 +1,4 @@
-#N canvas 375 332 399 237 12;

+#N canvas 632 256 399 237 12;

 #N canvas 549 72 690 635 midifile_write 0;

 #X obj 15 2 bng 45 250 50 0 empty empty choose 5 23 0 8 -62784 -260818

 -258699;

@@ -104,346 +104,129 @@
 #X connect 51 0 36 0;

 #X connect 55 0 36 0;

 #X restore 76 116 pd midifile_write;

-#N canvas 415 10 819 897 midifile_read 0;

-#X obj 47 206 bng 15 250 50 0 empty empty step 18 7 0 12 -4160 -257985

+#N canvas 503 29 765 914 midifile_read 0;

+#X obj 47 205 bng 15 250 50 0 empty empty step 18 7 0 12 -4160 -257985

 -1;

-#X obj 31 45 openpanel;

-#X obj 31 0 bng 45 250 50 0 empty empty choose 3 23 0 12 -62784 -260818

+#X obj 28 45 openpanel;

+#X obj 28 0 bng 45 250 50 0 empty empty choose 3 23 0 12 -62784 -260818

 -258699;

 #X obj 166 36 tgl 45 0 empty empty play 10 23 0 12 -24198 -1 -258699

 0 1;

-#X msg 254 256 rewind;

-#X text 309 255 go to start of file;

-#X floatatom 97 355 15 0 0 0 tick - -;

-#X obj 367 176 hradio 15 1 0 16 empty empty track_number 0 -6 0 12

+#X msg 56 266 rewind;

+#X text 111 265 go to start of file;

+#X floatatom 86 362 15 0 0 0 tick - -;

+#X obj 457 123 hradio 15 1 0 16 empty empty track_number 0 -6 0 12

 -62784 -241291 -1 0;

-#X msg 367 197 dump \$1;

-#X msg 254 230 68050;

-#X msg 234 129 track \$1;

-#X obj 234 89 hradio 15 1 0 16 empty empty track_number 0 -6 0 12 -62784

+#X msg 457 144 dump \$1;

+#X msg 251 290 68050;

+#X msg 457 59 track \$1;

+#X obj 457 19 hradio 15 1 0 16 empty empty track_number 0 -6 0 12 -62784

 -241291 -1 0;

-#X obj 166 205 metro 2;

-#X text 177 328 creation arguments: midi_file_name;

-#X text 305 129 output only this track;

-#X text 430 196 parse this track to main window;

-#X msg 465 256 0;

-#X floatatom 219 188 15 0 0 0 - - -;

-#X msg 219 168 2.005;

-#X text 297 229 goto tick 68050;

-#X floatatom 82 416 5 0 0 0 note - -;

-#X floatatom 128 436 5 0 0 1 velocity - -;

-#X obj 31 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 388 375 t b b b;

-#X obj 441 395 float;

-#X floatatom 441 417 15 0 0 0 last_tick - -;

-#X text 207 349 bangs at end of file;

-#X obj 31 376 list split 1;

-#X obj 77 396 list split 1;

-#X obj 86 713 / 127;

-#X obj 86 693 float;

-#X obj 40 693 float;

-#X msg 576 291 verbose \$1;

-#X text 621 271 verbosity defaults to 1;

-#X text 93 12 1: choose a MIDI file to play;

-#X text 228 43 2: start playing it;

-#X obj 377 349 print ****;

-#X obj 81 101 spigot;

-#X obj 126 86 tgl 15 0 empty empty loop 17 6 0 12 -4160 -257985 -66577

+#X obj 166 200 metro 2;

+#X text 162 327 creation arguments: midi_file_name;

+#X text 528 59 output only this track;

+#X text 520 143 parse this track to main window;

+#X msg 252 266 0;

+#X floatatom 212 175 15 0 0 0 - - -;

+#X msg 212 155 2.005;

+#X text 293 289 goto tick 68050;

+#X obj 391 366 t b b b;

+#X obj 437 764 float;

+#X floatatom 437 788 15 0 0 0 last_tick - -;

+#X text 396 347 bangs at end of file;

+#X msg 457 283 verbose \$1;

+#X text 502 263 verbosity defaults to 1;

+#X text 78 12 1: choose a MIDI file to play;

+#X text 216 49 2: start playing it;

+#X obj 621 349 print ****;

+#X obj 391 408 spigot;

+#X obj 447 376 tgl 15 0 empty empty loop 17 6 0 12 -4160 -257985 -66577

 0 1;

-#X msg 31 65 read \$1;

-#X floatatom 576 274 5 0 0 0 - - -;

-#X obj 576 259 hradio 15 1 1 4 empty empty verbosity 0 -6 0 12 -62784

+#X msg 28 65 read \$1;

+#X floatatom 457 266 5 0 0 0 - - -;

+#X obj 457 251 hradio 15 1 1 4 empty empty verbosity 0 -6 0 12 -62784

 -241291 -1 2;

-#X obj 40 733 osc~;

-#X obj 234 107 - 1;

-#X text 275 107 -1 = output all tracks;

-#X obj 31 478 select 144 145 146 147 148 149 150 151 152 153 154 155

-156 157 158 159;

-#X text 509 487 note on events;

-#X obj 59 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 88 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 117 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 146 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 175 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 203 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 232 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 261 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -1

--1;

-#X obj 290 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 319 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 347 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 376 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 405 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 434 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 463 514 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 492 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 520 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 549 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 578 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 607 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 636 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -1

--1;

-#X obj 664 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -1

--1;

-#X obj 693 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 722 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -1

--1;

-#X obj 751 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 780 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 808 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 837 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 866 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 895 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 924 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -4034 -257985

--1;

-#X obj 492 514 select 128 129 130 131 132 133 134 135 136 137 138 139

-140 141 142 143;

-#X text 970 523 note off events;

-#X obj 86 753 line~;

-#X obj 65 773 *~;

-#X obj 40 662 t b b;

-#X msg 128 673 0;

-#X obj 40 713 mtof;

-#X obj 54 843 dac~;

-#X obj 66 820 *~;

-#X obj 220 713 / 127;

-#X obj 220 693 float;

-#X obj 174 693 float;

-#X obj 174 733 osc~;

-#X obj 220 753 line~;

-#X obj 199 773 *~;

-#X obj 174 662 t b b;

-#X msg 262 673 0;

-#X obj 174 713 mtof;

-#X obj 344 713 / 127;

-#X obj 344 693 float;

-#X obj 298 693 float;

-#X obj 298 733 osc~;

-#X obj 344 753 line~;

-#X obj 323 773 *~;

-#X obj 299 662 t b b;

-#X msg 386 673 0;

-#X obj 298 713 mtof;

-#X obj 7 645 vsl 15 128 0 1 0 1 empty empty volume 0 -9 0 12 -4160

--257985 -1 3000 1;

-#X obj 467 713 / 127;

-#X obj 467 693 float;

-#X obj 421 693 float;

-#X obj 421 733 osc~;

-#X obj 467 753 line~;

-#X obj 446 773 *~;

-#X obj 422 662 t b b;

-#X msg 509 673 0;

-#X obj 421 713 mtof;

-#X obj 588 713 / 127;

-#X obj 588 693 float;

-#X obj 542 693 float;

-#X obj 542 733 osc~;

-#X obj 588 753 line~;

-#X obj 567 773 *~;

-#X obj 543 662 t b b;

-#X msg 630 673 0;

-#X obj 542 713 mtof;

-#X obj 123 416 list split 1;

-#X obj 77 436 s note;

-#X obj 124 456 s vel;

-#X obj 31 329 midifile wowo.mid;

-#X obj 327 547 r note;

-#X obj 381 547 r vel;

-#X text 248 859 Martin Peach \, 2008;

-#X msg 358 13 read I_Wanna_Be_Sedated.mid;

-#X msg 86 733 \$1 100;

-#X msg 220 732 \$1 100;

-#X msg 344 733 \$1 100;

-#X msg 467 733 \$1 100;

-#X msg 588 733 \$1 100;

-#X obj 137 864 writesf~ 2;

-#X msg 680 805 start;

-#X msg 676 830 stop;

-#X msg 538 817 open iwbs2.wav;

-#X connect 0 0 127 0;

-#X connect 1 0 39 0;

+#X obj 457 37 - 1;

+#X text 498 37 -1 = output all tracks;

+#X obj 28 329 midifile wowo.mid;

+#X msg 40 101 read I_Wanna_Be_Sedated.mid;

+#X obj 28 412 list split 1;

+#X obj 28 472 & 240;

+#X obj 28 439 t f f;

+#X obj 73 472 & 15;

+#X obj 28 500 pack f f;

+#X obj 28 524 list append;

+#X obj 28 817 print noteon;

+#X obj 64 793 print noteoff;

+#X obj 100 769 print cc;

+#X obj 28 547 route 144 128 176 224;

+#X obj 136 744 print bend;

+#X obj 172 573 print other;

+#X obj 136 597 unpack f f f;

+#X obj 217 622 << 7;

+#X obj 176 665 +;

+#X obj 136 721 pack f f;

+#X text 30 842 note: noteon messages with 0 velocity are also considered

+"noteoff" messages... but here they will go to the noteon outlet;

+#X obj 176 688 - 8192;

+#X text 111 470 <- separate channel from status;

+#X text 120 817 channel \, note \, vel;

+#X text 164 793 channel \, note \, vel;

+#X text 166 770 channel \, cc_num \, val;

+#X text 215 745 channel \, val;

+#X text 500 850 Martin Peach 2009_07_09;

+#X connect 0 0 36 0;

+#X connect 1 0 31 0;

 #X connect 2 0 1 0;

 #X connect 3 0 12 0;

-#X connect 4 0 127 0;

-#X connect 6 0 24 1;

+#X connect 4 0 36 0;

+#X connect 6 0 21 1;

 #X connect 7 0 8 0;

-#X connect 8 0 127 0;

-#X connect 9 0 127 0;

-#X connect 10 0 127 0;

-#X connect 11 0 43 0;

-#X connect 12 0 127 0;

-#X connect 16 0 127 0;

+#X connect 8 0 36 0;

+#X connect 9 0 36 0;

+#X connect 10 0 36 0;

+#X connect 11 0 34 0;

+#X connect 12 0 36 0;

+#X connect 16 0 36 0;

 #X connect 17 0 12 1;

 #X connect 18 0 17 0;

-#X connect 23 0 37 0;

-#X connect 23 1 4 0;

-#X connect 23 2 3 0;

-#X connect 23 2 24 0;

-#X connect 24 0 25 0;

-#X connect 27 0 45 0;

-#X connect 27 1 28 0;

-#X connect 28 0 20 0;

-#X connect 28 0 125 0;

-#X connect 28 1 124 0;

-#X connect 29 0 132 0;

-#X connect 30 0 29 0;

-#X connect 31 0 84 0;

-#X connect 32 0 127 0;

-#X connect 37 0 3 0;

-#X connect 38 0 37 1;

-#X connect 39 0 127 0;

-#X connect 40 0 32 0;

-#X connect 41 0 40 0;

-#X connect 42 0 81 0;

-#X connect 43 0 10 0;

-#X connect 45 0 22 0;

-#X connect 45 0 82 0;

-#X connect 45 1 47 0;

-#X connect 45 1 93 0;

-#X connect 45 2 48 0;

-#X connect 45 2 102 0;

-#X connect 45 3 49 0;

-#X connect 45 3 112 0;

-#X connect 45 4 50 0;

-#X connect 45 4 121 0;

-#X connect 45 5 51 0;

-#X connect 45 6 52 0;

-#X connect 45 7 53 0;

-#X connect 45 8 54 0;

-#X connect 45 9 55 0;

-#X connect 45 10 56 0;

-#X connect 45 11 57 0;

-#X connect 45 12 58 0;

-#X connect 45 13 59 0;

-#X connect 45 14 60 0;

-#X connect 45 15 61 0;

-#X connect 45 16 78 0;

-#X connect 78 0 62 0;

-#X connect 78 0 83 0;

-#X connect 78 1 63 0;

-#X connect 78 1 94 0;

-#X connect 78 2 64 0;

-#X connect 78 2 103 0;

-#X connect 78 3 65 0;

-#X connect 78 3 113 0;

-#X connect 78 4 66 0;

-#X connect 78 4 122 0;

-#X connect 78 5 67 0;

-#X connect 78 6 68 0;

-#X connect 78 7 69 0;

-#X connect 78 8 70 0;

-#X connect 78 9 71 0;

-#X connect 78 10 72 0;

-#X connect 78 11 73 0;

-#X connect 78 12 74 0;

-#X connect 78 13 75 0;

-#X connect 78 14 76 0;

-#X connect 78 15 77 0;

-#X connect 80 0 81 1;

-#X connect 81 0 86 0;

-#X connect 82 0 30 0;

-#X connect 82 1 31 0;

-#X connect 83 0 30 1;

-#X connect 84 0 42 0;

-#X connect 86 0 85 0;

-#X connect 86 0 85 1;

-#X connect 86 0 137 0;

-#X connect 86 0 137 1;

-#X connect 87 0 133 0;

-#X connect 88 0 87 0;

-#X connect 89 0 95 0;

-#X connect 90 0 92 0;

-#X connect 91 0 92 1;

-#X connect 92 0 86 0;

-#X connect 93 0 88 0;

-#X connect 93 1 89 0;

-#X connect 94 0 88 1;

-#X connect 95 0 90 0;

-#X connect 96 0 134 0;

-#X connect 97 0 96 0;

-#X connect 98 0 104 0;

-#X connect 99 0 101 0;

-#X connect 100 0 101 1;

-#X connect 101 0 86 0;

-#X connect 102 0 97 0;

-#X connect 102 1 98 0;

-#X connect 103 0 97 1;

-#X connect 104 0 99 0;

-#X connect 105 0 86 1;

-#X connect 106 0 135 0;

-#X connect 107 0 106 0;

-#X connect 108 0 114 0;

-#X connect 109 0 111 0;

-#X connect 110 0 111 1;

-#X connect 111 0 86 0;

-#X connect 112 0 107 0;

-#X connect 112 1 108 0;

-#X connect 113 0 107 1;

-#X connect 114 0 109 0;

-#X connect 115 0 136 0;

-#X connect 116 0 115 0;

-#X connect 117 0 123 0;

-#X connect 118 0 120 0;

-#X connect 119 0 120 1;

-#X connect 120 0 86 0;

-#X connect 121 0 116 0;

-#X connect 121 1 117 0;

-#X connect 122 0 116 1;

-#X connect 123 0 118 0;

-#X connect 124 0 21 0;

-#X connect 124 0 126 0;

-#X connect 127 0 27 0;

-#X connect 127 1 6 0;

-#X connect 127 2 23 0;

-#X connect 127 2 36 0;

-#X connect 127 2 139 0;

-#X connect 128 0 31 1;

-#X connect 128 0 89 1;

-#X connect 128 0 98 1;

-#X connect 128 0 108 1;

-#X connect 128 0 117 1;

-#X connect 129 0 30 1;

-#X connect 129 0 88 1;

-#X connect 129 0 97 1;

-#X connect 129 0 107 1;

-#X connect 129 0 116 1;

-#X connect 131 0 127 0;

-#X connect 132 0 80 0;

-#X connect 133 0 91 0;

-#X connect 134 0 100 0;

-#X connect 135 0 110 0;

-#X connect 136 0 119 0;

-#X connect 138 0 137 0;

-#X connect 139 0 137 0;

-#X connect 140 0 137 0;

+#X connect 20 0 29 0;

+#X connect 20 1 4 0;

+#X connect 20 2 3 0;

+#X connect 20 2 21 0;

+#X connect 21 0 22 0;

+#X connect 24 0 36 0;

+#X connect 29 0 3 0;

+#X connect 30 0 29 1;

+#X connect 31 0 36 0;

+#X connect 32 0 24 0;

+#X connect 33 0 32 0;

+#X connect 34 0 10 0;

+#X connect 36 0 38 0;

+#X connect 36 1 6 0;

+#X connect 36 2 20 0;

+#X connect 36 2 28 0;

+#X connect 37 0 36 0;

+#X connect 38 0 40 0;

+#X connect 38 1 43 1;

+#X connect 39 0 42 0;

+#X connect 40 0 39 0;

+#X connect 40 1 41 0;

+#X connect 41 0 42 1;

+#X connect 42 0 43 0;

+#X connect 43 0 47 0;

+#X connect 47 0 44 0;

+#X connect 47 1 45 0;

+#X connect 47 2 46 0;

+#X connect 47 3 50 0;

+#X connect 47 4 49 0;

+#X connect 50 0 53 0;

+#X connect 50 1 52 0;

+#X connect 50 2 51 0;

+#X connect 51 0 52 1;

+#X connect 52 0 55 0;

+#X connect 53 0 48 0;

+#X connect 55 0 53 1;

 #X restore 76 83 pd midifile_read;

 #X text 15 10 midifile reads and writes MIDI files.;

 #X text 152 170 2008 Martin Peach;