[PD] MIDI info recording and re-playing

[Frank Barknecht]

Hallo,
Koray Tahiroglu hat gesagt: // Koray Tahiroglu wrote:

> Can anybody tell me how to record MIDI info from [notein] with duration
> info as well into a text file or a .mid file? [xeq] seems like a good
> external for this, but I am using MacOs and this external does not
> function with MacOs. I have also tried to use [qlist], [textfile] and
> [seq] but "no method for float" came as an error, or I could not be able
> to record-read any MIDI info?

Attached is a little graph-on-parent abstraction I sometimes use for
this. 

Ciao
-- 
 Frank Barknecht                               _ ______footils.org__
-------------- next part --------------
#N canvas 326 262 450 300 10;
#X obj 180 177 qrec;
#X obj 92 180 print qrec;
#X obj 93 153 r note;
#X obj 278 123 random 127;
#X obj 197 82 t b b;
#X obj 181 126 random 127;
#X obj 199 54 metro 200;
#X obj 199 33 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X connect 2 0 1 0;
#X connect 3 0 0 1;
#X connect 4 0 5 0;
#X connect 4 1 3 0;
#X connect 5 0 0 0;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
-------------- next part --------------
#N canvas 117 454 98 64 10;
#X obj 123 4 inlet;
#X obj 168 5 inlet;
#X obj 11 37 bng 15 250 50 0 empty empty play 0 -6 0 8 -225271 -1 -1
;
#X obj 40 36 bng 15 250 50 0 empty empty clear 0 -6 0 8 -257472 -1
-1;
#X obj 70 36 tgl 15 0 empty empty loop? 0 -6 0 8 -233017 -1 -1 0 1
;
#N canvas 575 248 569 449 the_______guts 0;
#X obj 27 40 inlet;
#X obj 69 39 inlet;
#X obj 111 39 inlet;
#X obj 170 41 inlet;
#X obj 261 28 inlet;
#X obj 440 35 inlet;
#X obj 181 342 qlist;
#X obj 116 206 timer;
#X obj 116 234 int;
#X msg 54 167 bang;
#X msg 330 135 add \$1 note \$2 \$3;
#X obj 330 105 pack 0 0 0;
#X msg 390 292 rewind \, bang;
#X msg 185 375 \; \$1 \$2 \$3;
#X msg 187 66 clear;
#X obj 237 340 spigot;
#X obj 118 162 spigot;
#X msg 130 137 0;
#X msg 163 137 1;
#X msg 71 298 print;
#X obj 330 46 r \$0-time;
#X obj 121 315 s \$0-time;
#X obj 205 167 spigot;
#X msg 217 142 0;
#X msg 250 142 1;
#X text 20 17 play;
#X text 67 20 reset;
#X text 107 21 loop;
#X text 165 23 clear;
#X obj 82 65 s \$0-loop;
#X obj 290 340 r \$0-loop;
#X obj 261 103 t b b;
#X obj 118 109 t b b;
#X obj 252 52 t b b f;
#X obj 119 263 -;
#X obj 120 367 print;
#X obj 136 403 outlet;
#X msg 262 257 next;
#X msg 337 246 rewind;
#X connect 0 0 6 0;
#X connect 1 0 9 0;
#X connect 1 0 18 0;
#X connect 2 0 29 0;
#X connect 3 0 14 0;
#X connect 3 0 9 0;
#X connect 3 0 23 0;
#X connect 3 0 18 0;
#X connect 4 0 33 0;
#X connect 5 0 11 2;
#X connect 6 0 35 0;
#X connect 6 0 36 0;
#X connect 6 1 15 0;
#X connect 7 0 8 0;
#X connect 7 0 34 1;
#X connect 8 0 34 0;
#X connect 9 0 7 0;
#X connect 10 0 6 0;
#X connect 11 0 10 0;
#X connect 12 0 6 0;
#X connect 14 0 6 0;
#X connect 15 0 6 0;
#X connect 16 0 7 0;
#X connect 17 0 16 1;
#X connect 18 0 16 1;
#X connect 19 0 6 0;
#X connect 20 0 11 0;
#X connect 22 0 7 1;
#X connect 23 0 22 1;
#X connect 24 0 22 1;
#X connect 30 0 15 1;
#X connect 31 0 22 0;
#X connect 31 1 24 0;
#X connect 32 0 17 0;
#X connect 32 1 16 0;
#X connect 33 0 31 0;
#X connect 33 1 32 0;
#X connect 33 2 11 1;
#X connect 34 0 21 0;
#X connect 37 0 6 0;
#X connect 38 0 6 0;
#X restore 127 30 pd the_______guts;
#X obj 132 52 outlet;
#X connect 0 0 5 4;
#X connect 1 0 5 5;
#X connect 2 0 5 0;
#X connect 3 0 5 3;
#X connect 4 0 5 2;
#X connect 5 0 6 0;
#X coords 0 0 1 1 100 50 1;