add 'clear' internal helper

unpunch.pd

@@ -5053,9 +5053,6 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 777 \; \$1.griddivision 4 \; \$1.gridsubdivision 4 \; \$1.gidcolorlist
 800 840 80 68 408 808 \; \$1.default.vel 64 \; \$1.default.gid 0 \;
 \$1.default.dur 4 \; \$1.default.show 0 \; \$1.redraw bang \;;
-#X obj 333 508 s \$0.global.receive;
-#X msg 333 485 note change duration 0 \$1;
-#X floatatom 333 460 5 0 0 0 - - -;
 #N canvas 25 99 968 522 key.commands 0;
 #N canvas 0 99 397 411 mod.keys 0;
 #X obj 25 15 keyname;
@@ -5397,6 +5394,8 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X connect 25 0 26 0;
 #X restore 3 80 pd keyboard.toggle.logic;
 #X restore 19 215 pd interaction.logic;
+#X msg 480 480 clear;
+#X obj 480 505 s \$1;
 #X connect 0 0 22 0;
 #X connect 1 0 2 0;
 #X connect 2 0 45 0;
@@ -5427,5 +5426,4 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X connect 38 3 4 0;
 #X connect 38 4 7 0;
 #X connect 38 5 0 0;
-#X connect 47 0 46 0;
-#X connect 48 0 47 0;
+#X connect 48 0 49 0;