quite ready version

still some bugs with state saving and number of points

ina.pd

@@ -1,4 +1,4 @@
-#N canvas 987 224 858 755 10;
+#N canvas 981 221 858 755 10;
 #X declare -lib pof;
 #X obj 245 12 declare -lib pof;
 #X obj 373 184 pofwin;
@@ -17,8 +17,8 @@
 #A 0 -36.2921 -7.19101 100 46.5169 -35.2809 -56.8539 -56.0674 -55.618
 0 0 0 0 0 0 0 0 0 0 0 0;
 #X obj 20 93 array define -k 2-pointsX 20;
-#A 0 -45.3034 -48.3236 2.1573 44.8719 26.7506 0 0 0 0 0 0 0 0 0 0 0
-0 0 0 0;
+#A 0 -45.3034 -48.3236 2.1573 44.8719 26.7506 -16.827 11.6494 0 0 0
+0 0 0 0 0 0 0 0 0 0;
 #X obj 20 113 array define -k 2-pointsY 20;
 #A 0 -37.6404 2.13483 33.4831 8.08989 -39.2135 -37.4157 0 0 0 0 0 0
 0 0 0 0 0 0 0 0;
@@ -29,15 +29,15 @@
 #A 0 -49.2135 -41.4607 0 36.0674 35.3933 34.1573 0 -45.3933 -41.7978
 0 0 0 0 0 0 0 0 0 0 0;
 #X obj 244 33 poffont font1 font/vera.ttf 20;
-#X obj 20 13 array define -k 1-values 3;
-#A 0 7 -136.773 0;
-#X obj 20 73 array define -k 2-values 3;
-#A 0 5 0 -92.9213;
-#X obj 20 133 array define -k 3-values 3;
-#A 0 8 194.157 52.6966;
+#X obj 20 13 array define -k 1-values 6;
+#A 0 6 -195 -28.0899 267 0 0;
+#X obj 20 73 array define -k 2-values 6;
+#A 0 5 21.573 -73.0337 95 0 0;
+#X obj 20 133 array define -k 3-values 6;
+#A 0 8 151.011 61.7978 141 0 0;
 #X obj 6 232 shape 1;
-#X obj 566 232 shape 3;
 #X obj 286 232 shape 2;
+#X obj 566 232 shape 3;
 #X connect 2 0 1 0;
 #X connect 4 0 1 0;
 #X connect 6 0 4 0;

shape.pd

@@ -1,4 +1,4 @@
-#N canvas 514 225 1077 791 10;
+#N canvas 502 219 1077 791 10;
 #X obj 11 -57 pofhead;
 #X msg 99 336 clear;
 #X msg 111 411 filled \$1;
@@ -12,11 +12,11 @@
 #X msg 169 594 scale \$1 \$1;
 #X floatatom 172 577 5 0 0 0 - - -, f 5;
 #X obj 93 665 t a;
-#X obj 73 715 pofpath 200 200;
+#X obj 73 765 pofpath 200 200;
 #X obj 141 657 loadbang;
 #X msg 691 280 clear;
 #X obj 319 146 hradio 15 1 0 15 empty empty empty 0 -8 0 10 -262144
--1 -1 5;
+-1 -1 4;
 #X obj 664 119 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X floatatom 514 172 5 0 0 0 - - -, f 5;
@@ -144,7 +144,7 @@
 #X obj 124 624 r \$1-path;
 #X obj 11 -34 pofvisible 1;
 #X obj 319 106 tgl 15 0 empty empty visible 17 7 0 10 -262144 -1 -1
-1 1;
+0 1;
 #X obj 41 152 t a a;
 #X obj 41 226 pofrect 50 50;
 #X obj 41 273 poftext font1;
@@ -178,7 +178,7 @@
 #X obj 558 148 + 1;
 #X obj 795 283 + 2;
 #X obj 454 109 hsl 90 10 -1920 1920 0 0 empty empty X 50 6 0 10 -262144
--1 -1 4133 1;
+-1 -1 0 1;
 #X obj 454 121 hsl 90 10 -500 500 0 0 empty empty Y 50 6 0 10 -262144
 -1 -1 0 1;
 #X obj 587 65 array set \$1-values 1;
@@ -200,6 +200,13 @@
 1;
 #X obj 129 1 t b;
 #X obj 10 -12 pofbang 1;
+#X obj 72 699 pofbang 1;
+#X floatatom 462 69 5 0 0 0 tex_scale - -, f 5;
+#X obj 123 720 array get \$1-values 3;
+#X msg 123 742 scale \$1 \$1;
+#X obj 567 28 array set \$1-values 3;
+#X obj 763 -33 r \$1-redraw;
+#X obj 763 -11 array get \$1-values 0;
 #X connect 0 0 32 0;
 #X connect 1 0 11 0;
 #X connect 2 0 11 0;
@@ -226,7 +233,7 @@
 #X connect 23 0 9 0;
 #X connect 24 0 25 0;
 #X connect 25 0 9 0;
-#X connect 27 0 12 0;
+#X connect 27 0 84 0;
 #X connect 29 0 19 0;
 #X connect 31 0 11 0;
 #X connect 32 0 83 0;
@@ -264,4 +271,11 @@
 #X connect 82 0 78 0;
 #X connect 83 0 73 0;
 #X connect 83 1 82 0;
+#X connect 84 0 12 0;
+#X connect 84 1 86 0;
+#X connect 85 0 88 0;
+#X connect 86 0 87 0;
+#X connect 87 0 12 0;
+#X connect 89 0 90 0;
+#X connect 90 0 19 1;
 #X coords 0 -1 1 1 280 500 1 300 60;