-
Notifications
You must be signed in to change notification settings - Fork 7
/
Copy pathmidi.pd
211 lines (211 loc) · 5.1 KB
/
midi.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
#N canvas 1260 421 705 555 12;
#X obj 26 41 inlet;
#X obj 102 41 inlet;
#X obj 26 495 noteout 1;
#X obj 157 42 inlet;
#X obj 226 44 inlet;
#X text 29 6 pitch;
#X text 81 4 velocity;
#X text 158 5 Duration;
#X text 230 7 Channel;
#X obj 264 123 loadbang;
#X obj 267 152 f \$1;
#X obj 267 179 expr if($f1 == 0 \, 100 \, $f1);
#X obj 253 209 f \$2;
#X obj 201 306 f \$3;
#X obj 201 334 expr if($f1 == 0 \, 1 \, $f1);
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-pitchState 127 float 2;
#X coords 0 1 127 0 200 10 1 0 0;
#X restore 256 283 graph;
#X obj 59 462 array set \$0-pitchState;
#X obj 58 175 array get \$0-pitchState 1;
#X obj 26 253 spigot 1;
#X obj 26 145 t f f;
#X floatatom 79 227 5 0 0 0 - - - 0;
#X floatatom 26 117 5 0 0 0 - - - 0;
#X floatatom 35 205 5 0 0 0 - - - 0;
#X obj 79 202 != 1;
#X msg 59 435 1;
#X msg 90 435 0;
#X floatatom 157 116 5 0 0 0 - - - 0;
#X obj 59 410 t b f;
#X obj 136 432 t b f;
#X obj 253 237 expr if($f1 == 0 \, 200 \, $f1);
#X obj 136 407 pipe 200;
#X obj 26 373 makenote 100 200;
#X obj 26 92 int;
#X obj 136 235 random;
#X obj 119 204 t f b f;
#X floatatom 158 378 5 0 0 0 - - - 0;
#X obj 137 260 / 10;
#X obj 119 290 -;
#X obj 81 314 int;
#X obj 80 346 clip 0 127;
#X text 242 365 MIDI Output;
#X text 388 8 CC number;
#X obj 251 393 notein;
#X obj 225 501 outlet;
#X obj 282 500 outlet;
#X obj 351 368 ctlin, f 6;
#X obj 352 499 outlet;
#X obj 422 502 outlet;
#X obj 422 476 / 127;
#X text 227 524 Pitch;
#X text 284 523 Velocity;
#X text 350 523 CC Val;
#X text 419 524 Cc Val scaled;
#X obj 351 466 spigot 1;
#X obj 413 42 inlet;
#X obj 370 414 expr if ($f2 < 1 \, 1 \, if ($f1 == $f2 \, 1 \, 0))
;
#X obj 414 97 f \$4;
#X obj 427 68 loadbang;
#N canvas 1843 734 459 451 panic 0;
#X obj 31 360 midiout;
#X floatatom 44 165 5 0 0 0 - - - 0;
#X obj 44 106 until;
#X obj 44 137 f;
#X obj 81 137 + 1;
#X msg 92 106 0;
#X msg 44 49 127;
#X obj 31 297 + 0;
#X msg 31 234 128;
#X floatatom 49 271 5 0 15 2 Chan - - 0;
#X text 61 233 note off;
#X obj 31 330 pack 128 60 0;
#X obj 44 77 t f b;
#X obj 44 198 t b f;
#X obj 43 13 inlet;
#X obj 164 16 inlet;
#X connect 1 0 13 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 12 0;
#X connect 7 0 11 0;
#X connect 8 0 7 0;
#X connect 9 0 7 1;
#X connect 11 0 0 0;
#X connect 12 0 2 0;
#X connect 12 1 5 0;
#X connect 13 0 8 0;
#X connect 13 1 11 1;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 75 117 pd panic;
#X obj 75 94 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#N canvas 1169 735 439 367 parselist 0;
#X obj 23 31 inlet;
#X obj 26 322 outlet;
#X floatatom 22 100 5 0 0 0 - - - 0;
#X obj 74 50 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X floatatom 63 128 5 0 0 0 - - - 0;
#X obj 22 69 list split 1;
#X obj 63 101 list split 1;
#X floatatom 106 158 5 0 0 0 - - - 0;
#X obj 106 131 list split 1;
#X floatatom 147 187 5 0 0 0 - - - 0;
#X obj 147 160 list split 1;
#X floatatom 188 217 5 0 0 0 - - - 0;
#X obj 188 190 list split 1;
#X floatatom 229 245 5 0 0 0 - - - 0;
#X obj 229 218 list split 1;
#X floatatom 272 274 5 0 0 0 - - - 0;
#X obj 272 247 list split 1;
#X floatatom 315 302 5 0 0 0 - - - 0;
#X obj 315 275 list split 1;
#X connect 0 0 3 0;
#X connect 0 0 5 0;
#X connect 2 0 1 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 5 1 6 0;
#X connect 6 0 4 0;
#X connect 6 1 8 0;
#X connect 7 0 1 0;
#X connect 8 0 7 0;
#X connect 8 1 10 0;
#X connect 9 0 1 0;
#X connect 10 0 9 0;
#X connect 10 1 12 0;
#X connect 11 0 1 0;
#X connect 12 0 11 0;
#X connect 12 1 14 0;
#X connect 13 0 1 0;
#X connect 14 0 13 0;
#X connect 14 1 16 0;
#X connect 15 0 1 0;
#X connect 16 0 15 0;
#X connect 16 1 18 0;
#X connect 17 0 1 0;
#X connect 18 0 17 0;
#X restore 127 94 pd parselist;
#X obj 25 66 route float reset list;
#X connect 0 0 61 0;
#X connect 1 0 34 0;
#X connect 3 0 26 0;
#X connect 4 0 2 2;
#X connect 4 0 58 1;
#X connect 9 0 10 0;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 10 0 11 0;
#X connect 10 0 55 1;
#X connect 11 0 39 0;
#X connect 12 0 29 0;
#X connect 13 0 14 0;
#X connect 14 0 2 2;
#X connect 17 0 22 0;
#X connect 18 0 27 0;
#X connect 18 0 31 0;
#X connect 19 0 18 0;
#X connect 19 1 17 0;
#X connect 20 0 18 1;
#X connect 21 0 19 0;
#X connect 22 0 23 0;
#X connect 23 0 20 0;
#X connect 24 0 16 0;
#X connect 25 0 16 0;
#X connect 26 0 30 1;
#X connect 26 0 31 2;
#X connect 27 0 24 0;
#X connect 27 1 16 1;
#X connect 27 1 30 0;
#X connect 28 0 25 0;
#X connect 28 1 16 1;
#X connect 29 0 31 2;
#X connect 29 0 30 1;
#X connect 30 0 28 0;
#X connect 31 0 2 0;
#X connect 31 1 2 1;
#X connect 32 0 21 0;
#X connect 33 0 35 0;
#X connect 33 0 36 0;
#X connect 34 0 37 0;
#X connect 34 1 33 0;
#X connect 34 2 33 1;
#X connect 36 0 37 1;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 31 1;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 45 0 53 0;
#X connect 45 1 55 0;
#X connect 48 0 47 0;
#X connect 53 0 46 0;
#X connect 53 0 48 0;
#X connect 54 0 56 0;
#X connect 55 0 53 1;
#X connect 56 0 55 1;
#X connect 57 0 56 0;
#X connect 59 0 58 0;
#X connect 60 0 32 0;
#X connect 61 0 32 0;
#X connect 61 1 59 0;
#X connect 61 2 60 0;