#N canvas 539 151 632 669 10;
#X msg 263 58 4 2 # 1 1 1 5 5 5 5 1;
#X text 413 58 should give 3 3;
#X obj 282 188 display;
#X obj 203 219 #outer + (-4 4);
#X obj 203 238 #transpose;
#X obj 37 64 metro 42;
#X obj 37 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X msg 37 83 240 320 3 #;
#X obj 37 256 #out window;
#X obj 37 122 #draw_polygon + (255 0 0);
#X obj 37 219 #draw_rect + (255 255 0);
#X obj 378 188 display;
#X obj 281 168 #polygon_moment;
#X obj 263 77 # * (10 20);
#X obj 263 96 #rotate;
#X floatatom 316 98 5 0 0 0 - - -;
#X obj 0 0 doc_h;
#X obj 3 375 doc_i 2;
#X obj 3 291 doc_c 1;
#X obj 3 516 doc_o 1;
#X obj 14 546 doc_oo 0;
#X obj 14 405 doc_ii 0;
#X obj 14 427 doc_ii 1;
#X obj 14 321 doc_cc 0;
#X obj 97 321 doc_m c0 float;
#X text 232 343 2: second-order moment (standard-deviation);
#X obj 97 546 doc_m o0 grid;
#X obj 97 405 doc_m i0 grid;
#X obj 97 427 doc_m i1 grid;
#X text 232 427 centre to subtract from the input;
#X text 232 449 in the case of an average \, you'd leave this unused
;
#X text 232 471 but in the case of a standard-deviation \, you'd put
the average in here \, unless you want a nonstandard deviation.;
#X obj 0 637 doc_f;
#X obj 3 617 doc_also;
#X obj 377 168 #polygon_moment 2;
#X text 232 321 1: first-order moment (average) (default: 1);
#X text 232 405 dim(vertices \, 2): polygon;
#X text 232 546 dim(2): average position of all points in the polygon.
this is like [#moment] on [#draw_polygon] but potentially more precise
\, faster \, and you don't have to think about the size of the drawing
surface.;
#X obj 103 617 #polygon_area;
#X obj 193 617 #polygon_perimetre;
#X connect 0 0 13 0;
#X connect 3 0 4 0;
#X connect 4 0 10 2;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 12 0 2 0;
#X connect 12 0 3 0;
#X connect 13 0 14 0;
#X connect 14 0 9 2;
#X connect 14 0 12 0;
#X connect 14 0 34 0;
#X connect 15 0 14 1;
#X connect 24 1 35 0;
#X connect 24 1 25 0;
#X connect 26 1 37 0;
#X connect 27 1 36 0;
#X connect 28 1 29 0;
#X connect 28 1 30 0;
#X connect 28 1 31 0;
#X connect 33 1 38 0;
#X connect 33 1 39 0;
#X connect 34 0 11 0;