#N canvas 584 49 632 696 10;
#X obj 19 44 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1;
#X msg 234 60 4 2 # 1 1 1 -1 -1 -1 -1 1;
#X obj 104 198 display;
#X obj 50 270 display;
#X obj 234 98 #rotate;
#X obj 282 82 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10
-241291 -1 -1 -1831 256;
#X obj 282 98 * 100;
#X obj 18 497 #out window;
#X obj 43 164 #t;
#X obj 104 158 #moment;
#X msg 39 100 240 320 1 #;
#X obj 39 119 #draw_polygon put (1 # 255);
#X obj 468 100 #pack;
#X obj 234 117 # +;
#X obj 498 84 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10
-241291 -1 -1 -45 256;
#X obj 468 68 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10
-241291 -1 -1 12 256;
#X obj 426 62 #pack;
#X obj 456 46 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10
-241291 -1 -1 32 256;
#X obj 426 30 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10
-241291 -1 -1 49 256;
#X obj 234 79 # *;
#X obj 246 162 # inv+;
#X obj 252 140 # +;
#X obj 510 139 #pack;
#X obj 540 123 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10
-241291 -1 -1 149 256;
#X obj 510 107 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10
-241291 -1 -1 128 256;
#X obj 39 138 #draw_polygon put (1 # 255);
#X text 162 460 red filter;
#X text 119 100 draw rectangles;
#X text 238 43 rectangle polygon;
#X obj 43 199 #moment 2;
#X obj 55 220 #moment_polar;
#X obj 130 240 display;
#X obj 55 240 display;
#X obj 5 81 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1
;
#X text 120 333 this is a fudge factor.;
#X obj 18 516 fps;
#X floatatom 18 535 5 0 0 0 - - -;
#X text 119 345 depending on what you want to do \,;
#X text 119 357 you set it to 2 \, 3 \, 4 \, whatever.;
#X obj 402 314 #outer + (9000 0);
#X obj 445 431 #transpose;
#X obj 20 80 t b b b;
#X obj 402 518 # + (120 160);
#X obj 43 317 #cast f;
#X obj 402 352 #cast f;
#X obj 402 498 #cast i;
#X obj 43 393 #swap;
#X obj 402 276 #for 0 160;
#X obj 43 374 # sqrt (f #);
#X obj 43 336 # * (f # 3);
#X obj 402 478 # / (f # 1000);
#X obj 402 333 # cos* 1000;
#X obj 402 295 # * 225;
#X obj 18 459 #inner (1 3 # 1 0 0);
#X obj 18 478 #draw_polygon + (0 255 255) (2 2 #);
#X obj 19 61 metro 20;
#X obj 18 164 #t;
#X obj 43 355 cv/#SVD;
#X obj 0 0 doc_h;
#X obj 3 559 doc_c 0..1;
#X obj 3 734 doc_i 2;
#X obj 3 857 doc_o 1;
#X obj 14 887 doc_oo 0;
#X obj 14 764 doc_ii 0;
#X obj 14 786 doc_ii 1;
#X obj 14 589 doc_cc 0;
#X obj 0 961 doc_f;
#X obj 0 961 doc_f;
#X obj 97 887 doc_m o0 grid;
#X obj 97 786 doc_m i1 grid;
#X obj 97 764 doc_m i0 grid;
#X obj 97 589 doc_m c0 float;
#X text 232 887 mode 1: a grid[2];
#X text 232 909 mode 2: a grid[2 \, 2];
#X text 232 764 greyscale image;
#X text 232 786 mode 2: alleged centroid (doesn't have to be the real
centroid \, but when it is \, the output will be the variance matrix
\; else it won't be a centred moment);
#X text 232 589 when \$1=1 \, [#moment] calculates the average index
of the values in the grid \, weighted by the values themselves. If
no argument is specified \, this is the default value.;
#X text 232 637 when \$2=2 \, [#moment] calculates the average square
of index of the values in the grid \, weighted by the values themselves.
this can be used to compute a variance (covariance) matrix \, which
in turn can be fed to [#moment_polar] to figure out the standard deviation
and the direction of the standard deviation.;
#X obj 3 941 doc_also;
#X obj 43 434 display;
#X obj 402 458 #inner;
#X obj 43 414 #inner;
#X obj 103 941 #labelling;
#X obj 175 941 #moment_polar;
#X obj 111 178 s \$0-moment;
#X obj 402 251 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X connect 0 0 55 0;
#X connect 1 0 19 0;
#X connect 4 0 13 0;
#X connect 5 0 6 0;
#X connect 6 0 4 1;
#X connect 7 0 35 0;
#X connect 8 0 29 0;
#X connect 8 1 9 0;
#X connect 9 0 2 0;
#X connect 9 0 29 1;
#X connect 9 0 84 0;
#X connect 10 0 11 0;
#X connect 11 0 25 0;
#X connect 12 0 13 1;
#X connect 13 0 21 0;
#X connect 13 0 20 0;
#X connect 14 0 12 1;
#X connect 15 0 12 0;
#X connect 16 0 19 1;
#X connect 17 0 16 1;
#X connect 18 0 16 0;
#X connect 19 0 4 0;
#X connect 20 0 25 2;
#X connect 21 0 11 2;
#X connect 22 0 21 1;
#X connect 22 0 20 1;
#X connect 23 0 22 1;
#X connect 24 0 22 0;
#X connect 25 0 56 0;
#X connect 29 0 3 0;
#X connect 29 0 30 0;
#X connect 29 0 43 0;
#X connect 30 0 32 0;
#X connect 30 1 31 0;
#X connect 33 0 41 0;
#X connect 35 0 36 0;
#X connect 39 0 51 0;
#X connect 40 0 80 1;
#X connect 41 1 10 0;
#X connect 41 2 1 0;
#X connect 42 0 54 2;
#X connect 43 0 49 0;
#X connect 44 0 80 0;
#X connect 45 0 42 0;
#X connect 46 0 81 0;
#X connect 46 1 81 1;
#X connect 47 0 52 0;
#X connect 48 0 46 0;
#X connect 49 0 57 0;
#X connect 50 0 45 0;
#X connect 51 0 44 0;
#X connect 52 0 39 0;
#X connect 53 0 54 0;
#X connect 54 0 7 0;
#X connect 55 0 41 0;
#X connect 56 0 53 0;
#X connect 56 1 8 0;
#X connect 57 0 48 0;
#X connect 57 1 46 1;
#X connect 68 1 72 0;
#X connect 68 1 73 0;
#X connect 69 1 75 0;
#X connect 70 1 74 0;
#X connect 71 1 76 0;
#X connect 71 1 77 0;
#X connect 78 1 82 0;
#X connect 78 1 83 0;
#X connect 80 0 50 0;
#X connect 81 0 79 0;
#X connect 81 0 40 0;
#X connect 85 0 47 0;