Re: [PD] Patch for Akai EWI (was "Reading and writing binary files")

Mon, 14 Mar 2011 01:20:34 -0700 

Here's the finished patch. Any feedback is welcome. I don't have a web
site of my own, but if anyone knows of a suitable repository for
puredata code, let me know.

David.

#N canvas 394 89 607 557 12;
#X text 17 -207 Akai EWI Configuration Settings;
#N canvas 0 0 827 603 EWI-group1 0;
#X text 154 150 Saxophone;
#X text 154 166 Flute;
#X text 154 182 Oboe;
#X text 154 198 EVI Valve 1;
#X text 154 214 EVI Valve 2;
#X obj 132 140 vradio 15 1 0 6 empty empty empty 0 -8 0 10 -4034 -1
-1 0;
#X text 254 165 Transpose;
#X text 234 134 Midi Channel;
#X floatatom 329 135 5 1 16 1 - - -;
#X floatatom 329 165 5 -30 30 0 - - -;
#X obj 331 198 hsl 128 15 0 127 0 0 empty empty empty -20 -8 0 10 -4034
-1 -1 3200 0;
#X text 258 195 Velocity;
#X obj 194 443 pack float float float float;
#X text 154 134 EWI;
#X obj 523 283 t b f;
#X obj 524 326 t b f;
#X obj 524 368 t b f;
#X obj 666 97 list split 1;
#X obj 665 130 list split 1;
#X obj 663 164 list split 1;
#X obj 664 195 list split 1;
#X obj 575 171 - 64;
#X obj 449 267 + 64;
#X obj 626 65 list split 6;
#X text 246 215 (0=Dynamic);
#X floatatom 467 196 3 0 0 0 - - -;
#X obj 626 29 receive EWIsend;
#X obj 194 485 send EWI-1;
#X connect 5 0 14 0;
#X connect 8 0 12 0;
#X connect 9 0 22 0;
#X connect 10 0 16 0;
#X connect 10 0 25 0;
#X connect 12 0 27 0;
#X connect 14 0 12 0;
#X connect 14 1 12 1;
#X connect 15 0 12 0;
#X connect 15 1 12 2;
#X connect 16 0 12 0;
#X connect 16 1 12 3;
#X connect 17 0 8 0;
#X connect 17 1 18 0;
#X connect 18 0 5 0;
#X connect 18 1 19 0;
#X connect 19 0 21 0;
#X connect 19 1 20 0;
#X connect 20 0 10 0;
#X connect 21 0 9 0;
#X connect 22 0 15 0;
#X connect 23 1 17 0;
#X connect 26 0 23 0;
#X coords 0 0 1 1 380 130 2 120 120;
#X restore -36 -36 pd EWI-group1;
#N canvas 0 0 808 561 EWI-group2 0;
#X obj 137 135 hsl 128 15 0 127 0 0 empty empty empty 0 0 0 10 -4034
-1 -1 6400 0;
#X obj 137 166 hsl 128 15 0 127 0 0 empty empty empty 0 0 0 10 -4034
-1 -1 6400 0;
#X obj 137 198 hsl 128 15 0 127 0 0 empty empty empty 0 0 0 10 -4034
-1 -1 6400 0;
#X obj 137 230 hsl 128 15 0 127 0 0 empty empty empty 0 0 0 10 -4034
-1 -1 6400 0;
#X obj 137 262 hsl 128 15 0 15 0 0 empty empty empty 0 0 0 10 -4034
-1 -1 6773 0;
#X text 305 136 Breath Gain;
#X text 305 166 Bite Gain;
#X text 304 198 Bite AC Gain;
#X text 304 228 Pitch Bend Gain;
#X text 304 259 Key Delay;
#X obj 551 247 t b f;
#X obj 551 284 t b f;
#X obj 550 321 t b f;
#X obj 550 360 t b f;
#X obj 658 82 list split 1;
#X obj 657 115 list split 1;
#X obj 655 149 list split 1;
#X obj 656 180 list split 1;
#X obj 655 214 list split 1;
#X obj 134 345 mod 16;
#X obj 654 335 list split 1;
#X obj 46 494 pack float float float float float float;
#X obj 654 389 list;
#X obj 134 305 + 0.5;
#X floatatom 273 135 3 0 0 0 - - -;
#X floatatom 273 166 3 0 0 0 - - -;
#X floatatom 273 197 3 0 0 0 - - -;
#X floatatom 273 230 3 0 0 0 - - -;
#X floatatom 273 261 3 0 0 0 - - -;
#X obj 658 29 receive EWIsend;
#X obj 46 536 send EWI-2;
#X connect 0 0 21 0;
#X connect 0 0 24 0;
#X connect 1 0 10 0;
#X connect 1 0 25 0;
#X connect 2 0 11 0;
#X connect 2 0 26 0;
#X connect 3 0 12 0;
#X connect 3 0 27 0;
#X connect 4 0 23 0;
#X connect 10 0 21 0;
#X connect 10 1 21 1;
#X connect 11 0 21 0;
#X connect 11 1 21 2;
#X connect 12 0 21 0;
#X connect 12 1 21 3;
#X connect 13 0 21 0;
#X connect 13 1 21 4;
#X connect 14 0 0 0;
#X connect 14 1 15 0;
#X connect 15 0 1 0;
#X connect 15 1 16 0;
#X connect 16 0 2 0;
#X connect 16 1 17 0;
#X connect 17 0 3 0;
#X connect 17 1 18 0;
#X connect 18 0 4 0;
#X connect 18 1 20 0;
#X connect 19 0 13 0;
#X connect 19 0 28 0;
#X connect 20 0 22 0;
#X connect 21 0 30 0;
#X connect 22 0 21 5;
#X connect 23 0 19 0;
#X connect 29 0 14 0;
#X coords 0 0 49 149 300 170 2 120 120;
#X restore 254 125 pd EWI-group2;
#N canvas 0 0 829 653 EWI-group3 0;
#X obj 129 138 hsl 128 15 0 127 0 0 empty empty empty 0 0 0 10 -4034
-1 -1 200 0;
#X obj 129 169 hsl 128 15 0 127 0 0 empty empty empty 0 0 0 10 -4034
-1 -1 0 0;
#X obj 129 201 hsl 128 15 0 127 0 0 empty empty empty 0 0 0 10 -4034
-1 -1 12700 0;
#X obj 129 233 hsl 128 15 0 127 0 0 empty empty empty 0 0 0 10 -4034
-1 -1 0 0;
#X obj 129 265 hsl 128 15 0 127 0 0 empty empty empty 0 0 0 10 -4034
-1 -1 12400 0;
#X obj 129 298 hsl 128 15 0 127 0 0 empty empty empty 0 0 0 10 -4034
-1 -1 12500 0;
#X text 296 135 Breath CC1;
#X text 297 168 Breath CC2;
#X text 297 200 Bite CC1;
#X text 296 232 Bite CC2;
#X text 296 260 Pitchbend Up;
#X text 296 293 Pitchbend Down;
#X obj 462 323 t b f;
#X obj 462 388 t b f;
#X obj 463 422 t b f;
#X obj 463 455 t b f;
#X obj 463 488 t b f;
#X obj 668 92 list split 1;
#X obj 667 125 list split 1;
#X obj 668 199 list split 1;
#X obj 669 230 list split 1;
#X obj 668 264 list split 1;
#X obj 668 298 list split 1;
#X obj 668 162 list split 1;
#X obj 20 559 pack float float float float float float float;
#X msg 464 354 0;
#X text 501 353 (unknown usage);
#X obj 628 58 list split 10;
#X floatatom 265 137 3 0 0 0 - - -;
#X floatatom 265 168 3 0 0 0 - - -;
#X floatatom 266 200 3 0 0 0 - - -;
#X floatatom 265 233 3 0 0 0 - - -;
#X floatatom 264 264 3 0 0 0 - - -;
#X floatatom 265 298 3 0 0 0 - - -;
#X obj 628 22 receive EWIsend;
#X obj 20 604 send EWI-3;
#X connect 0 0 24 0;
#X connect 0 0 28 0;
#X connect 1 0 12 0;
#X connect 1 0 29 0;
#X connect 2 0 13 0;
#X connect 2 0 30 0;
#X connect 3 0 14 0;
#X connect 3 0 31 0;
#X connect 4 0 15 0;
#X connect 4 0 32 0;
#X connect 5 0 16 0;
#X connect 5 0 33 0;
#X connect 12 0 24 0;
#X connect 12 1 24 1;
#X connect 13 0 24 0;
#X connect 13 1 24 3;
#X connect 14 0 24 0;
#X connect 14 1 24 4;
#X connect 15 0 24 0;
#X connect 15 1 24 5;
#X connect 16 0 24 0;
#X connect 16 1 24 6;
#X connect 17 0 0 0;
#X connect 17 1 18 0;
#X connect 18 0 1 0;
#X connect 18 1 23 0;
#X connect 19 0 2 0;
#X connect 19 1 20 0;
#X connect 20 0 3 0;
#X connect 20 1 21 0;
#X connect 21 0 4 0;
#X connect 21 1 22 0;
#X connect 22 0 5 0;
#X connect 23 1 19 0;
#X connect 24 0 35 0;
#X connect 25 0 24 2;
#X connect 27 1 17 0;
#X connect 34 0 27 0;
#X coords 0 0 149 149 280 210 2 120 120;
#X restore -37 102 pd EWI-group3;
#N canvas 0 0 688 492 EWI-group4 0;
#X obj 26 28 bng 15 250 50 0 empty empty empty 16 7 0 10 -257985 -1
-1;
#X obj 26 59 bng 15 250 50 0 empty empty empty 16 7 0 10 -257985 -1
-1;
#X obj 27 91 bng 15 250 50 0 empty empty empty 16 7 0 10 -257985 -1
-1;
#X text 50 58 Load from file;
#X text 50 90 Save to file;
#X obj 96 210 loadbang;
#X text 60 308 Default settings for Akai EWI;
#X obj 441 224 list;
#X obj 393 223 list;
#X obj 393 279 list append;
#X obj 491 222 list;
#X obj 427 331 list append;
#X msg 27 329 64 64 64 64 8 127 0 0 64 32 2 0 0 127 0 124 125;
#X obj 27 122 bng 15 250 50 0 empty empty empty 16 7 0 10 -257985 -1
-1;
#X text 51 123 Reset all;
#X text 50 27 Send to EWI;
#X obj 316 163 t l l l l;
#X obj 402 377 list;
#X obj 526 402 list;
#X obj 585 161 t l l l l;
#N canvas 155 98 359 545 EWI-getfile 0;
#X obj 131 248 mrpeach/binfile;
#X msg 112 178 read \$1;
#X obj 112 137 openpanel;
#X obj 227 29 inlet;
#X obj 44 322 until;
#X obj 44 230 t b;
#X obj 240 392 t l;
#X obj 185 345 list prepend;
#X obj 115 362 t b;
#X obj 115 425 list append;
#X obj 115 492 outlet;
#X obj 227 74 t b l;
#X connect 0 0 7 0;
#X connect 0 2 4 1;
#X connect 0 2 8 0;
#X connect 1 0 0 0;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 11 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X connect 6 0 7 1;
#X connect 7 0 6 0;
#X connect 7 0 9 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 11 0 2 0;
#X connect 11 1 7 1;
#X restore 198 109 pd EWI-getfile;
#N canvas 448 140 408 400 EWI-putfile 0;
#X obj 128 350 mrpeach/binfile;
#X obj 66 33 inlet;
#X obj 66 160 savepanel;
#X msg 66 203 write \$1;
#X obj 264 176 list split 1;
#X msg 176 196 writeat 0;
#X obj 66 89 t b b l;
#X obj 264 227 t b a;
#X obj 325 109 list;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 7 0;
#X connect 4 1 8 1;
#X connect 5 0 0 0;
#X connect 6 0 2 0;
#X connect 6 1 5 0;
#X connect 6 2 4 0;
#X connect 7 0 8 0;
#X connect 7 1 0 0;
#X connect 8 0 4 0;
#X restore 402 428 pd EWI-putfile;
#X obj 27 430 send EWIsend;
#X obj 466 77 receive EWI-1;
#X obj 198 190 send EWIsend;
#X obj 418 32 receive EWI-2;
#X obj 516 118 receive EWI-3;
#X text 588 324 Midi port;
#X obj 600 351 inlet;
#N canvas 0 0 586 630 EWI-send 0;
#X obj 207 456 list;
#X obj 44 34 inlet;
#X obj 157 507 list split 1;
#X obj 157 544 t b f;
#X obj 189 578 midiout \$1;
#X obj 44 83 list split 6;
#X msg 372 88 240 71 127 109 0 0 6;
#X msg 371 181 240 71 127 109 2 0 11;
#X msg 372 126 247;
#X msg 370 228 247;
#X obj 68 262 list;
#X obj 114 262 list;
#X obj 160 262 list;
#X obj 205 262 list;
#X obj 249 262 list;
#X obj 290 262 list;
#X obj 68 305 list append;
#X obj 88 334 list append;
#X obj 110 363 list append;
#X obj 135 392 list append;
#X obj 157 419 list append;
#X text 372 65 SysEx header 1;
#X text 371 158 SysEx header 2;
#X obj 44 156 t b b b b b b;
#X obj 261 34 loadbang;
#X obj 66 474 print EWI;
#X obj 256 545 inlet;
#X text 303 546 Midi port;
#X connect 0 0 2 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 2 1 0 1;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 5 0 11 1;
#X connect 5 0 23 0;
#X connect 5 1 14 1;
#X connect 6 0 10 1;
#X connect 7 0 13 1;
#X connect 8 0 12 1;
#X connect 9 0 15 1;
#X connect 10 0 16 0;
#X connect 11 0 16 1;
#X connect 12 0 17 1;
#X connect 13 0 18 1;
#X connect 14 0 19 1;
#X connect 15 0 20 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 2 0;
#X connect 20 0 25 0;
#X connect 23 0 10 0;
#X connect 23 1 11 0;
#X connect 23 2 12 0;
#X connect 23 3 13 0;
#X connect 23 4 14 0;
#X connect 23 5 15 0;
#X connect 24 0 6 0;
#X connect 24 0 8 0;
#X connect 24 0 7 0;
#X connect 24 0 9 0;
#X connect 26 0 4 1;
#X restore 526 443 pd EWI-send;
#X connect 0 0 19 0;
#X connect 1 0 20 0;
#X connect 2 0 16 0;
#X connect 5 0 12 0;
#X connect 7 0 9 1;
#X connect 8 0 9 0;
#X connect 9 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 17 1;
#X connect 11 0 18 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 16 0 17 0;
#X connect 16 1 8 0;
#X connect 16 2 7 0;
#X connect 16 3 10 0;
#X connect 17 0 21 0;
#X connect 18 0 29 0;
#X connect 19 0 18 0;
#X connect 19 1 8 0;
#X connect 19 2 7 0;
#X connect 19 3 10 0;
#X connect 20 0 24 0;
#X connect 23 0 7 1;
#X connect 25 0 8 1;
#X connect 26 0 10 1;
#X connect 28 0 29 1;
#X coords 0 0 149 149 150 150 2 10 10;
#X restore 384 -46 pd EWI-group4;
#X text 453 -94 Midi port;
#X floatatom 418 -95 3 0 0 0 - - -;
#X obj 418 -144 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text -33 -185 Disclaimer: This patch has been tested with an Akai
EWI and pd-extended under Linux \, but I take no responsibility for
any defects or errors that may occur. It sends Sysex messages to the
EWI which are undocumented by Akai \, the format of which may change
with updates to the EWI firmware. You might have to use the reset button
to restore your EWI to its original settings. Also note that it sends
PD messages with a prefix of "EWI" \, so if your patches send or receive
any messages with the same prefix \, there may be a conflict causing
unexpected results.;
#X text -34 319 Copyright 2011 \, by David Kettle. Free for any use
\, but may not be re-sold \, either alone or as part of another product.
;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X coords 0 0 1 1 85 60 0;

_______________________________________________
Pd-list@iem.at mailing list
UNSUBSCRIBE and account-management -> 
http://lists.puredata.info/listinfo/pd-list

Reply via email to