adapt gemlist object to remove error at each frame.

svn path=/trunk/externals/pix_opencv/; revision=16672

1 files changed, 57 insertions, 55 deletions

diff --git a/pix_opencv_contours-help.pd b/pix_opencv_contours-help.pd
index dd0a77f..815165d 100644
--- a/pix_opencv_contours-help.pd
+++ b/pix_opencv_contours-help.pd
@@ -1,4 +1,4 @@
-#N canvas 703 374 1125 496 10;
+#N canvas 699 401 836 479 10;
 #X obj 472 38 cnv 15 220 250 empty empty empty 20 12 0 14 -228992 -66577
 0;
 #X obj 11 56 cnv 15 450 100 empty empty empty 20 12 0 14 -233017 -66577
@@ -23,19 +23,18 @@ image \, simplifies it according to the epsilon value and outputs contours
 with area greater than area value on second outlet;
 #X obj 487 171 pix_gray;
 #X obj 487 141 pix_buf;
-#N canvas 872 273 919 782 drawcontours 0;
+#N canvas 870 278 919 782 drawcontours 0;
 #X obj 249 179 list split 2;
-#X obj 422 675 GEMglEnd;
-#X obj 461 611 GEMglVertex2d;
+#X obj 241 640 GEMglEnd;
+#X obj 371 637 GEMglVertex2d;
 #X obj 283 310 list append;
 #X obj 312 284 t b a;
 #X obj 312 263 list split 2;
-#X obj 472 514 unpack;
+#X obj 412 542 unpack;
 #X obj 381 304 t b a;
-#X obj 283 206 t b a b;
-#X obj 500 311 color 1 0 0 1;
-#X obj 536 564 * -8;
-#X obj 536 584 + 4;
+#X obj 500 361 color 1 0 0 1;
+#X obj 476 592 * -8;
+#X obj 476 612 + 4;
 #N canvas 716 313 619 726 color 0;
 #X obj 201 -38 inlet;
 #X obj 302 -38 inlet;
@@ -137,60 +136,64 @@ with area greater than area value on second outlet;
 #X connect 7 0 2 1;
 #X connect 8 0 10 0;
 #X connect 9 0 5 0;
-#X restore 575 281 pd color;
+#X restore 575 331 pd color;
 #X obj 249 117 t a b;
-#X obj 500 375 GEMglLineWidth 2;
-#X obj 500 344 scaleXYZ 1 1 1;
-#X obj 472 564 * 10.6666;
-#X obj 472 584 - 5.33333;
-#X floatatom 616 324 5 0 0 0 - - -;
-#X obj 620 207 inlet;
-#X obj 422 646 gemlist;
-#X obj 461 442 gemlist;
-#X obj 500 411 GEMglBegin GL_LINE_LOOP;
-#X obj 620 236 t b;
-#X obj 500 248 gemhead;
-#X obj 500 193 loadbang;
-#X msg 500 214 0;
+#X obj 500 425 GEMglLineWidth 2;
+#X obj 500 394 scaleXYZ 1 1 1;
+#X obj 412 592 * 10.6666;
+#X obj 412 612 - 5.33333;
+#X floatatom 616 374 5 0 0 0 - - -;
+#X obj 620 257 inlet;
+#X obj 241 611 gemlist;
+#X obj 371 468 gemlist;
+#X obj 500 461 GEMglBegin GL_LINE_LOOP;
+#X obj 620 286 t b;
+#X obj 540 194 gemhead;
+#X obj 540 139 loadbang;
+#X msg 540 160 0;
 #X obj 204 208 unpack 0 0;
 #X floatatom 204 229 5 0 0 0 nb_of_segments - -;
 #X obj 249 62 inlet CONTOUR;
-#X connect 0 0 27 0;
-#X connect 0 1 8 0;
-#X connect 2 0 20 1;
+#X obj 500 336 gemlist;
+#X obj 283 206 t b a b b;
+#X connect 0 0 26 0;
+#X connect 0 1 30 0;
 #X connect 3 0 5 0;
 #X connect 4 0 3 0;
 #X connect 4 1 7 0;
 #X connect 5 0 4 0;
 #X connect 5 1 3 1;
-#X connect 6 0 16 0;
-#X connect 6 1 10 0;
-#X connect 7 0 21 0;
+#X connect 6 0 15 0;
+#X connect 6 1 9 0;
+#X connect 7 0 20 0;
 #X connect 7 1 6 0;
-#X connect 8 0 20 0;
-#X connect 8 1 5 0;
-#X connect 8 2 24 0;
-#X connect 9 0 15 0;
-#X connect 10 0 11 0;
-#X connect 11 0 2 2;
-#X connect 12 0 9 1;
-#X connect 13 0 0 0;
-#X connect 13 1 12 0;
-#X connect 14 0 22 0;
-#X connect 15 0 14 0;
-#X connect 16 0 17 0;
-#X connect 17 0 2 1;
-#X connect 18 0 15 2;
-#X connect 19 0 23 0;
-#X connect 20 0 1 0;
-#X connect 21 0 2 0;
-#X connect 22 0 21 1;
-#X connect 23 0 12 1;
-#X connect 24 0 9 0;
-#X connect 25 0 26 0;
-#X connect 26 0 24 0;
-#X connect 27 0 28 0;
-#X connect 29 0 13 0;
+#X connect 8 0 14 0;
+#X connect 9 0 10 0;
+#X connect 10 0 2 2;
+#X connect 11 0 8 1;
+#X connect 12 0 0 0;
+#X connect 12 1 11 0;
+#X connect 13 0 21 0;
+#X connect 14 0 13 0;
+#X connect 15 0 16 0;
+#X connect 16 0 2 1;
+#X connect 17 0 14 2;
+#X connect 18 0 22 0;
+#X connect 19 0 1 0;
+#X connect 20 0 2 0;
+#X connect 22 0 11 1;
+#X connect 23 0 29 1;
+#X connect 23 0 20 1;
+#X connect 23 0 19 1;
+#X connect 24 0 25 0;
+#X connect 25 0 23 0;
+#X connect 26 0 27 0;
+#X connect 28 0 12 0;
+#X connect 29 0 8 0;
+#X connect 30 0 19 0;
+#X connect 30 1 5 0;
+#X connect 30 2 29 0;
+#X connect 30 3 23 0;
 #X restore 575 315 pd drawcontours;
 #X obj 487 76 t b a a;
 #X obj 487 57 gemhead 1;
@@ -224,7 +227,7 @@ with area greater than area value on second outlet;
 #X connect 6 0 0 0;
 #X connect 7 0 0 0;
 #X restore 359 254 pd gemwin;
-#X msg 359 235 destroy;
+#X msg 359 235 create;
 #X text 355 214 Create window:;
 #X text 31 224 Inlet 1: binarized image;
 #X msg 625 141 2;
@@ -453,6 +456,5 @@ with area greater than area value on second outlet;
 #X connect 32 0 31 0;
 #X connect 35 0 22 0;
 #X connect 43 0 18 0;
-#X connect 44 0 36 0;
 #X connect 45 1 43 0;
 #X connect 45 2 44 0;