-
Notifications
You must be signed in to change notification settings - Fork 2
/
of.keyboard-help.pd
307 lines (307 loc) · 7.33 KB
/
of.keyboard-help.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
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
302
303
304
305
306
307
#N canvas 638 238 637 389 12;
#X declare -lib ofelia;
#X obj 9 10 cnv 15 600 60 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 462 45 declare -lib ofelia;
#X obj 40 108 of.draw;
#X text 188 142 -> focus the of.window and type;
#X symbolatom 94 166 10 0 0 0 - - -;
#X text 21 19 Keyboard output in the of.window;
#X obj 94 143 of.keyboard;
#X text 201 196 -> display last letter;
#X msg 94 196 text key:\$1;
#X obj 518 19 of.window 1;
#X obj 497 21 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#N canvas 517 116 503 257 Text_in_background_using_keycode 0;
#X obj 25 22 of.draw;
#X obj 25 84 of.translate -200 150 0;
#X obj 25 135 of.color 255 255 255 100;
#N canvas 674 386 488 384 type_some_lines 0;
#X obj 90 -1 inlet;
#X obj 90 289 outlet;
#X obj 127 98 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 90 132 10;
#X text 125 131 -> carriage return should be ascii 10 \, not 13?;
#X obj 90 37 sel 13 8, f 11;
#X text 151 101 -> ascii 8 (return) \, clear the list;
#X obj 90 202 list;
#X obj 90 231 list prepend string;
#X obj 90 255 list trim;
#X obj 90 168 list prepend;
#X msg 292 233 233;
#X obj 292 290 print;
#X text 326 231 é;
#N canvas 0 23 450 300 codenumber2utf8 0;
#X obj 131 72 inlet byte;
#X text 47 43 converts a Unicode code number to a list of UTF-8 bytes.
;
#X text 215 70 Unicode code number;
#X text 253 426 UTF-8 bytes;
#X text 493 475 (c) 2020 IOhannes m zmölnig;
#X obj 163 217 moses 128;
#X obj 242 217 moses 2048;
#X obj 332 217 moses 65536;
#X obj 422 217 moses 2.09715e+06;
#X obj 163 190 t f;
#N canvas 6 61 450 300 2byte 0;
#X obj 73 32 inlet;
#X obj 73 170 outlet;
#X obj 73 57 t f f;
#X obj 73 82 >> 6;
#X obj 149 82 & 63;
#X obj 149 107 | 128;
#X obj 73 107 | 192;
#X obj 73 132 pack 0 0;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 7 1;
#X connect 6 0 7 0;
#X connect 7 0 1 0;
#X restore 242 248 pd 2byte;
#N canvas 6 61 450 300 3byte 0;
#X obj 73 32 inlet;
#X obj 73 210 outlet;
#X obj 149 122 & 63;
#X obj 149 147 | 128;
#X obj 73 57 t f f f;
#X obj 149 99 >> 6;
#X obj 199 122 & 63;
#X obj 199 147 | 128;
#X obj 199 99 >> 0;
#X obj 73 99 >> 12;
#X obj 73 147 | 224;
#X obj 73 172 pack 0 0 0;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 11 1;
#X connect 4 0 9 0;
#X connect 4 1 5 0;
#X connect 4 2 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 11 2;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 1 0;
#X restore 332 248 pd 3byte;
#N canvas 6 61 603 351 4byte 0;
#X obj 73 32 inlet;
#X obj 73 210 outlet;
#X obj 199 122 & 63;
#X obj 199 147 | 128;
#X obj 199 99 >> 6;
#X obj 249 122 & 63;
#X obj 249 147 | 128;
#X obj 249 99 >> 0;
#X obj 149 122 & 63;
#X obj 149 147 | 128;
#X obj 73 182 pack 0 0 0 0;
#X obj 73 57 t f f f f;
#X obj 73 147 | 240;
#X obj 73 99 >> 18;
#X obj 149 99 >> 12;
#X connect 0 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 10 2;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 10 3;
#X connect 7 0 5 0;
#X connect 8 0 9 0;
#X connect 9 0 10 1;
#X connect 10 0 1 0;
#X connect 11 0 13 0;
#X connect 11 1 14 0;
#X connect 11 2 4 0;
#X connect 11 3 7 0;
#X connect 12 0 10 0;
#X connect 13 0 12 0;
#X connect 14 0 8 0;
#X restore 422 247 pd 4byte;
#N canvas 6 61 450 467 args 0;
#X obj 104 51 loadbang;
#X obj 104 101 pdcontrol;
#X msg 104 76 args 0;
#N canvas 6 61 450 300 serialize 0;
#X obj 110 85 until;
#X obj 123 168 list store;
#X obj 144 52 t b b l;
#X obj 110 110 f;
#X obj 148 111 + 1;
#X msg 167 85 0, f 2;
#X msg 110 141 get \$1 1;
#X obj 123 193 outlet;
#X obj 144 28 inlet;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 1 1 0 1;
#X connect 2 0 0 0;
#X connect 2 1 5 0;
#X connect 2 2 1 1;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 1 0;
#X connect 8 0 2 0;
#X restore 136 162 pd serialize;
#X obj 104 132 t b a;
#X obj 118 270 s \$0-mode:list;
#X obj 136 190 select -b;
#X msg 136 215 0;
#X obj 118 245 i 1;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 6 0;
#X connect 4 0 8 0;
#X connect 4 1 3 0;
#X connect 6 0 7 0;
#X connect 7 0 8 1;
#X connect 8 0 5 0;
#X restore 488 105 pd args;
#N canvas 6 61 450 300 serialize 0;
#X obj 110 85 until;
#X obj 123 168 list store;
#X obj 144 52 t b b l;
#X obj 110 110 f;
#X obj 148 111 + 1;
#X msg 167 85 0, f 2;
#X msg 110 141 get \$1 1;
#X obj 123 193 outlet;
#X obj 144 28 inlet;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 1 1 0 1;
#X connect 2 0 0 0;
#X connect 2 1 5 0;
#X connect 2 2 1 1;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 1 0;
#X connect 8 0 2 0;
#X restore 163 137 pd serialize;
#X obj 163 306 t l;
#X obj 184 494 outlet;
#N canvas 6 61 450 300 serialize 0;
#X obj 110 85 until;
#X obj 123 168 list store;
#X obj 144 52 t b b l;
#X obj 110 110 f;
#X obj 148 111 + 1;
#X msg 167 85 0, f 2;
#X msg 110 141 get \$1 1;
#X obj 123 193 outlet;
#X obj 144 28 inlet;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 1 1 0 1;
#X connect 2 0 0 0;
#X connect 2 1 5 0;
#X connect 2 2 1 1;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 1 0;
#X connect 8 0 2 0;
#X restore 131 437 pd serialize;
#X obj 184 466 t l;
#X obj 163 331 list prepend append;
#X obj 163 356 list trim;
#X obj 131 382 list store;
#X obj 131 97 t b a b;
#N canvas 6 61 450 300 demux 0;
#X obj 80 43 inlet;
#X obj 144 118 r \$0-mode:list;
#X obj 80 143 outlet;
#X obj 80 81 t a a;
#X obj 314 118 r \$0-mode:list;
#X obj 250 143 outlet;
#X obj 314 143 == 1;
#X obj 144 143 == 0;
#X obj 80 118 spigot 0;
#X obj 250 118 spigot 1;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 3 0 8 0;
#X connect 3 1 9 0;
#X connect 4 0 6 0;
#X connect 6 0 9 1;
#X connect 7 0 8 1;
#X connect 8 0 2 0;
#X connect 9 0 5 0;
#X restore 131 411 pd demux;
#X connect 0 0 22 0;
#X connect 5 0 15 0;
#X connect 5 1 6 0;
#X connect 6 0 10 0;
#X connect 6 1 7 0;
#X connect 7 0 11 0;
#X connect 7 1 12 0;
#X connect 8 0 12 0;
#X connect 9 0 5 0;
#X connect 10 0 15 0;
#X connect 11 0 15 0;
#X connect 12 0 15 0;
#X connect 14 0 9 0;
#X connect 15 0 19 0;
#X connect 17 0 18 0;
#X connect 18 0 16 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 23 0;
#X connect 22 0 21 0;
#X connect 22 1 14 0;
#X connect 22 2 21 1;
#X connect 23 0 17 0;
#X connect 23 1 18 0;
#X restore 292 257 pd codenumber2utf8;
#X obj 164 63 moses 127;
#X text 239 60 -> avoid special characters;
#X connect 0 0 5 0;
#X connect 2 0 7 0;
#X connect 3 0 10 0;
#X connect 5 0 3 0;
#X connect 5 1 2 0;
#X connect 5 2 15 0;
#X connect 7 0 8 0;
#X connect 7 0 10 1;
#X connect 8 0 9 0;
#X connect 9 0 1 0;
#X connect 10 0 7 0;
#X connect 11 0 14 0;
#X connect 14 0 12 0;
#X connect 15 0 10 0;
#X restore 249 140 pd type_some_lines;
#X obj 25 186 of.text Type-here;
#X obj 249 70 of.keyboard 1;
#X floatatom 249 108 5 0 0 0 - - -;
#X text 359 69 -> mode keycode;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X restore 39 316 pd Text_in_background_using_keycode;
#X text 457 89 keycode mode:;
#X floatatom 457 154 5 0 0 0 - - -;
#X obj 457 130 of.keyboard 1;
#X text 495 153 -> keycode value;
#X text 21 47 arguments: 0 = symbol (default) \, 1 = keycode mode;
#X obj 40 272 of.text Type-here 20 center;
#X connect 2 0 17 0;
#X connect 4 0 8 0;
#X connect 6 0 4 0;
#X connect 8 0 17 0;
#X connect 10 0 9 0;
#X connect 14 0 13 0;