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

implement first draft of 'note move'

parent 118e4040
#N struct 1004.vertgrid float x float y float w float h;
#N struct 1004.horizgrid float x float y float w float h float c;
#N struct 1004.vertline float x float y float h float c float n float
nvis;
#N struct 1004.guibar float x float y float w;
#N struct 1004.gid.button float x float y float clr float gid;
#N struct 1004.vel float x float y float value;
#N struct 1004.dur float x float y float value;
#N struct 1004.mode.button float x float y float w float c symbol param
;
#N struct 1004.show.selector float x float y float w float hilite float
id symbol label;
#N struct 1004.cursor float x float y float h float vis;
#N struct 1004.pager float x float y float c float dir float num float
nvis;
#N struct 1004.note float x float y float w float h float id float
gid float vel float dur float c float vis float mrk;
#N canvas 3 101 705 445 10;
#X obj 539 132 s pd-My_Happy_Sequencer;
#X msg 539 104 vis \$1;
......@@ -6,7 +23,7 @@
#X text 570 77 show GUI;
#X text 378 240 <- Container for the sequencer GUI;
#X obj 19 366 spigot;
#X obj 65 365 tgl 20 0 empty empty empty 17 7 0 10 -204800 -1 -1 0
#X obj 65 365 tgl 20 0 empty empty empty 17 7 0 10 -204800 -1 -1 1
1;
#X text 86 366 print editor messages;
#X obj 539 51 loadbang;
......@@ -131,7 +148,7 @@
#X obj 13 66 pack f f f;
#X obj 13 169 +~;
#X obj 33 220 hsl 100 15 0 1 0 0 \$0.bli \$0.bla empty -2 -8 0 10 -261682
-1 -1 2300 1;
-1 -1 0 1;
#X obj 58 248 t a a;
#X msg 58 294 \$1 50;
#X obj 58 317 line~;
......@@ -649,6 +666,216 @@ at 0) [implies a redraw of display];
0;
#X obj 20 241 unpunch pd-My_Happy_Sequencer;
#N canvas 709 99 1006 749 My_Happy_Sequencer 1;
#X scalar 1004.vertgrid 30 53 14 671 \;;
#X scalar 1004.vertgrid 45 53 14 671 \;;
#X scalar 1004.vertgrid 60 53 14 671 \;;
#X scalar 1004.vertgrid 75 53 14 671 \;;
#X scalar 1004.vertgrid 90 53 14 671 \;;
#X scalar 1004.vertgrid 105 53 14 671 \;;
#X scalar 1004.vertgrid 120 53 14 671 \;;
#X scalar 1004.vertgrid 135 53 14 671 \;;
#X scalar 1004.vertgrid 150 53 14 671 \;;
#X scalar 1004.vertgrid 165 53 14 671 \;;
#X scalar 1004.vertgrid 180 53 14 671 \;;
#X scalar 1004.vertgrid 195 53 14 671 \;;
#X scalar 1004.vertgrid 210 53 14 671 \;;
#X scalar 1004.vertgrid 225 53 14 671 \;;
#X scalar 1004.vertgrid 240 53 14 671 \;;
#X scalar 1004.vertgrid 255 53 14 671 \;;
#X scalar 1004.vertgrid 270 53 14 671 \;;
#X scalar 1004.vertgrid 285 53 14 671 \;;
#X scalar 1004.vertgrid 300 53 14 671 \;;
#X scalar 1004.vertgrid 315 53 14 671 \;;
#X scalar 1004.vertgrid 330 53 14 671 \;;
#X scalar 1004.vertgrid 345 53 14 671 \;;
#X scalar 1004.vertgrid 360 53 14 671 \;;
#X scalar 1004.vertgrid 375 53 14 671 \;;
#X scalar 1004.vertgrid 390 53 14 671 \;;
#X scalar 1004.vertgrid 405 53 14 671 \;;
#X scalar 1004.vertgrid 420 53 14 671 \;;
#X scalar 1004.vertgrid 435 53 14 671 \;;
#X scalar 1004.vertgrid 450 53 14 671 \;;
#X scalar 1004.vertgrid 465 53 14 671 \;;
#X scalar 1004.vertgrid 480 53 14 671 \;;
#X scalar 1004.vertgrid 495 53 14 671 \;;
#X scalar 1004.vertgrid 510 53 14 671 \;;
#X scalar 1004.vertgrid 525 53 14 671 \;;
#X scalar 1004.vertgrid 540 53 14 671 \;;
#X scalar 1004.vertgrid 555 53 14 671 \;;
#X scalar 1004.vertgrid 570 53 14 671 \;;
#X scalar 1004.vertgrid 585 53 14 671 \;;
#X scalar 1004.vertgrid 600 53 14 671 \;;
#X scalar 1004.vertgrid 615 53 14 671 \;;
#X scalar 1004.vertgrid 630 53 14 671 \;;
#X scalar 1004.vertgrid 645 53 14 671 \;;
#X scalar 1004.vertgrid 660 53 14 671 \;;
#X scalar 1004.vertgrid 675 53 14 671 \;;
#X scalar 1004.vertgrid 690 53 14 671 \;;
#X scalar 1004.vertgrid 705 53 14 671 \;;
#X scalar 1004.vertgrid 720 53 14 671 \;;
#X scalar 1004.vertgrid 735 53 14 671 \;;
#X scalar 1004.vertgrid 750 53 14 671 \;;
#X scalar 1004.vertgrid 765 53 14 671 \;;
#X scalar 1004.vertgrid 780 53 14 671 \;;
#X scalar 1004.vertgrid 795 53 14 671 \;;
#X scalar 1004.vertgrid 810 53 14 671 \;;
#X scalar 1004.vertgrid 825 53 14 671 \;;
#X scalar 1004.vertgrid 840 53 14 671 \;;
#X scalar 1004.vertgrid 855 53 14 671 \;;
#X scalar 1004.vertgrid 870 53 14 671 \;;
#X scalar 1004.vertgrid 885 53 14 671 \;;
#X scalar 1004.vertgrid 900 53 14 671 \;;
#X scalar 1004.vertgrid 915 53 14 671 \;;
#X scalar 1004.vertgrid 930 53 14 671 \;;
#X scalar 1004.vertgrid 945 53 14 671 \;;
#X scalar 1004.vertgrid 960 53 14 671 \;;
#X scalar 1004.vertgrid 975 53 14 671 \;;
#X scalar 1004.horizgrid 30 53 960 13 887 \;;
#X scalar 1004.horizgrid 30 67 960 13 777 \;;
#X scalar 1004.horizgrid 30 81 960 13 887 \;;
#X scalar 1004.horizgrid 30 95 960 13 777 \;;
#X scalar 1004.horizgrid 30 109 960 13 887 \;;
#X scalar 1004.horizgrid 30 123 960 13 777 \;;
#X scalar 1004.horizgrid 30 137 960 13 887 \;;
#X scalar 1004.horizgrid 30 151 960 13 887 \;;
#X scalar 1004.horizgrid 30 165 960 13 777 \;;
#X scalar 1004.horizgrid 30 179 960 13 887 \;;
#X scalar 1004.horizgrid 30 193 960 13 777 \;;
#X scalar 1004.horizgrid 30 207 960 13 887 \;;
#X scalar 1004.horizgrid 30 221 960 13 887 \;;
#X scalar 1004.horizgrid 30 235 960 13 777 \;;
#X scalar 1004.horizgrid 30 249 960 13 887 \;;
#X scalar 1004.horizgrid 30 263 960 13 777 \;;
#X scalar 1004.horizgrid 30 277 960 13 887 \;;
#X scalar 1004.horizgrid 30 291 960 13 777 \;;
#X scalar 1004.horizgrid 30 305 960 13 887 \;;
#X scalar 1004.horizgrid 30 319 960 13 887 \;;
#X scalar 1004.horizgrid 30 333 960 13 777 \;;
#X scalar 1004.horizgrid 30 347 960 13 887 \;;
#X scalar 1004.horizgrid 30 361 960 13 777 \;;
#X scalar 1004.horizgrid 30 375 960 13 887 \;;
#X scalar 1004.horizgrid 30 389 960 13 887 \;;
#X scalar 1004.horizgrid 30 403 960 13 777 \;;
#X scalar 1004.horizgrid 30 417 960 13 887 \;;
#X scalar 1004.horizgrid 30 431 960 13 777 \;;
#X scalar 1004.horizgrid 30 445 960 13 887 \;;
#X scalar 1004.horizgrid 30 459 960 13 777 \;;
#X scalar 1004.horizgrid 30 473 960 13 887 \;;
#X scalar 1004.horizgrid 30 487 960 13 887 \;;
#X scalar 1004.horizgrid 30 501 960 13 777 \;;
#X scalar 1004.horizgrid 30 515 960 13 887 \;;
#X scalar 1004.horizgrid 30 529 960 13 777 \;;
#X scalar 1004.horizgrid 30 543 960 13 887 \;;
#X scalar 1004.horizgrid 30 557 960 13 887 \;;
#X scalar 1004.horizgrid 30 571 960 13 777 \;;
#X scalar 1004.horizgrid 30 585 960 13 887 \;;
#X scalar 1004.horizgrid 30 599 960 13 777 \;;
#X scalar 1004.horizgrid 30 613 960 13 887 \;;
#X scalar 1004.horizgrid 30 627 960 13 777 \;;
#X scalar 1004.horizgrid 30 641 960 13 887 \;;
#X scalar 1004.horizgrid 30 655 960 13 887 \;;
#X scalar 1004.horizgrid 30 669 960 13 777 \;;
#X scalar 1004.horizgrid 30 683 960 13 887 \;;
#X scalar 1004.horizgrid 30 697 960 13 777 \;;
#X scalar 1004.horizgrid 30 711 960 13 887 \;;
#X scalar 1004.vertline 30 53 672 0 1 1 \;;
#X scalar 1004.vertline 45 53 672 888 1 0 \;;
#X scalar 1004.vertline 60 53 672 888 1 0 \;;
#X scalar 1004.vertline 75 53 672 888 1 0 \;;
#X scalar 1004.vertline 90 53 672 666 1 0 \;;
#X scalar 1004.vertline 105 53 672 888 1 0 \;;
#X scalar 1004.vertline 120 53 672 888 1 0 \;;
#X scalar 1004.vertline 135 53 672 888 1 0 \;;
#X scalar 1004.vertline 150 53 672 666 1 0 \;;
#X scalar 1004.vertline 165 53 672 888 1 0 \;;
#X scalar 1004.vertline 180 53 672 888 1 0 \;;
#X scalar 1004.vertline 195 53 672 888 1 0 \;;
#X scalar 1004.vertline 210 53 672 666 1 0 \;;
#X scalar 1004.vertline 225 53 672 888 1 0 \;;
#X scalar 1004.vertline 240 53 672 888 1 0 \;;
#X scalar 1004.vertline 255 53 672 888 1 0 \;;
#X scalar 1004.vertline 270 53 672 0 2 1 \;;
#X scalar 1004.vertline 285 53 672 888 2 0 \;;
#X scalar 1004.vertline 300 53 672 888 2 0 \;;
#X scalar 1004.vertline 315 53 672 888 2 0 \;;
#X scalar 1004.vertline 330 53 672 666 2 0 \;;
#X scalar 1004.vertline 345 53 672 888 2 0 \;;
#X scalar 1004.vertline 360 53 672 888 2 0 \;;
#X scalar 1004.vertline 375 53 672 888 2 0 \;;
#X scalar 1004.vertline 390 53 672 666 2 0 \;;
#X scalar 1004.vertline 405 53 672 888 2 0 \;;
#X scalar 1004.vertline 420 53 672 888 2 0 \;;
#X scalar 1004.vertline 435 53 672 888 2 0 \;;
#X scalar 1004.vertline 450 53 672 666 2 0 \;;
#X scalar 1004.vertline 465 53 672 888 2 0 \;;
#X scalar 1004.vertline 480 53 672 888 2 0 \;;
#X scalar 1004.vertline 495 53 672 888 2 0 \;;
#X scalar 1004.vertline 510 53 672 0 3 1 \;;
#X scalar 1004.vertline 525 53 672 888 3 0 \;;
#X scalar 1004.vertline 540 53 672 888 3 0 \;;
#X scalar 1004.vertline 555 53 672 888 3 0 \;;
#X scalar 1004.vertline 570 53 672 666 3 0 \;;
#X scalar 1004.vertline 585 53 672 888 3 0 \;;
#X scalar 1004.vertline 600 53 672 888 3 0 \;;
#X scalar 1004.vertline 615 53 672 888 3 0 \;;
#X scalar 1004.vertline 630 53 672 666 3 0 \;;
#X scalar 1004.vertline 645 53 672 888 3 0 \;;
#X scalar 1004.vertline 660 53 672 888 3 0 \;;
#X scalar 1004.vertline 675 53 672 888 3 0 \;;
#X scalar 1004.vertline 690 53 672 666 3 0 \;;
#X scalar 1004.vertline 705 53 672 888 3 0 \;;
#X scalar 1004.vertline 720 53 672 888 3 0 \;;
#X scalar 1004.vertline 735 53 672 888 3 0 \;;
#X scalar 1004.vertline 750 53 672 0 4 1 \;;
#X scalar 1004.vertline 765 53 672 888 4 0 \;;
#X scalar 1004.vertline 780 53 672 888 4 0 \;;
#X scalar 1004.vertline 795 53 672 888 4 0 \;;
#X scalar 1004.vertline 810 53 672 666 4 0 \;;
#X scalar 1004.vertline 825 53 672 888 4 0 \;;
#X scalar 1004.vertline 840 53 672 888 4 0 \;;
#X scalar 1004.vertline 855 53 672 888 4 0 \;;
#X scalar 1004.vertline 870 53 672 666 4 0 \;;
#X scalar 1004.vertline 885 53 672 888 4 0 \;;
#X scalar 1004.vertline 900 53 672 888 4 0 \;;
#X scalar 1004.vertline 915 53 672 888 4 0 \;;
#X scalar 1004.vertline 930 53 672 666 4 0 \;;
#X scalar 1004.vertline 945 53 672 888 4 0 \;;
#X scalar 1004.vertline 960 53 672 888 4 0 \;;
#X scalar 1004.vertline 975 53 672 888 4 0 \;;
#X scalar 1004.vertline 990 53 672 0 5 0 \;;
#X scalar 1004.guibar 30 11 960 \;;
#X scalar 1004.gid.button 281 20 800 0 \;;
#X scalar 1004.gid.button 297 20 310 1 \;;
#X scalar 1004.gid.button 313 20 30 2 \;;
#X scalar 1004.gid.button 329 20 23 3 \;;
#X scalar 1004.gid.button 345 20 103 4 \;;
#X scalar 1004.gid.button 361 20 303 5 \;;
#X scalar 1004.vel 115 20 64 \;;
#X scalar 1004.dur 198 20 17 \;;
#X scalar 1004.mode.button 115 11 72 666 velocity \;;
#X scalar 1004.mode.button 198 11 72 666 duration \;;
#X scalar 1004.mode.button 281 11 95 666 gid \;;
#X scalar 1004.show.selector 387 20 31 555 0 none \;;
#X scalar 1004.show.selector 418 20 55 0 1 velocity \;;
#X scalar 1004.show.selector 473 20 55 555 2 duration \;;
#X scalar 1004.show.selector 528 20 37 555 3 gid \;;
#X scalar 1004.cursor 30 53 672 1 \;;
#X scalar 1004.pager 40 20 666 0 1 1 \;;
#X scalar 1004.pager 80 20 444 24 0 0 \;;
#X scalar 1004.note 150 165 15 13 0 0 64 1 400 1 444 \;;
#X scalar 1004.note 180 235 15 13 1 0 64 1 400 1 444 \;;
#X scalar 1004.note 45 1215 75 13 2 0 127 5 800 1 444 \;;
#X scalar 1004.note 285 1215 60 13 3 0 64 4 400 1 444 \;;
#X scalar 1004.note 285 1215 75 13 4 0 64 5 400 1 444 \;;
#X scalar 1004.note 570 319 165 13 5 0 51 11 300 1 444 \;;
#X scalar 1004.note 60 1215 15 13 6 0 64 1 400 1 444 \;;
#X scalar 1004.note 60 1215 15 13 7 0 64 1 400 1 444 \;;
#X scalar 1004.note 60 1215 15 13 8 0 64 1 400 1 444 \;;
#X scalar 1004.note 285 1215 15 13 9 0 64 1 400 1 444 \;;
#X scalar 1004.note 30 1215 210 13 10 0 115 17 800 1 444 \;;
#X scalar 1004.note 420 403 255 13 11 0 64 17 400 1 444 \;;
#X scalar 1004.note 525 445 255 13 12 0 64 17 400 1 444 \;;
#X scalar 1004.note 30 1215 105 13 13 0 64 7 400 1 444 \;;
#X restore 242 241 pd My_Happy_Sequencer;
#N canvas 170 116 568 256 misc 0;
#X obj 18 130 s \$0.to;
......@@ -727,6 +954,7 @@ state saving systems. It is designed for real-time synchronisation
(if needed) and can also be used in systems like netpd.;
#X restore 20 39 pd about;
#X text 12 5 unpunch - a configurable matrix sequencer;
#X msg 358 116 note move 16 63 17 64;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 5 0 14 0;
......@@ -743,3 +971,4 @@ state saving systems. It is designed for real-time synchronisation
#X connect 34 0 20 0;
#X connect 34 1 16 0;
#X connect 34 1 19 0;
#X connect 40 0 34 0;
......@@ -2595,7 +2595,7 @@ num float nvis;
800 840 80 68 408 808 \; \$1.default.vel 64 \; \$1.default.gid 0 \;
\$1.default.dur 4 \; \$1.default.show 0 \; \$1.redraw bang \;;
#X obj 461 78 t b b b b b b;
#N canvas 0 91 430 292 generate.events 0;
#N canvas 0 99 430 292 generate.events 0;
#N canvas 0 99 406 517 note.change.duration 0;
#X obj 14 19 r \$0.note.send;
#X obj 14 246 change -1;
......@@ -3203,7 +3203,7 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
#X connect 6 0 4 0;
#X restore 16 191 pd note.unselect;
#X restore 19 125 pd generate.events;
#N canvas 0 91 413 279 process.events 0;
#N canvas 0 99 413 279 process.events 0;
#N canvas 109 324 713 500 note.create 0;
#X obj 6 8 r \$0.global.receive;
#X obj 6 31 route note;
......@@ -3487,7 +3487,7 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
#X connect 35 0 34 10;
#X connect 38 0 37 0;
#X restore 19 18 pd note.create;
#N canvas 166 421 345 548 note.delete 0;
#N canvas 166 454 345 548 note.delete 0;
#X obj 6 8 r \$0.global.receive;
#X obj 6 31 route note;
#X obj 6 54 route delete;
......@@ -3933,7 +3933,7 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
#X connect 26 0 25 0;
#X connect 26 1 17 0;
#X restore 19 110 pd note.change.gid;
#N canvas 0 231 347 307 note.select 0;
#N canvas 0 264 347 307 note.select 0;
#N canvas 73 99 380 620 get.selected.ids 0;
#X obj 39 309 tabread \$0.step;
#X msg 39 90 1000;
......@@ -4192,8 +4192,8 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
#X connect 11 0 12 0;
#X connect 11 1 7 0;
#X connect 12 0 7 0;
#X restore 19 186 pd dump;
#N canvas 0 256 347 307 note.unselect 0;
#X restore 22 222 pd dump;
#N canvas 0 289 347 307 note.unselect 0;
#X obj 17 21 r \$0.global.receive;
#X obj 17 44 route note;
#X obj 17 193 s \$0.redraw;
......@@ -4210,6 +4210,117 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X restore 19 158 pd note.unselect;
#N canvas 0 201 490 615 note.move 0;
#X obj 6 8 r \$0.global.receive;
#X obj 6 31 route note;
#X obj 6 100 t a a, f 49;
#X msg 6 123 \$1 \$2;
#N canvas 83 99 410 208 step|pitch->id 0;
#X obj 40 63 s \$0.convert.step|pitch->id.get;
#X obj 40 86 r \$0.convert.step|pitch->id;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X connect 1 0 4 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 4 0 5 0;
#X restore 6 168 pd step|pitch->id;
#N canvas 83 99 410 208 id->pointer 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X obj 40 63 s \$0.convert.id->pointer.get;
#X obj 40 86 r \$0.convert.id->pointer;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
#X restore 237 380 pd id->pointer;
#X obj 6 194 route -1;
#X obj 6 145 t a a;
#X obj 6 217 b;
#X obj 6 298 s error;
#X obj 6 240 list append;
#X obj 237 403 route -1;
#X obj 282 452 f;
#X obj 282 429 t b p;
#X obj 51 329 t a a;
#X obj 282 475 t a a;
#X msg 297 155 \$3 \$4;
#X obj 51 362 list append;
#X obj 51 385 t a a;
#X obj 51 484 s \$0.step;
#X obj 78 434 s \$0.pitch;
#X msg 51 460 \$1 \$2;
#X msg 78 410 \$1 \$3;
#X msg 6 271 note move: no such note (\$1 \$2);
#X text 345 154 step|pitch;
#X obj 282 549 set \$0.note x y;
#N canvas 0 99 405 189 step->x 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X obj 40 63 s \$0.convert.step->x.get;
#X obj 40 85 r \$0.convert.step->x;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
#X restore 282 503 pd step->x;
#N canvas 0 99 405 189 pitch->y 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X obj 40 63 s \$0.convert.pitch->y.get;
#X obj 40 85 r \$0.convert.pitch->y;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
#X restore 325 524 pd pitch->y;
#X obj 6 54 route move;
#X connect 0 0 1 0;
#X connect 1 0 28 0;
#X connect 2 0 3 0;
#X connect 2 1 16 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 11 0;
#X connect 6 0 8 0;
#X connect 6 1 14 0;
#X connect 7 0 4 0;
#X connect 7 1 10 1;
#X connect 8 0 10 0;
#X connect 10 0 23 0;
#X connect 11 1 13 0;
#X connect 12 0 15 0;
#X connect 13 0 12 0;
#X connect 13 1 25 2;
#X connect 14 0 17 0;
#X connect 14 1 5 0;
#X connect 15 0 26 0;
#X connect 15 1 27 0;
#X connect 16 0 12 1;
#X connect 16 0 17 1;
#X connect 17 0 18 0;
#X connect 18 0 21 0;
#X connect 18 1 22 0;
#X connect 21 0 19 0;
#X connect 22 0 20 0;
#X connect 23 0 9 0;
#X connect 26 0 25 0;
#X connect 27 0 25 1;
#X connect 28 0 2 0;
#X restore 19 184 pd note.move;
#X restore 19 155 pd process.events;
#X text 13 12 [unpunch] v0.0alpha;
#X obj 565 443 array define \$0.marked 1000;
......
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