blob: e3f882fbfda32c9132c2f917797b9f46b5acd415 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
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.;
|
