aboutsummaryrefslogtreecommitdiff
path: root/sfruit/crikeymini.pd
blob: c678d6ae53e6582b3adf1d07c5d3cfbe785d362d (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
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
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
#N canvas 875 284 305 237 10;
#N canvas 757 271 365 337 hid 0;
#X obj 55 103 route key;
#X obj 55 122 route key_1 key_-1;
#X obj 177 152 list split 1;
#X obj 177 206 symbol2list _;
#X obj 176 233 list split 1;
#X obj 211 178 s \$0keystate;
#X obj 210 276 s \$0hidnum;
#X obj 55 56 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 55 84 hid;
#X obj 55 4 loadbang;
#X msg 149 55 debug 0;
#X obj 55 28 t b b b;
#X msg 84 55 open keyboard;
#X connect 0 0 1 0;
#X connect 1 2 2 0;
#X connect 2 0 3 0;
#X connect 2 1 5 0;
#X connect 3 0 4 0;
#X connect 4 1 6 0;
#X connect 7 0 8 0;
#X connect 8 0 0 0;
#X connect 9 0 11 0;
#X connect 10 0 8 0;
#X connect 11 0 7 0;
#X connect 11 1 12 0;
#X connect 11 2 10 0;
#X connect 12 0 8 0;
#X restore 34 43 pd hid;
#N canvas 547 30 733 597 transconfig 0;
#X obj 543 46 keyname;
#X obj 336 241 r \$0hidnum;
#X obj 232 63 r \$0keystate;
#X obj 232 149 sel 1;
#X obj 243 171 r \$0reset;
#X msg 26 299 1;
#X msg 56 299 0;
#X obj 87 299 f;
#X obj 58 235 t b b f;
#X obj 26 378 pack f f;
#X obj 87 350 pipe f f 250;
#X obj 87 378 pack f f;
#X obj 26 433 s \$0note;
#X floatatom 253 245 5 0 0 0 - - -;
#X obj 217 540 tabwrite \$0translation;
#X msg 243 193 reset;
#X obj 426 47 r \$0rec;
#X obj 426 73 sel 1;
#X obj 426 102 s \$0reset;
#X obj 253 292 s \$0recr;
#X obj 253 267 sel 36;
#X obj 233 219 count 37;
#N canvas 0 22 463 424 (subpatch) 0;
#X array \$0translation 255 float 3;
#A 0 255 255 255 255 255 31 28 27 5 255 30 32 14 34 255 255 35 33 16
17 2 7 25 9 12 29 4 26 11 24 1 3 255 6 8 10 255 13 15 255 255 255 22
0 255 18 20 19 21 23 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
255 255 255 255 255 255;
#X coords 0 0 255 260 200 140 1;
#X restore 9 38 graph;
#X obj 336 314 t b f;
#X obj 217 350 f;
#X obj 336 290 spigot;
#X obj 372 265 r \$0rec;
#X obj 232 119 spigot;
#X obj 265 94 r \$0rec;
#X text 16 204 feedback while filling;
#X text 17 214 the translation table.;
#X obj 582 75 s \$0keyname;
#X obj 250 424 pack f f;
#X obj 250 448 s \$0messmem;
#X obj 250 485 r \$0messmemload;
#X obj 250 509 unpack;
#X obj 295 401 change;
#X obj 250 401 change;
#X obj 527 216 r \$0reset;
#X obj 527 241 t b b;
#X obj 527 395 tabwrite \$0translation;
#X msg 571 295 reset;
#X obj 527 326 count 255;
#X msg 527 373 255;
#X obj 527 296 until;
#X msg 527 270 255;
#X obj 527 348 t b f;
#X text 17 193 This rigs up visual;
#X connect 0 1 31 0;
#X connect 1 0 25 0;
#X connect 2 0 27 0;
#X connect 3 0 21 0;
#X connect 4 0 15 0;
#X connect 5 0 9 1;
#X connect 6 0 10 1;
#X connect 7 0 9 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 8 1 6 0;
#X connect 8 1 5 0;
#X connect 8 2 7 1;
#X connect 9 0 12 0;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 12 0;
#X connect 13 0 20 0;
#X connect 15 0 21 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 20 0 19 0;
#X connect 21 0 13 0;
#X connect 21 0 8 0;
#X connect 21 0 24 1;
#X connect 23 0 24 0;
#X connect 23 1 14 1;
#X connect 23 1 36 0;
#X connect 24 0 14 0;
#X connect 24 0 37 0;
#X connect 25 0 23 0;
#X connect 26 0 25 1;
#X connect 27 0 3 0;
#X connect 28 0 27 1;
#X connect 32 0 33 0;
#X connect 34 0 35 0;
#X connect 35 0 14 0;
#X connect 35 1 14 1;
#X connect 36 0 32 1;
#X connect 37 0 32 0;
#X connect 38 0 39 0;
#X connect 39 0 45 0;
#X connect 39 1 41 0;
#X connect 41 0 42 0;
#X connect 42 0 46 0;
#X connect 43 0 40 0;
#X connect 44 0 42 0;
#X connect 45 0 44 0;
#X connect 46 0 43 0;
#X connect 46 1 40 1;
#X restore 34 69 pd transconfig;
#N canvas 930 190 350 403 translate 0;
#X obj 100 266 r \$0keystate;
#X obj 56 321 s \$0note;
#X obj 55 286 pack f f;
#X obj 55 149 tabread \$0translation;
#X obj 55 45 r \$0hidnum;
#X obj 145 45 r \$0rec;
#X obj 145 70 sel 0 1;
#X msg 145 97 1;
#X msg 175 97 0;
#X obj 55 223 spigot;
#X obj 55 179 t f f;
#X obj 88 202 < 255;
#X obj 55 114 spigot 1;
#X connect 0 0 2 1;
#X connect 2 0 1 0;
#X connect 3 0 10 0;
#X connect 4 0 12 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 8 0;
#X connect 7 0 12 1;
#X connect 8 0 12 1;
#X connect 9 0 2 0;
#X connect 10 0 9 0;
#X connect 10 1 11 0;
#X connect 11 0 9 1;
#X connect 12 0 3 0;
#X restore 34 117 pd translate;
#N canvas 341 275 482 332 output 0;
#X obj 138 28 r \$0note;
#X obj 138 68 unpack;
#X obj 223 115 sel 1;
#X obj 222 203 f;
#X obj 138 252 outlet;
#X obj 222 252 outlet;
#X obj 159 173 * 12;
#X obj 138 196 + 60;
#X obj 159 152 r \$0oct;
#X obj 251 203 list-onearg \$1 1;
#X obj 251 178 loadbang;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 1 1 2 0;
#X connect 2 0 3 0;
#X connect 2 1 5 0;
#X connect 3 0 5 0;
#X connect 6 0 7 1;
#X connect 7 0 4 0;
#X connect 8 0 6 0;
#X connect 9 0 3 1;
#X connect 10 0 9 0;
#X restore 34 141 pd output;
#N canvas 806 99 474 324 args 0;
#X obj 165 61 \$1;
#X obj 197 61 \$2;
#X obj 229 61 \$3;
#X obj 164 26 loadbang;
#X obj 164 131 s \$0durationr;
#X obj 198 109 s \$0velr;
#X obj 230 86 s \$0channel;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 3 0 1 0;
#X connect 3 0 2 0;
#X restore 34 19 pd args;
#X obj 34 204 outlet;
#N canvas 683 22 713 641 saveload 0;
#X msg 190 110 add2 \$1 \$2;
#X msg 125 110 addcomma;
#X obj 125 52 r \$0messmem;
#X obj 125 78 t a a;
#X msg 125 207;
#X msg 201 176 set;
#X obj 124 502 textfile;
#X msg 124 366 add \$1 \$2;
#X obj 337 379 s \$0reset;
#X obj 278 235 r \$0loadkeymap;
#X obj 174 555 s \$0keyname;
#X msg 174 528 symbol Ok;
#X obj 125 596 s \$0messmemload;
#X obj 9 144 r \$0savekeymap;
#X obj 9 360 savepanel;
#X msg 9 386 write \$1;
#X obj 201 152 r \$0reset;
#X obj 9 174 t b b;
#X msg 298 469 rewind;
#X obj 240 403 until;
#X text 12 10 The map is held in a message to allow the eventual ability
to hardcode defaults into the patch for ease of use.;
#X obj 278 283 openpanel;
#X obj 278 353 t b b a b;
#X obj 316 434 list trim;
#X obj 342 297 loadbang;
#X text 399 298 Default map filename;
#X obj 316 407 list prepend read;
#X obj 345 88 r \$0-mode-s;
#X obj 345 111 sel 0 1;
#X msg 345 157 symbol drumpads.crikey;
#X msg 345 137 symbol clavier.crikey;
#X msg 342 319 symbol clavier.crikey;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 1 0 0;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 6 0 12 0;
#X connect 6 1 11 0;
#X connect 6 1 19 1;
#X connect 7 0 6 0;
#X connect 9 0 21 0;
#X connect 11 0 10 0;
#X connect 13 0 17 0;
#X connect 14 0 15 0;
#X connect 15 0 6 0;
#X connect 16 0 5 0;
#X connect 17 0 14 0;
#X connect 17 1 4 0;
#X connect 18 0 6 0;
#X connect 19 0 6 0;
#X connect 21 0 22 0;
#X connect 22 0 19 0;
#X connect 22 1 18 0;
#X connect 22 2 26 0;
#X connect 22 3 8 0;
#X connect 23 0 6 0;
#X connect 24 0 31 0;
#X connect 26 0 23 0;
#X connect 27 0 28 0;
#X connect 28 0 30 0;
#X connect 28 1 29 0;
#X connect 29 0 22 0;
#X connect 30 0 22 0;
#X connect 31 0 22 0;
#X restore 34 93 pd saveload;
#X obj 34 172 pack f f;
#X obj 186 132 hradio 8 1 1 7 \$0oct \$0octr Octave 0 -6 0 8 -39808
-1 -1 3;
#X obj 186 143 vradio 10 1 0 2 \$0-mode-s \$0-mode-r empty 0 -8 0 10
-262144 -1 -1 0;
#X obj 198 143 cnv 10 40 10 empty empty Clavier 2 5 0 8 -262144 -66577
0;
#X obj 198 153 cnv 10 40 10 empty empty MPD 2 5 0 8 -262144 -66577
0;
#X connect 3 0 7 0;
#X connect 3 1 7 1;
#X connect 7 0 5 0;
#X coords 0 -1 1 1 64 50 2 182 118;