implement 'note restore' in sequencer

unpunch.pd

@@ -1563,7 +1563,7 @@ float hilite float ihilite;
 #X obj 69 287 s \$0.sequencer.event.add.pre;
 #X obj 251 243 s \$0.sequencer.event.add.post;
 #X obj 69 254 pack f f 0 f;
-#X obj 131 86 r \$0.create.id;
+#X obj 111 58 r \$0.create.id;
 #X obj 24 16 r \$0.seq.receive;
 #X obj 24 85 list prepend -1;
 #X obj 24 138 route -1;
@@ -1572,7 +1572,10 @@ float hilite float ihilite;
 #X msg 251 217 \$2 \$3 \$4 \$1;
 #X obj 69 160 t a a a a;
 #X msg 146 202 \$1;
-#X obj 44 112 r \$0.sequencer.create.notes;
+#X obj 189 99 r \$0.sequencer.create.notes;
+#X obj 211 44 route note;
+#X obj 211 21 r \$0.seq.receive;
+#X obj 211 67 route restore;
 #X connect 0 0 1 0;
 #X connect 1 0 8 0;
 #X connect 2 0 5 0;
@@ -1590,6 +1593,9 @@ float hilite float ihilite;
 #X connect 13 3 12 0;
 #X connect 14 0 5 3;
 #X connect 15 0 9 0;
+#X connect 16 0 18 0;
+#X connect 17 0 16 0;
+#X connect 18 0 9 0;
 #X restore 13 19 pd note.create;
 #N canvas 140 99 478 389 note.delete 0;
 #X obj 24 39 route note;