Source for midifile.pd with help patch

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

1 files changed, 173 insertions, 0 deletions

diff --git a/midifile/midifile-help.pd b/midifile/midifile-help.pd
new file mode 100755
index 0000000..e3f882f
--- /dev/null
+++ b/midifile/midifile-help.pd
@@ -0,0 +1,173 @@
+#N canvas 364 491 466 316 12;

+#N canvas 0 0 690 635 midifile_write 0;

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

+-258699;

+#X text 450 563 Martin Peach \, 2005;

+#X obj 130 77 tgl 45 0 empty empty record 2 23 0 8 -258699 -241291

+-24198 0 1;

+#X floatatom 125 585 15 0 0 0 tick - -;

+#X obj 130 206 metro 2;

+#X floatatom 181 149 15 0 0 0 - - -;

+#X msg 181 123 2.005;

+#X msg 267 433 flush;

+#X obj 275 304 makenote;

+#X obj 275 334 pack f f;

+#X msg 251 237 60;

+#X msg 304 237 127;

+#X msg 358 237 100;

+#X floatatom 251 263 5 0 0 0 - - -;

+#X floatatom 304 263 5 0 0 0 - - -;

+#X floatatom 358 263 5 0 0 0 - - -;

+#X obj 275 364 list prepend 144;

+#X obj 398 325 + 144;

+#X floatatom 398 301 5 0 0 0 - - -;

+#X text 447 301 channel;

+#X text 448 323 note-on;

+#X msg 17 482 verbose \$1;

+#X text 5 437 verbosity defaults to 1;

+#X text 76 14 1: open a file for writing;

+#X text 199 89 2: start recording;

+#X text 439 239 3: input MIDI as lists;

+#X text 317 434 4: stop recording and save the file;

+#X obj 131 525 midifile;

+#X obj 15 358 savepanel;

+#X msg 185 388 240 1 2 3 4 247;

+#X text 320 388 a sysex message;

+#X obj 125 555 float;

+#X msg 15 389 write \$1;

+#X floatatom 17 456 5 0 0 0 - - -;

+#X connect 0 0 28 0;

+#X connect 2 0 4 0;

+#X connect 4 0 27 0;

+#X connect 5 0 4 1;

+#X connect 6 0 5 0;

+#X connect 7 0 27 0;

+#X connect 8 0 9 0;

+#X connect 8 1 9 1;

+#X connect 9 0 16 0;

+#X connect 10 0 13 0;

+#X connect 11 0 14 0;

+#X connect 12 0 15 0;

+#X connect 13 0 8 0;

+#X connect 14 0 8 1;

+#X connect 15 0 8 2;

+#X connect 16 0 27 0;

+#X connect 17 0 16 1;

+#X connect 18 0 17 0;

+#X connect 21 0 27 0;

+#X connect 27 1 31 1;

+#X connect 27 2 31 0;

+#X connect 28 0 32 0;

+#X connect 29 0 27 0;

+#X connect 31 0 3 0;

+#X connect 32 0 27 0;

+#X connect 33 0 21 0;

+#X restore 76 116 pd midifile_write;

+#N canvas 388 25 825 783 midifile_read 0;

+#X obj 102 332 midifile wowo;

+#X obj 102 285 bng 15 250 50 0 empty empty step 20 10 0 8 -262144 -1

+-1;

+#X obj 29 201 openpanel;

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

+-258699;

+#X text 525 724 Martin Peach \, 2005;

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

+0 1;

+#X msg 308 279 rewind;

+#X text 363 278 go to start of file;

+#X floatatom 151 370 15 0 0 0 tick - -;

+#X obj 367 176 hradio 15 1 0 16 empty empty track_number 0 -6 0 8 -62784

+-241291 -1 0;

+#X msg 367 197 dump \$1;

+#X msg 308 253 68050;

+#X msg 234 129 track \$1;

+#X obj 234 80 hradio 15 1 0 16 empty empty track_number 0 -6 0 8 -62784

+-241291 -1 0;

+#X obj 166 263 metro 2;

+#X msg 241 102 -1;

+#X text 272 101 output all tracks;

+#X text 212 332 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 519 279 0;

+#X floatatom 217 206 15 0 0 0 - - -;

+#X msg 217 180 2.005;

+#X text 351 252 goto tick 68050;

+#X floatatom 66 575 5 0 0 0 note - -;

+#X floatatom 121 606 5 0 0 1 velocity - -;

+#X obj 31 550 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1

+-1;

+#X obj 201 403 t b b b;

+#X obj 205 470 float;

+#X floatatom 205 492 15 0 0 0 last_tick - -;

+#X text 207 352 bangs at end of file;

+#X obj 31 423 list split 1;

+#X obj 76 545 list split 1;

+#X obj 121 627 / 127;

+#X floatatom 121 651 5 0 0 0 - - -;

+#X obj 86 695 send note_amp;

+#X obj 31 719 send midi_pitch;

+#X obj 86 672 float;

+#X obj 31 630 float;

+#X msg 105 398 144;

+#X floatatom 106 454 5 0 0 0 - - -;

+#X obj 31 478 select 144;

+#X msg 576 291 verbose \$1;

+#X text 576 247 verbosity defaults to 1;

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

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

+#X obj 297 411 print ****;

+#X obj 103 108 spigot;

+#X obj 146 82 tgl 15 0 empty empty empty 0 -6 0 8 -44926 -258699 -258699

+0 1;

+#X text 95 79 loop;

+#X msg 29 239 read \$1;

+#X floatatom 576 265 5 0 0 0 - - -;

+#X connect 0 0 31 0;

+#X connect 0 1 8 0;

+#X connect 0 2 27 0;

+#X connect 0 2 46 0;

+#X connect 1 0 0 0;

+#X connect 2 0 50 0;

+#X connect 3 0 2 0;

+#X connect 5 0 14 0;

+#X connect 6 0 0 0;

+#X connect 8 0 28 1;

+#X connect 9 0 10 0;

+#X connect 10 0 0 0;

+#X connect 11 0 0 0;

+#X connect 12 0 0 0;

+#X connect 13 0 12 0;

+#X connect 14 0 0 0;

+#X connect 15 0 12 0;

+#X connect 20 0 0 0;

+#X connect 21 0 14 1;

+#X connect 22 0 21 0;

+#X connect 24 0 38 1;

+#X connect 25 0 33 0;

+#X connect 26 0 38 0;

+#X connect 26 0 37 0;

+#X connect 27 0 47 0;

+#X connect 27 1 6 0;

+#X connect 27 2 5 0;

+#X connect 27 2 28 0;

+#X connect 28 0 29 0;

+#X connect 31 0 41 0;

+#X connect 31 1 32 0;

+#X connect 32 0 24 0;

+#X connect 32 1 25 0;

+#X connect 33 0 34 0;

+#X connect 34 0 37 1;

+#X connect 37 0 35 0;

+#X connect 38 0 36 0;

+#X connect 39 0 40 0;

+#X connect 40 0 41 1;

+#X connect 41 0 26 0;

+#X connect 42 0 0 0;

+#X connect 47 0 5 0;

+#X connect 48 0 47 1;

+#X connect 50 0 0 0;

+#X connect 51 0 42 0;

+#X restore 76 83 pd midifile_read;

+#X text 228 234 2006 Martin Peach;

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