This repository has been archived by the owner on Aug 6, 2022. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathhumdrum_pd.pd
executable file
·255 lines (255 loc) · 6.44 KB
/
humdrum_pd.pd
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
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
#N canvas 680 27 570 598 16;
#X obj 6 365 shell;
#X msg -13 189 mid2hum \$1 > m2h.krn;
#X obj -13 160 openpanel;
#X obj -13 140 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj -13 217 prepend set;
#X msg 365 197 set;
#X msg -13 253;
#N canvas 165 25 532 668 parser 0;
#X obj 100 123 msgfile;
#X msg 118 88 bang;
#X msg 100 56 read m2h.txt;
#X obj 39 333 list-find;
#X msg 39 293 notes:;
#X msg 198 301 voices:;
#X obj 39 465 list-seek;
#X obj 105 398 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 39 364 + 1;
#X floatatom 39 395 5 0 0 0 - - -;
#X msg 39 435 set \$1;
#X floatatom 39 495 5 0 0 0 - - -;
#X obj 198 335 list-find;
#X obj 198 460 list-seek;
#X obj 260 384 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 198 366 + 1;
#X floatatom 198 397 5 0 0 0 - - -;
#X msg 198 430 set \$1;
#X floatatom 198 490 5 0 0 0 - - -;
#X obj 198 531 send voices;
#X obj 39 531 send notes;
#X obj 244 117 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 265 112 le exemplo;
#X obj 245 144 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 271 140 notas;
#X obj 245 168 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 270 162 vozes;
#X obj 53 18 t b b;
#X obj 356 336 list-find;
#X obj 356 461 list-seek;
#X obj 418 385 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 356 367 + 1;
#X floatatom 356 398 5 0 0 0 - - -;
#X msg 356 431 set \$1;
#X floatatom 356 491 5 0 0 0 - - -;
#X symbolatom 248 192 10 0 0 0 - - -;
#X msg 356 300 \$1;
#X obj 356 532 send param;
#X connect 0 0 3 1;
#X connect 0 0 6 1;
#X connect 0 0 13 1;
#X connect 0 0 12 1;
#X connect 0 0 28 1;
#X connect 0 0 29 1;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 8 0;
#X connect 4 0 3 0;
#X connect 4 0 7 0;
#X connect 5 0 12 0;
#X connect 5 0 14 0;
#X connect 6 0 11 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 6 0;
#X connect 11 0 20 0;
#X connect 12 0 15 0;
#X connect 13 0 18 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 13 0;
#X connect 18 0 19 0;
#X connect 21 0 27 0;
#X connect 23 0 4 0;
#X connect 25 0 5 0;
#X connect 27 0 1 0;
#X connect 27 1 2 0;
#X connect 28 0 31 0;
#X connect 29 0 34 0;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 29 0;
#X connect 34 0 37 0;
#X connect 35 0 36 0;
#X connect 36 0 28 0;
#X connect 36 0 30 0;
#X coords 0 -1 1 1 130 120 2 240 100;
#X restore 166 407 pd parser;
#N canvas 318 42 717 569 vizualiza 0;
#X obj 158 18 gemhead;
#X obj 158 265 cube;
#X obj -42 293 gemwin;
#X msg -34 199 create;
#X msg -29 226 destroy;
#X msg -30 256 1;
#X msg 15 256 0;
#X floatatom 213 236 5 0 0 0 - - -;
#X obj 198 210 hsl 128 15 0 2 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 158 108 translate;
#X msg 261 71 0.1 0 0;
#X msg 209 146 draw line;
#X obj 62 323 receive notes;
#X floatatom 62 356 5 0 0 0 - - -;
#X obj 62 385 / 2000;
#X text 140 371 valor estipulado;
#X text 141 390 como "alto" pra numero de notas;
#X floatatom 62 426 5 0 0 0 - - -;
#X obj 261 24 loadbang;
#X msg 200 70 -17;
#X obj 383 23 gemhead;
#X obj 383 270 cube;
#X floatatom 438 241 5 0 0 0 - - -;
#X obj 423 214 hsl 128 15 0 2 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 383 113 translate;
#X msg 489 73 0.1 0 0;
#X msg 434 151 draw line;
#X floatatom 483 429 5 0 0 0 - - -;
#X obj 489 32 loadbang;
#X msg 426 76 17;
#X obj 483 358 receive voices;
#X obj 483 397 / 4;
#N canvas 442 70 627 384 vizualiza 0;
#X obj 20 271 text2d;
#X obj 20 42 gemhead;
#X obj 20 149 translateXYZ;
#X floatatom 59 70 5 0 0 0 - - -;
#X floatatom 98 95 5 0 0 0 - - -;
#X floatatom 137 120 5 0 0 0 - - -;
#X obj 284 8 loadbang;
#X msg 174 39 -1.5;
#X msg 199 73 -2;
#X msg 216 108 1;
#X obj 329 337 text2d;
#X obj 329 82 gemhead;
#X obj 329 189 translateXYZ;
#X floatatom 368 110 5 0 0 0 - - -;
#X floatatom 407 135 5 0 0 0 - - -;
#X floatatom 446 160 5 0 0 0 - - -;
#X msg 508 113 -2;
#X msg 525 148 1;
#X msg 483 79 1.5;
#X msg 54 221 text numero de notas \$1;
#X msg 372 270 text numero de vozes \$1;
#X obj 150 170 receive notes;
#X obj 372 232 receive voices;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 4 0 2 2;
#X connect 5 0 2 3;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 6 0 9 0;
#X connect 6 0 19 0;
#X connect 6 0 18 0;
#X connect 6 0 16 0;
#X connect 6 0 17 0;
#X connect 6 0 20 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X connect 9 0 5 0;
#X connect 11 0 12 0;
#X connect 12 0 10 0;
#X connect 13 0 12 1;
#X connect 14 0 12 2;
#X connect 15 0 12 3;
#X connect 16 0 14 0;
#X connect 17 0 15 0;
#X connect 18 0 13 0;
#X connect 19 0 0 0;
#X connect 20 0 10 0;
#X connect 21 0 19 0;
#X connect 22 0 20 0;
#X restore 152 468 pd vizualiza texto;
#X obj 56 107 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 75 100 cria;
#X obj 55 128 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 72 122 destroi;
#X obj 55 151 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 55 173 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 73 148 liga;
#X text 72 167 desliga;
#X connect 0 0 9 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 2 0;
#X connect 7 0 1 1;
#X connect 8 0 1 1;
#X connect 9 0 1 0;
#X connect 10 0 9 2;
#X connect 11 0 1 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 17 0;
#X connect 17 0 8 0;
#X connect 18 0 10 0;
#X connect 18 0 19 0;
#X connect 18 0 11 0;
#X connect 19 0 9 1;
#X connect 20 0 24 0;
#X connect 22 0 21 1;
#X connect 23 0 21 1;
#X connect 24 0 21 0;
#X connect 25 0 24 2;
#X connect 26 0 21 0;
#X connect 27 0 23 0;
#X connect 28 0 25 0;
#X connect 28 0 29 0;
#X connect 28 0 26 0;
#X connect 29 0 24 1;
#X connect 30 0 31 0;
#X connect 31 0 27 0;
#X connect 33 0 3 0;
#X connect 35 0 4 0;
#X connect 37 0 5 0;
#X connect 38 0 6 0;
#X coords 0 -1 1 1 100 100 2 50 100;
#X restore 5 408 pd vizualiza Gem;
#X obj -23 10 comment 0 24 Typewriter ? 0 0 0 0 Trabalho Humdrum ->
Pd;
#X obj -23 60 comment 0 12 Typewriter ? 0 0 0 0 Cristiano Figueiro
#X text 177 533 parser;
#X text 19 517 Gem;
#X text 22 134 ----> abrir um midi;
#X text 205 186 ---> mid2hum;
#X text 303 325 ----> comandos humdrum;
#X obj 365 170 loadbang;
#X msg 15 330 census -k m2h.krn > m2h.txt;
#X obj 92 282 print;
#X connect 0 0 18 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 16 0 5 0;
#X connect 17 0 0 0;