From 82be5712f7be8e63e18b0828de7958b758999337 Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Thu, 7 May 2009 05:03:07 +0000 Subject: finished list-part for parsing delimited lists and added list-partslow to the family added no-dsp, an object to disable DSP while an operation is run and then turn it back on made a miniature version of crikey (keyboard-to-"midi" translator) that's much less fiddly than the big version svn path=/trunk/abstractions/sfruit/; revision=11253 --- sfruit/crikeymini.pd | 299 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 299 insertions(+) create mode 100644 sfruit/crikeymini.pd (limited to 'sfruit/crikeymini.pd') diff --git a/sfruit/crikeymini.pd b/sfruit/crikeymini.pd new file mode 100644 index 0000000..391553d --- /dev/null +++ b/sfruit/crikeymini.pd @@ -0,0 +1,299 @@ +#N canvas 875 284 395 398 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 4 16 2 6 10 7 20 21 27 22 23 35 18 17 16 17 8 +11 5 24 26 3 9 1 25 0 12 13 14 15 28 29 30 31 15 255 255 255 22 0 255 +18 20 19 21 23 255 255 255 255 19 32 33 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 34 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 564 265 482 332 output 0; +#X obj 138 28 r \$0note; +#X obj 138 68 unpack; +#X obj 175 115 sel 1; +#X obj 174 203 f; +#X obj 189 158 r \$0vel; +#X obj 90 252 outlet; +#X obj 175 252 outlet; +#X obj 113 173 * 12; +#X obj 90 196 + 60; +#X obj 113 152 r \$0oct; +#X connect 0 0 1 0; +#X connect 1 0 8 0; +#X connect 1 1 2 0; +#X connect 2 0 3 0; +#X connect 2 1 6 0; +#X connect 3 0 6 0; +#X connect 4 0 3 1; +#X connect 7 0 8 1; +#X connect 8 0 5 0; +#X connect 9 0 7 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; -- cgit v1.2.1