Commit 5d5dbaae authored by Roman Haefeli's avatar Roman Haefeli
Browse files

add logic for up and down scrolling (in octave steps)

parent bc3e1c3e
......@@ -4,7 +4,7 @@
#X obj 206 45 \$0;
#X obj 185 21 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 133 127 401 394 create_horizgrid 0;
#N canvas 103 103 401 394 create_horizgrid 0;
#X obj 16 86 t a b;
#X obj 16 109 until;
#X obj 16 132 f;
......@@ -65,18 +65,21 @@
#X connect 5 0 2 1;
#X restore 135 265 pd h;
#X obj 16 156 t a a;
#N canvas 570 378 422 271 c 0;
#X obj 20 56 mod 12;
#X obj 20 80 sel 0 2 4 5 7 9 11;
#X obj 125 102 b;
#X obj 20 130 f 887;
#X obj 125 177 f 777;
#X obj 20 32 + 5;
#X obj 64 129 r \$0.stepkeycolor1;
#X obj 132 152 r \$0.stepkeycolor2;
#X obj 20 211 t a;
#N canvas 540 354 407 307 c 0;
#X obj 20 106 mod 12;
#X obj 20 130 sel 0 2 4 5 7 9 11;
#X obj 125 152 b;
#X obj 20 180 f 887;
#X obj 125 227 f 777;
#X obj 64 179 r \$0.stepkeycolor1;
#X obj 132 202 r \$0.stepkeycolor2;
#X obj 20 241 t a;
#X obj 20 7 inlet;
#X obj 20 238 outlet;
#X obj 20 268 outlet;
#X obj 119 36 r \$0.pitchoffset;
#X obj 20 30 pack f f;
#X msg 20 53 \$2 \$1;
#X obj 20 76 -;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 3 0;
......@@ -87,13 +90,16 @@
#X connect 1 6 3 0;
#X connect 1 7 2 0;
#X connect 2 0 4 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 0 0;
#X connect 6 0 3 1;
#X connect 7 0 4 1;
#X connect 8 0 10 0;
#X connect 9 0 5 0;
#X connect 3 0 7 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 4 1;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 0 0;
#X restore 171 264 pd c;
#X obj 16 324 list prepend \$0;
#X obj 16 10 inlet;
......@@ -2081,7 +2087,7 @@ num float nvis;
#X obj 565 374 array define \$0.duration 1000;
#X obj 565 397 array define \$0.velocity 1000;
#X obj 565 420 array define \$0.gid 1000;
#N canvas 427 111 615 341 converters 0;
#N canvas 0 99 615 341 converters 0;
#N canvas 83 99 403 258 x->step 0;
#X obj 17 52 -;
#X obj 45 52 r \$0.canvasleftmargin;
......@@ -2103,22 +2109,26 @@ num float nvis;
#X connect 8 0 9 1;
#X connect 9 0 5 0;
#X restore 15 18 pd x->step;
#N canvas 83 99 403 210 y->pitch 0;
#N canvas 33 99 407 230 y->pitch 0;
#X obj 15 46 -;
#X obj 15 70 /;
#X obj 43 46 r \$0.canvastopmargin;
#X obj 43 70 r \$0.stepvisheight;
#X msg 15 95 83 \$1;
#X obj 15 118 -;
#X obj 15 157 -;
#X obj 15 17 r \$0.convert.y->pitch.get;
#X obj 15 147 s \$0.convert.y->pitch;
#X obj 15 186 s \$0.convert.y->pitch;
#X obj 99 104 r \$0.pitchoffset;
#X obj 15 103 list prepend;
#X msg 15 134 \$1 \$2;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 0 8 0;
#X connect 2 0 0 1;
#X connect 3 0 1 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 0 0;
#X connect 4 0 6 0;
#X connect 5 0 0 0;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 9 0 4 0;
#X restore 15 48 pd y->pitch;
#N canvas 0 99 405 189 x->step 0;
#X obj 40 63 s \$0.convert.x->step.get;
......@@ -2167,22 +2177,26 @@ num float nvis;
#X connect 8 0 9 1;
#X connect 9 0 1 0;
#X restore 285 18 pd step->x;
#N canvas 83 99 403 210 pitch->y 0;
#X obj 15 94 *;
#X obj 15 127 +;
#X obj 49 93 r \$0.stepvisheight;
#X obj 48 127 r \$0.canvastopmargin;
#X obj 15 66 -;
#N canvas 63 99 403 210 pitch->y 0;
#X obj 15 129 *;
#X obj 15 162 +;
#X obj 49 128 r \$0.stepvisheight;
#X obj 48 162 r \$0.canvastopmargin;
#X obj 15 101 -;
#X obj 15 17 r \$0.convert.pitch->y.get;
#X obj 15 157 s \$0.convert.pitch->y;
#X msg 15 41 83 \$1;
#X obj 15 192 s \$0.convert.pitch->y;
#X obj 99 45 r \$0.pitchoffset;
#X obj 15 44 list prepend;
#X msg 15 76 \$1 \$2;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 0 1;
#X connect 3 0 1 1;
#X connect 4 0 0 0;
#X connect 5 0 7 0;
#X connect 7 0 4 0;
#X connect 5 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 9 0 4 0;
#X restore 285 48 pd pitch->y;
#N canvas 0 99 405 189 step->x 0;
#X obj 13 14 inlet;
......@@ -2481,6 +2495,83 @@ num float nvis;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
#X restore 135 168 pd gid->gclr;
#N canvas 139 426 690 398 pitchoffset.calculations 0;
#X obj 7 147 s \$0.pitchoffset;
#X obj 7 5 r \$0.pitchrange;
#X obj 7 50 div 2;
#X obj 7 73 - 1;
#X obj 7 96 + 60;
#X obj 7 28 t a a, f 41;
#X obj 219 153 pack f f;
#X obj 250 99 - 1;
#X msg 219 176 \$1 \$2;
#X obj 219 199 -;
#X obj 219 222 t a a;
#X text 264 222 <- lower boundary;
#X obj 219 324 s \$0.pitchdownshift;
#X obj 219 248 min 12;
#X obj 143 102 r \$0.pitchoffset;
#X obj 463 248 s \$0.pitchoffset;
#X obj 219 271 max 0;
#X obj 143 125 t a a;
#X msg 143 177 127 \$1;
#X obj 143 200 -;
#X obj 143 223 min 12;
#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 connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 5 0 2 0;
#X connect 5 1 7 0;
#X connect 6 0 8 0;
#X connect 7 0 6 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 16 0 23 0;
#X connect 17 0 18 0;
#X connect 17 1 6 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#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 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 restore 96 236 pd pitchoffset.calculations;
#X restore 19 95 pd converters;
#N canvas 342 165 401 476 inspector 0;
#X obj 42 89 t a a a a a a;
......
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