#N canvas 153 22 349 922 10; #X declare -lib mrpeach; #X declare -path ..; #N canvas 82 22 522 931 engines 0; #X obj 349 1 cnv 15 160 900 empty empty empty 20 12 0 14 -229361 -66577 0; #X obj 2 2 cnv 10 340 900 empty empty empty 12 26 0 20 -13381 -13381 0; #X obj 4 5 cnv 25 336 894 empty empty Aural 140 26 0 20 -261932 -13381 0; #X text 90 875 Juan Ignacio Mendoza - 2013; #X obj 193 126 entry 30 20 white black; #X obj 163 126 entry 20 20 white black; #X obj 307 350 entry 20 20 white black; #X obj 48 222 cnv 10 200 34 empty empty empty 20 12 0 14 -22472 -66577 0; #X obj 50 224 cnv 15 196 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 133 232 hsl 100 15 0 1 0 0 \$0-infader empty (-)----------(+) -2 7 0 10 -262144 -1 -86277 0 1; #X text 20 351 3) input number of participant within this day; #X obj 263 224 vu 8 80 \$0-vul empty -1 -8 0 10 -1 -1 0 0; #X obj 281 224 vu 8 80 \$0-vur empty -1 -8 0 10 -1 -1 0 0; #X obj 102 232 tgl 15 0 \$0-tgltestin empty empty 17 7 0 10 -259678 -1 -1 0 1; #X symbolatom 51 524 45 0 0 0 - #0-dispcurr #0-nonono; #X text 20 501 current step:; #X floatatom 23 523 3 0 0 0 - #0-icounter #0-nonono; #X text 20 191 2) adjust audio levels; #X obj 48 272 cnv 10 200 34 empty empty empty 20 12 0 14 -22472 -66577 0; #X obj 50 274 cnv 15 196 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 133 282 hsl 100 15 0 1 0 0 \$0-outfader empty (-)----------(+) -2 7 0 10 -262144 -1 -86277 0 1; #X obj 102 282 tgl 15 0 \$0-tgltestout empty empty 17 7 0 10 -97216 -1 -1 0 1; #X text 57 282 output; #X text 63 232 input; #X obj 5 108 cnv 2 336 2 empty empty empty 20 12 0 14 -22472 -66577 0; #X obj 5 169 cnv 2 334 2 empty empty empty 20 12 0 14 -260817 -66577 0; #X obj 5 329 cnv 2 334 2 empty empty empty 20 12 0 14 -260817 -66577 0; #X obj 5 449 cnv 2 334 2 empty empty empty 20 12 0 14 -260817 -66577 0; #X obj 5 642 cnv 2 334 2 empty empty empty 20 12 0 14 -260817 -66577 0; #X obj 5 702 cnv 2 334 2 empty empty empty 20 12 0 14 -260817 -66577 0; #X obj 201 665 bng 15 250 50 0 \$0-clrp empty empty 17 7 0 10 -204786 -1 -1; #X obj 5 389 cnv 2 334 2 empty empty empty 20 12 0 14 -260817 -66577 0; #X obj 223 412 bng 15 250 50 0 \$0-setready empty empty 17 7 0 10 -4034 -1 -1; #X text 20 411 4) click to set the system ready; #X text 20 471 5) press wiimote's button A or spacebar to start; #X text 20 664 6) press to restart from (3); #X text 21 79 Programmable Real-Time Self-Response Data Capture; #X obj 21 557 cnv 15 304 64 empty empty empty 20 12 0 14 -13381 -66577 0; #X obj 23 559 cnv 15 300 60 empty empty empty 20 12 0 14 -262144 -66577 0; #N canvas 671 510 451 287 repinst 0; #X obj -48 6 r repinst; #X obj -349 106 s \$0-dispcurr; #X obj -349 76 pack s; #X obj -349 156 s \$0-playfile; #X obj -111 186 delay 5000; #X msg -235 236 0; #X obj -111 268 s \$0-next; #X msg -205 236 2; #X obj -111 237 spigot; #X msg 1 186 0; #X msg -36 186 1; #X obj 1 156 r \$0-playfile; #X obj -111 96 r \$0-playdone; #X obj -111 126 spigot; #X msg -18 96 1; #X msg 25 96 0; #X obj 25 66 r \$0-next; #X obj -48 66 delay 50; #X obj -48 36 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -235 6 r \$0-rep_inst; #X obj -349 35 s \$0-playfile_bng; #X msg -205 126 stop; #X obj -235 266 s \$0-btnAact; #X connect 0 0 2 0; #X connect 0 0 5 0; #X connect 0 0 3 0; #X connect 0 0 18 0; #X connect 2 0 1 0; #X connect 4 0 8 0; #X connect 5 0 22 0; #X connect 7 0 22 0; #X connect 8 0 6 0; #X connect 9 0 8 1; #X connect 10 0 8 1; #X connect 11 0 9 0; #X connect 12 0 13 0; #X connect 13 0 4 0; #X connect 13 0 7 0; #X connect 13 0 10 0; #X connect 14 0 13 1; #X connect 15 0 13 1; #X connect 16 0 15 0; #X connect 17 0 14 0; #X connect 18 0 17 0; #X connect 19 0 20 0; #X connect 19 0 18 0; #X connect 19 0 5 0; #X connect 19 0 21 0; #X connect 21 0 4 0; #X restore 360 497 pd repinst; #N canvas 640 537 474 223 nxtinst 0; #X obj -369 -19 s \$0-dispcurr; #X obj -369 -49 pack s; #X obj -346 21 s \$0-playfile; #X msg -245 51 0; #X obj -28 -99 r nxtinst; #X msg -215 51 1; #X obj -121 -9 r \$0-playdone; #X obj -121 21 spigot; #X msg -28 -9 1; #X msg 35 -9 0; #X obj 35 -39 r \$0-next; #X obj -28 -39 delay 50; #X obj -28 -69 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -245 81 s \$0-btnAact; #X connect 1 0 0 0; #X connect 3 0 13 0; #X connect 4 0 1 0; #X connect 4 0 2 0; #X connect 4 0 3 0; #X connect 4 0 12 0; #X connect 5 0 13 0; #X connect 6 0 7 0; #X connect 7 0 5 0; #X connect 8 0 7 1; #X connect 9 0 7 1; #X connect 10 0 9 0; #X connect 11 0 8 0; #X connect 12 0 11 0; #X restore 360 527 pd nxtinst; #N canvas 680 546 458 207 demo 0; #X obj -351 -14 s \$0-dispcurr; #X obj -351 -44 pack s; #X obj -328 26 s \$0-playfile; #X msg -237 56 0; #X obj -113 -4 r \$0-playdone; #X obj -113 26 spigot; #X msg -20 -4 1; #X msg 43 -4 0; #X obj 43 -34 r \$0-next; #X obj -20 -94 r demo; #X obj -113 86 s \$0-next; #X obj -113 56 delay 3000; #X obj -20 -64 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -20 -34 delay 50; #X obj -237 86 s \$0-btnAact; #X connect 1 0 0 0; #X connect 3 0 14 0; #X connect 4 0 5 0; #X connect 5 0 11 0; #X connect 6 0 5 1; #X connect 7 0 5 1; #X connect 8 0 7 0; #X connect 9 0 1 0; #X connect 9 0 2 0; #X connect 9 0 3 0; #X connect 9 0 12 0; #X connect 11 0 10 0; #X connect 12 0 13 0; #X connect 13 0 6 0; #X restore 360 557 pd demo; #N canvas 753 469 462 274 restartopt 0; #X obj -353 -36 s \$0-dispcurr; #X obj -353 -66 pack s; #X obj -330 4 s \$0-playfile; #X obj -115 42 delay 5000; #X msg -239 34 0; #X obj -115 124 s \$0-next; #X obj -115 93 spigot; #X msg -3 42 0; #X msg -40 42 1; #X obj -3 4 r \$0-playfile; #X obj -115 -26 r \$0-playdone; #X obj -115 4 spigot; #X msg -22 -26 1; #X msg 41 -26 0; #X obj 41 -56 r \$0-next; #X obj -22 -116 r restartopt; #X msg -209 34 3; #X obj -22 -56 delay 50; #X obj -22 -85 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -239 64 s \$0-btnAact; #X connect 1 0 0 0; #X connect 3 0 6 0; #X connect 4 0 19 0; #X connect 6 0 5 0; #X connect 7 0 6 1; #X connect 8 0 6 1; #X connect 9 0 7 0; #X connect 10 0 11 0; #X connect 11 0 3 0; #X connect 11 0 16 0; #X connect 11 0 8 0; #X connect 12 0 11 1; #X connect 13 0 11 1; #X connect 14 0 13 0; #X connect 15 0 1 0; #X connect 15 0 2 0; #X connect 15 0 4 0; #X connect 15 0 18 0; #X connect 16 0 19 0; #X connect 17 0 12 0; #X connect 18 0 17 0; #X restore 360 587 pd restartopt; #N canvas 662 22 348 382 audio_file_player 0; #X msg 47 121 open \$1; #X obj 170 271 dac~; #X obj 123 181 readsf~ 2; #X obj 50 241 *~; #X obj 113 241 *~; #X msg 123 91 1; #X obj 123 31 bng 15 250 50 0 empty empty play 20 7 0 10 -262144 -145600 -1; #X obj 50 281 env~; #X obj 113 281 env~; #X symbolatom 47 91 6 0 0 0 - - -; #X obj 50 311 - 100; #X obj 113 311 - 100; #X obj 30 181 r \$0-outfader; #X obj -70 181 *~; #X obj -55 151 r \$0-tgltestout; #X obj 47 -10 r \$0-playfile; #X obj 47 61 pack s; #X obj -70 41 noise~; #X obj -70 71 *~ 0.5; #X obj 174 231 s \$0-playdone; #X obj 174 141 s \$0-playsync; #X obj 50 341 s \$0-vul; #X obj 113 341 s \$0-vur; #X obj -25 241 r~ \$0-vuin; #X obj 123 61 delay 500; #X obj -71 -10 r \$0-playfile_bng; #X obj 17 31 bng 15 250 50 0 empty empty repeat -40 7 0 10 -262144 -1 -1; #X obj 174 91 r \$0-setready; #X msg 137 141 0; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 2 1 4 0; #X connect 2 2 19 0; #X connect 3 0 1 0; #X connect 3 0 7 0; #X connect 4 0 1 1; #X connect 4 0 8 0; #X connect 5 0 2 0; #X connect 5 0 20 0; #X connect 6 0 24 0; #X connect 7 0 10 0; #X connect 8 0 11 0; #X connect 9 0 0 0; #X connect 10 0 21 0; #X connect 11 0 22 0; #X connect 12 0 3 1; #X connect 12 0 4 1; #X connect 13 0 3 0; #X connect 13 0 4 0; #X connect 14 0 13 1; #X connect 15 0 6 0; #X connect 15 0 16 0; #X connect 16 0 9 0; #X connect 17 0 18 0; #X connect 18 0 13 0; #X connect 23 0 7 0; #X connect 23 0 8 0; #X connect 24 0 5 0; #X connect 25 0 6 0; #X connect 25 0 26 0; #X connect 26 0 16 0; #X connect 27 0 28 0; #X connect 28 0 2 0; #X restore 361 787 pd audio_file_player; #N canvas 0 22 450 300 (subpatch) 0; #X array data 1 float 3; #A 0 0; #X coords 0 6 1 0 290 40 1; #X restore 28 574 graph; #X obj 133 126 entry 20 20 white black; #X text 132 147 day; #X text 157 147 month; #X text 195 147 year; #X obj 360 384 s \$0-partic; #X obj 360 94 r \$0-datatrig; #N canvas 617 180 189 296 ready 0; #X obj -471 -996 s \$0-dispcurr; #X msg -555 -1146 READY; #X obj -537 -1176 t b a; #X obj -537 -1234 symbol; #X obj -555 -1026 symbol; #X symbolatom -537 -1204 10 0 0 0 - - -; #X obj -454 -1144 r \$0-year; #X obj -454 -1174 r \$0-month; #X obj -454 -1204 r \$0-day; #X msg -555 -1056 \$1_\$2_\$3/\$4/\$5_p\$6; #X obj -454 -1115 r \$0-partic; #X obj -564 -996 s \$0-datatrig; #X obj -564 -1234 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -555 -1086 pack s s f f f f; #X obj -564 -1264 r ready; #X connect 1 0 13 0; #X connect 2 0 1 0; #X connect 2 1 13 1; #X connect 3 0 5 0; #X connect 4 0 0 0; #X connect 5 0 2 0; #X connect 6 0 13 4; #X connect 7 0 13 3; #X connect 8 0 13 2; #X connect 9 0 4 0; #X connect 10 0 13 5; #X connect 12 0 11 0; #X connect 13 0 9 0; #X connect 14 0 12 0; #X connect 14 0 3 0; #X restore 360 467 pd ready; #N canvas 696 345 467 629 setready 0; #X obj 170 365 s \$0-dispcurr; #N canvas 1312 371 135 177 alternator 0; #X obj -800 -1416 inlet start/stop; #X obj -800 -1355 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj -800 -1294 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -800 -1325 route 1 0; #X obj -731 -1294 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -800 -1264 outlet; #X obj -731 -1264 outlet; #X obj -800 -1386 metro 250; #X connect 0 0 7 0; #X connect 1 0 3 0; #X connect 2 0 5 0; #X connect 3 0 2 0; #X connect 3 1 4 0; #X connect 4 0 6 0; #X connect 7 0 1 0; #X restore 170 275 pd alternator; #X msg 170 235 0; #X msg 209 235 1; #X obj 247 68 r \$0-year; #X obj 247 38 r \$0-month; #X obj 237 8 r \$0-day; #X obj 247 97 r \$0-partic; #X msg 245 305 date_or_participant_number_missing; #X obj 143 38 r \$0-setready; #X obj 39 96 s \$0-datatrig; #X obj 245 335 symbol; #X msg 170 335 symbol; #X obj 110 235 spigot; #X msg 106 167 0; #X msg 143 167 1; #X obj 143 68 t b b; #X obj 59 205 delay 250; #X obj 222 475 qlist; #X msg 167 435 rewind; #X msg 101 435 next; #X obj 30 336 bng 15 250 50 0 empty empty empty 20 7 0 10 -262144 -1 -1; #X obj 167 595 s \$0-icounter; #X msg 167 565 0; #X obj 101 395 r \$0-next; #X obj 261 565 - 1; #X obj 222 505 moses 1; #X msg 67 565 1; #X msg 222 435 read program.txt; #X obj 171 395 t b b b b; #X obj 30 8 r \$0-setready_bng; #X obj 229 205 r loadbang; #X obj 294 475 r \$0-endcount; #X obj 294 505 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 294 565 int; #X obj 67 479 s \$0-setnormal; #X obj 185 535 r \$0-clrp; #X obj 101 305 r \$0-clrp; #X obj 67 595 s \$0-btnAact; #X obj 209 127 route bang; #X obj 73 509 r \$0-setready; #X connect 1 0 12 0; #X connect 1 1 8 0; #X connect 2 0 1 0; #X connect 3 0 1 0; #X connect 4 0 39 0; #X connect 5 0 39 0; #X connect 6 0 39 0; #X connect 7 0 39 0; #X connect 8 0 11 0; #X connect 9 0 16 0; #X connect 11 0 0 0; #X connect 12 0 0 0; #X connect 13 0 21 0; #X connect 14 0 13 1; #X connect 15 0 13 1; #X connect 16 0 15 0; #X connect 16 0 10 0; #X connect 16 0 17 0; #X connect 16 1 2 0; #X connect 17 0 13 0; #X connect 18 0 26 0; #X connect 19 0 18 0; #X connect 19 0 23 0; #X connect 20 0 18 0; #X connect 21 0 27 0; #X connect 21 0 29 0; #X connect 21 0 35 0; #X connect 21 0 2 0; #X connect 23 0 22 0; #X connect 24 0 20 0; #X connect 25 0 22 0; #X connect 26 1 25 0; #X connect 26 1 34 1; #X connect 27 0 38 0; #X connect 28 0 18 0; #X connect 29 0 20 0; #X connect 29 1 20 0; #X connect 29 2 19 0; #X connect 29 3 28 0; #X connect 30 0 21 0; #X connect 31 0 2 0; #X connect 32 0 33 0; #X connect 33 0 34 0; #X connect 34 0 22 0; #X connect 36 0 23 0; #X connect 37 0 12 0; #X connect 39 0 3 0; #X connect 39 0 14 0; #X connect 40 0 23 0; #X restore 360 354 pd setready; #N canvas 929 179 713 573 make_file_name 0; #X obj 502 329 symbol; #X msg 425 104 1; #X msg 262 104 set \$1; #X obj 262 74 pack s; #X obj 263 264 symbol; #X obj 193 453 s \$0-datafilename; #X obj 133 -55 r \$0-make_file_name; #X obj 154 5 s \$0-datatrig; #X msg 56 -25 set \$1; #X obj -14 -56 r \$0-year; #X obj -14 71 r \$0-month; #X obj -14 161 r \$0-day; #X obj 56 -55 r \$0-partic; #X msg -14 -26 set \$1; #X msg -14 101 set \$1; #X msg -14 191 set \$1; #X obj 133 74 t b b b b b b; #X msg 263 234 ; #X msg 226 234 1; #X msg 359 204 3; #X obj 193 423 symbol; #X msg 145 234 1; #X msg 183 234 1; #X text 101 478 d_m_y_participantnumber_audiofilename_trialnumber.wii/wav ; #X msg 463 104 2; #X msg 107 234 1; #X msg 502 294 _.wii; #X msg 552 294 _; #X obj 425 -55 r rtdatacap; #X obj 463 -23 r oralqstn; #X obj 502 264 gate 3; #X obj 542 -55 r qstndatacap; #X msg 502 104 3; #X obj 632 -55 r ready; #X obj 542 35 makefilename %s_qstndc; #X obj 542 -23 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 542 5 pack s; #X msg 262 -25 symbol; #X obj 262 -55 r loadbang; #X obj 193 361 pack f f f f s f s; #X msg 359 104 set \$1; #N canvas 434 677 139 183 filecounter 0; #X obj -262 -215 r \$0-setready; #X obj -298 -125 cup; #X obj -262 -185 t b b; #X obj -298 -215 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg -235 -155 1; #X obj -298 -245 r \$0-filecounter; #X obj -298 -95 outlet; #X connect 0 0 2 0; #X connect 1 0 6 0; #X connect 2 0 1 0; #X connect 2 1 4 0; #X connect 3 0 1 0; #X connect 4 0 1 0; #X connect 5 0 3 0; #X restore 315 74 pd filecounter; #X msg 193 393 \$1_\$2_\$3_p\$4_\$5_f\$6\$7; #X msg 591 294 _.qst; #X obj 535 234 r \$0-make_file_name; #X obj 133 -25 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 133 44 delay 100; #X obj 425 204 delay 50; #X connect 0 0 39 6; #X connect 1 0 47 0; #X connect 2 0 17 0; #X connect 3 0 2 0; #X connect 4 0 39 4; #X connect 6 0 45 0; #X connect 8 0 18 0; #X connect 9 0 13 0; #X connect 10 0 14 0; #X connect 11 0 15 0; #X connect 12 0 8 0; #X connect 13 0 22 0; #X connect 14 0 21 0; #X connect 15 0 25 0; #X connect 16 0 25 0; #X connect 16 1 21 0; #X connect 16 2 22 0; #X connect 16 3 18 0; #X connect 16 4 17 0; #X connect 16 5 19 0; #X connect 17 0 4 0; #X connect 18 0 39 3; #X connect 19 0 39 5; #X connect 20 0 5 0; #X connect 21 0 39 1; #X connect 22 0 39 2; #X connect 24 0 30 0; #X connect 25 0 39 0; #X connect 26 0 0 0; #X connect 27 0 0 0; #X connect 28 0 1 0; #X connect 28 0 3 0; #X connect 29 0 24 0; #X connect 29 0 3 0; #X connect 30 0 26 0; #X connect 30 1 27 0; #X connect 30 2 43 0; #X connect 31 0 32 0; #X connect 31 0 35 0; #X connect 32 0 30 0; #X connect 33 0 36 0; #X connect 34 0 3 0; #X connect 35 0 36 0; #X connect 36 0 34 0; #X connect 37 0 3 0; #X connect 38 0 37 0; #X connect 39 0 42 0; #X connect 40 0 19 0; #X connect 41 0 40 0; #X connect 42 0 20 0; #X connect 43 0 0 0; #X connect 44 0 30 1; #X connect 45 0 7 0; #X connect 45 0 46 0; #X connect 46 0 16 0; #X connect 47 0 30 0; #X restore 361 877 pd make_file_name; #X text 20 131 1) enter the date; #N canvas 809 75 262 407 audio_file_recorder 0; #X obj -127 -39 *~; #X obj -127 -69 *~; #X obj -27 -9 r \$0-startaudiorec; #X obj -76 -99 r \$0-tgltestin; #X obj -75 -69 r \$0-infader; #X obj -147 276 writesf~ 1; #X obj -147 -99 adc~ 1; #X obj -127 -9 s~ \$0-vuin; #X obj -127 121 spigot; #X msg 0 81 1; #X msg 38 81 0; #X obj 38 51 r \$0-next; #X obj -127 81 r \$0-datafilename; #X obj -127 51 s \$0-make_file_name; #X msg -127 221 start; #X msg 38 222 stop; #X obj -27 21 t b b; #X msg -127 151 open \$1; #X obj 14 21 r \$0-setready; #X obj -67 182 t b b a; #X obj -67 276 s \$0-filecounter; #X connect 0 0 7 0; #X connect 1 0 0 0; #X connect 2 0 16 0; #X connect 3 0 1 1; #X connect 4 0 0 1; #X connect 6 0 1 0; #X connect 6 0 5 0; #X connect 8 0 17 0; #X connect 9 0 8 1; #X connect 10 0 8 1; #X connect 10 0 15 0; #X connect 11 0 10 0; #X connect 12 0 8 0; #X connect 14 0 5 0; #X connect 15 0 5 0; #X connect 16 0 13 0; #X connect 16 1 9 0; #X connect 17 0 19 0; #X connect 18 0 10 0; #X connect 19 0 20 0; #X connect 19 1 14 0; #X connect 19 2 5 0; #X restore 361 817 pd audio_file_recorder; #N canvas 241 22 798 705 button_action 0; #X obj -184 593 s \$0-next; #X obj -184 463 gate 4; #N canvas 975 412 145 133 restart 0; #X obj 3 -1 inlet; #X obj 3 89 s \$0-next; #X obj 3 29 t b b; #X obj 30 59 s \$0-setready_bng; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 2 1 3 0; #X restore -162 533 pd restart; #X obj 258 123 unpack s f; #X obj 258 303 select /a; #X obj 258 93 routeOSC /button; #X obj 258 -57 unpackOSC; #X obj 258 -87 udpreceive 5600; #X obj 258 -27 routeOSC /wii; #X obj 278 3 routeOSC /acc; #X obj 278 33 routeOSC /orientation; #X obj 278 63 routeOSC /point; #X obj -173 563 s \$0-rep_inst; #X obj -151 -87 inlet bttn A; #X obj -293 -87 inlet toggle keyboard; #X obj -326 32 spigot; #X obj -326 -87 key; #X obj -151 433 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -326 383 select 32; #X obj -49 153 select 49; #X obj -49 183 select 50; #X obj -49 213 select 51; #X msg 111 213 1; #X msg 111 243 2; #X msg 111 273 3; #X obj 171 273 select /one; #X obj 171 303 select /two; #X obj 171 243 select /plus; #X obj 171 183 select /minus; #X obj 171 213 select /home; #X msg 111 313 4; #X msg 111 353 5; #X obj -49 243 select 121; #X text -65 154 1; #X text -65 184 2; #X text -65 214 3; #X obj -49 303 select 110; #X obj -49 273 select 89; #X obj -49 333 select 78; #X text -78 259 y/Y; #X text -78 319 n/N; #X obj -63 -87 inlet b1; #X obj 1 -87 inlet b2; #X obj 65 -87 inlet b3; #X obj 129 -87 inlet b4; #X obj 193 -87 inlet b5; #X text -81 504 4: real time data capture; #X text -81 534 3: restart; #X text -81 564 2: repeat playback; #X text -81 594 1: next; #X obj -233 433 r \$0-btnAact; #X text -137 462 btnAact: Wiimote's button "a" action; #X text -86 108 keyboard action:; #X text 251 243 <-- Wiimote's other buttons actions; #X obj -151 503 s \$0-rtcap; #X obj 1 433 s \$0-numbers; #X obj 1 383 spigot; #X obj 171 353 r \$0-tglnum; #X obj 149 233 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 149 263 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 149 293 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 149 333 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 149 373 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 258 383 select 1; #X obj 258 354 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X connect 1 0 0 0; #X connect 1 1 12 0; #X connect 1 2 2 0; #X connect 1 3 54 0; #X connect 3 0 4 0; #X connect 3 0 25 0; #X connect 3 0 26 0; #X connect 3 0 27 0; #X connect 3 0 28 0; #X connect 3 0 29 0; #X connect 4 0 64 0; #X connect 5 0 3 0; #X connect 6 0 8 0; #X connect 7 0 6 0; #X connect 8 0 5 0; #X connect 9 1 10 0; #X connect 10 1 11 0; #X connect 13 0 17 0; #X connect 14 0 15 1; #X connect 15 0 18 0; #X connect 15 0 19 0; #X connect 15 0 20 0; #X connect 15 0 21 0; #X connect 15 0 32 0; #X connect 15 0 37 0; #X connect 15 0 36 0; #X connect 15 0 38 0; #X connect 16 0 15 0; #X connect 17 0 1 1; #X connect 18 0 17 0; #X connect 19 0 22 0; #X connect 20 0 23 0; #X connect 21 0 24 0; #X connect 22 0 56 0; #X connect 22 0 58 0; #X connect 23 0 56 0; #X connect 23 0 59 0; #X connect 24 0 56 0; #X connect 24 0 60 0; #X connect 25 0 30 0; #X connect 26 0 31 0; #X connect 27 0 24 0; #X connect 28 0 22 0; #X connect 29 0 23 0; #X connect 30 0 56 0; #X connect 30 0 61 0; #X connect 31 0 56 0; #X connect 31 0 62 0; #X connect 32 0 30 0; #X connect 36 0 31 0; #X connect 37 0 30 0; #X connect 38 0 31 0; #X connect 41 0 22 0; #X connect 42 0 23 0; #X connect 43 0 24 0; #X connect 44 0 30 0; #X connect 45 0 31 0; #X connect 50 0 1 0; #X connect 56 0 55 0; #X connect 57 0 56 1; #X connect 63 0 17 0; #X connect 64 0 63 0; #X restore 360 294 pd button_action; #N canvas 874 536 246 488 startup 0; #X obj 4 5 loadbang; #X msg 34 95 \; pd dsp 1; #X obj 34 284 s \$0-dispcurr; #X obj 34 65 s loadbang; #X obj 34 195 s \$0-icounter; #X msg 34 135 0; #X msg 34 255 symbol; #X obj 53 225 r setready; #X obj 4 314 outlet loadbang; #X obj 34 35 import mrpeach; #X obj 46 166 s \$0-btnAact; #X obj 98 372 path ..; #X obj 118 332 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X connect 0 0 1 0; #X connect 0 0 3 0; #X connect 0 0 5 0; #X connect 0 0 6 0; #X connect 0 0 8 0; #X connect 0 0 9 0; #X connect 5 0 4 0; #X connect 5 0 10 0; #X connect 6 0 2 0; #X connect 7 0 6 0; #X connect 12 0 11 0; #X restore 360 34 pd startup; #N canvas 442 253 431 712 make_n_save_table 0; #X obj 43 216 + 1; #X obj -14 126 route 1; #X msg -14 186 0; #N canvas 680 321 178 256 reset_tab 0; #X obj 10 143 until; #X msg 10 181 0; #X text -4 234 to tabwrite; #X text 104 232 to index; #X obj 109 183 cup; #X msg 136 145 0; #X text -10 6 start/stop in; #X obj 10 55 route 1; #X obj 10 25 inlet; #X obj 64 83 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 109 213 outlet; #X obj 10 215 outlet; #X obj 10 115 arraysize data; #X obj 85 55 r loadbang; #X obj 109 115 t b b; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 11 0; #X connect 4 0 10 0; #X connect 5 0 4 0; #X connect 7 0 9 0; #X connect 8 0 7 0; #X connect 9 0 12 0; #X connect 9 0 14 0; #X connect 12 0 0 0; #X connect 13 0 9 0; #X connect 14 0 4 0; #X connect 14 1 5 0; #X restore -99 216 pd reset_tab; #X obj -99 266 tabwrite data; #X msg 43 253 \; data resize \$1; #X obj 43 186 arraysize data; #X obj 63 156 metro 100; #X msg 51 405 clear; #X obj -49 465 f; #X obj -16 465 + 1; #X obj -49 435 until; #X msg -195 585 write \$1; #X msg -4 435 0; #X obj 51 625 textfile; #X symbolatom -195 555 50 0 0 0 - - -; #X obj -49 405 arraysize data; #X obj -49 495 tabread data; #X msg -49 525 add \$1; #X obj -195 345 r \$0-datafilename; #X text -207 3 MAKE TABLE:; #X text -206 313 SAVE TABLE:; #X msg -208 186 1; #X obj -99 46 r \$0-clrp; #X msg -99 186 1; #X obj 147 126 route 0; #X obj 147 306 delay 100; #X obj -68 345 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -14 66 r \$0-tglrtdatacap; #X obj 104 66 r \$0-tglseqdatacap; #X obj -208 36 r \$0-rtcap; #X obj -197 66 r \$0-numbers; #X text -199 286 ----------------------------------; #X obj -114 16 r \$0-setready; #N canvas 1114 605 137 206 seq_arrsize 0; #X obj -3050 -1225 cup; #X obj -3050 -1195 moses 2; #X obj -3050 -1165 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg -2978 -1255 0; #X obj -3005 -1285 t b b; #X obj -3050 -1135 outlet to arraysize; #X obj -3050 -1315 inlet; #X obj -3005 -1315 inlet tgl_0; #X floatatom -2975 -1184 5 0 0 0 - - -; #X obj -2958 -1214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X connect 0 0 1 0; #X connect 0 0 8 0; #X connect 1 1 2 0; #X connect 2 0 5 0; #X connect 3 0 0 0; #X connect 4 0 0 0; #X connect 4 1 3 0; #X connect 6 0 0 0; #X connect 7 0 4 0; #X connect 9 0 0 0; #X restore -197 146 pd seq_arrsize; #X obj -197 96 t f b; #X obj -195 615 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -195 645 delay 2000; #X obj 134 96 r \$0-setready; #X msg 63 126 0; #X obj -195 675 s \$0_reset_tab; #X obj -26 36 r \$0_reset_tab; #X msg -195 500 set \$1; #X obj -195 470 pack s; #X text 5 286 ----------------------------------; #X obj -120 645 s \$0-filecounter; #X obj -68 375 t b b b; #X connect 0 0 5 0; #X connect 1 0 24 0; #X connect 1 0 2 0; #X connect 1 0 34 1; #X connect 2 0 5 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 6 0 0 0; #X connect 6 0 4 1; #X connect 7 0 6 0; #X connect 8 0 14 0; #X connect 8 0 13 0; #X connect 9 0 10 0; #X connect 9 0 17 0; #X connect 10 0 9 1; #X connect 11 0 9 0; #X connect 12 0 14 0; #X connect 12 0 36 0; #X connect 13 0 9 1; #X connect 15 0 12 0; #X connect 16 0 11 0; #X connect 17 0 18 0; #X connect 18 0 14 0; #X connect 19 0 43 0; #X connect 22 0 4 0; #X connect 23 0 24 0; #X connect 24 0 3 0; #X connect 25 0 26 0; #X connect 26 0 27 0; #X connect 27 0 46 0; #X connect 28 0 1 0; #X connect 28 0 7 0; #X connect 28 0 25 0; #X connect 29 0 25 0; #X connect 29 0 1 0; #X connect 30 0 22 0; #X connect 31 0 35 0; #X connect 33 0 24 0; #X connect 33 0 34 1; #X connect 34 0 6 0; #X connect 35 0 4 0; #X connect 35 1 34 0; #X connect 36 0 37 0; #X connect 36 0 45 0; #X connect 37 0 40 0; #X connect 38 0 39 0; #X connect 39 0 7 0; #X connect 41 0 34 1; #X connect 41 0 24 0; #X connect 41 0 2 0; #X connect 42 0 15 0; #X connect 43 0 42 0; #X connect 46 0 15 0; #X connect 46 1 16 0; #X connect 46 2 8 0; #X restore 361 847 pd make_n_save_table; #N canvas 710 363 248 486 end 0; #X obj 138 -260 s \$0-playfile; #X msg 16 -259 0; #X obj 16 -199 r \$0-playdone; #X obj 16 -169 spigot; #X msg 109 -199 1; #X msg 146 -199 0; #X obj 146 -229 r \$0-next; #X obj 99 -380 r end; #X obj 16 75 s \$0-dispcurr; #X obj 16 -109 r \$0-partic; #X obj 16 -139 s \$0-datatrig; #X obj 16 -79 spigot; #X msg 109 -109 1; #X msg 146 -109 0; #X obj 156 -143 r loadbang; #X obj 79 -289 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 79 -259 delay 50; #X obj 138 -290 s \$0-dispcurr; #X obj 138 -320 pack s; #X symbolatom 16 41 10 0 0 0 - - -; #X msg 16 -49 set Participant_\$1_END; #X obj 36 11 delay 100; #X obj 36 -19 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 138 -350 s \$0-endcount; #X obj 16 -229 s \$0-btnAact; #X connect 1 0 24 0; #X connect 2 0 3 0; #X connect 3 0 10 0; #X connect 4 0 3 1; #X connect 4 0 12 0; #X connect 5 0 3 1; #X connect 5 0 13 0; #X connect 6 0 5 0; #X connect 7 0 0 0; #X connect 7 0 1 0; #X connect 7 0 15 0; #X connect 7 0 18 0; #X connect 7 0 23 0; #X connect 9 0 11 0; #X connect 11 0 20 0; #X connect 12 0 11 1; #X connect 13 0 11 1; #X connect 14 0 13 0; #X connect 15 0 16 0; #X connect 16 0 4 0; #X connect 18 0 17 0; #X connect 19 0 8 0; #X connect 20 0 19 0; #X connect 20 0 22 0; #X connect 21 0 19 0; #X connect 22 0 21 0; #X connect 22 0 13 0; #X restore 360 707 pd end; #N canvas 700 422 229 62 day_month_year_hub 0; #X obj -230 -14 s \$0-day; #X obj -161 -14 s \$0-month; #X obj -80 -14 s \$0-year; #X obj -80 -44 inlet year; #X obj -161 -44 inlet month; #X obj -230 -44 inlet day; #X connect 3 0 2 0; #X connect 4 0 1 0; #X connect 5 0 0 0; #X restore 360 163 pd day_month_year_hub; #X obj 395 196 bng 15 250 50 0 empty empty A/space -44 7 0 10 -258113 -1 -1; #X text 155 51 v 0.1; #X text 21 748 - OSC receiving port is 5600; #N canvas 696 659 278 173 set_partic 0; #X obj -2421 -780 symbol; #X msg -2526 -810 normal; #X msg -2421 -810 disabled; #X msg -2421 -750 option state \$1; #X obj -2595 -870 r \$0-clrp; #X msg -2595 -770 clear; #X obj -2595 -720 outlet to participant number input; #X obj -2526 -870 r loadbang; #X obj -2595 -840 t b b; #X obj -2516 -840 r \$0-setready; #X obj -2421 -870 r \$0-setnormal; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 6 0; #X connect 4 0 8 0; #X connect 5 0 6 0; #X connect 7 0 1 0; #X connect 7 0 5 0; #X connect 8 0 5 0; #X connect 8 1 1 0; #X connect 9 0 1 0; #X connect 10 0 2 0; #X restore 360 324 pd set_partic; #N canvas 637 505 204 144 set_date 0; #X obj -2476 -790 symbol; #X msg -2565 -820 normal; #X msg -2476 -820 disabled; #X msg -2476 -760 option state \$1; #X msg -2575 -780 clear; #X obj -2575 -730 outlet day month year; #X obj -2575 -850 inlet loadbang; #X obj -2476 -850 r \$0-setready; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 5 0; #X connect 4 0 5 0; #X connect 6 0 1 0; #X connect 6 0 4 0; #X connect 7 0 2 0; #X restore 360 64 pd set_date; #X text 21 768 - real time data capture rate is 10 Hz (.wii file); #X text 353 751 -------------------------; #X text 352 427 -------------------------; #X text 352 -3 -------------------------; #N canvas 546 522 258 423 rtdatacap 0; #X obj 149 -319 s \$0-dispcurr; #X obj 149 -349 pack s; #X obj 1 -349 s \$0-playfile; #X obj 1 9 s \$0-next; #X obj 1 -21 spigot; #X msg 113 -51 0; #X msg 76 -51 1; #X obj 113 -79 r \$0-playfile; #X obj 1 -199 r \$0-playdone; #X obj 1 -119 spigot; #X msg 94 -199 1; #X msg 131 -199 0; #X msg 1 -259 4; #X obj 1 -51 delay 3000; #X obj 113 -139 spigot; #X obj 168 -199 r \$0-playsync; #X msg 11 -169 0; #X obj 94 -309 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 94 -259 delay 50; #X obj 149 -389 r rtdatacap; #X obj 1 -229 s \$0-btnAact; #X obj 113 -109 s \$0-tglrtdatacap; #X obj 131 -229 r \$0-next; #X obj 132 -289 s \$0-make_file_name; #X connect 1 0 0 0; #X connect 4 0 3 0; #X connect 5 0 4 1; #X connect 6 0 4 1; #X connect 7 0 5 0; #X connect 8 0 9 0; #X connect 8 0 16 0; #X connect 9 0 6 0; #X connect 9 0 13 0; #X connect 10 0 9 1; #X connect 10 0 14 1; #X connect 11 0 9 1; #X connect 11 0 14 1; #X connect 12 0 20 0; #X connect 13 0 4 0; #X connect 14 0 21 0; #X connect 15 0 14 0; #X connect 16 0 14 0; #X connect 17 0 18 0; #X connect 17 0 23 0; #X connect 18 0 10 0; #X connect 19 0 1 0; #X connect 19 0 2 0; #X connect 19 0 12 0; #X connect 19 0 17 0; #X connect 22 0 11 0; #X restore 360 617 pd rtdatacap; #N canvas 711 417 421 263 oralqstn 0; #X obj -316 -58 s \$0-dispcurr; #X obj -316 -88 pack s; #X obj -293 -18 s \$0-playfile; #X msg -282 52 0; #X msg -252 52 1; #X obj -118 -48 r \$0-playdone; #X obj -118 -18 spigot; #X msg -25 -48 1; #X msg 38 -48 0; #X obj 38 -78 r \$0-next; #X obj -118 12 s \$0-startaudiorec; #X obj -25 -108 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -25 -78 delay 50; #X obj -193 12 delay 1000; #X obj -25 -138 r oralqstn; #X obj -282 82 s \$0-btnAact; #X connect 1 0 0 0; #X connect 3 0 15 0; #X connect 4 0 15 0; #X connect 5 0 6 0; #X connect 6 0 10 0; #X connect 6 0 13 0; #X connect 7 0 6 1; #X connect 8 0 6 1; #X connect 9 0 8 0; #X connect 11 0 12 0; #X connect 12 0 7 0; #X connect 13 0 4 0; #X connect 14 0 1 0; #X connect 14 0 2 0; #X connect 14 0 3 0; #X connect 14 0 11 0; #X restore 360 647 pd oralqstn; #N canvas 1158 22 445 511 qstndatacap 0; #X obj 7 -110 s \$0-dispcurr; #X obj 7 -140 pack s; #X obj -161 -150 s \$0-playfile; #X obj -141 70 r \$0-playdone; #X msg -48 70 1; #X msg 72 100 0; #X obj 72 70 r \$0-next; #X obj -141 230 spigot; #X obj -48 -70 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -48 10 delay 50; #X obj 7 -180 r qstndatacap; #X msg -141 -100 0; #X obj -141 -70 s \$0-btnAact; #X msg -141 100 1; #X obj 60 291 s \$0-tglnum; #X obj 60 261 spigot; #X obj 72 181 t f f; #X obj -9 261 gate; #X msg -9 70 0; #X obj 54 10 r \$0-numbers; #X obj -9 291 s \$0-next; #X obj -307 291 s \$0-tglseqdatacap; #X obj -162 261 gate; #X msg -307 51 0; #X obj -215 121 cup; #X msg -176 181 0; #X obj -264 81 t b f; #X obj -297 -180 r repinst; #X obj -277 -120 r demo; #X obj -267 -90 r restartopt; #X obj -267 -60 r rtdatacap; #X obj -267 -30 r oralqstn; #X obj -287 -150 r nxtinst; #X obj -307 144 spigot; #X msg -254 121 1; #X msg -294 121 0; #X msg -215 181 1; #X obj -267 30 r \$0-setready; #X obj -267 0 r end; #X obj -215 151 moses 2; #X obj 12 -20 s \$0-make_file_name; #X connect 1 0 0 0; #X connect 3 0 13 0; #X connect 4 0 7 1; #X connect 4 0 16 0; #X connect 5 0 7 1; #X connect 5 0 16 0; #X connect 6 0 5 0; #X connect 7 0 22 1; #X connect 8 0 9 0; #X connect 8 0 24 0; #X connect 8 0 34 0; #X connect 8 0 40 0; #X connect 9 0 4 0; #X connect 9 0 18 0; #X connect 10 0 1 0; #X connect 10 0 2 0; #X connect 10 0 11 0; #X connect 10 0 8 0; #X connect 11 0 12 0; #X connect 13 0 15 0; #X connect 13 0 17 0; #X connect 13 0 7 0; #X connect 15 0 14 0; #X connect 16 0 15 1; #X connect 16 1 15 0; #X connect 17 0 20 0; #X connect 18 0 17 0; #X connect 19 0 17 1; #X connect 22 0 21 0; #X connect 23 0 26 0; #X connect 23 0 33 0; #X connect 24 0 39 0; #X connect 25 0 22 0; #X connect 26 0 24 0; #X connect 26 1 24 0; #X connect 27 0 23 0; #X connect 28 0 23 0; #X connect 29 0 23 0; #X connect 30 0 23 0; #X connect 31 0 23 0; #X connect 32 0 23 0; #X connect 33 0 35 0; #X connect 33 0 21 0; #X connect 34 0 33 1; #X connect 35 0 33 1; #X connect 36 0 22 0; #X connect 37 0 23 0; #X connect 38 0 23 0; #X connect 39 0 36 0; #X connect 39 1 25 0; #X restore 360 677 pd qstndatacap; #X obj 360 254 tgl 15 1 empty empty keyb. -4 -10 0 10 -262144 -1 -1 1 1; #X obj 433 236 bng 15 250 50 0 empty empty 3:+/3 18 7 0 10 -262144 -1 -1; #X text 352 7 INTERFACE ENGINES; #X text 352 437 PROGRAM ENGINES; #X text 353 761 FILES ENGINES; #X obj 443 256 bng 15 250 50 0 empty empty 4:1/yY 18 7 0 10 -262144 -1 -1; #X obj 453 276 bng 15 250 50 0 empty empty 5:2/nN 18 7 0 10 -262144 -1 -1; #X obj 423 216 bng 15 250 50 0 empty empty 2:home/2 18 7 0 10 -262144 -1 -1; #X obj 413 196 bng 15 250 50 0 empty empty 1:-/1 18 7 0 10 -262144 -1 -1; #X text 21 788 - questionnaire data capture is text (.qst file); #X text 21 808 - audio recording is 44.1KHz/16bit (.wav file); #X connect 4 0 60 2; #X connect 5 0 60 1; #X connect 6 0 49 0; #X connect 45 0 60 0; #X connect 50 0 45 0; #X connect 50 0 5 0; #X connect 50 0 4 0; #X connect 50 0 6 0; #X connect 57 0 65 0; #X connect 61 0 56 1; #X connect 64 0 6 0; #X connect 65 0 45 0; #X connect 65 0 5 0; #X connect 65 0 4 0; #X connect 73 0 56 0; #X connect 74 0 56 4; #X connect 78 0 56 5; #X connect 79 0 56 6; #X connect 80 0 56 3; #X connect 81 0 56 2; #X coords 0 0 1 1 342 902 1 1 1; #X restore -341 -243 pd engines;