add visual cursor

pianorollseq.pd

@@ -8,6 +8,7 @@ gid;
 #N struct 1003.dur float x float y float value;
 #N struct 1003.show.selector float x float y float hilite float id
 symbol label;
+#N struct 1003.cursor float x float y float h float vis;
 #N canvas 0 99 1037 563 10;
 #X msg 644 365 clear;
 #X obj 437 15 loadbang;
@@ -749,7 +750,6 @@ id float gid float vel float c float vis;
 #X connect 3 0 2 0;
 #X connect 4 0 1 0;
 #X restore 362 190 pd create.show.selector;
-#X obj 356 61 t b b b b b;
 #N canvas 0 99 450 300 gid.state 0;
 #X obj 12 76 route click;
 #X obj 12 99 t b p p b;
@@ -872,7 +872,81 @@ id float gid float vel float c float vis;
 #X connect 10 1 8 0;
 #X connect 10 2 9 1;
 #X restore 53 169 pd show.selector.state;
-#X connect 0 0 11 0;
+#N canvas 258 344 450 300 create.cursor 0;
+#X obj 45 103 r \$0.canvastopmargin;
+#X obj 22 139 f;
+#X obj 22 26 inlet;
+#X obj 22 223 list prepend \$0;
+#X obj 22 274 outlet;
+#N canvas 0 99 398 252 h 0;
+#X obj 23 14 inlet;
+#X obj 23 37 b;
+#X obj 23 163 outlet;
+#X obj 38 115 r \$0.stepvisheight;
+#X obj 23 91 f;
+#X obj 23 140 *;
+#X obj 38 66 r \$0.pitchrange;
+#X connect 0 0 1 0;
+#X connect 1 0 4 0;
+#X connect 3 0 5 1;
+#X connect 4 0 5 0;
+#X connect 5 0 2 0;
+#X connect 6 0 4 1;
+#X restore 68 128 pd h;
+#X obj 22 49 t b b;
+#X obj 22 192 pack f f f 1;
+#X obj 37 79 r \$0.canvasleftmargin;
+#X msg 22 251 scalar \$1.cursor \$2 \$3 \$4 \$5;
+#X connect 0 0 7 1;
+#X connect 1 0 7 0;
+#X connect 2 0 6 0;
+#X connect 3 0 9 0;
+#X connect 5 0 7 2;
+#X connect 6 0 1 0;
+#X connect 6 1 5 0;
+#X connect 7 0 3 0;
+#X connect 8 0 1 1;
+#X connect 9 0 4 0;
+#X restore 311 212 pd create.cursor;
+#X obj 355 61 t b b b b b b;
+#N canvas 357 99 501 367 cursor.state 0;
+#X obj 258 107 until;
+#X msg 258 130 next;
+#X obj 258 79 t b b;
+#X obj 258 42 inlet;
+#X obj 309 82 \$0;
+#X msg 309 108 traverse pd-\$1.display;
+#X obj 258 166 pointer \$0.cursor;
+#X obj 258 189 t p b;
+#X obj 158 238 set \$0.cursor x;
+#X obj 29 242 set \$0.cursor vis;
+#X obj 28 157 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X floatatom 82 70 5 0 0 0 - - -, f 5;
+#X obj 82 92 *;
+#X obj 118 93 r \$0.stepviswidth;
+#X obj 82 117 +;
+#X obj 118 119 r \$0.canvasleftmargin;
+#X connect 0 0 1 0;
+#X connect 1 0 6 0;
+#X connect 2 0 0 0;
+#X connect 2 1 4 0;
+#X connect 3 0 2 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 6 2 0 1;
+#X connect 7 0 8 1;
+#X connect 7 0 9 1;
+#X connect 7 1 0 1;
+#X connect 10 0 9 0;
+#X connect 11 0 12 0;
+#X connect 12 0 14 0;
+#X connect 13 0 12 1;
+#X connect 14 0 8 0;
+#X connect 15 0 14 1;
+#X restore 52 204 pd cursor.state;
+#X connect 0 0 14 0;
 #X connect 2 0 4 0;
 #X connect 3 0 2 0;
 #X connect 5 0 3 0;
@@ -881,14 +955,17 @@ id float gid float vel float c float vis;
 #X connect 8 0 1 0;
 #X connect 9 0 1 0;
 #X connect 10 0 1 0;
-#X connect 11 0 12 0;
-#X connect 11 0 13 0;
-#X connect 11 1 10 0;
-#X connect 11 2 9 0;
-#X connect 11 3 8 0;
-#X connect 11 4 7 0;
+#X connect 13 0 1 0;
+#X connect 14 0 11 0;
+#X connect 14 0 12 0;
+#X connect 14 0 15 0;
+#X connect 14 1 13 0;
+#X connect 14 2 10 0;
+#X connect 14 3 9 0;
+#X connect 14 4 8 0;
+#X connect 14 5 7 0;
 #X restore 581 475 pd create_guis;
-#N canvas 0 99 813 177 gui-templates 0;
+#N canvas 0 99 813 177 gui-templates 1;
 #N canvas 0 99 408 150 gid.button-template 0;
 #X obj 17 26 filledpolygon clr 0 hl 0 0 0 15 15 15 15 0;
 #X obj 16 99 s \$0.gid.button.send;
@@ -964,6 +1041,12 @@ float id symbol label;
 #X obj 612 37 r \$0.show.selector.send;
 #X obj 612 83 get \$0.show.selector id;
 #X obj 612 108 s \$0.default.show;
+#N canvas 489 158 450 300 cursor-template 0;
+#X obj 22 149 s \$0.cursor.send;
+#X obj 22 108 struct \$0.cursor float x float y float h float vis;
+#X obj 18 20 drawpolygon -v vis 900 1 0 0 0 h;
+#X connect 1 0 0 0;
+#X restore 9 126 pd cursor-template;
 #X connect 4 0 15 0;
 #X connect 6 0 9 0;
 #X connect 7 0 8 0;