Commit 9cb6dd72 authored by Roman Haefeli's avatar Roman Haefeli
Browse files

add buttons for scrolling up/down

parent d193745a
......@@ -1300,15 +1300,17 @@ id float gid float vel float dur float c float vis float mrk;
#X obj 34 17 inlet;
#X obj 34 47 f;
#X obj 68 49 r \$0.canvasleftmargin;
#X msg 34 135 17 -10 \, 20 10;
#X obj 34 179 list append \$0;
#X msg 34 214 scalar \$3.scroller 20 \$1 444 \$2;
#X obj 34 70 - 20;
#X msg 34 135 \$1 22 -10 \, \$1 25 10;
#X msg 34 214 scalar \$4.scroller \$1 \$2 444 \$3;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 2 1;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 6 0 4 0;
#X connect 7 0 0 0;
#X restore 345 296 pd create.scroller;
#X obj 355 61 t b b b b b b b b b b;
#X connect 0 0 19 0;
......@@ -1551,12 +1553,29 @@ num float nvis;
#X connect 22 0 3 1;
#X restore 212 198 pd pager.logic;
#N canvas 330 412 397 197 scroller-template 0;
#X obj 17 26 filledpolygon c c 1 0 0 10 0 5 dir;
#X obj 17 95 s \$0.scroller.send;
#X obj 17 61 struct \$0.scroller float x float y float c float dir
;
#X connect 2 0 1 0;
#X obj 17 26 filledpolygon c c 1 0 0 14 0 7 dir;
#X connect 1 0 0 0;
#X restore 9 220 pd scroller-template;
#N canvas 100 265 396 336 scroller.logic 0;
#X obj 24 47 route click change;
#X obj 24 110 get \$0.scroller dir;
#X obj 24 133 sel -10 10;
#X obj 24 242 s \$0.scroll.up;
#X obj 52 221 s \$0.scroll.down;
#X obj 52 160 del 0;
#X obj 24 186 del 0;
#X obj 24 24 r \$0.scroller.send;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 2 1 5 0;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 7 0 0 0;
#X restore 212 219 pd scroller.logic;
#X connect 4 0 15 0;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
......@@ -2544,22 +2563,18 @@ num float nvis;
#X obj 143 246 max 0;
#X obj 143 362 s \$0.pitchupshift;
#X obj 219 294 * -1;
#X obj 357 27 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 413 94 r \$0.pitchdownshift;
#X obj 384 93 f;
#X text 384 28 down;
#X obj 570 90 r \$0.pitchupshift;
#X obj 513 25 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 540 91 f;
#X text 541 26 up;
#X obj 435 139 r \$0.pitchoffset;
#X obj 384 171 +;
#X obj 540 175 +;
#X obj 357 47 t b b;
#X obj 513 58 t b b;
#X obj 307 92 s \$0.redraw;
#X obj 357 10 r \$0.scroll.down;
#X obj 513 17 r \$0.scroll.up;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
......@@ -2581,20 +2596,20 @@ num float nvis;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 23 0 12 0;
#X connect 24 0 35 0;
#X connect 25 0 26 1;
#X connect 26 0 33 0;
#X connect 24 0 25 1;
#X connect 25 0 29 0;
#X connect 26 0 27 1;
#X connect 27 0 30 0;
#X connect 28 0 29 1;
#X connect 28 0 30 1;
#X connect 29 0 36 0;
#X connect 30 0 34 0;
#X connect 32 0 33 1;
#X connect 32 0 34 1;
#X connect 33 0 15 0;
#X connect 34 0 15 0;
#X connect 35 0 37 0;
#X connect 35 1 26 0;
#X connect 36 0 37 0;
#X connect 36 1 30 0;
#X connect 29 0 15 0;
#X connect 30 0 15 0;
#X connect 31 0 33 0;
#X connect 31 1 25 0;
#X connect 32 0 33 0;
#X connect 32 1 27 0;
#X connect 34 0 31 0;
#X connect 35 0 32 0;
#X restore 96 236 pd pitchoffset.calculations;
#X restore 19 95 pd converters;
#N canvas 342 165 401 476 inspector 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