trabalhinho em pure data

pong.pd

#N canvas 302 120 948 737 10;
#X msg 53 62 destroy;
#X obj 11 118 gemhead;
#X obj 19 153 color;
#X msg 76 124 1 1 1;
#X obj 33 273 square 0.2;
#X obj 145 115 vsl 15 75 -22 22 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 1665 1;
#X obj 450 248 float;
#X obj 366 163 t b b;
#X obj 403 265 +;
#X obj 364 213 float;
#X floatatom 446 158 5 0 0 0 - - -, f 5;
#X floatatom 494 185 5 0 0 0 - - -, f 5;
#X obj 436 120 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 512 138 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 450 214 t b f;
#X floatatom 390 293 5 0 0 0 - - -, f 5;
#X obj 430 371 sel 1 0;
#X obj 344 364 sel 1 0;
#X floatatom 495 39 5 0 0 0 - - -, f 5;
#X obj 496 15 bng 15 250 50 0 empty empty reset 17 7 0 10 -262144 -1
-1;
#X obj 367 30 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 367 50 metro 42;
#X obj 759 325 float;
#X obj 675 240 t b b;
#X obj 712 342 +;
#X obj 673 290 float;
#X floatatom 755 235 5 0 0 0 - - -, f 5;
#X floatatom 803 262 5 0 0 0 - - -, f 5;
#X obj 745 197 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 821 215 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 759 291 t b f;
#X floatatom 699 370 5 0 0 0 - - -, f 5;
#X obj 740 452 sel 1 0;
#X obj 653 441 sel 1 0;
#X obj 733 426 expr if($f1 <= -4 \, 1 \, 0) \;;
#X obj 662 395 expr if($f1 >= 4 \, 1 \, 0) \;;
#X obj 182 118 vsl 15 75 -4 4 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 4163 1;
#X obj 166 86 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 611 59 random 8;
#X obj 611 81 - 4;
#X obj 631 12 bng 15 250 50 0 empty empty random_pos 17 7 0 10 -262144
-1 -1;
#X obj 700 57 random 8;
#X obj 700 79 - 4;
#X obj 631 35 t b b;
#X obj 22 239 translateXYZ;
#X obj 32 322 translateXYZ;
#X obj 71 297 * -1;
#X obj 117 298 * -1;
#X obj 35 418 rectangle 0.2 1;
#X obj 35 385 translateXYZ;
#X obj 130 352 hsl 128 15 -3 3 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 5700 1;
#X obj 36 469 translateXYZ;
#X obj 71 442 * -1;
#X obj 117 443 * -1;
#X obj 99 342 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 46 671 rectangle 0.2 1;
#X obj 64 607 translateXYZ;
#X obj 181 564 hsl 128 15 -3 3 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2100 1;
#X obj 128 564 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 39 91 gemwin 30;
#X text 361 401 increment and check H;
#X text 673 486 increment and check V;
#X obj 260 655 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 409 569 5 0 0 0 - - -, f 5;
#X obj 218 629 expr if($f1 < $f2 && $f1 > $f3 \, 1 \, 0);
#X floatatom 213 598 5 0 0 0 - - -, f 5;
#X obj 318 592 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 69 361 nbx 4 14 -1e+37 1e+37 0 1 empty empty empty 0 -8 0 10
-262144 -1 -1 -21 256;
#X obj 89 586 nbx 3 14 -1e+37 1e+37 0 1 empty empty empty 0 -8 0 10
-262144 -1 -1 21 256;
#X obj 365 599 + 0.5;
#X obj 435 599 - 0.5;
#X obj 840 31 nbx 5 14 -1e+37 1e+37 0 1 empty empty vel 0 -8 0 10 -262144
-1 -1 0.1 256;
#X obj 861 72 * -1;
#X obj 248 681 sel 0 1;
#X obj 231 711 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -8 0 10
-262144 -1 -1 22 256;
#X obj 293 712 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -8 0 10
-262144 -1 -1 20.5 256;
#X obj 353 318 expr if($f1 >= $f2 \, 1 \, 0) \;;
#X obj 187 493 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 357 426 5 0 0 0 - - -, f 5;
#X obj 179 471 expr if($f1 < $f2 && $f1 > $f3 \, 1 \, 0);
#X floatatom 204 450 5 0 0 0 - - -, f 5;
#X obj 252 428 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 332 447 + 0.5;
#X obj 395 449 - 0.5;
#X obj 184 512 sel 0 1;
#X obj 163 535 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -8 0 10
-262144 -1 -1 -22 256;
#X obj 227 536 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -8 0 10
-262144 -1 -1 -20.5 256;
#X obj 424 347 expr if($f1 <= $f2 \, 1 \, 0) \;;
#X msg 12 32 dimen 1500 800 \, create \, 1;
#X obj 15 202 translateXYZ;
#X floatatom 71 176 5 0 0 0 - - -, f 5;
#X obj 245 30 hradio 15 1 0 3 empty empty who_i_am? 0 -8 0 10 -262144
-1 -1 0;
#X obj 245 50 sel 0 1 2;
#X obj 233 76 nbx 3 14 -1e+37 1e+37 0 1 empty empty empty 0 -8 0 10
-262144 -1 -1 15 256;
#X obj 265 95 nbx 3 14 -1e+37 1e+37 0 1 empty empty empty 0 -8 0 10
-262144 -1 -1 0 256;
#X obj 298 116 nbx 3 14 -1e+37 1e+37 0 1 empty empty empty 0 -8 0 10
-262144 -1 -1 -15 256;
#X connect 0 0 59 0;
#X connect 1 0 2 0;
#X connect 2 0 89 0;
#X connect 3 0 2 1;
#X connect 4 0 45 0;
#X connect 5 0 44 1;
#X connect 5 0 46 0;
#X connect 6 0 8 1;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 8 0 15 0;
#X connect 9 0 8 0;
#X connect 10 0 14 0;
#X connect 11 0 14 0;
#X connect 12 0 10 0;
#X connect 13 0 11 0;
#X connect 14 0 6 0;
#X connect 14 1 6 1;
#X connect 15 0 5 0;
#X connect 15 0 76 0;
#X connect 15 0 87 0;
#X connect 16 0 12 0;
#X connect 17 0 13 0;
#X connect 18 0 9 1;
#X connect 18 0 15 0;
#X connect 18 0 25 1;
#X connect 18 0 31 0;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 21 0 7 0;
#X connect 21 0 23 0;
#X connect 22 0 24 1;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 24 0 31 0;
#X connect 25 0 24 0;
#X connect 26 0 30 0;
#X connect 27 0 30 0;
#X connect 28 0 26 0;
#X connect 29 0 27 0;
#X connect 30 0 22 0;
#X connect 30 1 22 1;
#X connect 31 0 34 0;
#X connect 31 0 35 0;
#X connect 31 0 36 0;
#X connect 31 0 63 0;
#X connect 31 0 78 0;
#X connect 32 0 28 0;
#X connect 33 0 29 0;
#X connect 34 0 32 0;
#X connect 35 0 33 0;
#X connect 36 0 37 0;
#X connect 36 0 44 2;
#X connect 36 0 47 0;
#X connect 37 0 5 0;
#X connect 38 0 39 0;
#X connect 39 0 9 1;
#X connect 40 0 43 0;
#X connect 41 0 42 0;
#X connect 42 0 25 1;
#X connect 43 0 7 0;
#X connect 43 0 23 0;
#X connect 43 1 41 0;
#X connect 43 1 38 0;
#X connect 44 0 4 0;
#X connect 45 0 49 0;
#X connect 46 0 45 1;
#X connect 47 0 45 2;
#X connect 48 0 51 0;
#X connect 49 0 48 0;
#X connect 50 0 49 2;
#X connect 50 0 54 0;
#X connect 50 0 53 0;
#X connect 50 0 80 0;
#X connect 51 0 56 0;
#X connect 52 0 51 1;
#X connect 53 0 51 2;
#X connect 54 0 67 0;
#X connect 56 0 55 0;
#X connect 57 0 56 2;
#X connect 57 0 58 0;
#X connect 57 0 65 0;
#X connect 58 0 68 0;
#X connect 62 0 73 0;
#X connect 63 0 66 0;
#X connect 63 0 69 0;
#X connect 63 0 70 0;
#X connect 64 0 62 0;
#X connect 65 0 64 0;
#X connect 66 0 65 0;
#X connect 67 0 49 1;
#X connect 67 0 52 0;
#X connect 68 0 56 1;
#X connect 69 0 64 1;
#X connect 70 0 64 2;
#X connect 71 0 72 0;
#X connect 71 0 10 0;
#X connect 71 0 26 0;
#X connect 72 0 27 0;
#X connect 72 0 11 0;
#X connect 73 0 74 0;
#X connect 73 1 75 0;
#X connect 74 0 76 1;
#X connect 75 0 76 1;
#X connect 76 0 17 0;
#X connect 77 0 84 0;
#X connect 78 0 81 0;
#X connect 78 0 82 0;
#X connect 78 0 83 0;
#X connect 79 0 77 0;
#X connect 80 0 79 0;
#X connect 81 0 80 0;
#X connect 82 0 79 1;
#X connect 83 0 79 2;
#X connect 84 0 85 0;
#X connect 84 1 86 0;
#X connect 85 0 87 1;
#X connect 86 0 87 1;
#X connect 87 0 16 0;
#X connect 88 0 59 0;
#X connect 89 0 44 0;
#X connect 90 0 89 1;
#X connect 91 0 92 0;
#X connect 92 0 93 0;
#X connect 92 1 94 0;
#X connect 92 2 95 0;
#X connect 93 0 90 0;
#X connect 94 0 90 0;
#X connect 95 0 90 0;