Commit c30089a3 authored by Roman Haefeli's avatar Roman Haefeli
Browse files

add visual cursor

parent 7a668db7
......@@ -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;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment