I don't have a patch handy, but [qlist] -> [textfile] would do the trick
m.
-----Original Message----- From: pd-list-admin@iem.at [mailto:pd-list-admin@iem.at] On Behalf Of
Al
Riley Subject: [PD] recording MIDI data
Was just wondering if anyone has made a patch than can store incoming MIDI data and play it back as desired.
Scanned on 24 May 2004 20:29:17 Scanning by http://erado.com
Hallo!
That's a patch (_record_midi_file) by me to record MIDI-data and play it back or store it as a MIDI-file (realized with XEQ -> so you will need a binary of xeq too!).
Attention: the patch is "graph on parent" -> so you should open it from an other patch!
LG Georg
#N canvas 495 204 265 115 12; #X text 17 17 _record_midi_file::::; #X obj 184 67 bng 15 250 50 0 empty empty save 0 -6 0 6 -262144 -1 -1; #X obj 20 64 bng 15 250 50 0 empty empty rec 0 -6 0 6 -262144 -1 -1 ; #X obj 70 65 bng 15 250 50 0 empty empty stop 0 -6 0 6 -262144 -1 -1 ; #X obj 128 66 bng 15 250 50 0 empty empty play 0 -6 0 6 -262144 -1 -1; #X obj 72 189 outlet; #N canvas 763 234 726 453 inside 0; #X obj 122 27 inlet; #X obj 202 27 inlet; #X obj 278 28 inlet; #X obj 367 28 inlet; #X obj 31 32 inlet; #X msg 144 318 edit; #X msg 119 190 restop; #X msg 144 293 readd 144 $1 $2 1; #X obj 107 358 xeq_record $0-x; #X msg 189 319 rewind; #X msg 47 139 record , retrack 1-track; #X msg 229 244 mfwrite $1; #X obj 229 213 savepanel; #X msg 372 263 rewind , flush; #X msg 380 296 stop , flush; #X obj 361 331 xeq_parse $0-x; #X obj 361 362 outlet; #X msg 361 232 rewind , bang; #X obj 202 53 t b b; #X connect 0 0 10 0; #X connect 1 0 18 0; #X connect 2 0 17 0; #X connect 3 0 12 0; #X connect 4 0 7 0; #X connect 5 0 8 0; #X connect 6 0 8 0; #X connect 7 0 8 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 8 0; #X connect 12 0 11 0; #X connect 13 0 15 0; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 17 0 15 0; #X connect 18 0 13 0; #X connect 18 1 6 0; #X restore 72 165 pd inside; #X obj 72 138 inlet; #X connect 1 0 6 4; #X connect 2 0 6 1; #X connect 3 0 6 2; #X connect 4 0 6 3; #X connect 6 0 5 0; #X connect 7 0 6 0; #X coords 0 0 1 1 160 60 1;