Commit 69d12dcb authored by Roman Haefeli's avatar Roman Haefeli
Browse files

make pager functional (but it still has bugs when dragging)

parent 421adf54
......@@ -1019,34 +1019,52 @@ id float gid float vel float dur float c float vis;
#X connect 8 0 3 0;
#X connect 9 0 5 0;
#X restore 411 192 pd create.mode.button;
#N canvas 83 122 579 400 create.pager 0;
#X obj 34 267 list prepend \$0;
#X obj 34 318 outlet;
#N canvas 83 122 487 422 create.pager 0;
#X obj 34 317 list prepend \$0;
#X obj 34 368 outlet;
#X obj 34 17 inlet;
#X msg 34 295 scalar \$1.pager \$2 \$3 \$4 \$5 \$6 \$7;
#X text 47 238 x y c dir num nvis;
#X msg 34 345 scalar \$1.pager \$2 \$3 \$4 \$5 \$6 \$7;
#X text 47 288 x y c dir num nvis;
#X obj 34 140 t a a;
#X msg 110 116 \$1;
#X obj 110 139 + 40;
#X obj 34 175 list append;
#X msg 34 205 \$1 \$2 666 0 1 1 \, \$3 \$2 444 24 0 0;
#X obj 34 47 f;
#X obj 68 49 r \$0.canvasleftmargin;
#X obj 34 70 + 10;
#X msg 34 117 \$1 20;
#X obj 328 98 != 1;
#X msg 358 159 444;
#X msg 328 160 666;
#X obj 328 131 sel 0 1;
#X obj 260 33 r \$0.page;
#X msg 34 255 \$1 \$2 \$5 0 \$4 1 \, \$3 \$2 444 24 0 0;
#X obj 34 221 list append 666;
#X obj 34 198 list append 1;
#X obj 260 56 + 1;
#X connect 0 0 3 0;
#X connect 2 0 10 0;
#X connect 2 0 9 0;
#X connect 3 0 1 0;
#X connect 5 0 8 0;
#X connect 5 1 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 10 0 12 0;
#X connect 11 0 10 1;
#X connect 12 0 13 0;
#X connect 13 0 5 0;
#X connect 8 0 20 0;
#X connect 9 0 11 0;
#X connect 10 0 9 1;
#X connect 11 0 12 0;
#X connect 12 0 5 0;
#X connect 13 0 16 0;
#X connect 14 0 19 1;
#X connect 15 0 19 1;
#X connect 16 0 15 0;
#X connect 16 1 14 0;
#X connect 17 0 21 0;
#X connect 18 0 0 0;
#X connect 19 0 18 0;
#X connect 20 0 19 0;
#X connect 21 0 13 0;
#X connect 21 0 20 1;
#X restore 369 270 pd create.pager;
#X obj 355 61 t b b b b b b b b b;
#N canvas 301 211 450 300 create.guibar 0;
......@@ -1233,13 +1251,26 @@ symbol param;
#X connect 16 0 18 0;
#X connect 18 0 17 0;
#X restore 212 143 pd mode.button.logic;
#N canvas 399 371 450 300 pager-template 0;
#N canvas 399 371 405 373 pager-template 0;
#X obj 15 41 filledpolygon c c 1 dir 7 12 14 12 0;
#X obj 21 179 s \$0.pager.send;
#X obj 21 285 s \$0.pager.send;
#X obj 21 117 struct \$0.pager float x float y float c float dir float
num float nvis;
#X obj 19 66 drawnumber -v nvis num 30 2 0;
#X connect 2 0 1 0;
#X obj 165 164 route change;
#X obj 165 187 t p p;
#X obj 21 185 t a a;
#X obj 165 209 get \$0.pager num;
#X obj 165 233 max 1;
#X obj 165 281 set \$0.pager num;
#X connect 2 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 5 1 9 1;
#X connect 6 0 1 0;
#X connect 6 1 4 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X restore 8 198 pd pager-template;
#N canvas 305 215 450 300 guibar-template 0;
#X obj 21 180 s \$0.guibar.send;
......@@ -1247,6 +1278,45 @@ num float nvis;
#X obj 17 39 filledpolygon 777 777 1 0 0 w 0 w 24 0 24;
#X connect 1 0 0 0;
#X restore 8 228 pd guibar-template;
#N canvas 100 265 421 422 pager.logic 0;
#X obj 24 24 r \$0.pager.send;
#X msg 24 186 -1;
#X msg 53 187 1;
#X obj 24 234 f 1;
#X obj 24 263 +;
#X obj 24 286 t a a;
#X obj 24 209 t b a;
#X obj 24 110 get \$0.pager dir;
#X obj 24 47 route click change;
#X obj 156 91 get \$0.pager num;
#X obj 139 209 != 1;
#X obj 24 133 sel 0 24;
#X obj 24 156 spigot 1;
#X obj 51 359 s \$0.page;
#X obj 24 332 t b a;
#X obj 24 381 s \$0.redraw;
#X obj 24 309 - 1;
#X connect 0 0 8 0;
#X connect 1 0 6 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 16 0;
#X connect 5 1 3 1;
#X connect 5 1 10 0;
#X connect 6 0 3 0;
#X connect 6 1 4 1;
#X connect 7 0 11 0;
#X connect 8 0 7 0;
#X connect 8 1 9 0;
#X connect 10 0 12 1;
#X connect 11 0 12 0;
#X connect 11 1 2 0;
#X connect 12 0 1 0;
#X connect 14 0 15 0;
#X connect 14 1 13 0;
#X connect 16 0 14 0;
#X restore 212 198 pd pager.logic;
#X connect 4 0 15 0;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
......@@ -2019,10 +2089,10 @@ certain period.;
#X restore 19 184 pd note.edit.modes;
#X obj 564 17 r \$0.redraw;
#X floatatom 292 319 5 0 0 0 - - -, f 5;
#X obj 319 369 s \$0.page;
#X obj 292 342 t b a;
#X obj 319 370 s \$0.page;
#X obj 292 343 t b a;
#X obj 564 40 t b b;
#X obj 292 391 s \$0.redraw;
#X obj 292 392 s \$0.redraw;
#N canvas 294 116 748 530 redraw.notes 0;
#X obj 11 15 inlet;
#X obj 38 254 r \$0.page;
......
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