make note length respect page boundaries when redrawing notes

unpunch.pd

@@ -2611,7 +2611,7 @@ num float nvis;
 #X connect 22 1 23 0;
 #X connect 22 2 6 0;
 #X restore 14 197 pd pitchoffset.calculations;
-#N canvas 709 644 363 270 page.boundaries 1;
+#N canvas 709 644 363 270 page.boundaries 0;
 #X obj 10 11 r \$0.page;
 #X obj 25 40 r \$0.stepsperpage;
 #X obj 10 99 *;
@@ -3289,10 +3289,10 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
 #X msg 422 127 \$1 \$6;
 #X obj 6 419 list prepend scalar \$0.note;
 #X obj 6 442 list trim;
-#N canvas 16 91 407 242 w 0;
+#N canvas 51 152 524 298 w 0;
 #X obj 7 21 inlet;
-#X obj 7 175 outlet;
-#X msg 7 44 \$5;
+#X obj 7 255 outlet;
+#X msg 7 82 \$5;
 #N canvas 0 99 405 189 duration->w 0;
 #X obj 13 14 inlet;
 #X obj 13 37 t b a;
@@ -3305,10 +3305,46 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
 #X connect 1 1 4 0;
 #X connect 2 0 3 0;
 #X connect 5 0 2 1;
-#X restore 7 87 pd duration->w;
-#X connect 0 0 2 0;
-#X connect 2 0 3 0;
+#X restore 7 227 pd duration->w;
+#X obj 333 53 r \$0.pagerightboundary;
+#X obj 176 84 r \$0.pageleftboundary;
+#X msg 131 81 \$2;
+#X obj 7 154 -;
+#X obj 131 111 pack f f;
+#X obj 131 159 -;
+#X msg 131 134 \$2 \$1;
+#X obj 131 182 max 0;
+#X obj 299 211 r \$0.stepsperpage;
+#X obj 7 50 t a a a, f 42;
+#X obj 333 76 + 1;
+#X msg 256 115 \$2;
+#X obj 256 140 pack f f;
+#X obj 256 188 -;
+#X msg 256 163 \$2 \$1;
+#X obj 256 211 min;
+#X obj 7 191 min;
+#X connect 0 0 13 0;
+#X connect 2 0 7 0;
 #X connect 3 0 1 0;
+#X connect 4 0 14 0;
+#X connect 5 0 8 1;
+#X connect 6 0 8 0;
+#X connect 7 0 20 0;
+#X connect 8 0 10 0;
+#X connect 9 0 11 0;
+#X connect 10 0 9 0;
+#X connect 11 0 7 1;
+#X connect 12 0 19 1;
+#X connect 13 0 2 0;
+#X connect 13 1 6 0;
+#X connect 13 2 15 0;
+#X connect 14 0 16 1;
+#X connect 15 0 16 0;
+#X connect 16 0 18 0;
+#X connect 17 0 19 0;
+#X connect 18 0 17 0;
+#X connect 19 0 20 1;
+#X connect 20 0 3 0;
 #X restore 86 251 pd w;
 #N canvas 6 99 432 235 h 0;
 #X obj 7 21 inlet;
@@ -3553,6 +3589,7 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
 #X obj 6 306 spigot 1;
 #X obj 70 319 &;
 #X obj 79 293 t b a;
+#X text 118 304 do not draw out-of-boundary notes;
 #X connect 0 0 1 0;
 #X connect 1 0 2 0;
 #X connect 2 0 32 0;