Proxima sesion : Lunes 12 de Febrero de 2007. 17.00

Hola

Recuerdo con este anuncio que mañana, lunes, 12 de febrero de 2007, habrá sesión de seminario. Aprovecho para comunicaros que los últimos cambios en el patch de control de wiimote están en

http://www.sonoscop.net/jmb/pub/wiiprueba.pat.zip

Saludos

José Manuel

control del wiimote hackeado

Jordi Puig me dejó el wiimote y he estado trabajando con él. En el patch que publico aquí se muestra como

1. se gira un objeto en 3D en los ejes z y x cuando no hay aceleración

2. se detecta la aceleración en los tres ejes

3. se transforma la aceleración en cambio de posición y generación de sonido

Ya sabéis : se copia todo el secript y se pega en una ventana de maxmsp. el objeto aka.wiimote y jitter deben estar instalados.

Saludos

José Manuel

#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 339 164 29 196617 gate;
#P newex 358 126 60 196617 r vibracion;
#P newex 440 275 71 196617 route connect;
#P window linecount 2;
#P message 624 570 80 196617 \; max hidecursor;
#P message 537 570 85 196617 \; max showcursor;
#P window linecount 1;
#P comment 24 111 478 196617 2) Mandar el mensaje "connect" a aka.wiiremote. Los 4 led dejan de parpadear al establecer la conexión;
#P comment 24 98 303 196617 1) Pulsar el botón "Synch" del WiiRemote. Los 4 leds parpadearán;
#P comment 24 85 487 196617 0) Ajustar WiiRemote con el ordenador por medio de "Bluetooth Setup Assistant." (sólo la primera vez);
#P newex 537 542 55 196617 select 0 1;
#P newex 650 480 45 196617 onebang;
#P newex 699 480 45 196617 onebang;
#P message 699 500 14 196617 0;
#P newex 699 455 46 196617 select 1;
#P newex 699 436 47 196617 r boton-;
#P message 650 500 14 196617 1;
#P newex 650 455 46 196617 select 1;
#P newex 650 436 48 196617 r boton+;
#P toggle 24 379 15 0;
#P newex 24 407 47 196617 gate 1 1;
#P newex 777 322 105 196617 pak position 0. 0. 90.;
#N vpatcher 54 44 1266 815;
#P origin 0 -4;
#P window setfont "Sans Serif" 9.;
#P newex 865 434 35 196617 * 11.;
#P window linecount 0;
#P newex 543 528 35 196617 *~ 1.;
#P user gain~ 576 649 13 39 158 0 1.071519 7.94321 10.;
#P newex 613 624 27 196617 *~;
#P newex 544 617 27 196617 *~;
#P message 678 507 14 196617 0;
#P newex 678 487 55 196617 delay 300;
#P message 655 506 14 196617 1;
#P newex 655 530 60 196617 s vibracion;
#P user number~ 502 647 541 662 9 3 3 2 0. 0. 0 0. 250 0. 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 804 104 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 765 103 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 647 105 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 608 104 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 503 436 101 196617 t f b;
#P newex 503 466 55 196617 pipe 0. 11;
#P message 594 488 31 196617 0 10;
#P comment 32 79 83 196617 extracción;
#P comment 502 81 57 196617 extracción;
#P comment 45 671 57 196617 movimiento;
#P comment 42 360 57 196617 adecuación;
#P newex 543 548 42 196617 s filtro;
#P newex 543 508 39 196617 noise~;
#P comment 1100 14 76 196617 analisis botones;
#P comment 814 364 57 196617 adecuación;
#P comment 776 494 98 196617 generación de sonido;
#P comment 482 8 83 196617 analisis dinámico;
#P message 677 611 26 196617 127;
#P newex 596 654 61 196617 delay 4000;
#P newex 656 572 48 196617 loadbang;
#P message 596 685 14 196617 1;
#N vpatcher 109 428 698 623;
#P origin 0 15;
#P window setfont "Sans Serif" 9.;
#P newex 455 137 48 196617 s botonv;
#P newex 406 137 46 196617 s boton^;
#P newex 357 137 47 196617 s boton>;
#P newex 308 137 47 196617 s boton<;
#P newex 504 137 48 196617 s boton+;
#P newex 259 137 48 196617 s boton=;
#P newex 210 137 47 196617 s boton-;
#P newex 14 137 48 196617 s boton2;
#P newex 63 137 48 196617 s boton1;
#P toggle 503 165 15 0;
#P comment 518 167 38 196617 Plus;
#P toggle 454 165 15 0;
#P comment 469 167 38 196617 Up;
#P toggle 405 165 15 0;
#P comment 420 167 38 196617 Down;
#P toggle 356 165 15 0;
#P comment 371 167 38 196617 Right;
#P toggle 307 165 15 0;
#P comment 322 167 38 196617 Left;
#P toggle 258 165 15 0;
#P comment 273 167 38 196617 Home;
#P toggle 209 165 15 0;
#P comment 224 167 38 196617 Minus;
#P toggle 160 165 15 0;
#P comment 175 167 38 196617 A;
#P toggle 111 165 15 0;
#P comment 126 167 38 196617 B;
#P toggle 62 165 15 0;
#P comment 77 167 38 196617 1;
#P toggle 13 165 15 0;
#P comment 28 167 38 196617 2;
#P newex 112 137 47 196617 s botonb;
#P newex 161 137 47 196617 s botona;
#P newex 504 104 27 196617 > 0;
#P newex 455 104 27 196617 > 0;
#P newex 406 104 27 196617 > 0;
#P newex 357 104 27 196617 > 0;
#P newex 308 104 27 196617 > 0;
#P newex 259 104 27 196617 > 0;
#P newex 210 104 27 196617 > 0;
#P newex 161 104 27 196617 > 0;
#P newex 112 104 27 196617 > 0;
#P newex 63 104 27 196617 > 0;
#P newex 14 104 27 196617 > 0;
#P newex 14 49 40 196617 change;
#P newex 504 78 45 196617 & 4096;
#P newex 455 78 45 196617 & 2048;
#P newex 406 78 45 196617 & 1024;
#P newex 357 78 39 196617 & 512;
#P newex 308 78 39 196617 & 256;
#P newex 259 78 39 196617 & 128;
#P newex 210 78 33 196617 & 16;
#P newex 161 78 27 196617 & 8;
#P newex 112 78 27 196617 & 4;
#P newex 63 78 27 196617 & 2;
#P newex 14 78 27 196617 & 1;
#P inlet 14 24 15 0;
#P connect 0 0 12 0;
#P fasten 12 0 1 0 19 72 19 72;
#P connect 1 0 13 0;
#P connect 13 0 49 0;
#P fasten 12 0 2 0 19 72 68 72;
#P connect 2 0 14 0;
#P connect 14 0 48 0;
#P fasten 12 0 3 0 19 72 117 72;
#P connect 3 0 15 0;
#P connect 15 0 25 0;
#P fasten 12 0 4 0 19 72 166 72;
#P connect 4 0 16 0;
#P connect 16 0 24 0;
#P fasten 12 0 5 0 19 72 215 72;
#P connect 5 0 17 0;
#P connect 17 0 50 0;
#P fasten 12 0 6 0 19 72 264 72;
#P connect 6 0 18 0;
#P connect 18 0 51 0;
#P fasten 12 0 7 0 19 72 313 72;
#P connect 7 0 19 0;
#P connect 19 0 53 0;
#P fasten 12 0 8 0 19 72 362 72;
#P connect 8 0 20 0;
#P connect 20 0 54 0;
#P fasten 12 0 9 0 19 72 411 72;
#P connect 9 0 21 0;
#P connect 21 0 55 0;
#P fasten 12 0 10 0 19 72 460 72;
#P connect 10 0 22 0;
#P connect 22 0 56 0;
#P fasten 12 0 11 0 19 72 509 72;
#P connect 11 0 23 0;
#P connect 23 0 52 0;
#P pop;
#P newobj 1082 35 60 196617 p botonanal;
#P newex 681 367 29 196617 * 4.;
#N vpatcher 211 87 966 498;
#P window setfont "Sans Serif" 9.;
#P window linecount 0;
#P newex 553 118 130 196617 expr abs($f1 - 128) * 14.;
#P newex 252 110 130 196617 expr abs($f1 - 128) * 10.;
#P newex 493 62 46 196617 select 1;
#P newex 493 41 48 196617 r botonv;
#P newex 426 63 46 196617 select 1;
#P newex 426 42 46 196617 r boton^;
#P message 493 89 37 196617 0 300;
#P message 426 89 42 196617 0 -300;
#P newex 190 57 46 196617 select 1;
#P newex 190 36 47 196617 r boton>;
#P newex 123 58 46 196617 select 1;
#P newex 123 37 47 196617 r boton<;
#P window linecount 1;
#P message 190 84 37 196617 0 300;
#P window linecount 0;
#P message 123 84 42 196617 0 -300;
#P window linecount 1;
#P newex 94 181 31 196617 * -1;
#P window linecount 0;
#P newex 553 186 31 196617 * -1;
#P window linecount 1;
#P newex 635 231 46 196617 select 1;
#P newex 635 206 47 196617 r botonb;
#P newex 585 231 46 196617 select 1;
#P newex 585 206 48 196617 r boton=;
#P newex 259 232 46 196617 select 1;
#P newex 259 207 47 196617 r botona;
#P newex 209 232 46 196617 select 1;
#P newex 209 207 48 196617 r boton=;
#P newex 395 163 168 196617 if $i1 > 128 then $f2 else out2 $f2;
#P inlet 395 84 15 0;
#P message 395 209 43 196617 \$1 100;
#P newex 395 229 40 196617 line 1.;
#P message 585 259 14 196617 0;
#P newex 395 335 27 196617 f;
#P newex 395 314 27 196617 + 0.;
#P outlet 395 363 15 0;
#P newex 395 290 52 196617 / 10000.;
#P message 395 248 62 196617 \$1 \, 0 5000;
#P newex 395 270 40 196617 line 1.;
#P newex 94 158 168 196617 if $i1 > 128 then $f2 else out2 $f2;
#P inlet 94 85 15 0;
#P message 94 204 43 196617 \$1 100;
#P newex 94 224 40 196617 line 1.;
#P message 209 271 14 196617 0;
#P newex 94 330 27 196617 f;
#P newex 94 309 27 196617 + 0.;
#P outlet 94 358 15 0;
#P newex 94 285 52 196617 / 10000.;
#P message 94 243 62 196617 \$1 \, 0 5000;
#P newex 94 265 40 196617 line 1.;
#P connect 9 0 10 0;
#P connect 32 0 10 0;
#P connect 33 0 10 0;
#P connect 10 0 31 0;
#P connect 10 1 8 0;
#P connect 31 0 8 0;
#P connect 8 0 7 0;
#P connect 7 0 1 0;
#P connect 1 0 0 0;
#P connect 0 0 2 0;
#P connect 6 0 4 0;
#P connect 2 0 4 0;
#P connect 4 0 5 0;
#P connect 5 0 3 0;
#P connect 6 0 4 1;
#P fasten 5 0 4 1 99 350 123 350 123 305 116 305;
#P connect 6 0 5 1;
#P connect 34 0 35 0;
#P connect 35 0 32 0;
#P connect 36 0 37 0;
#P connect 37 0 33 0;
#P connect 22 0 23 0;
#P connect 25 0 6 0;
#P connect 23 0 6 0;
#P connect 9 0 44 0;
#P connect 44 0 10 1;
#P connect 24 0 25 0;
#P connect 20 0 21 0;
#P connect 38 0 21 0;
#P connect 39 0 21 0;
#P connect 21 0 19 0;
#P connect 30 0 19 0;
#P connect 19 0 18 0;
#P connect 18 0 12 0;
#P connect 12 0 11 0;
#P connect 11 0 13 0;
#P connect 17 0 15 0;
#P connect 13 0 15 0;
#P connect 15 0 16 0;
#P connect 16 0 14 0;
#P connect 17 0 15 1;
#P fasten 16 0 15 1 400 355 424 355 424 310 417 310;
#P connect 17 0 16 1;
#P connect 40 0 41 0;
#P connect 41 0 38 0;
#P connect 42 0 43 0;
#P connect 43 0 39 0;
#P connect 20 0 45 0;
#P connect 45 0 21 1;
#P connect 21 1 30 0;
#P connect 26 0 27 0;
#P connect 29 0 17 0;
#P connect 27 0 17 0;
#P connect 28 0 29 0;
#P pop;
#P newobj 910 686 71 196617 p frenateprop;
#P number 713 367 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 3;
#P message 656 705 224 196617 \; filtro Q 0 100 100 100 100 100 100 100 100 \; filtro gain 0 2 2 2 2 2 2 2 2;
#P window linecount 1;
#P newex 544 567 42 196617 r filtro;
#P newex 503 410 134 196617 expr abs(128 - $i1) / 128.;
#P flonum 606 437 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 521 382 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P user ezdac~ 543 713 587 746 0;
#P user gain~ 543 649 13 39 158 0 1.071519 7.94321 10.;
#P newex 830 434 32 196617 * 10.;
#P newex 799 434 29 196617 * 9.;
#P newex 768 434 29 196617 * 8.;
#P newex 738 434 29 196617 * 7.;
#P newex 710 434 29 196617 * 6.;
#P newex 679 434 29 196617 * 5.;
#P newex 649 434 29 196617 * 4.;
#P newex 640 466 237 196617 pack freq 0 0 0 0 0 0 0 0 0;
#P newex 640 410 27 196617 t b i;
#P message 503 488 89 196617 0 \, \$1 50 0 5000;
#P newex 503 532 32 196617 line~;
#P newex 544 589 105 196617 fffb~ 8;
#P newex 521 328 27 196617 i;
#P message 594 230 14 196617 0;
#P message 550 230 14 196617 1;
#P message 621 253 33 196617 clear;
#P newex 621 230 55 196617 delay 300;
#P button 550 305 15 0;
#P newex 550 281 54 196617 buddy 2;
#P user number~ 503 130 548 145 9 3 3 2 0. 0. 0 0. 250 0. 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 594 201 15 0;
#P button 550 201 15 0;
#P newex 594 155 37 196617 ==~ 1;
#P newex 550 155 37 196617 ==~ 1;
#P newex 594 178 36 196617 edge~;
#P newex 550 178 36 196617 edge~;
#P newex 594 130 42 196617 <~ 105;
#P newex 550 130 42 196617 >~ 160;
#P newex 594 79 29 196617 sig~;
#P flonum 366 158 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 196 158 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 681 328 27 196617 i;
#P message 754 230 14 196617 0;
#P message 710 230 14 196617 1;
#P message 781 253 33 196617 clear;
#P newex 781 230 55 196617 delay 500;
#P button 710 305 15 0;
#P newex 710 281 54 196617 buddy 2;
#P user number~ 663 130 708 145 9 3 3 2 0. 0. 0 0. 250 0. 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 754 201 15 0;
#P button 710 201 15 0;
#P newex 754 155 37 196617 ==~ 1;
#P newex 710 155 37 196617 ==~ 1;
#P newex 754 178 36 196617 edge~;
#P newex 710 178 36 196617 edge~;
#P newex 754 130 42 196617 <~ 100;
#P newex 710 130 42 196617 >~ 160;
#P flonum 86 161 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 754 77 29 196617 sig~;
#P inlet 1082 14 15 0;
#P outlet 971 733 15 0;
#P outlet 941 733 15 0;
#P outlet 910 733 15 0;
#N vpatcher 455 50 776 544;
#P origin 47 0;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P message 76 109 14 196617 0;
#P window linecount 0;
#P message 27 109 14 196617 1;
#P window linecount 1;
#P newex 76 81 46 196617 select 1;
#P newex 76 38 48 196617 r boton2;
#P window linecount 0;
#P newex 27 81 46 196617 select 1;
#P newex 27 38 48 196617 r boton1;
#P newex 27 136 114 196617 gate 1 1;
#P newex 27 384 27 196617 f;
#P newex 27 365 27 196617 + 0.;
#P message 27 403 70 196617 \$1 \, -0.8 500;
#P newex 27 420 40 196617 line 1.;
#P outlet 27 451 15 0;
#P user meter~ 212 111 292 124 50 0 168 0 103 103 103 255 153 0 255 0 0 217 217 0 153 186 0 12 3 3 3 3;
#P newex 27 239 27 196617 + 0.;
#P newex 27 186 27 196617 / 5.;
#P user meter~ 131 111 211 124 50 0 168 0 103 103 103 255 153 0 255 0 0 217 217 0 153 186 0 12 3 3 3 3;
#P user ezadc~ 177 72 221 105 0;
#P message 27 265 43 196617 \$1 100;
#P newex 27 285 40 196617 line 1.;
#P newex 27 161 162 196617 if $f1 > 0.02 then $f1 else out2 0;
#P newex 179 185 27 196617 f;
#P newex 27 208 162 196617 if $f1 > $f2 then $f1;
#P message 27 312 56 196617 \$1 \, 0 500;
#P newex 27 335 40 196617 line 1.;
#P connect 18 0 19 0;
#P connect 19 0 22 0;
#P connect 23 0 17 0;
#P connect 22 0 17 0;
#P connect 17 0 4 0;
#P connect 4 0 9 0;
#P connect 9 0 2 0;
#P connect 2 0 10 0;
#P connect 10 0 6 0;
#P connect 6 0 5 0;
#P connect 5 0 1 0;
#P connect 1 0 0 0;
#P connect 0 0 15 0;
#P connect 15 0 16 0;
#P connect 16 0 14 0;
#P connect 14 0 13 0;
#P connect 13 0 12 0;
#P fasten 0 0 10 1 32 359 85 359 85 237 49 237;
#P fasten 13 0 15 1 32 445 99 445 99 361 49 361;
#P connect 20 0 21 0;
#P connect 21 0 23 0;
#P connect 7 0 8 0;
#P connect 8 0 17 1;
#P fasten 2 0 3 0 32 227 208 227 208 181 184 181;
#P connect 4 1 3 0;
#P connect 3 0 2 1;
#P connect 7 1 11 0;
#P pop;
#P newobj 941 709 72 196617 p frenatewind;
#P newex 22 401 34 196617 + 90.;
#P newex 22 135 103 196617 clip -0.9999 0.9999;
#P newex 162 135 103 196617 clip -0.9999 0.9999;
#P newex 331 135 103 196617 clip -0.9999 0.9999;
#P newex 331 710 40 196617 line 1.;
#P newex 331 688 66 196617 pack 0. 300;
#P outlet 331 733 15 0;
#P newex 162 710 41 196617 line 1.;
#P newex 162 688 66 196617 pack 0. 300;
#P newex 22 709 41 196617 line 1.;
#P newex 22 687 66 196617 pack 0. 300;
#P newex 331 381 135 196617 expr $f1 / 3.15912 * 360.;
#P newex 162 381 167 196617 expr 360. - $f1 / 3.15912 * 360.;
#P newex 22 381 138 196617 expr $f1 / 3.15912 * 360.;
#P newex 331 157 26 196617 asin;
#P newex 162 157 26 196617 asin;
#P newex 22 157 26 196617 asin;
#P newex 331 112 114 196617 expr ($f1 - 126) / 25.;
#P newex 162 112 114 196617 expr ($f1 - 129) / 25.;
#P newex 22 112 114 196617 expr ($f1 - 128) / 25.;
#P outlet 22 733 15 0;
#P outlet 162 733 15 0;
#P inlet 22 15 15 0;
#P newex 22 36 827 196617 unpack 0. 0. 0. 0;
#P comment 41 15 83 196617 analisis estático;
#P user panel 499 354 404 102;
#X brgb 124 124 124;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 1061 2 130 754;
#X brgb 191 191 191;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P comment 986 688 58 196617 movimiento;
#P user panel 904 669 152 83;
#X brgb 124 124 124;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 16 355 453 71;
#X brgb 124 124 124;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 16 668 453 85;
#X brgb 124 124 124;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 499 74 404 278;
#X brgb 124 124 124;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 16 74 454 111;
#X brgb 124 124 124;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 10 2 463 754;
#X brgb 191 191 191;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 499 459 404 293;
#X brgb 124 124 124;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 474 2 586 754;
#X brgb 191 191 191;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P connect 13 0 12 0;
#P connect 12 0 16 0;
#P connect 16 0 34 0;
#P connect 34 0 19 0;
#P connect 19 0 22 0;
#P connect 22 0 35 0;
#P connect 35 0 25 0;
#P connect 25 0 26 0;
#P connect 26 0 15 0;
#P connect 34 0 42 0;
#P fasten 12 1 17 0 299 67 167 67;
#P connect 17 0 33 0;
#P connect 33 0 20 0;
#P connect 20 0 23 0;
#P connect 23 0 27 0;
#P connect 27 0 28 0;
#P connect 28 0 14 0;
#P connect 33 0 59 0;
#P fasten 12 2 18 0 571 67 336 67;
#P connect 18 0 32 0;
#P connect 32 0 21 0;
#P connect 21 0 24 0;
#P connect 24 0 30 0;
#P connect 30 0 31 0;
#P connect 31 0 29 0;
#P connect 32 0 60 0;
#P connect 79 0 122 0;
#P connect 61 0 70 0;
#P fasten 58 0 94 0 686 363 508 363;
#P fasten 77 0 94 0 526 361 508 361;
#P connect 94 0 117 0;
#P connect 117 0 116 0;
#P connect 116 0 80 0;
#P fasten 115 0 79 0 599 505 508 505;
#P connect 80 0 79 0;
#P connect 72 0 77 0;
#P fasten 77 0 92 0 526 371 526 371;
#P connect 70 1 77 1;
#P connect 109 0 130 0;
#P connect 130 0 110 0;
#P fasten 82 0 110 0 645 546 548 546;
#P fasten 104 0 90 0 682 641 548 641;
#P connect 128 0 90 0;
#P fasten 101 0 91 0 601 710 548 710;
#P connect 90 0 91 0;
#P connect 95 0 78 0;
#P connect 78 0 127 0;
#P connect 78 2 127 0;
#P connect 78 4 127 0;
#P connect 78 6 127 0;
#P connect 61 0 62 0;
#P connect 62 0 66 0;
#P connect 66 0 64 0;
#P connect 64 0 68 0;
#P connect 68 0 75 0;
#P connect 75 0 71 0;
#P connect 74 0 71 0;
#P connect 71 0 72 0;
#P connect 79 0 127 1;
#P connect 127 0 129 0;
#P connect 90 1 129 0;
#P connect 129 0 91 1;
#P connect 118 0 62 1;
#P fasten 12 0 61 0 27 61 599 61;
#P connect 61 0 63 0;
#P connect 63 0 67 0;
#P connect 67 0 65 0;
#P connect 65 0 69 0;
#P connect 69 0 76 0;
#P connect 76 0 71 1;
#P connect 117 1 115 0;
#P fasten 102 0 103 0 661 646 601 646;
#P connect 103 0 101 0;
#P fasten 94 0 93 0 508 433 611 433;
#P connect 78 1 128 0;
#P connect 78 3 128 0;
#P connect 78 5 128 0;
#P connect 78 7 128 0;
#P connect 69 0 73 0;
#P connect 68 0 73 0;
#P connect 73 0 74 0;
#P connect 119 0 63 1;
#P connect 79 0 128 1;
#P connect 77 0 81 0;
#P connect 99 0 81 0;
#P connect 81 0 82 0;
#P fasten 81 1 83 0 662 431 654 431;
#P fasten 117 1 124 0 599 485 660 485;
#P connect 126 0 123 0;
#P connect 124 0 123 0;
#P connect 102 0 96 0;
#P connect 41 0 51 0;
#P connect 102 0 104 0;
#P fasten 117 1 125 0 599 485 683 485;
#P connect 125 0 126 0;
#P fasten 81 1 84 0 662 431 684 431;
#P connect 53 0 58 0;
#P fasten 58 0 99 0 686 363 686 363;
#P connect 83 0 82 2;
#P connect 51 1 58 1;
#P connect 41 0 43 0;
#P connect 43 0 47 0;
#P connect 47 0 45 0;
#P connect 45 0 49 0;
#P connect 49 0 56 0;
#P connect 55 0 52 0;
#P connect 56 0 52 0;
#P connect 52 0 53 0;
#P fasten 81 1 85 0 662 431 715 431;
#P fasten 58 0 97 0 686 358 718 358;
#P connect 84 0 82 3;
#P fasten 81 1 86 0 662 431 743 431;
#P connect 85 0 82 4;
#P connect 120 0 43 1;
#P fasten 12 2 41 0 571 61 759 61;
#P connect 41 0 44 0;
#P connect 44 0 48 0;
#P connect 48 0 46 0;
#P connect 46 0 50 0;
#P connect 50 0 57 0;
#P connect 57 0 52 1;
#P connect 86 0 82 5;
#P fasten 81 1 87 0 662 431 773 431;
#P connect 50 0 54 0;
#P connect 49 0 54 0;
#P connect 54 0 55 0;
#P connect 121 0 44 1;
#P connect 87 0 82 6;
#P fasten 81 1 88 0 662 431 804 431;
#P connect 88 0 82 7;
#P fasten 81 1 89 0 662 431 835 431;
#P connect 89 0 82 8;
#P fasten 81 1 131 0 662 431 870 431;
#P connect 131 0 82 9;
#P fasten 77 0 98 0 526 358 915 358;
#P connect 98 0 37 0;
#P connect 36 0 38 0;
#P fasten 58 0 98 1 686 358 976 358;
#P connect 98 1 39 0;
#P connect 40 0 100 0;
#P pop;
#P newobj 695 276 188 196617 p analizar;
#P message 782 541 70 196617 fullscreen \$1;
#P toggle 537 523 15 0;
#P newex 537 484 50 196617 select 27;
#P newex 537 464 50 196617 key;
#P newex 537 603 373 196617 jit.window ml @depthbuffer 1 @rect 614 76 934 316 @floating 1 @fsmenubar 0;
#N vpatcher 290 149 1385 888;
#P origin 0 -43;
#P window setfont "Sans Serif" 9.;
#P newex 496 566 40 196617 + 270.;
#P flonum 35 669 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 195 484 27 196617 f;
#P newex 59 515 156 196617 if abs($f1 - $f2) < 100 then $f1;
#P outlet 80 651 15 0;
#P newex 603 386 27 196617 f;
#P newex 467 420 159 196617 if abs($f1 - $f2) < 130 then $f1;
#P newex 560 334 40 196617 change;
#P number 831 199 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 831 175 130 196617 expr (($i1 - 1) * -1) / 2;
#P flonum 896 88 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 896 125 48 196617 change -;
#P flonum 859 88 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 831 124 49 196617 change +;
#P flonum 914 326 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 627 541 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 668 257 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 467 513 40 196617 line 1.;
#P newex 467 480 66 196617 pack 0. 300;
#P newex 59 582 40 196617 line;
#P newex 59 557 66 196617 pack 0. 300;
#P flonum 875 327 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 401 324 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 652 288 175 196617 expr ($f1- 129)/52. * 180. + 270.;
#P newex 467 286 172 196617 expr (129. - $f1)/52. * 180. + 90;
#P newex 467 255 195 196617 if $i2 > 129 then $i1 else out2 $i1;
#P comment 255 322 100 196617 154 128;
#P comment 254 304 100 196617 128 103;
#P comment 253 287 100 196617 100 129 lsideup;
#P comment 253 269 100 196617 128 154 dalt;
#P newex 232 407 171 196617 expr ($f1-129.)/26. * -90. + 270.;
#P newex 63 409 157 196617 expr ($f1-129.)/26. * 90. + 90;
#P newex 63 378 166 196617 if $i2 > 128 then $i1 else out2 $i1;
#P comment 55 358 100 196617 103 129 128 dreta;
#P comment 55 337 100 196617 128 129 100 sota;
#P comment 55 313 100 196617 153 129 128 lsideup;
#P outlet 675 626 15 0;
#P outlet 457 597 15 0;
#P inlet 63 22 15 0;
#P newex 63 41 85 196617 unpack 0. 0. 0. 0;
#P comment 55 293 100 196617 128 129 154 dalt;
#P connect 21 0 39 0;
#P connect 9 0 37 0;
#P connect 10 0 37 0;
#P connect 37 0 20 0;
#P connect 20 0 21 0;
#P connect 2 0 1 0;
#P connect 1 0 8 0;
#P connect 8 0 9 0;
#P connect 21 0 36 0;
#P fasten 37 0 38 0 64 547 246 547 246 475 200 475;
#P connect 38 0 37 1;
#P connect 1 2 8 1;
#P connect 8 1 10 0;
#P connect 16 0 18 0;
#P connect 40 0 3 0;
#P connect 1 1 15 0;
#P connect 15 0 16 0;
#P connect 17 0 34 0;
#P connect 16 0 34 0;
#P connect 34 0 22 0;
#P connect 22 0 23 0;
#P connect 23 0 40 0;
#P connect 16 0 33 0;
#P fasten 34 0 35 0 472 449 654 449 654 377 608 377;
#P connect 35 0 34 1;
#P connect 34 0 25 0;
#P connect 1 2 15 1;
#P connect 15 1 17 0;
#P connect 1 2 24 0;
#P connect 28 0 27 0;
#P connect 29 0 31 0;
#P connect 27 0 31 0;
#P connect 31 0 32 0;
#P connect 17 0 19 0;
#P connect 30 0 29 0;
#P pop;
#P newobj 887 276 44 196617 p rintfh;
#P button 559 378 15 0;
#P window setfont "Fixedwidth Serif" 10.;
#P newex 758 349 70 1441802 loadmess 1;
#B color 5;
#P window setfont "Sans Serif" 9.;
#P flonum 759 300 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 660 322 115 196617 pak rotatexyz 0. 0. 90.;
#P window setfont "Fixedwidth Serif" 10.;
#P message 553 302 103 1441802 material_mode \$1;
#P number 553 280 35 10 0 2 3 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 575 378 92 1441802 read apple.obj;
#P message 758 410 110 1441802 smooth_shading \$1;
#P message 633 202 113 1441802 texture grid 64 64;
#P message 829 349 113 1441802 read mushrooms.obj;
#P message 622 411 113 1441802 lighting_enable \$1;
#P message 547 410 68 1441802 verbose \$1;
#P message 554 326 50 1441802 reset;
#P newex 554 349 200 1441802 jit.gl.handle ml @auto_rotate 1;
#B color 5;
#P newex 546 201 73 1441802 t b b erase;
#P newex 537 439 100 1441802 jit.gl.model ml;
#B color 5;
#P window setfont Times 10.;
#P comment 561 157 70 1310730 Start Rendering;
#P window setfont "Fixedwidth Serif" 10.;
#P newex 546 177 62 1441802 qmetro 50;
#P toggle 546 156 15 0;
#P newex 546 229 256 1441802 jit.gl.render ml @erase_color 0. 0. 0. 1.;
#B color 5;
#P window setfont "Sans Serif" 9.;
#P message 206 219 96 196617 getexpansionstatus;
#P message 132 219 65 196617 getledstatus;
#P message 41 219 80 196617 getbatterylevel;
#P user lcd 24 452 431 128 1 1 0 0 0;
#N vpatcher 287 282 803 861;
#P origin 0 -6;
#P button 20 417 15 0;
#P window setfont "Sans Serif" 9.;
#P number -3 537 94 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 17 484 35 196617 timer;
#P number 362 414 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 362 387 111 196617 expr ($f1 - 128) / 26;
#P number 336 352 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 336 325 111 196617 expr ($f1 - 129) / 25;
#P comment 264 480 54 196617 z1 = 154;
#P comment 265 462 54 196617 y2 = 154;
#P comment 57 480 133 196617 z = (zr - z0) / (z1 - z0);
#P comment 57 441 133 196617 x = (xr - x0) / (x3 - x0);
#P comment 57 410 259 196617 x0 = (z2 + z3 )/2 = (127 + 129 )/ 2. = 128;
#P comment 57 391 259 196617 x0 = (y1 + y3 )/2 = (129 + 129 )/ 2. = 129;
#P number 260 325 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 260 298 114 196617 expr ($f1 - 128 ) / 25;
#P newex 294 190 27 196617 int;
#P newex 198 190 27 196617 int;
#P newex 102 190 27 196617 int;
#P newex 246 161 59 196617 t i i b;
#P newex 150 160 59 196617 t i i b;
#P newex 54 160 58 196617 t i i b;
#P newex 342 134 27 196617 !- 5;
#P newex 342 158 32 196617 * 90;
#P newex 246 134 87 196617 scale 0 255 99 0;
#P newex 150 134 87 196617 scale 0 255 99 0;
#P newex 54 134 87 196617 scale 0 255 99 0;
#P user umenu 379 101 89 196645 3 64 117 0;
#X add Front side is up.;
#X add Right side is up.;
#X add Back side is up.;
#X add Left side is up.;
#P number 54 101 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 150 101 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 246 101 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 342 101 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 6;
#P message 54 241 182 196617 scrollrect 1 0 427 99 -1 0 \, linesegment 425 \$2 426 \$1 255 0 0 \, linesegment 425 \$4 426 \$3 0 255 0 \, linesegment 425 \$6 426 \$5 0 0 255 \, paintrect 0 100 27 120 0 \, paintarc 7 100 27 120 \$7 180 250;
#P window linecount 1;
#P newex 54 214 298 196617 pack 0 0 0 0 0 0 0;
#P comment 69 36 100 196617 motion sensor data;
#P comment 60 84 78 196617 accelaration-X;
#P comment 348 84 100 196617 orientation;
#P outlet 54 327 15 0;
#P comment 252 84 93 196617 accelaration-Z;
#P comment 156 84 77 196617 accelaration-Y;
#P newex 54 63 299 196617 unpack 0. 0. 0. 0;
#P inlet 54 36 15 0;
#P comment 57 373 259 196617 x0 = (x1 + x2 )/2 = (128 + 128 )/ 2. = 128;
#P comment 57 462 133 196617 y = (yr - y0) / (y2 - y0);
#P comment 265 441 54 196617 x3 = 153;
#P connect 41 0 42 0;
#P connect 43 0 41 0;
#P connect 4 0 43 0;
#P connect 43 0 41 1;
#P connect 3 0 4 0;
#P connect 4 0 16 0;
#P connect 16 0 18 0;
#P connect 18 0 23 0;
#P connect 23 0 11 0;
#P connect 11 0 12 0;
#P connect 12 0 7 0;
#P connect 23 2 26 0;
#P connect 26 0 11 1;
#P fasten 23 1 26 1 83 183 124 183;
#P connect 4 1 15 0;
#P connect 15 0 19 0;
#P connect 19 0 24 0;
#P connect 24 0 11 2;
#P connect 24 2 27 0;
#P connect 27 0 11 3;
#P fasten 24 1 27 1 179 183 220 183;
#P connect 4 2 14 0;
#P connect 14 0 20 0;
#P connect 20 0 25 0;
#P connect 25 0 11 4;
#P connect 29 0 30 0;
#P connect 25 2 28 0;
#P connect 28 0 11 5;
#P fasten 25 1 28 1 275 184 316 184;
#P connect 37 0 38 0;
#P connect 4 3 13 0;
#P connect 13 0 22 0;
#P connect 22 0 21 0;
#P connect 21 0 11 6;
#P connect 39 0 40 0;
#P hidden fasten 4 3 17 0 347 96 384 96;
#P pop;
#P newobj 24 285 78 196617 p motionsensor;
#P user lcd 159 311 128 128 1 1 0 0 0;
#N vpatcher 442 143 924 533;
#P origin 0 -6;
#P window setfont "Sans Serif" 9.;
#P newex 342 280 29 196617 gate;
#P newex 342 201 46 196617 t i clear;
#P window linecount 3;
#P message 54 226 174 196617 paintarc \$2 \$5 \$3 \$6 \$7 180 250 \, linesegment 0 \$4 127 \$4 26 \, linesegment \$1 0 \$1 127 26;
#P window linecount 1;
#P newex 86 175 30 196617 - 10;
#P newex 118 175 31 196617 + 10;
#P newex 182 175 30 196617 - 10;
#P newex 214 175 31 196617 + 10;
#P window linecount 0;
#P newex 54 201 203 196617 pack 0 0 0 0 0 0 0;
#P window linecount 2;
#P newex 246 129 95 196617 scale 0. 3.141593 90 270;
#P newex 150 129 59 196617 scale -1. 1. 127 0;
#P window linecount 1;
#P comment 69 36 100 196617 IR sensor data;
#P window linecount 0;
#P comment 60 84 59 196617 position-X;
#P toggle 342 99 15 0;
#P window linecount 1;
#P comment 348 84 100 196617 tracking;
#P outlet 342 315 15 0;
#P window linecount 0;
#P newex 54 129 59 196617 scale -1. 1. 0 127;
#P flonum 246 99 46 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P comment 252 84 93 196617 angle(radian);
#P flonum 150 99 46 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P comment 156 84 64 196617 position-Y;
#P flonum 54 99 46 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 54 63 299 196617 unpack 0. 0. 0. 0;
#P inlet 54 36 15 0;
#P connect 0 0 1 0;
#P connect 1 0 2 0;
#P connect 2 0 7 0;
#P connect 7 0 15 0;
#P connect 15 0 20 0;
#P fasten 7 0 19 0 59 166 91 166;
#P connect 19 0 15 1;
#P fasten 7 0 18 0 59 166 123 166;
#P connect 18 0 15 2;
#P connect 1 1 4 0;
#P connect 4 0 13 0;
#P fasten 13 0 15 3 155 195 155 195;
#P fasten 13 0 17 0 155 166 187 166;
#P connect 17 0 15 4;
#P fasten 13 0 16 0 155 166 219 166;
#P connect 16 0 15 5;
#P connect 1 2 6 0;
#P connect 6 0 14 0;
#P connect 14 0 15 6;
#P connect 1 3 10 0;
#P connect 10 0 21 0;
#P connect 21 0 22 0;
#P fasten 21 1 8 0 383 304 347 304;
#P connect 22 0 8 0;
#P fasten 20 0 22 1 59 272 366 272;
#P pop;
#P newobj 159 285 56 196617 p irsensor;
#P newex 429 312 63 196617 print status;
#P user radiogroup 350 310 18 72;
#X size 5;
#X offset 14;
#X inactive 0;
#X itemtype 1;
#X flagmode 0;
#X set 0 0 0 0 0;
#X done;
#P comment 369 369 38 196617 Plus;
#P comment 369 355 38 196617 Up;
#P comment 369 341 38 196617 Down;
#P comment 369 327 38 196617 Right;
#P comment 369 313 38 196617 Left;
#P comment 312 383 38 196617 Home;
#P comment 312 369 38 196617 Minus;
#P comment 312 355 38 196617 A;
#P comment 312 341 38 196617 B;
#P comment 312 327 38 196617 1;
#P comment 312 313 38 196617 2;
#N vpatcher 10 59 1197 325;
#P outlet 344 164 15 0;
#P window setfont "Sans Serif" 9.;
#P window linecount 0;
#P newex 344 134 209 196617 pack 0 0 0 0 0;
#P outlet 50 164 15 0;
#P newex 50 132 256 196617 pack 0 0 0 0 0 0;
#P window linecount 1;
#P newex 50 50 40 196617 change;
#P toggle 540 106 15 0;
#P newex 540 79 45 196617 & 4096;
#P comment 555 108 38 196617 Plus;
#P toggle 491 106 15 0;
#P newex 491 79 45 196617 & 2048;
#P comment 506 108 38 196617 Up;
#P toggle 442 106 15 0;
#P newex 442 79 45 196617 & 1024;
#P comment 457 108 38 196617 Down;
#P toggle 393 106 15 0;
#P newex 393 79 39 196617 & 512;
#P comment 408 108 38 196617 Right;
#P toggle 344 106 15 0;
#P newex 344 79 39 196617 & 256;
#P comment 359 108 38 196617 Left;
#P toggle 295 106 15 0;
#P newex 295 79 39 196617 & 128;
#P comment 310 108 38 196617 Home;
#P toggle 246 106 15 0;
#P newex 246 79 33 196617 & 16;
#P comment 261 108 38 196617 Minus;
#P toggle 197 106 15 0;
#P newex 197 79 27 196617 & 8;
#P comment 212 108 38 196617 A;
#P toggle 148 106 15 0;
#P newex 148 79 27 196617 & 4;
#P comment 163 108 38 196617 B;
#P toggle 99 106 15 0;
#P newex 99 79 27 196617 & 2;
#P comment 114 108 38 196617 1;
#P toggle 50 106 15 0;
#P newex 50 79 27 196617 & 1;
#P comment 65 108 38 196617 2;
#P inlet 50 25 15 0;
#P connect 0 0 34 0;
#P fasten 34 0 2 0 55 73 55 73;
#P connect 2 0 3 0;
#P connect 3 0 35 0;
#P connect 35 0 36 0;
#P fasten 34 0 5 0 55 73 104 73;
#P connect 5 0 6 0;
#P connect 6 0 35 1;
#P fasten 34 0 8 0 55 73 153 73;
#P connect 8 0 9 0;
#P connect 9 0 35 2;
#P fasten 34 0 11 0 55 73 202 73;
#P connect 11 0 12 0;
#P connect 12 0 35 3;
#P fasten 34 0 14 0 55 73 251 73;
#P connect 14 0 15 0;
#P connect 15 0 35 4;
#P fasten 34 0 17 0 55 73 300 73;
#P connect 17 0 18 0;
#P connect 18 0 35 5;
#P fasten 34 0 20 0 55 73 349 73;
#P connect 20 0 21 0;
#P connect 21 0 37 0;
#P connect 37 0 38 0;
#P fasten 34 0 23 0 55 73 398 73;
#P connect 23 0 24 0;
#P connect 24 0 37 1;
#P fasten 34 0 26 0 55 73 447 73;
#P connect 26 0 27 0;
#P connect 27 0 37 2;
#P fasten 34 0 29 0 55 73 496 73;
#P connect 29 0 30 0;
#P connect 30 0 37 3;
#P fasten 34 0 32 0 55 73 545 73;
#P connect 32 0 33 0;
#P connect 33 0 37 4;
#P pop;
#P newobj 294 285 66 196617 p buttons;
#P user radiogroup 294 310 18 86;
#X size 6;
#X offset 14;
#X inactive 0;
#X itemtype 1;
#X flagmode 0;
#X set 0 0 0 0 0 0;
#X done;
#P comment 294 413 206 196617 Thanks to WiiLi.org and;
#P window linecount 3;
#P comment 273 35 122 196617 Argumentos: (nada) \; Inlet: bang \, connect... \; Outlet: lista \, lista \, int... \;;
#B color 13;
#P window setfont "Sans Serif" 18.;
#P window linecount 1;
#P comment 8 35 134 196626 aka.wiiremote;
#B color 13;
#P window setfont "Sans Serif" 9.;
#P comment 10 60 172 196617 Manipulador del Nintendo Wii Remote;
#B color 13;
#P user panel 0 28 400 50;
#X brgb 45 253 213;
#X frgb 0 0 0;
#X border 0;
#X rounded 0;
#X shadow 0;
#X done;
#P newex 546 89 60 196617 loadmess 1;
#P comment 182 163 67 196617 (default on);
#P toggle 482 163 15 0;
#P toggle 465 163 15 0;
#P toggle 448 163 15 0;
#P toggle 431 163 15 0;
#P newex 414 188 78 196617 pak led 0 0 0 0;
#P toggle 339 128 15 0;
#P message 339 188 66 196617 vibration \$1;
#P toggle 264 163 15 0;
#P message 264 188 63 196617 irsensor \$1;
#P toggle 167 163 15 0;
#P message 167 188 85 196617 motionsensor \$1;
#P message 34 197 57 196617 disconnect;
#B color 2;
#P message 24 180 44 196617 connect;
#B color 5;
#P newex 101 188 52 196617 metro 50;
#P toggle 101 163 15 0;
#P newex 24 247 417 196617 aka.wiiremote;
#P connect 0 2 24 0;
#P fasten 0 2 71 1 299 269 878 269;
#P connect 71 5 72 3;
#P fasten 71 4 72 2 840 307 844 307;
#P fasten 71 3 72 1 805 307 813 307;
#P fasten 69 0 83 0 542 540 542 540;
#P fasten 69 0 70 0 542 540 787 540;
#P fasten 62 0 61 3 764 319 770 319;
#P fasten 63 0 53 0 763 374 552 374;
#P fasten 63 0 64 0 763 376 564 376;
#P fasten 63 0 54 0 763 404 627 404;
#P connect 63 0 57 0;
#P fasten 83 1 88 0 564 562 629 562;
#P fasten 83 1 81 1 564 566 760 566 760 474 739 474;
#P connect 71 1 61 2;
#P connect 81 0 80 0;
#P connect 79 0 81 0;
#P connect 78 0 79 0;
#P connect 71 0 61 1;
#P connect 0 0 40 0;
#P fasten 0 0 71 0 29 269 700 269;
#P connect 83 0 87 0;
#P fasten 83 0 82 1 542 562 755 562 755 477 690 477;
#P connect 82 0 77 0;
#P connect 76 0 82 0;
#P connect 75 0 76 0;
#P connect 64 0 58 0;
#P fasten 72 0 51 0 782 344 559 344;
#P fasten 61 0 51 0 665 344 559 344;
#P connect 52 0 51 0;
#P connect 59 0 60 0;
#P fasten 56 0 45 0 638 226 551 226;
#P connect 50 0 45 0;
#P fasten 50 2 45 0 613 224 551 224;
#P connect 47 0 50 0;
#P connect 46 0 47 0;
#P fasten 17 0 6 0 551 149 172 149;
#P connect 17 0 46 0;
#P fasten 70 0 66 0 787 599 542 599;
#P fasten 80 0 69 0 704 518 542 518;
#P fasten 77 0 69 0 655 518 542 518;
#P connect 68 0 69 0;
#P connect 67 0 68 0;
#P fasten 60 0 49 0 558 322 542 322;
#P fasten 58 0 49 0 580 397 542 397;
#P fasten 57 0 49 0 763 430 542 430;
#P fasten 54 0 49 0 627 430 542 430;
#P fasten 51 0 49 0 559 370 542 370;
#P connect 53 0 49 0;
#P fasten 55 0 49 0 834 402 542 402;
#P connect 15 0 11 4;
#P connect 14 0 11 3;
#P connect 13 0 11 2;
#P connect 0 3 37 0;
#P connect 0 3 89 0;
#P connect 12 0 11 1;
#P connect 90 0 91 1;
#P connect 24 1 36 0;
#P connect 91 0 9 0;
#P connect 10 0 91 0;
#P connect 24 0 23 0;
#P connect 8 0 7 0;
#P connect 6 0 5 0;
#P connect 38 0 39 0;
#P connect 0 1 38 0;
#P connect 1 0 2 0;
#P fasten 89 0 1 0 445 301 529 301 529 156 106 156;
#P fasten 40 0 73 1 29 354 66 354;
#P connect 73 0 41 0;
#P connect 74 0 73 0;
#P fasten 43 0 0 0 137 240 29 240;
#P fasten 42 0 0 0 46 240 29 240;
#P fasten 11 0 0 0 419 215 29 215;
#P fasten 9 0 0 0 344 215 29 215;
#P fasten 7 0 0 0 269 215 29 215;
#P fasten 5 0 0 0 172 215 29 215;
#P fasten 4 0 0 0 39 215 29 215;
#P fasten 3 0 0 0 29 215 29 215;
#P fasten 44 0 0 0 211 240 29 240;
#P fasten 2 0 0 0 106 215 29 215;
#P window clipboard copycount 92;

Proxima sesion : Lunes 5 de Febrero de 2007. 17.00

Hola

Quedamos para las cinco de la tarde del próximo lunes día 5 de Febrero.

Saludos

José Manuel

el patch de la clase

éste es el patch de lo que hemos hecho hoy

saludos

josé manuel


max v2;
#N vpatcher 71 44 1302 870;
#P window setfont "Sans Serif" 20.;
#N vpatcher 10 59 1084 767;
#P window setfont "Sans Serif" 9.;
#P number 195 65 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window setfont "Sans Serif" 20.;
#P newex 287 37 163 196628 buffer~ timp 50;
#P user spectroscope~ 331 147 689 354 20 0 1 0 1 1 0 0 0 0 0 0;
#X frgb 224 224 224;
#X brgb 255 255 255;
#X rgb2 0 0 0;
#X rgb3 243 204 204;
#X rgb4 255 0 0;
#X rgb5 184 184 184;
#X rgb6 0 0 0;
#X rgb7 0 0 0;
#X rgb8 255 255 255;
#X rgb9 255 0 0;
#X rgb10 255 191 0;
#X rgb11 0 191 127;
#X rgb12 127 0 127;
#X rgb13 0 0 0;
#X range 0. 1.2;
#X domain 0. 22050.;
#X done;
#P user gain~ 50 50 24 100 158 0 1.071519 7.94321 10.;
#P user ezdac~ 50 194 94 227 0;
#P message 246 112 21 196628 0;
#P message 77 110 70 196628 loop 1;
#P newex 160 110 76 196628 sig~ 1.;
#P newex 118 209 139 196628 groove~ timp;
#P connect 0 0 5 0;
#P connect 5 0 4 0;
#P connect 5 0 4 1;
#P connect 1 0 0 0;
#P connect 2 0 0 0;
#P connect 3 0 0 0;
#P connect 8 0 1 0;
#P connect 0 0 6 0;
#P pop;
#P newobj 226 603 30 196628 p;
#P message 43 49 100 196628 read 0 -1;
#P toggle 593 379 15 0;
#P newex 593 418 67 196628 metro;
#P button 593 475 15 0;
#P user jit.pwindow 668 421 221 218 0 1 0 0 1 0;
#P newex 593 514 298 196628 jit.noise 1 float32 1000 1000;
#P user gain~ 504 484 24 100 158 0 1.071519 7.94321 10.;
#P user ezdac~ 504 628 548 661 0;
#P newex 504 406 73 196628 noise~;
#N vpatcher 386 44 1236 843;
#P window setfont "Sans Serif" 20.;
#P flonum 440 329 35 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 334 375 44 196628 - 1.;
#P newex 334 328 46 196628 * 2.;
#P newex 334 286 86 196628 / 1000.;
#P window setfont "Sans Serif" 24.;
#P flonum 472 177 132 24 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 472 55 113 24 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 472 114 49 196632 cos;
#P newex 487 565 104 196632 cartopol;
#P newex 487 452 104 196632 poltocar;
#P window setfont "Sans Serif" 20.;
#P newex 334 239 140 196628 random 1000;
#P newex 250 436 101 196628 pack 0 0.;
#P number 6 384 143 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 166 101 15 0;
#P newex 250 180 38 196628 - 1;
#P newex 166 132 95 196628 Uzi 2205;
#P flonum 250 544 118 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 250 481 127 196628 peek~ temp;
#P window setfont "Sans Serif" 24.;
#P comment 155 646 465 196632 1/1 \, 1/2 \, 1/3 \, .... 1/i \, ....;
#P comment 163 705 439 196632 1 \, 2 \, 3 \, ... \, i \, ...;
#P connect 5 0 7 0;
#P connect 6 0 4 0;
#P connect 4 2 5 0;
#P connect 5 0 8 0;
#P connect 8 0 2 0;
#P connect 2 0 3 0;
#P connect 4 0 9 0;
#P connect 9 0 15 0;
#P connect 15 0 16 0;
#P connect 16 0 17 0;
#P connect 17 0 8 1;
#P connect 15 0 18 0;
#P connect 13 0 12 0;
#P connect 12 0 14 0;
#P pop;
#P newobj 83 771 98 196628 p coseno;
#P window setfont "Sans Serif" 9.;
#P user waveform~ 914 685 200 74 3 9;
#W mode select;
#W mouseoutput continuous;
#W unit ms;
#W grid 1000.;
#W ticks 0;
#W labels 1;
#W vlabels 0;
#W vticks 1;
#W bpm 120. 4.;
#W frgb 33 0 0;
#W brgb 60 178 173;
#W rgb2 0 95 255;
#W rgb3 0 0 0;
#W rgb4 0 0 0;
#W rgb5 190 137 255;
#W rgb6 100 100 100;
#W rgb7 100 100 100;
#P window setfont "Sans Serif" 20.;
#P flonum 911 613 78 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 1125 456 78 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 786 367 135 196628 mstosamps~;
#P number 1067 346 79 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 1016 292 118 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 70 164 89 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 1016 180 100 196628 read 0 -1;
#P message 77 559 100 196628 read 0 -1;
#P newex 66 623 138 196628 buffer~ tomp;
#P flonum 623 63 82 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 307 373 81 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#N vpatcher 358 82 1208 881;
#P window setfont "Sans Serif" 24.;
#P flonum 472 177 132 24 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 472 55 113 24 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 472 114 49 196632 cos;
#P window linecount 1;
#P newex 487 565 104 196632 cartopol;
#P window linecount 0;
#P newex 487 452 104 196632 poltocar;
#P window setfont "Sans Serif" 20.;
#P window linecount 5;
#P newex 398 243 368 196628 expr (cos(6.283184 * $i1 / 2204.)+ 0.5 * cos(2.*6.283184 * $i1 / 2204.) + 0.3* cos(3.*6.283184 * $i1 / 2204.) + 0.3* cos(4*6.283184 * $i1 / 2204.)) / 4.;
#P window linecount 1;
#P newex 240 394 101 196628 pack 0 0.;
#P number 6 384 143 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 156 102 15 0;
#P newex 240 181 38 196628 - 1;
#P newex 156 133 95 196628 Uzi 2205;
#P flonum 240 502 118 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 240 439 119 196628 peek~ timp;
#P window setfont "Sans Serif" 24.;
#P window linecount 0;
#P comment 155 646 465 196632 1/1 \, 1/2 \, 1/3 \, .... 1/i \, ....;
#P comment 163 705 439 196632 1 \, 2 \, 3 \, ... \, i \, ...;
#P connect 5 0 7 0;
#P connect 6 0 4 0;
#P connect 4 2 5 0;
#P connect 5 0 8 0;
#P connect 8 0 2 0;
#P connect 2 0 3 0;
#P connect 9 0 8 1;
#P connect 5 0 9 0;
#P connect 13 0 12 0;
#P connect 12 0 14 0;
#P pop;
#P newobj 82 729 98 196628 p coseno;
#N vpatcher 437 60 1404 901;
#P window setfont "Sans Serif" 20.;
#P newex 377 263 243 196628 expr $i1 / 513. * 2. - 1.;
#P newex 284 334 101 196628 pack 0 0.;
#P number 50 374 143 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 200 50 15 0;
#P newex 284 171 38 196628 - 1;
#P newex 200 123 84 196628 Uzi 514;
#P flonum 284 463 118 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 284 400 127 196628 peek~ tomp;
#P connect 3 0 5 0;
#P connect 4 0 2 0;
#P connect 2 2 3 0;
#P connect 3 0 6 0;
#P connect 6 0 0 0;
#P connect 0 0 1 0;
#P connect 7 0 6 1;
#P connect 3 0 7 0;
#P pop;
#P newobj 80 688 78 196628 p recta;
#P flonum 365 233 56 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 281 230 67 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P user scope~ 302 65 432 195 13 3 128 -1. 1. 0 0. 0 0. 102 255 51 135 135 135 0;
#P number 183 168 106 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 183 214 87 196628 phasor~;
#P user scope~ 307 463 437 593 7 3 128 -2. 2. 0 0. 0 0. 102 255 51 135 135 135 0;
#P user gain~ 183 363 24 100 158 0 1.071519 7.94321 10.;
#P user ezdac~ 183 507 227 540 0;
#P newex 183 289 138 196628 wave~ temp;
#P number 1002 389 79 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 1086 390 106 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 949 448 101 196628 pack 0 0.;
#P message 863 201 114 196628 1001 0.93;
#P message 804 203 42 196628 0.9;
#P number 707 202 95 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 1008 28 62 196628 2048;
#P message 843 26 36 196628 50;
#P flonum 1064 108 78 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 901 110 78 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 1007 63 135 196628 sampstoms~;
#P newex 843 66 135 196628 mstosamps~;
#P newex 17 119 138 196628 buffer~ temp;
#P newex 911 541 127 196628 peek~ temp;
#P number 580 129 35 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P user scope~ 540 200 670 330 4 3 128 -1. 1. 0 0. 0 0. 102 255 51 135 135 135 0;
#P user gain~ 454 144 24 100 158 0 1.071519 7.94321 10.;
#P user ezdac~ 454 288 498 321 0;
#P number 499 31 69 20 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 454 91 130 196628 cycle~ tomp;
#P newex 1016 228 171 196628 buffer~ temp 50;
#P connect 53 0 8 0;
#P connect 35 0 34 0;
#P connect 26 0 25 0;
#P connect 37 0 25 0;
#P connect 25 0 21 0;
#P connect 21 0 23 0;
#P connect 23 0 22 0;
#P connect 23 0 22 1;
#P connect 28 0 21 1;
#P connect 25 0 27 0;
#P connect 21 0 24 0;
#P connect 32 0 24 0;
#P connect 29 0 21 2;
#P connect 2 0 1 0;
#P connect 1 0 4 0;
#P connect 4 0 3 0;
#P connect 4 0 3 1;
#P connect 45 0 47 0;
#P connect 47 0 46 0;
#P connect 47 0 46 1;
#P connect 6 0 5 0;
#P connect 1 0 5 0;
#P connect 33 0 1 1;
#P connect 52 0 51 0;
#P connect 51 0 50 0;
#P connect 50 0 48 0;
#P connect 48 0 49 0;
#P connect 0 0 40 0;
#P connect 13 0 9 0;
#P connect 9 1 11 0;
#P connect 40 1 7 0;
#P connect 18 0 7 0;
#P connect 7 0 42 0;
#P connect 20 0 18 0;
#P connect 39 0 18 0;
#P connect 14 0 10 0;
#P connect 36 0 0 0;
#P connect 0 0 38 0;
#P connect 19 0 18 1;
#P connect 10 1 12 0;
#P connect 40 1 41 0;
#P pop;

Nombres de los asistentes

Hola a todas y todos

Para evitar problemas con el servicio de seguridad del edificio, necesito los nombres y apellidos reales de los participantes en el seminario. No hace falta DNI's ni nada que se le parezca. Me los podríais facilitar cuanto antes, por favor?

Saludos

José Manuel

Proxima sesión : Lunes 15 de Enero, 17.00h

Cositas

Aquí os dejo algunas cosas muy jugosas que he encontrado por la red, hay trabajos de la Upf de Barcelona especialmente recomiendo leer y visualizar el de RECTABLE de la upf, es genial.


http://blog.dreamaddictive.com/

http://nodebox.net/code/index.php/Home

http://mtg.upf.edu/reactable/
http://mtg.upf.edu/reactable/videos/demo2_improv.mp4

http://www.youtube.com/results?search_query=msp+jitter&search=Search

entrevista con : North Pitney
http://www.youtube.com/watch?v=zNbNsqiSqLA

http://www.picturesofsounds.com/

truquillos: http://www.youtube.com/watch?v=fcqF9hDNoJk

taller de música electrònica: (pdf)
http://www.tecn.upf.es/~sjorda/TME/TME-ProgMIDIAudio-TReal.pdf

http://www.escoitar.org/

http://www.youtube.com/watch?v=Iq7EW_aFJdc

****

JoseMaria, algunos patches de los que tienes colgados en tu web y que nos has recomendado mirar, a mi no me funcionan y me dan errores. En principio mi Max funciona como la seda, lo he probado con otros paches que tengo y van perfectos, tengo constancia que a Oskar también le fallan algunos patches, no se si el resto de gente que se los ha mirado les pasa lo mismo, ya me diras algo.

Andreu.

deteccion de movimiento en jitter

hola

y ahora, un patch donde un conjunto de esferas sigue al puntero o a cualquier cosa que se mueva ante la cámara

está en

http://www.sonoscop.net/jmb/ -> cosas de max -> patches -> inrteracción3D.pat.zip

saludos

jmb

superficies parametricas

hola

acabo de escribir otro patch. éste junta la realización de curvas paramétricas en jitter con javascript con uno de los patchs japoneses que Oscar nos diö a conocer hace unas semanas.

está en

http://www.sonoscop.net/jmb/ -> cosas de max -> patches -> cdt.zip

saludos

jmb

Blobby. Dibujos en un escenario en 3D

hola

he pasado unos días escribiendo un patch escrito en maxmsp-jitter que puede ser de vuestro interés. admite imágenes en cualquier formado, salvadas en disco duro o caturadas por la cámara en el momento del funcionamiento de donde aisla los trazos independientes para incluirlos en un escenario en 3D, de manera que cada trazo conexo puede ser movido en un entorno 3D independientemente de los otros.

lo encontrareis en

http://www.sonoscop.net/jmb/ -> cosas de max -> otros -> blobby.zip

al desempaquetar, deben aparecer unos archivos de imagen para hacer pruebas, algunas abstracciones y el patch principal (blobsnurbs2.pat)

blobsnurbs.pat se basa en cv, de Jean Marc Pelletier (http://www.iamas.ac.jp/~jovan02/cv/). descompone las imágenes dibujadas con trazos bien gruesos y destacados de un fondo blanco en blobs. los blobs son zonas conexas del dibujo que no guardan conexión con los otros componentes.

saludos

elmer

Proxima sesion : Lunes 8 de Enero de 2007. 17.00

Ciencia-Musica

hola

hoy hemos hablado de síntesis de sonido. para la próxima sesión, que tendrá lugar el día 8 de enero de 2007 a las 17.00, os sugiero que os descargueis de mi página

http://www.sonoscop.net/jmb/ -> cosas de max -> otros

el archivo ciencia-musica.zip

descomprimidlo y estudiad los patches de síntesis. hay de muchos tipos. aditiva, que hemos visto hoy, frecuencia modulada, waveshaping, etc...

veremos la frecuencia modulada y más adelante, el waveshaping...

saludos

josé manuel

Proxima sesion, 18 dicembre a las 17:00 en Sonoscop

pues eso.

Wii remote control a partir de Max

Parece que ya esta aqui la nueva consola Wii de Nintendo, pues bien ni nada más ni menos, que con su pad inalámbrico, el Wii Controller, tenemos una nueva herramienta; podemos usarlo para controlar (inalámbricamente,por bluetooth) los parámetros de nuestros patches de max!!!

Aqui os podeis bajar el external de max (para Mac) para configurar y recibir la señal (primero se ha de ver si el Wii controller y tu computadora se pueden conectar por bluetooth)
http://www.iamas.ac.jp/~aka/max/#aka_wiiremote


Guia técnica del Wii Remote (aka "wiimote")
http://homepage.mac.com/ianrickard/wiimote/wiili_wimote.html

Emulador ATARI2600 para Jitter

Empezamos a liarla o q??

Aqui va un link para bajarse el external de jitter que sirve para emular ROMs de los juegos de Atari a través de Max.
http://www.mmonoplayer.com/jit2600.php