[PD] [forWiimote] abstraction - wiimote - motion plus - IR - nunchuck

Jack Thu, 18 Mar 2010 10:27:14 -0700

Hello,

Here an abstraction [forWiimote] and its help patch [forWiimote-help].
Should only work on Linux because of [wiimote] external.
Need : zexy and mrpeach.


You have to download cwiid from git repository :
git://github.com/abstrakraft/cwiid.git
and download new wiimote source from :
svn checkout
https://pure-data.svn.sourceforge.net/svnroot/pure-data/trunk/externals/hardware/wiimote
Apply the patch for cwiid :
cd /yourpath/libcwiid
and then :
patch -p0 <
'/yourpath/wiimote/patches/cwiid201_motionplus_sensitivity.patch'

Then :
./configure
make
make install

Go back in /wiimote :
cd /yourpath/wiimote
Then :
make

If there are mistakes, please correct me !
If there are any troubles with [forWiimote], thx to tell me !
I haven't any Wiimote here so i can't test my last version + i have
never use IR.
thx to IOhannes for his help.
++

Jack

#N canvas 114 25 1166 670 10;
#X msg 350 144 disconnect;
#X msg 411 323 setRumble \$1;
#X obj 340 346 wiimote;
#X msg 508 323 setLED \$1;
#N canvas 3 48 409 401 bytemask 0;
#X obj 269 332 outlet;
#X obj 269 279 float;
#X obj 318 183 |;
#X obj 110 239 -;
#X obj 110 204 float;
#X obj 110 184 trigger bang float;
#X obj 231 204 &;
#X obj 183 142 route 0 1;
#X msg 36 56 \$1 1;
#X msg 106 56 \$1 2;
#X msg 176 56 \$1 4;
#X msg 246 56 \$1 8;
#X obj 36 15 inlet;
#X obj 106 15 inlet;
#X obj 176 15 inlet;
#X obj 246 15 inlet;
#X obj 36 35 change;
#X obj 106 35 change;
#X obj 176 35 change;
#X obj 246 35 change;
#X connect 1 0 2 1;
#X connect 1 0 4 1;
#X connect 1 0 6 1;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 6 0;
#X connect 6 0 3 1;
#X connect 7 0 5 0;
#X connect 7 1 2 0;
#X connect 8 0 7 0;
#X connect 9 0 7 0;
#X connect 10 0 7 0;
#X connect 11 0 7 0;
#X connect 12 0 16 0;
#X connect 13 0 17 0;
#X connect 14 0 18 0;
#X connect 15 0 19 0;
#X connect 16 0 8 0;
#X connect 17 0 9 0;
#X connect 18 0 10 0;
#X connect 19 0 11 0;
#X restore 508 300 pd bytemask;
#X msg 259 386 1;
#X obj 296 410 delay;
#X msg 296 433 0;
#X obj 259 482 s \$0-etat;
#X obj 340 25 r \$0-connect;
#X obj 350 121 r \$0-disconnect;
#X obj 50 281 r \$0-send-addr;
#X obj 50 361 drip;
#X obj 50 386 t f b;
#X obj 77 408 f;
#X obj 107 408 + 1;
#X msg 92 362 0;
#X obj 50 435 tabwrite \$1-tab-addr;
#X obj 660 330 s \$0-receive-addr;
#X obj 340 68 symbol;
#X obj 660 309 symbol;
#X obj 679 73 tabdump \$1-tab-addr;
#X obj 660 261 shell;
#X msg 660 236 hcitool scan | grep Nintendo;
#X obj 660 285 unpack s s s;
#X obj 660 209 r \$0-detect;
#X obj 50 307 mrpeach/str to_list;
#X obj 679 99 list;
#X obj 719 99 t l;
#X obj 660 129 list;
#X obj 660 153 mrpeach/str to_symbol;
#X obj 660 48 t b b b;
#X obj 660 178 s \$0-symbForConnect;
#X obj 473 47 r \$0-symbForConnect;
#X obj 788 197 s \$0-receive-addr;
#X msg 788 178 set \$1;
#X obj 411 300 r \$1-rumble;
#X obj 508 219 r \$1-led1;
#X obj 529 239 r \$1-led2;
#X obj 550 259 r \$1-led3;
#X obj 571 279 r \$1-led4;
#X obj 660 25 loadbang;
#X msg 129 362 const 0;
#X obj 50 335 t l b b;
#X obj 129 386 s \$1-tab-addr;
#X text 659 497 Jack/RYBN 2010;
#X obj 50 70 cnv 15 260 20 empty \$0-idwiimote Wiimote_1 7 11 0 14
-228856 -66577 0;
#X msg 661 414 label Wiimote_\$1;
#X obj 661 443 s \$0-idwiimote;
#X obj 661 387 f \$1;
#X obj 661 359 loadbang;
#X obj 186 96 tgl 15 0 \$0-accel \$0-recnothing return_acceleration
18 8 0 8 -257985 -1 -1 0 1;
#X obj 186 114 tgl 15 0 \$0-nunch \$0-recnothing return_nunchuck 18
8 0 8 -257985 -1 -1 0 1;
#X obj 186 132 tgl 15 0 \$0-IR \$0-recnothing return_IR 18 8 0 8 -257985
-1 -1 0 1;
#X obj 259 460 change;
#X obj 58 194 tgl 15 0 \$0-sendnothing \$0-etat receiving_datas 18
8 0 8 -1 -262144 -1 0 1;
#X obj 58 158 bng 15 250 50 0 \$0-connect \$0-recnothing connect_wiimote
18 8 0 8 -4034 -1 -1;
#X obj 58 176 bng 15 250 50 0 \$0-disconnect \$0-recnothing disconnect_wiimote
18 8 0 8 -4160 -1 -1;
#X symbolatom 58 132 18 0 0 2 enter_MAC_wiimote #0-receive-addr #0-send-addr
;
#X obj 58 96 bng 15 250 50 0 \$0-detect \$0-recnothing detect_MAC_wiimote
18 8 0 8 -228856 -1 -1;
#X obj 364 167 r \$0-accel;
#X obj 374 211 r \$0-nunch;
#X obj 383 256 r \$0-IR;
#X msg 340 97 connect \$1;
#X obj 373 47 r \$0-send-addr;
#X msg 364 188 reportAcceleration \$1;
#X msg 374 232 reportNunchuck \$1;
#X msg 383 278 reportIR \$1;
#X obj 186 150 tgl 15 0 \$0-MPlus \$0-recnothing return_motionplus
18 8 0 8 -257985 -1 -1 0 1;
#N canvas 155 25 970 429 router 0;
#X obj 104 38 inlet;
#X obj 104 250 outlet button;
#X obj 214 196 outlet IR;
#X obj 318 289 outlet nunchuck-buttons;
#X obj 379 263 outlet nunchuck-acceleration;
#X obj 440 235 outlet nunchuck-stick;
#X obj 159 222 outlet acceleration;
#X obj 104 169 route button acceleration ir;
#X obj 318 209 route button acceleration stick;
#X obj 318 169 route nunchuck motionplus;
#X text 362 148 extensions;
#X text 168 148 core;
#X obj 594 205 route angle_rate low_speed;
#X obj 594 259 outlet MP-anglerate;
#X obj 670 233 outlet MP-lowspeed;
#X connect 0 0 7 0;
#X connect 7 0 1 0;
#X connect 7 1 6 0;
#X connect 7 2 2 0;
#X connect 7 3 9 0;
#X connect 8 0 3 0;
#X connect 8 1 4 0;
#X connect 8 2 5 0;
#X connect 9 0 8 0;
#X connect 9 1 12 0;
#X connect 12 0 13 0;
#X connect 12 1 14 0;
#X restore 340 410 pd router;
#N canvas 279 280 920 520 nunchuck-stuff 0;
#X obj 49 71 inlet;
#X obj 304 72 inlet;
#X obj 304 105 unpack f f f;
#X obj 514 72 inlet;
#X obj 514 105 unpack f f;
#X obj 49 117 s wii\$1-btnNunch;
#X obj 304 211 s wii\$1-accXNunch;
#X obj 338 181 s wii\$1-accYNunch;
#X obj 373 151 s wii\$1-accZNunch;
#X obj 514 171 s wii\$1-stickXNunch;
#X obj 571 141 s wii\$1-stickYNunch;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 2 1 7 0;
#X connect 2 2 8 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 4 1 10 0;
#X restore 361 457 pd nunchuck-stuff;
#N canvas 288 31 809 393 accelerometer-stuff 0;
#X obj 168 12 inlet;
#X obj 503 177 atan;
#X obj 503 156 expr $f1 / $f2;
#X obj 531 201 expr if ($f1 > 0 \, 3.14159 \, -3.14159);
#X obj 503 250 expr if ($f3 <= 0 \, $f1 + $f2 \, $f1);
#X obj 503 272 * -1;
#X obj 225 187 atan;
#X obj 225 166 expr $f1 / $f2;
#X obj 253 211 expr if ($f1 > 0 \, 3.14159 \, -3.14159);
#X obj 225 260 expr if ($f3 <= 0 \, $f1 + $f2 \, $f1);
#X obj 225 282 * -1;
#X obj 18 80 expr sqrt(pow($f1 \, 2) + pow($f2 \, 2) + pow($f3 \, 2))
;
#X obj 47 147 unpack f f f;
#X obj 503 128 unpack f f f;
#X obj 503 228 pack f f f;
#X obj 191 128 unpack f f f;
#X obj 225 238 pack f f f;
#X obj 18 54 unpack f f f;
#X obj 18 107 s wii\$1-accelTot;
#X obj 47 239 s wii\$1-accelX;
#X obj 81 209 s wii\$1-accelY;
#X obj 116 179 s wii\$1-accelZ;
#X obj 225 310 s wii\$1-pitch;
#X obj 503 295 s wii\$1-roll;
#X connect 0 0 12 0;
#X connect 0 0 13 0;
#X connect 0 0 15 0;
#X connect 0 0 17 0;
#X connect 1 0 14 0;
#X connect 2 0 1 0;
#X connect 3 0 14 1;
#X connect 4 0 5 0;
#X connect 5 0 23 0;
#X connect 6 0 16 0;
#X connect 7 0 6 0;
#X connect 8 0 16 1;
#X connect 9 0 10 0;
#X connect 10 0 22 0;
#X connect 11 0 18 0;
#X connect 12 0 19 0;
#X connect 12 1 20 0;
#X connect 12 2 21 0;
#X connect 13 0 2 0;
#X connect 13 0 3 0;
#X connect 13 2 2 1;
#X connect 13 2 14 2;
#X connect 14 0 4 0;
#X connect 15 1 7 0;
#X connect 15 1 8 0;
#X connect 15 2 7 1;
#X connect 15 2 16 2;
#X connect 16 0 9 0;
#X connect 17 0 11 0;
#X connect 17 1 11 1;
#X connect 17 2 11 2;
#X restore 347 502 pd accelerometer-stuff;
#N canvas 459 393 330 333 button-stuff 0;
#X obj 41 33 inlet;
#X obj 41 56 unpack f f;
#X obj 41 117 s wii\$1-btn1;
#X obj 98 87 s wii\$1-btn2;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X restore 340 524 pd button-stuff;
#N canvas 598 25 516 449 IR-stuff 0;
#X obj 134 18 inlet;
#X obj 134 63 route 0 1 2 3;
#X obj 134 320 unpack f f;
#X obj 152 242 unpack f f;
#X obj 171 165 unpack f f;
#X obj 190 89 unpack f f;
#X obj 134 368 s wii\$1-IR0X;
#X obj 191 346 s wii\$1-IR0Y;
#X obj 152 287 s wii\$1-IR1X;
#X obj 209 265 s wii\$1-IR1Y;
#X obj 171 213 s wii\$1-IR2X;
#X obj 228 189 s wii\$1-IR2Y;
#X obj 190 137 s wii\$1-IR3X;
#X obj 247 113 s wii\$1-IR3Y;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 1 3 5 0;
#X connect 2 0 6 0;
#X connect 2 1 7 0;
#X connect 3 0 8 0;
#X connect 3 1 9 0;
#X connect 4 0 10 0;
#X connect 4 1 11 0;
#X connect 5 0 12 0;
#X connect 5 1 13 0;
#X restore 354 480 pd IR-stuff;
#N canvas 148 25 722 610 motionplus-stuff 0;
#X obj 36 54 unpack f f f;
#X obj 358 54 unpack f f f;
#X obj 206 92 pack;
#X obj 406 92 pack;
#X obj 36 27 inlet;
#X obj 358 27 inlet;
#X obj 206 260 wrap -180 180;
#X obj 406 260 wrap -180 180;
#X obj 36 282 s wii\$1-MotPlusYaw;
#X obj 206 282 s wii\$1-MotPlusRoll;
#X obj 406 282 s wii\$1-MotPlusPitch;
#X obj 63 213 s wii\$1-MotPlusDYaw;
#X obj 233 213 s wii\$1-MotPlusDRoll;
#X obj 433 213 s wii\$1-MotPlusDPitch;
#N canvas 347 25 704 467 anglespeed 0;
#X obj 149 57 loadbang;
#X obj 95 108 t l l;
#X msg 95 85 \$2 \$1;
#X obj 127 151 route 1;
#X obj 95 232 unpack;
#X obj 95 255 pack;
#X obj 95 277 route 0 1;
#X obj 95 299 / 4;
#X obj 95 321 t f;
#X obj 125 299 / 20;
#X obj 149 78 t b b;
#X obj 149 100 f 8063;
#X obj 134 254 - 8063;
#X msg 149 122 set \$1;
#X obj 95 36 inlet <angle_rate> <low_speed>;
#X obj 95 393 outlet;
#X obj 127 173 mavg 1000;
#X obj 173 223 t f f;
#X obj 173 201 f 8063;
#X obj 346 58 r \$0-resetAnglePitch;
#X connect 0 0 10 0;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 2 0 1 0;
#X connect 3 0 16 0;
#X connect 4 0 5 0;
#X connect 4 1 12 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 9 0;
#X connect 7 0 8 0;
#X connect 8 0 15 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 18 0;
#X connect 11 0 13 0;
#X connect 12 0 5 1;
#X connect 13 0 16 0;
#X connect 14 0 2 0;
#X connect 16 0 18 1;
#X connect 17 0 12 1;
#X connect 17 1 11 1;
#X connect 18 0 17 0;
#X connect 19 0 10 0;
#X restore 406 115 pd anglespeed;
#N canvas 747 139 450 300 deadzone 0;
#X obj 90 101 t f;
#X msg 157 166 0;
#X obj 158 104 * -1;
#X obj 157 188 t f;
#X obj 157 210 outlet;
#X obj 158 82 t f f;
#X obj 90 26 inlet dphi;
#X obj 90 123 moses -0.25;
#X obj 157 144 moses 0.25;
#X obj 158 58 r \$0-deadZoneAnglePitch;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 2 0 7 1;
#X connect 3 0 4 0;
#X connect 5 0 2 0;
#X connect 5 1 8 1;
#X connect 6 0 0 0;
#X connect 7 0 3 0;
#X connect 7 1 8 0;
#X connect 8 0 1 0;
#X connect 8 1 3 0;
#X connect 9 0 5 0;
#X restore 406 162 pd deadzone;
#N canvas 0 0 450 300 accumulate 0;
#X obj 95 179 t f;
#X obj 95 201 +;
#X obj 95 223 t f f;
#X msg 143 180 0;
#X obj 95 156 inlet;
#X obj 95 245 outlet;
#X obj 143 161 r \$0-reset;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 2 1 1 1;
#X connect 3 0 1 1;
#X connect 4 0 0 0;
#X connect 6 0 3 0;
#X restore 406 237 pd accumulate;
#N canvas 0 0 1087 300 pertime 0;
#X obj 83 53 inlet;
#X obj 83 75 t f;
#X obj 83 97 / 100;
#X obj 83 119 outlet;
#X text 137 96 <-- currently hardcoded to 10 fps \; LATER make use
of the timetags in the cwiid message and see whether this helps;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X restore 406 137 pd pertime;
#X obj 406 189 t f f;
#N canvas 347 25 704 467 anglespeed 0;
#X obj 149 57 loadbang;
#X obj 95 108 t l l;
#X msg 95 85 \$2 \$1;
#X obj 127 151 route 1;
#X obj 95 232 unpack;
#X obj 95 255 pack;
#X obj 95 277 route 0 1;
#X obj 95 299 / 4;
#X obj 95 321 t f;
#X obj 125 299 / 20;
#X obj 149 78 t b b;
#X obj 149 100 f 8063;
#X obj 134 254 - 8063;
#X msg 149 122 set \$1;
#X obj 95 36 inlet <angle_rate> <low_speed>;
#X obj 95 393 outlet;
#X obj 127 173 mavg 1000;
#X obj 173 223 t f f;
#X obj 173 201 f 8063;
#X obj 346 58 r \$0-resetAngleRoll;
#X connect 0 0 10 0;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 2 0 1 0;
#X connect 3 0 16 0;
#X connect 4 0 5 0;
#X connect 4 1 12 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 9 0;
#X connect 7 0 8 0;
#X connect 8 0 15 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 18 0;
#X connect 11 0 13 0;
#X connect 12 0 5 1;
#X connect 13 0 16 0;
#X connect 14 0 2 0;
#X connect 16 0 18 1;
#X connect 17 0 12 1;
#X connect 17 1 11 1;
#X connect 18 0 17 0;
#X connect 19 0 10 0;
#X restore 206 115 pd anglespeed;
#N canvas 747 139 450 300 deadzone 0;
#X obj 90 101 t f;
#X msg 157 166 0;
#X obj 158 104 * -1;
#X obj 157 188 t f;
#X obj 157 210 outlet;
#X obj 158 82 t f f;
#X obj 90 26 inlet dphi;
#X obj 90 123 moses -0.25;
#X obj 157 144 moses 0.25;
#X obj 158 58 r \$0-deadZoneAngleRoll;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 2 0 7 1;
#X connect 3 0 4 0;
#X connect 5 0 2 0;
#X connect 5 1 8 1;
#X connect 6 0 0 0;
#X connect 7 0 3 0;
#X connect 7 1 8 0;
#X connect 8 0 1 0;
#X connect 8 1 3 0;
#X connect 9 0 5 0;
#X restore 206 162 pd deadzone;
#N canvas 0 0 450 300 accumulate 0;
#X obj 95 179 t f;
#X obj 95 201 +;
#X obj 95 223 t f f;
#X msg 143 180 0;
#X obj 95 156 inlet;
#X obj 95 245 outlet;
#X obj 143 161 r \$0-reset;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 2 1 1 1;
#X connect 3 0 1 1;
#X connect 4 0 0 0;
#X connect 6 0 3 0;
#X restore 206 237 pd accumulate;
#N canvas 0 0 1087 300 pertime 0;
#X obj 83 53 inlet;
#X obj 83 75 t f;
#X obj 83 97 / 100;
#X obj 83 119 outlet;
#X text 137 96 <-- currently hardcoded to 10 fps \; LATER make use
of the timetags in the cwiid message and see whether this helps;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X restore 206 137 pd pertime;
#X obj 206 189 t f f;
#X obj 36 92 pack;
#X obj 36 260 wrap -180 180;
#N canvas 347 25 704 467 anglespeed 0;
#X obj 149 57 loadbang;
#X obj 95 108 t l l;
#X msg 95 85 \$2 \$1;
#X obj 127 151 route 1;
#X obj 95 232 unpack;
#X obj 95 255 pack;
#X obj 95 277 route 0 1;
#X obj 95 299 / 4;
#X obj 95 321 t f;
#X obj 125 299 / 20;
#X obj 149 78 t b b;
#X obj 149 100 f 8063;
#X obj 134 254 - 8063;
#X msg 149 122 set \$1;
#X obj 95 36 inlet <angle_rate> <low_speed>;
#X obj 95 393 outlet;
#X obj 127 173 mavg 1000;
#X obj 173 223 t f f;
#X obj 173 201 f 8063;
#X obj 346 58 r \$0-resetAngleYaw;
#X connect 0 0 10 0;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 2 0 1 0;
#X connect 3 0 16 0;
#X connect 4 0 5 0;
#X connect 4 1 12 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 9 0;
#X connect 7 0 8 0;
#X connect 8 0 15 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 18 0;
#X connect 11 0 13 0;
#X connect 12 0 5 1;
#X connect 13 0 16 0;
#X connect 14 0 2 0;
#X connect 16 0 18 1;
#X connect 17 0 12 1;
#X connect 17 1 11 1;
#X connect 18 0 17 0;
#X connect 19 0 10 0;
#X restore 36 115 pd anglespeed;
#N canvas 747 139 450 300 deadzone 0;
#X obj 90 101 t f;
#X msg 157 166 0;
#X obj 158 104 * -1;
#X obj 157 188 t f;
#X obj 157 210 outlet;
#X obj 158 82 t f f;
#X obj 90 26 inlet dphi;
#X obj 90 123 moses -0.25;
#X obj 157 144 moses 0.25;
#X obj 158 58 r \$0-deadZoneAngleYaw;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 2 0 7 1;
#X connect 3 0 4 0;
#X connect 5 0 2 0;
#X connect 5 1 8 1;
#X connect 6 0 0 0;
#X connect 7 0 3 0;
#X connect 7 1 8 0;
#X connect 8 0 1 0;
#X connect 8 1 3 0;
#X connect 9 0 5 0;
#X restore 36 162 pd deadzone;
#N canvas 0 0 450 300 accumulate 0;
#X obj 95 179 t f;
#X obj 95 201 +;
#X obj 95 223 t f f;
#X msg 143 180 0;
#X obj 95 156 inlet;
#X obj 95 245 outlet;
#X obj 143 161 r \$0-reset;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 2 1 1 1;
#X connect 3 0 1 1;
#X connect 4 0 0 0;
#X connect 6 0 3 0;
#X restore 36 237 pd accumulate;
#N canvas 0 0 1087 300 pertime 0;
#X obj 83 53 inlet;
#X obj 83 75 t f;
#X obj 83 97 / 100;
#X obj 83 119 outlet;
#X text 137 96 <-- currently hardcoded to 10 fps \; LATER make use
of the timetags in the cwiid message and see whether this helps;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X restore 36 137 pd pertime;
#X obj 36 189 t f f;
#X connect 0 0 24 0;
#X connect 0 1 2 0;
#X connect 0 2 3 0;
#X connect 1 0 24 1;
#X connect 1 1 2 1;
#X connect 1 2 3 1;
#X connect 2 0 19 0;
#X connect 3 0 14 0;
#X connect 4 0 0 0;
#X connect 5 0 1 0;
#X connect 6 0 9 0;
#X connect 7 0 10 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 7 0;
#X connect 17 0 15 0;
#X connect 18 0 16 0;
#X connect 18 1 13 0;
#X connect 19 0 22 0;
#X connect 20 0 23 0;
#X connect 21 0 6 0;
#X connect 22 0 20 0;
#X connect 23 0 21 0;
#X connect 23 1 12 0;
#X connect 24 0 26 0;
#X connect 25 0 8 0;
#X connect 26 0 29 0;
#X connect 27 0 30 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 30 0 28 0;
#X connect 30 1 11 0;
#X restore 383 435 pd motionplus-stuff;
#X obj 464 127 r \$0-MPlus;
#X msg 464 148 reportMotionplus \$1;
#X obj 379 368 route open;
#X obj 379 389 s \$0-connection;
#X obj 58 218 tgl 33 0 \$0-sendnothing \$0-connection connection_state
37 15 0 8 -258113 -1 -1 0 1;
#X msg 296 387 100;
#X obj 186 187 nbx 4 15 0 10 0 0 \$0-deadZoneAngleYaw \$0-rec-DZAyaw
Y 15 21 0 8 -257985 -1 -1 3 256;
#X obj 186 228 bng 15 250 50 0 \$0-resetAngleYaw \$0-recnothing Y 5
21 0 8 -257985 -1 -1;
#X obj 206 228 bng 15 250 50 0 \$0-resetAngleRoll \$0-recnothing R
5 21 0 8 -257985 -1 -1;
#X obj 226 228 bng 15 250 50 0 \$0-resetAnglePitch \$0-recnothing P
5 21 0 8 -257985 -1 -1;
#X obj 226 187 nbx 4 15 0 10 0 0 \$0-deadZoneAngleRoll \$0-rec-DZAroll
R 15 21 0 8 -257985 -1 -1 5 256;
#X obj 266 187 nbx 4 15 0 10 0 0 \$0-deadZoneAnglePitch \$0-rec-DZApitch
P 15 21 0 8 -257985 -1 -1 10 256;
#X text 182 169 dead_zone_M._Plus;
#X text 182 211 reset_angles_M._Plus;
#X text 659 509 Thanx to IOhannes m Zmoelnig;
#X text 659 521 and Mike Wozniewski;
#X obj 939 99 list;
#X obj 979 99 t l;
#X obj 920 122 list;
#X obj 920 48 t b b b;
#X msg 930 308 set \$1;
#X obj 920 25 loadbang;
#X obj 930 327 s \$0-rec-DZAyaw;
#X obj 939 73 tabdump \$1-tab-deadzone;
#X obj 920 351 s \$0-deadZoneAngleYaw;
#X obj 920 146 unpack f f f;
#X msg 964 238 set \$1;
#X obj 954 281 s \$0-deadZoneAngleRoll;
#X obj 964 257 s \$0-rec-DZAroll;
#X msg 999 168 set \$1;
#X obj 999 187 s \$0-rec-DZApitch;
#X obj 989 211 s \$0-deadZoneAnglePitch;
#X obj 920 558 drip;
#X obj 920 583 t f b;
#X obj 947 605 f;
#X obj 977 605 + 1;
#X msg 962 559 0;
#X msg 999 559 const 0;
#X obj 920 532 t l b b;
#X obj 920 378 r \$0-deadZoneAngleYaw;
#X obj 999 583 s \$1-tab-deadzone;
#X obj 920 632 tabwrite \$1-tab-deadzone;
#X obj 920 508 pack f f f;
#X obj 930 408 r \$0-deadZoneAngleRoll;
#X obj 950 458 r \$0-deadZoneAnglePitch;
#X obj 930 430 t b f;
#X obj 950 480 t b f;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 2 0 69 0;
#X connect 2 1 77 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 80 0;
#X connect 5 0 54 0;
#X connect 6 0 7 0;
#X connect 7 0 54 0;
#X connect 9 0 19 0;
#X connect 10 0 0 0;
#X connect 11 0 26 0;
#X connect 12 0 13 0;
#X connect 13 0 17 0;
#X connect 13 1 14 0;
#X connect 14 0 15 0;
#X connect 14 0 17 1;
#X connect 15 0 14 1;
#X connect 16 0 14 1;
#X connect 19 0 63 0;
#X connect 20 0 18 0;
#X connect 21 0 27 0;
#X connect 22 0 24 0;
#X connect 23 0 22 0;
#X connect 24 0 20 0;
#X connect 25 0 23 0;
#X connect 26 0 43 0;
#X connect 27 0 28 0;
#X connect 27 0 29 1;
#X connect 28 0 27 1;
#X connect 29 0 30 0;
#X connect 30 0 32 0;
#X connect 30 0 35 0;
#X connect 31 0 29 0;
#X connect 31 1 21 0;
#X connect 31 2 27 1;
#X connect 33 0 19 1;
#X connect 35 0 34 0;
#X connect 36 0 1 0;
#X connect 37 0 4 0;
#X connect 38 0 4 1;
#X connect 39 0 4 2;
#X connect 40 0 4 3;
#X connect 41 0 31 0;
#X connect 42 0 44 0;
#X connect 43 0 12 0;
#X connect 43 1 16 0;
#X connect 43 2 42 0;
#X connect 47 0 48 0;
#X connect 49 0 47 0;
#X connect 50 0 49 0;
#X connect 54 0 8 0;
#X connect 60 0 65 0;
#X connect 61 0 66 0;
#X connect 62 0 67 0;
#X connect 63 0 2 0;
#X connect 64 0 19 1;
#X connect 65 0 2 0;
#X connect 66 0 2 0;
#X connect 67 0 2 0;
#X connect 69 0 72 0;
#X connect 69 1 71 0;
#X connect 69 2 73 0;
#X connect 69 3 70 0;
#X connect 69 4 70 1;
#X connect 69 5 70 2;
#X connect 69 6 74 0;
#X connect 69 7 74 1;
#X connect 75 0 76 0;
#X connect 76 0 2 0;
#X connect 77 0 78 0;
#X connect 80 0 6 0;
#X connect 91 0 92 0;
#X connect 91 0 93 1;
#X connect 92 0 91 1;
#X connect 93 0 100 0;
#X connect 94 0 93 0;
#X connect 94 1 98 0;
#X connect 94 2 91 1;
#X connect 95 0 97 0;
#X connect 96 0 94 0;
#X connect 98 0 91 0;
#X connect 100 0 99 0;
#X connect 100 0 95 0;
#X connect 100 1 101 0;
#X connect 100 1 102 0;
#X connect 100 2 104 0;
#X connect 100 2 106 0;
#X connect 101 0 103 0;
#X connect 104 0 105 0;
#X connect 107 0 108 0;
#X connect 108 0 116 0;
#X connect 108 1 109 0;
#X connect 109 0 110 0;
#X connect 109 0 116 1;
#X connect 110 0 109 1;
#X connect 111 0 109 1;
#X connect 112 0 115 0;
#X connect 113 0 107 0;
#X connect 113 1 111 0;
#X connect 113 2 112 0;
#X connect 114 0 117 0;
#X connect 117 0 113 0;
#X connect 118 0 120 0;
#X connect 119 0 121 0;
#X connect 120 0 117 0;
#X connect 120 1 117 1;
#X connect 121 0 117 0;
#X connect 121 1 117 2;
#X coords 0 -1 1 1 260 190 2 50 70;

#N canvas 85 90 1156 541 10;
#X declare -lib zexy -lib mrpeach;
#N canvas 0 0 1173 410 contenu 0;
#N canvas 33 278 550 217 tableSauvegarde 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array 1-tab-addr 17 float 3;
#A 0 48 48 58 50 52 58 70 51 58 57 65 58 56 55 58 48 52;
#X coords 0 255 17 0 50 30 1;
#X restore 43 59 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array 4-tab-addr 17 float 3;
#A 0 48 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 255 17 0 50 30 1;
#X restore 433 59 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array 3-tab-addr 17 float 3;
#A 0 48 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 255 17 0 50 30 1;
#X restore 303 59 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array 2-tab-addr 17 float 3;
#A 0 48 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 255 17 0 50 30 1;
#X restore 173 59 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array 1-tab-deadzone 3 float 3;
#A 0 0.25 0.25 0.25;
#X coords 0 10 3 0 50 30 1;
#X restore 43 149 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array 3-tab-deadzone 3 float 3;
#A 0 0.25 0.25 0.25;
#X coords 0 10 3 0 50 30 1;
#X restore 303 149 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array 2-tab-deadzone 3 float 3;
#A 0 0.25 0.25 0.25;
#X coords 0 10 3 0 50 30 1;
#X restore 173 149 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array 4-tab-deadzone 3 float 3;
#A 0 0.25 0.25 0.25;
#X coords 0 10 3 0 50 30 1;
#X restore 433 149 graph;
#X restore 50 94 pd tableSauvegarde;
#X obj 50 130 cnv 15 1070 190 empty empty empty 20 12 0 14 -128992
-66577 0;
#X obj 310 130 cnv 15 10 190 empty empty empty 20 12 0 14 -262144 -66577
0;
#X obj 580 130 cnv 15 10 190 empty empty empty 20 12 0 14 -262144 -66577
0;
#X obj 850 130 cnv 15 10 190 empty empty empty 20 12 0 14 -262144 -66577
0;
#X obj 50 64 import zexy mrpeach;
#X text 1034 337 Jack/RYBN 2010;
#X text 220 92 1 b) If you know the Wiimote MAC adress \, you can enter
it in the symbol box and press return.;
#X text 600 58 2) When you have enter the Wiimote MAC adress \, you
can press the two bottom buttons on the Wiimote and then press the
green bang to connect your Wiimote.;
#X text 600 98 3) Save the patch to save all your settings.;
#X text 220 26 For Linux only with the last [wiimote] from puredata-svn
and last libcwiid from git://github.com/abstract/cwiid.git;
#X text 220 58 1 a) To detect Wiimote MAC adress \, just click on the
grey bang and press the two bottom buttons on the Wiimote then wait
to see the adress in the symbol box.;
#X obj 50 130 forWiimote 1;
#X obj 320 130 forWiimote 2;
#X obj 590 130 forWiimote 3;
#X obj 860 130 forWiimote 4;
#X coords 0 0 1 1 1070 190 2 50 130;
#X restore 36 25 pd contenu;
#X obj 36 282 r wii1-accelTot;
#X obj 36 302 r wii1-accelX;
#X obj 36 322 r wii1-accelY;
#X obj 36 342 r wii1-accelZ;
#X obj 36 362 r wii1-pitch;
#X obj 36 382 r wii1-roll;
#X obj 36 252 r wii1-btn2;
#X obj 36 232 r wii1-btn1;
#X obj 36 412 r wii1-btnNunch;
#X obj 36 432 r wii1-accXNunch;
#X obj 36 452 r wii1-accYNunch;
#X obj 36 472 r wii1-accZNunch;
#X obj 36 492 r wii1-stickXNunch;
#X obj 36 512 r wii1-stickYNunch;
#X obj 156 232 r wii1-IR0X;
#X obj 156 252 r wii1-IR0Y;
#X obj 156 272 r wii1-IR1X;
#X obj 156 292 r wii1-IR1Y;
#X obj 156 312 r wii1-IR2X;
#X obj 156 332 r wii1-IR2Y;
#X obj 156 352 r wii1-IR3X;
#X obj 156 372 r wii1-IR3Y;
#X obj 156 402 r wii1-MotPlusPitch;
#X obj 156 422 r wii1-MotPlusRoll;
#X obj 156 442 r wii1-MotPlusYaw;
#X obj 156 462 r wii1-MotPlusDPitch;
#X obj 156 482 r wii1-MotPlusDRoll;
#X obj 156 502 r wii1-MotPlusDYaw;
#X text 864 219 For more informations open this subpatch;
#X text 293 356 <- Repeat this if you use several Wiimotes with [r
wii2-...] \, [r wii3-...] \, etc.;

_______________________________________________
[email protected] mailing list
UNSUBSCRIBE and account-management -> 
http://lists.puredata.info/listinfo/pd-list

[PD] [forWiimote] abstraction - wiimote - motion plus - IR - nunchuck

Reply via email to