improve automatic resizing

kpofautoscalewin.pd

@@ -0,0 +1,17 @@
+#N canvas 1 52 450 300 10;
+#X obj 168 56 inlet;
+#X obj 169 176 pofscale;
+#X obj 257 63 r /fromkpofwin;
+#X obj 257 105 unpack f f;
+#X obj 257 85 route window;
+#X obj 259 128 / 400;
+#X obj 316 128 / 300;
+#X obj 169 198 outlet;
+#X connect 0 0 1 0;
+#X connect 1 0 7 0;
+#X connect 2 0 4 0;
+#X connect 3 0 5 0;
+#X connect 3 1 6 0;
+#X connect 4 0 3 0;
+#X connect 5 0 1 1;
+#X connect 6 0 1 2;

kpofquad.pd

@@ -1,4 +1,4 @@
-#N canvas 739 503 965 433 10;
+#N canvas 731 499 965 433 10;
 #X declare -path kollabs;
 #X obj 61 73 cnv 15 198 25 empty empty empty 20 12 0 14 -233017 -66577
 0;
@@ -55,12 +55,12 @@
 #X connect 19 1 15 1;
 #X connect 20 0 16 0;
 #X connect 20 1 16 1;
-#X restore 627 159 pd corners;
+#X restore 621 129 pd corners;
 #X text 19 301 1st: module ID \, needs to be unique \; 2nd: storage
 domain;
 #X obj 454 69 pofvisible 1;
 #X obj 494 31 r /kpof/\$1/state;
-#X obj 612 195 pofquad 200 200;
+#X obj 606 165 pofquad 200 200;
 #X obj 454 8 inlet;
 #N canvas 1 52 736 811 \$0-touchPins 0;
 #X obj 575 35 pofwin;
@@ -73,19 +73,40 @@ domain;
 #X obj 575 78 unpack f f;
 #X obj 633 123 route move;
 #X obj 633 145 s \$0-touch-move;
-#N canvas 1 52 450 300 touchblob 0;
+#X obj 55 672 poftranslate -200 -150;
+#X obj 55 714 unpack f f;
+#X obj 55 739 s /kpof/\$1/corner/top/left/x;
+#X obj 122 763 s /kpof/\$1/corner/top/left/y;
+#X obj 105 629 r /kpof/\$1/corner/top/left/x;
+#X obj 155 653 r /kpof/\$1/corner/top/left/y;
+#X obj 73 502 poftranslate -200 -150;
+#X obj 73 544 unpack f f;
+#X obj 92 332 poftranslate -200 -150;
+#X obj 92 374 unpack f f;
+#N canvas 549 160 537 508 touchblob 0;
 #X obj 28 88 pofcolor 0 1 0 1;
-#X msg 124 158 1;
-#X msg 168 158 0;
-#X obj 28 117 poftouch 20 20;
+#X msg 124 343 1;
+#X msg 168 343 0;
+#X obj 28 302 poftouch 20 20;
 #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
 #X obj 155 69 loadbang;
-#X obj 85 208 spigot;
-#X obj 85 184 r \$0-touch-move;
-#X obj 85 230 outlet;
+#X obj 85 393 spigot;
+#X obj 85 369 r \$0-touch-move;
+#X obj 85 410 outlet;
 #X obj 28 50 inlet;
-#X obj 123 137 route down up;
-#X connect 0 0 3 0;
+#X obj 123 322 route down up;
+#X obj 28 175 pofgetmatrix;
+#X obj 128 192 route scale;
+#X obj 128 214 unpack f f f;
+#X obj 28 282 pofscale;
+#X obj 167 114 r /fromkpofwin;
+#X obj 167 136 route window;
+#X obj 167 158 bang;
+#X msg 128 236 1 \$1;
+#X obj 128 258 /;
+#X msg 168 236 1 \$1;
+#X obj 168 258 /;
+#X connect 0 0 11 0;
 #X connect 1 0 0 1;
 #X connect 1 0 6 1;
 #X connect 2 0 0 1;
@@ -98,26 +119,63 @@ domain;
 #X connect 9 0 0 0;
 #X connect 10 0 1 0;
 #X connect 10 1 2 0;
-#X restore 55 693 pd touchblob;
-#X obj 55 672 poftranslate -200 -150;
-#X obj 55 714 unpack f f;
-#X obj 55 739 s /kpof/\$1/corner/top/left/x;
-#X obj 122 763 s /kpof/\$1/corner/top/left/y;
-#X obj 105 629 r /kpof/\$1/corner/top/left/x;
-#X obj 155 653 r /kpof/\$1/corner/top/left/y;
-#N canvas 1 52 450 300 touchblob 0;
+#X connect 11 0 14 0;
+#X connect 11 2 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 18 0;
+#X connect 13 1 20 0;
+#X connect 14 0 3 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 17 0 11 0;
+#X connect 18 0 19 0;
+#X connect 19 0 14 1;
+#X connect 20 0 21 0;
+#X connect 21 0 14 2;
+#X restore 110 183 pd touchblob;
+#X obj 110 162 poftranslate -200 -150;
+#X obj 110 204 unpack f f;
+#X obj 73 569 s /kpof/\$1/corner/top/right/x;
+#X obj 123 459 r /kpof/\$1/corner/top/right/x;
+#X obj 140 593 s /kpof/\$1/corner/top/right/y;
+#X obj 173 483 r /kpof/\$1/corner/top/right/y;
+#X obj 142 289 r /kpof/\$1/corner/bottom/right/x;
+#X obj 92 399 s /kpof/\$1/corner/bottom/right/x;
+#X obj 159 423 s /kpof/\$1/corner/bottom/right/y;
+#X obj 192 313 r /kpof/\$1/corner/bottom/right/y;
+#X obj 160 119 r /kpof/\$1/corner/bottom/left/x;
+#X obj 110 229 s /kpof/\$1/corner/bottom/left/x;
+#X obj 210 143 r /kpof/\$1/corner/bottom/left/y;
+#X obj 177 253 s /kpof/\$1/corner/bottom/left/y;
+#X text 150 18 principe touch :;
+#X text 149 34 une grande surface (taille affichage) pour capturer
+la position globale du touch;
+#X text 151 67 des surfaces d'interaction qui routent le signal global
+par spigot;
+#N canvas 1 52 537 508 touchblob 0;
 #X obj 28 88 pofcolor 0 1 0 1;
-#X msg 124 158 1;
-#X msg 168 158 0;
-#X obj 28 117 poftouch 20 20;
+#X msg 124 343 1;
+#X msg 168 343 0;
+#X obj 28 302 poftouch 20 20;
 #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
 #X obj 155 69 loadbang;
-#X obj 85 208 spigot;
-#X obj 85 184 r \$0-touch-move;
-#X obj 85 230 outlet;
+#X obj 85 393 spigot;
+#X obj 85 369 r \$0-touch-move;
+#X obj 85 410 outlet;
 #X obj 28 50 inlet;
-#X obj 123 137 route down up;
-#X connect 0 0 3 0;
+#X obj 123 322 route down up;
+#X obj 28 175 pofgetmatrix;
+#X obj 128 192 route scale;
+#X obj 128 214 unpack f f f;
+#X obj 28 282 pofscale;
+#X obj 167 114 r /fromkpofwin;
+#X obj 167 136 route window;
+#X obj 167 158 bang;
+#X msg 128 236 1 \$1;
+#X obj 128 258 /;
+#X msg 168 236 1 \$1;
+#X obj 168 258 /;
+#X connect 0 0 11 0;
 #X connect 1 0 0 1;
 #X connect 1 0 6 1;
 #X connect 2 0 0 1;
@@ -130,22 +188,44 @@ domain;
 #X connect 9 0 0 0;
 #X connect 10 0 1 0;
 #X connect 10 1 2 0;
-#X restore 73 523 pd touchblob;
-#X obj 73 502 poftranslate -200 -150;
-#X obj 73 544 unpack f f;
-#N canvas 1 52 450 300 touchblob 0;
+#X connect 11 0 14 0;
+#X connect 11 2 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 18 0;
+#X connect 13 1 20 0;
+#X connect 14 0 3 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 17 0 11 0;
+#X connect 18 0 19 0;
+#X connect 19 0 14 1;
+#X connect 20 0 21 0;
+#X connect 21 0 14 2;
+#X restore 92 352 pd touchblob;
+#N canvas 1 52 537 508 touchblob 0;
 #X obj 28 88 pofcolor 0 1 0 1;
-#X msg 124 158 1;
-#X msg 168 158 0;
-#X obj 28 117 poftouch 20 20;
+#X msg 124 343 1;
+#X msg 168 343 0;
+#X obj 28 302 poftouch 20 20;
 #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
 #X obj 155 69 loadbang;
-#X obj 85 208 spigot;
-#X obj 85 184 r \$0-touch-move;
-#X obj 85 230 outlet;
+#X obj 85 393 spigot;
+#X obj 85 369 r \$0-touch-move;
+#X obj 85 410 outlet;
 #X obj 28 50 inlet;
-#X obj 123 137 route down up;
-#X connect 0 0 3 0;
+#X obj 123 322 route down up;
+#X obj 28 175 pofgetmatrix;
+#X obj 128 192 route scale;
+#X obj 128 214 unpack f f f;
+#X obj 28 282 pofscale;
+#X obj 167 114 r /fromkpofwin;
+#X obj 167 136 route window;
+#X obj 167 158 bang;
+#X msg 128 236 1 \$1;
+#X obj 128 258 /;
+#X msg 168 236 1 \$1;
+#X obj 168 258 /;
+#X connect 0 0 11 0;
 #X connect 1 0 0 1;
 #X connect 1 0 6 1;
 #X connect 2 0 0 1;
@@ -158,22 +238,44 @@ domain;
 #X connect 9 0 0 0;
 #X connect 10 0 1 0;
 #X connect 10 1 2 0;
-#X restore 92 353 pd touchblob;
-#X obj 92 332 poftranslate -200 -150;
-#X obj 92 374 unpack f f;
-#N canvas 1 52 450 300 touchblob 0;
+#X connect 11 0 14 0;
+#X connect 11 2 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 18 0;
+#X connect 13 1 20 0;
+#X connect 14 0 3 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 17 0 11 0;
+#X connect 18 0 19 0;
+#X connect 19 0 14 1;
+#X connect 20 0 21 0;
+#X connect 21 0 14 2;
+#X restore 73 522 pd touchblob;
+#N canvas 1 52 537 508 touchblob 0;
 #X obj 28 88 pofcolor 0 1 0 1;
-#X msg 124 158 1;
-#X msg 168 158 0;
-#X obj 28 117 poftouch 20 20;
+#X msg 124 343 1;
+#X msg 168 343 0;
+#X obj 28 302 poftouch 20 20;
 #X msg 155 90 draw 1 \, shape ellipse \, dont_capture 2;
 #X obj 155 69 loadbang;
-#X obj 85 208 spigot;
-#X obj 85 184 r \$0-touch-move;
-#X obj 85 230 outlet;
+#X obj 85 393 spigot;
+#X obj 85 369 r \$0-touch-move;
+#X obj 85 410 outlet;
 #X obj 28 50 inlet;
-#X obj 123 137 route down up;
-#X connect 0 0 3 0;
+#X obj 123 322 route down up;
+#X obj 28 175 pofgetmatrix;
+#X obj 128 192 route scale;
+#X obj 128 214 unpack f f f;
+#X obj 28 282 pofscale;
+#X obj 167 114 r /fromkpofwin;
+#X obj 167 136 route window;
+#X obj 167 158 bang;
+#X msg 128 236 1 \$1;
+#X obj 128 258 /;
+#X msg 168 236 1 \$1;
+#X obj 168 258 /;
+#X connect 0 0 11 0;
 #X connect 1 0 0 1;
 #X connect 1 0 6 1;
 #X connect 2 0 0 1;
@@ -186,64 +288,58 @@ domain;
 #X connect 9 0 0 0;
 #X connect 10 0 1 0;
 #X connect 10 1 2 0;
-#X restore 110 183 pd touchblob;
-#X obj 110 162 poftranslate -200 -150;
-#X obj 110 204 unpack f f;
-#X obj 73 569 s /kpof/\$1/corner/top/right/x;
-#X obj 123 459 r /kpof/\$1/corner/top/right/x;
-#X obj 140 593 s /kpof/\$1/corner/top/right/y;
-#X obj 173 483 r /kpof/\$1/corner/top/right/y;
-#X obj 142 289 r /kpof/\$1/corner/bottom/right/x;
-#X obj 92 399 s /kpof/\$1/corner/bottom/right/x;
-#X obj 159 423 s /kpof/\$1/corner/bottom/right/y;
-#X obj 192 313 r /kpof/\$1/corner/bottom/right/y;
-#X obj 160 119 r /kpof/\$1/corner/bottom/left/x;
-#X obj 110 229 s /kpof/\$1/corner/bottom/left/x;
-#X obj 210 143 r /kpof/\$1/corner/bottom/left/y;
-#X obj 177 253 s /kpof/\$1/corner/bottom/left/y;
-#X text 150 18 principe touch :;
-#X text 149 34 une grande surface (taille affichage) pour capturer
-la position globale du touch;
-#X text 151 67 des surfaces d'interaction qui routent le signal global
-par spigot;
+#X connect 11 0 14 0;
+#X connect 11 2 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 18 0;
+#X connect 13 1 20 0;
+#X connect 14 0 3 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 17 0 11 0;
+#X connect 18 0 19 0;
+#X connect 19 0 14 1;
+#X connect 20 0 21 0;
+#X connect 21 0 14 2;
+#X restore 55 692 pd touchblob;
 #X connect 0 0 1 0;
 #X connect 1 0 6 0;
 #X connect 2 0 3 0;
-#X connect 3 0 10 0;
-#X connect 3 1 17 0;
-#X connect 3 2 20 0;
-#X connect 3 3 23 0;
+#X connect 3 0 9 0;
+#X connect 3 1 15 0;
+#X connect 3 2 17 0;
+#X connect 3 3 20 0;
 #X connect 3 4 4 0;
 #X connect 4 1 7 0;
 #X connect 5 0 0 0;
 #X connect 6 0 4 1;
 #X connect 6 1 4 2;
 #X connect 7 0 8 0;
-#X connect 9 0 11 0;
-#X connect 10 0 9 0;
-#X connect 11 0 12 0;
-#X connect 11 1 13 0;
-#X connect 14 0 10 1;
-#X connect 15 0 10 2;
-#X connect 16 0 18 0;
-#X connect 17 0 16 0;
-#X connect 18 0 25 0;
-#X connect 18 1 27 0;
+#X connect 9 0 39 0;
+#X connect 10 0 11 0;
+#X connect 10 1 12 0;
+#X connect 13 0 9 1;
+#X connect 14 0 9 2;
+#X connect 15 0 38 0;
+#X connect 16 0 22 0;
+#X connect 16 1 24 0;
+#X connect 17 0 37 0;
+#X connect 18 0 27 0;
+#X connect 18 1 28 0;
 #X connect 19 0 21 0;
 #X connect 20 0 19 0;
-#X connect 21 0 30 0;
-#X connect 21 1 31 0;
-#X connect 22 0 24 0;
-#X connect 23 0 22 0;
-#X connect 24 0 34 0;
-#X connect 24 1 36 0;
+#X connect 21 0 31 0;
+#X connect 21 1 33 0;
+#X connect 23 0 15 1;
+#X connect 25 0 15 2;
 #X connect 26 0 17 1;
-#X connect 28 0 17 2;
-#X connect 29 0 20 1;
+#X connect 29 0 17 2;
+#X connect 30 0 20 1;
 #X connect 32 0 20 2;
-#X connect 33 0 23 1;
-#X connect 35 0 23 2;
-#X restore 454 277 pd \$0-touchPins;
+#X connect 37 0 18 0;
+#X connect 38 0 16 0;
+#X connect 39 0 10 0;
+#X restore 454 357 pd \$0-touchPins;
 #N canvas 755 174 450 300 \$0-init 0;
 #X obj 98 76 loadbang;
 #X obj 98 98 list append \$1;
@@ -280,27 +376,27 @@ par spigot;
 #X obj 39 11 ds_reg \$2 /kpof/\$1/corner/top/left/x;
 #X obj 369 181 osc_bi \$2 /kpof/\$1/pins;
 #X restore 268 38 pd \$0-storage_&_osc;
-#N canvas 391 845 254 87 \$0-cfg_\$1 0;
+#N canvas 389 871 254 87 \$0-cfg_\$1 1;
 #X obj 2 2 cnv 15 250 80 empty empty corners 2 7 0 14 -233017 -66577
 0;
 #X obj 101 6 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/left/x
-/kpof/\$1/corner/top/left/x x -10 7 0 10 -261234 -1 -1 -200 256;
+/kpof/\$1/corner/top/left/x x -10 7 0 10 -261234 -1 -1 -163 256;
 #X obj 101 22 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/left/y
-/kpof/\$1/corner/top/left/y y -10 7 0 10 -261234 -1 -1 -200 256;
+/kpof/\$1/corner/top/left/y y -10 7 0 10 -261234 -1 -1 -98 256;
 #X obj 178 6 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/right/x
-/kpof/\$1/corner/top/right/x x -10 7 0 10 -261234 -1 -1 200 256;
+/kpof/\$1/corner/top/right/x x -10 7 0 10 -261234 -1 -1 120 256;
 #X obj 178 22 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/top/right/y
-/kpof/\$1/corner/top/right/y y -10 7 0 10 -261234 -1 -1 -200 256;
+/kpof/\$1/corner/top/right/y y -10 7 0 10 -261234 -1 -1 -104 256;
 #X obj 101 43 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/left/x
 /kpof/\$1/corner/bottom/left/x x -10 7 0 10 -261234 -1 -1 -200 256
 ;
 #X obj 101 59 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/left/y
-/kpof/\$1/corner/bottom/left/y y -10 7 0 10 -261234 -1 -1 200 256;
+/kpof/\$1/corner/bottom/left/y y -10 7 0 10 -261234 -1 -1 129 256;
 #X obj 178 43 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/right/x
 /kpof/\$1/corner/bottom/right/x x -10 7 0 10 -261234 -1 -1 200 256
 ;
 #X obj 178 59 nbx 5 14 -10000 10000 0 0 /kpof/\$1/corner/bottom/right/y
-/kpof/\$1/corner/bottom/right/y y -10 7 0 10 -261234 -1 -1 200 256
+/kpof/\$1/corner/bottom/right/y y -10 7 0 10 -261234 -1 -1 129 256
 ;
 #X obj 5 57 tgl 15 1 /kpof/\$1/pins /kpof/\$1/pins pins 17 7 0 10 -228856
 -1 -1 1 1;
@@ -308,13 +404,14 @@ par spigot;
 #X restore 268 137 pd \$0-cfg_\$1;
 #X obj 268 115 s pd-\$0-cfg_\$1;
 #X obj 454 101 t a a;
-#X obj 454 236 pofvisible 0;
-#X obj 472 187 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+#X obj 454 316 pofvisible 0;
+#X obj 472 267 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
 #X obj 135 77 tgl 15 1 /kpof/\$1/pins /kpof/\$1/pins pins 17 7 0 10
 -228856 -1 -1 1 1;
-#X obj 474 211 r /kpof/\$1/pins;
+#X obj 474 291 r /kpof/\$1/pins;
 #X obj 445 155 pofhead;
+#X obj 445 180 kpofautoscalewin;
 #X connect 2 0 15 0;
 #X connect 3 0 2 0;
 #X connect 5 0 9 0;
@@ -325,5 +422,6 @@ par spigot;
 #X connect 17 0 11 0;
 #X connect 18 0 17 0;
 #X connect 20 0 17 0;
-#X connect 21 0 17 0;
+#X connect 21 0 22 0;
+#X connect 22 0 17 0;
 #X coords 0 -1 1 1 200 45 1 60 55;

kpofwin.pd

@@ -1,9 +1,8 @@
-#N canvas 68 294 1053 726 10;
+#N canvas 64 292 1053 726 10;
 #X declare -path kollabs;
-#N canvas 265 159 768 272 storage_&_osc 0;
+#N canvas 263 158 768 272 storage_&_osc 0;
 #X obj 369 10 osc_r \$1 /kpofwin/window/x;
 #X obj 369 31 osc_r \$1 /kpofwin/window/y;
-#X obj 370 51 osc_r \$1 /kpofwin/normalizedtexcoords;
 #X obj 369 71 osc_r \$1 /kpofwin/framerate;
 #X obj 369 91 osc_r \$1 /kpofwin/cursor;
 #X obj 369 111 osc_r \$1 /kpofwin/position/x;
@@ -17,18 +16,19 @@
 #X obj 39 221 ds_reg \$1 /kpofwin/background/B;
 #X obj 41 13 ds_reg_global \$1 /kpofwin/window/x;
 #X obj 41 32 ds_reg_global \$1 /kpofwin/window/y;
-#X obj 39 51 ds_reg_global \$1 /kpofwin/normalizedtexcoords;
 #X obj 40 71 ds_reg_global \$1 /kpofwin/framerate;
 #X obj 40 92 ds_reg_global \$1 /kpofwin/cursor;
 #X obj 39 109 ds_reg_global \$1 /kpofwin/position/x;
 #X obj 40 134 ds_reg_global \$1 /kpofwin/position/y;
 #X obj 40 154 ds_reg_global \$1 /kpofwin/fullscreen;
+#X obj 39 51 ds_reg_global \$1 /kpofwin/normalizedtextcoords;
+#X obj 370 51 osc_r \$1 /kpofwin/normalizedtextcoords;
 #X restore 249 84 pd storage_&_osc;
 #X obj 28 369 cnv 15 360 60 empty empty creation_arguments: 3 8 0 12
 -191407 -1 0;
 #X text 33 388 1st: module ID \, needs to be unique \; 2nd: storage
 domain;
-#N canvas 1013 573 413 151 cfg_\$1 0;
+#N canvas 1005 569 413 151 cfg_\$1 0;
 #X obj 2 2 cnv 15 170 145 empty empty QUAD 20 12 0 14 -233017 -66577
 0;
 #X obj 179 2 cnv 15 190 145 empty empty BACKGROUND 20 12 0 14 -233017
@@ -39,10 +39,10 @@ empty -10 -9 0 10 -258113 -1 -1 0 0;
 empty -10 -9 0 10 -4034 -1 -1 0 0;
 #X obj 297 40 vsl 15 60 0 255 0 0 /kpofwin/background/B /kpofwin/background/B
 empty -10 -9 0 10 -4160 -1 -1 0 0;
-#X obj 15 38 tgl 15 0 /kpofwin/normalizedtexcoords /kpofwin/normalizedtexcoords
-normalizedtexcoords 17 7 0 10 -262144 -1 -1 0 1;
+#X obj 15 38 tgl 15 0 /kpofwin/normalizedtextcoords /kpofwin/normalizedtextcoords
+normalizedtextcoords 17 7 0 10 -262144 -1 -1 0 1;
 #X obj 15 58 tgl 15 0 /kpofwin/cursor /kpofwin/cursor cursor 17 7 0
-10 -262144 -1 -1 0 1;
+10 -262144 -1 -1 1 1;
 #X coords 0 0 1 1 155 300 0;
 #X restore 312 258 pd cfg_\$1;
 #N canvas 923 238 450 300 init 0;
@@ -76,8 +76,6 @@ normalizedtexcoords 17 7 0 10 -262144 -1 -1 0 1;
 #X obj 514 113 list prepend window;
 #X obj 514 135 list trim;
 #X obj 534 160 r /kpofwin/build;
-#X obj 594 182 r /kpofwin/normalizedtexcoords;
-#X msg 594 204 normalizedtextcoords \$1;
 #X msg 604 250 framerate \$1;
 #X msg 630 294 cursor \$1;
 #X obj 604 228 r /kpofwin/framerate;
@@ -129,52 +127,54 @@ fps -20 7 0 10 -261234 -1 -1 25 256;
 17 7 0 10 -262144 -1 -1 1 1;
 #X obj 838 101 s /kpofwin/fullscreen;
 #X obj 581 63 t b f;
+#X msg 594 204 normalizedtextcoords \$1;
+#X obj 594 182 r /kpofwin/normalizedtextcoords;
 #X connect 9 0 10 0;
-#X connect 9 0 56 0;
+#X connect 9 0 54 0;
 #X connect 10 0 11 0;
 #X connect 11 0 12 0;
 #X connect 11 1 13 0;
 #X connect 14 0 9 0;
-#X connect 15 0 45 0;
+#X connect 15 0 43 0;
 #X connect 16 0 17 0;
-#X connect 17 0 45 0;
-#X connect 17 1 45 1;
+#X connect 17 0 43 0;
+#X connect 17 1 43 1;
 #X connect 18 0 19 0;
 #X connect 19 0 9 0;
 #X connect 20 0 14 0;
-#X connect 21 0 22 0;
+#X connect 21 0 9 0;
 #X connect 22 0 9 0;
-#X connect 23 0 9 0;
-#X connect 24 0 9 0;
-#X connect 25 0 23 0;
-#X connect 26 0 24 0;
-#X connect 27 0 28 0;
-#X connect 27 1 28 1;
-#X connect 28 0 32 0;
-#X connect 29 0 9 0;
-#X connect 30 0 28 0;
-#X connect 31 0 27 0;
-#X connect 32 0 29 0;
-#X connect 41 0 42 0;
-#X connect 42 0 43 0;
-#X connect 45 0 18 0;
-#X connect 46 0 47 0;
-#X connect 46 0 63 0;
-#X connect 48 0 55 0;
-#X connect 49 0 48 0;
-#X connect 49 1 48 1;
-#X connect 50 0 49 0;
-#X connect 51 0 48 0;
-#X connect 51 1 48 2;
-#X connect 52 0 9 0;
-#X connect 53 0 48 0;
-#X connect 54 0 51 0;
-#X connect 55 0 52 0;
-#X connect 57 0 58 0;
-#X connect 58 0 59 0;
-#X connect 58 1 60 0;
-#X connect 59 0 62 0;
-#X connect 60 0 62 0;
-#X connect 63 0 45 0;
-#X connect 63 1 45 2;
+#X connect 23 0 21 0;
+#X connect 24 0 22 0;
+#X connect 25 0 26 0;
+#X connect 25 1 26 1;
+#X connect 26 0 30 0;
+#X connect 27 0 9 0;
+#X connect 28 0 26 0;
+#X connect 29 0 25 0;
+#X connect 30 0 27 0;
+#X connect 39 0 40 0;
+#X connect 40 0 41 0;
+#X connect 43 0 18 0;
+#X connect 44 0 45 0;
+#X connect 44 0 61 0;
+#X connect 46 0 53 0;
+#X connect 47 0 46 0;
+#X connect 47 1 46 1;
+#X connect 48 0 47 0;
+#X connect 49 0 46 0;
+#X connect 49 1 46 2;
+#X connect 50 0 9 0;
+#X connect 51 0 46 0;
+#X connect 52 0 49 0;
+#X connect 53 0 50 0;
+#X connect 55 0 56 0;
+#X connect 56 0 57 0;
+#X connect 56 1 58 0;
+#X connect 57 0 60 0;
+#X connect 58 0 60 0;
+#X connect 61 0 43 0;
+#X connect 61 1 43 2;
+#X connect 62 0 9 0;
+#X connect 63 0 62 0;
 #X coords 0 -1 1 1 172 150 1 60 55;

rpi-touchFix.pd

@@ -4,11 +4,11 @@
 #X obj 354 121 spigot 1;
 #X obj 407 48 r RPI-TOUCH;
 #X obj 167 109 == 0;
-#X text 420 324 si RPI-TOUCH;
-#X text 422 347 attender enter \, puis ecouter down;
-#X text 417 365 laisser passer down uniquement si pas de leave dans
+#X text 440 324 si RPI-TOUCH;
+#X text 442 347 attender enter \, puis ecouter down;
+#X text 437 365 laisser passer down uniquement si pas de leave dans
 ;
-#X text 421 380 les ms qui suivent;
+#X text 441 380 les ms qui suivent;
 #X obj 354 167 route down enter leave up;
 #X obj 354 245 spigot 0;
 #X msg 397 209 1;
@@ -21,9 +21,11 @@
 #X obj 566 59 * 2;
 #X obj 566 103 outlet;
 #X msg 566 81 dont_capture \$1;
-#X obj 354 286 pipe 2;
+#X obj 354 306 pipe 2;
 #X obj 397 189 t b a;
 #X msg 472 250 clear;
+#X obj 354 267 unpack f f f;
+#X obj 354 328 pack f f f;
 #X connect 0 0 15 0;
 #X connect 2 0 9 0;
 #X connect 3 0 4 0;
@@ -33,7 +35,7 @@
 #X connect 9 1 22 0;
 #X connect 9 2 12 0;
 #X connect 9 3 14 0;
-#X connect 10 0 21 0;
+#X connect 10 0 24 0;
 #X connect 11 0 10 1;
 #X connect 12 0 13 0;
 #X connect 12 1 23 0;
@@ -45,7 +47,11 @@
 #X connect 17 0 18 0;
 #X connect 18 0 20 0;
 #X connect 20 0 19 0;
-#X connect 21 0 1 0;
+#X connect 21 0 25 0;
 #X connect 22 0 11 0;
-#X connect 22 1 21 0;
+#X connect 22 1 24 0;
 #X connect 23 0 21 0;
+#X connect 24 0 21 0;
+#X connect 24 1 25 1;
+#X connect 24 2 25 2;
+#X connect 25 0 1 0;