Skip to content
GitLab
Commit bb5f2ab1 authored by Roman Haefeli's avatar Roman Haefeli
Browse files

implement mode button, but they do nothing yet 

when active, clicking a note applies the default value on it
parent 39c635dc
Hide whitespace changes
Inline Side-by-side
pianorollseq.pd
View file @ bb5f2ab1
......@@ -620,8 +620,8 @@ id float gid float vel float c float vis;
#X msg 481 337 const 0;
#X obj 565 306 array define \$0.active 1000;
#X obj 461 58 t b b b b b;
#N canvas 617 363 640 399 create_guis 0;
#X obj 356 33 inlet;
#N canvas 188 187 640 399 create_guis 0;
#X obj 355 32 inlet;
#X obj 404 294 outlet;
#X obj 16 346 list store;
#X msg 16 320 get \$1 1;
......@@ -689,7 +689,7 @@ id float gid float vel float c float vis;
#X connect 19 3 15 3;
#X connect 20 0 6 0;
#X connect 21 0 6 1;
#X restore 426 103 pd create.gid.buttons;
#X restore 442 89 pd create.gid.buttons;
#N canvas 0 99 450 300 create.vel.number 0;
#X obj 24 21 inlet;
#X obj 24 201 outlet;
......@@ -708,7 +708,7 @@ id float gid float vel float c float vis;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X restore 409 132 pd create.vel.number;
#X restore 427 120 pd create.vel.number;
#N canvas 0 99 450 300 create.dur.number 0;
#X obj 24 21 inlet;
#X obj 24 216 outlet;
......@@ -727,13 +727,12 @@ id float gid float vel float c float vis;
#X connect 6 0 4 1;
#X connect 7 0 1 0;
#X connect 8 0 3 1;
#X restore 392 160 pd create.dur.number;
#X restore 413 147 pd create.dur.number;
#N canvas 0 99 397 449 create.show.selector 0;
#X obj 7 7 inlet;
#X obj 7 411 outlet;
#X obj 7 350 list prepend \$0;
#X msg 7 378 scalar \$1.show.selector \$2 20 555 \$3 \$4;
#X msg 7 316 \$1 0 none \, \$2 1 velocity \, \$3 2 gid;
#X obj 7 61 f;
#X text 46 84 offset from left border;
#X msg 26 138 3;
......@@ -748,29 +747,30 @@ id float gid float vel float c float vis;
#X obj 7 30 b;
#X obj 7 111 t b b a b;
#X obj 8 84 + 300;
#X connect 0 0 16 0;
#X msg 7 316 \$1 0 none \, \$2 1 velocity \, \$3 2 group;
#X connect 0 0 15 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 18 0;
#X connect 4 0 17 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 10 1 11 0;
#X connect 11 0 9 1;
#X connect 12 0 13 0;
#X connect 13 0 14 1;
#X connect 13 1 12 1;
#X connect 14 0 4 0;
#X connect 15 0 5 1;
#X connect 16 0 5 0;
#X connect 17 0 14 0;
#X connect 17 1 7 0;
#X connect 17 2 9 1;
#X connect 17 3 12 1;
#X connect 18 0 17 0;
#X restore 362 190 pd create.show.selector;
#X connect 9 0 11 0;
#X connect 9 1 10 0;
#X connect 10 0 8 1;
#X connect 11 0 12 0;
#X connect 12 0 13 1;
#X connect 12 1 11 1;
#X connect 13 0 18 0;
#X connect 14 0 4 1;
#X connect 15 0 4 0;
#X connect 16 0 13 0;
#X connect 16 1 6 0;
#X connect 16 2 8 1;
#X connect 16 3 11 1;
#X connect 17 0 16 0;
#X connect 18 0 2 0;
#X restore 384 204 pd create.show.selector;
#N canvas 0 99 450 300 gid.state 0;
#X obj 12 76 route click;
#X obj 12 99 t b p p b;
......@@ -928,8 +928,7 @@ id float gid float vel float c float vis;
#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;
#X restore 369 228 pd create.cursor;
#N canvas 357 99 501 367 cursor.state 0;
#X obj 258 107 until;
#X msg 258 130 next;
......@@ -966,7 +965,31 @@ id float gid float vel float c float vis;
#X connect 14 0 8 0;
#X connect 15 0 7 0;
#X restore 52 204 pd cursor.state;
#X connect 0 0 14 0;
#N canvas 0 99 450 300 create.mode.button 0;
#X obj 24 21 inlet;
#X obj 24 206 outlet;
#X obj 110 93 r \$0.canvasleftmargin;
#X obj 24 159 list prepend \$0;
#X obj 24 91 +;
#X obj 24 69 unpack f f s;
#X obj 24 112 pack f f s;
#X msg 24 138 \$1 6 \$2 666 \$3;
#X msg 24 182 scalar \$1.mode.button \$2 \$3 \$4 \$5 \$6;
#X msg 24 46 0 66 velocity \, 90 60 duration \, 170 90 gid;
#X connect 0 0 9 0;
#X connect 2 0 4 1;
#X connect 3 0 8 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 5 1 6 1;
#X connect 5 2 6 2;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 8 0 1 0;
#X connect 9 0 5 0;
#X restore 398 175 pd create.mode.button;
#X obj 355 61 t b b b b b b b;
#X connect 0 0 16 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 5 0 3 0;
......@@ -976,14 +999,16 @@ id float gid float vel float c float vis;
#X connect 9 0 1 0;
#X connect 10 0 1 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 connect 15 0 1 0;
#X connect 16 0 11 0;
#X connect 16 0 12 0;
#X connect 16 0 14 0;
#X connect 16 1 13 0;
#X connect 16 2 10 0;
#X connect 16 3 15 0;
#X connect 16 4 9 0;
#X connect 16 5 8 0;
#X connect 16 6 7 0;
#X restore 461 195 pd create_guis;
#N canvas 0 99 804 221 gui-templates 0;
#N canvas 0 99 408 150 gid.button-template 0;
......@@ -992,7 +1017,7 @@ id float gid float vel float c float vis;
hl float gid;
#X obj 17 26 filledpolygon clr 0 hl 0 0 0 15 15 15 15 0;
#X connect 1 0 0 0;
#X restore 7 19 pd gid.button-template;
#X restore 8 78 pd gid.button-template;
#N canvas 195 247 418 274 vel-template 0;
#X obj 14 230 s \$0.vel.send;
#X obj 99 138 max 0;
......@@ -1036,15 +1061,15 @@ hl float gid;
#X connect 5 0 9 0;
#X connect 8 0 1 1;
#X connect 9 0 1 0;
#X restore 8 76 pd dur-template;
#N canvas 489 158 450 300 show.selector-template 0;
#X restore 8 18 pd dur-template;
#N canvas 469 142 450 300 show.selector-template 0;
#X obj 22 149 s \$0.show.selector.send;
#X obj 21 25 filledpolygon 777 hilite 2 0 0 0 15 55 15 55 0;
#X obj 22 53 drawsymbol label 2 1 hilite;
#X obj 22 108 struct \$0.show.selector float x float y float hilite
float id symbol label;
#X connect 3 0 0 0;
#X restore 9 102 pd show.selector-template;
#X restore 8 138 pd show.selector-template;
#X obj 464 59 route click;
#X obj 464 107 s \$0.default.gid;
#X obj 333 35 r \$0.vel.send;
......@@ -1066,7 +1091,56 @@ float id symbol label;
#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 restore 8 168 pd cursor-template;
#N canvas 0 99 392 164 mode.button-template 0;
#X obj 16 99 s \$0.mode.button.send;
#X obj 17 26 filledpolygon c c 1 0 0 0 8 w 8 w 0;
#X obj 16 60 struct \$0.mode.button float x float y float w float c
symbol param;
#X connect 2 0 0 0;
#X restore 8 108 pd mode.button-template;
#N canvas 209 512 810 268 mode.button.logic 0;
#X obj 23 17 r \$0.mode.button.send;
#X msg 99 186 900;
#X msg 130 187 666;
#X obj 99 159 sel 666 900;
#X obj 23 63 t p p, f 26;
#X obj 23 88 get \$0.mode.button w c;
#X obj 23 217 set \$0.mode.button w c, f 26;
#X obj 23 148 f;
#X obj 75 121 b;
#X obj 23 40 route click change;
#X obj 243 17 r \$0.mode.button.send;
#X obj 243 40 route click;
#X obj 243 63 get \$0.mode.button c param;
#X obj 243 86 sel 666 900;
#X msg 243 109 1;
#X msg 274 109 0;
#X obj 243 152 list prepend;
#X obj 243 175 print MODES;
#X connect 0 0 9 0;
#X connect 1 0 6 1;
#X connect 2 0 6 1;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 4 1 6 2;
#X connect 5 0 7 0;
#X connect 5 1 3 0;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 4 0;
#X connect 9 1 8 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 1 16 1;
#X connect 13 0 14 0;
#X connect 13 1 15 0;
#X connect 14 0 16 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X restore 212 143 pd mode.button.logic;
#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