[PD] cute arranger

Mon Jun 28 19:26:39 CEST 2004

Hallo,
Frank Barknecht hat gesagt: // Frank Barknecht wrote:

> attached is a cute little sequence arranger I did today. No docs,
> but fun. Try out editmode in the "arrange" subpatch.

I cleaned it up a bit and now it's more useful and even cutier. Check
it out!

Ciao
-- 
 Frank Barknecht                               _ ______footils.org__
-------------- next part --------------
#N struct part float x float y float color float number;
#N struct grid-v float x float y float len float color;
#N struct index float x float y float len;
#N struct grid float x float y float len;
#N canvas 162 522 803 247 10;
#N canvas 103 47 784 461 arrange 1;
#X scalar part 180 270 853 0 \;;
#X scalar part 90 225 583 0 \;;
#X scalar part 45 180 440 0 \;;
#X scalar part 45 135 387 0 \;;
#X scalar part 180 45 736 0 \;;
#X scalar part 225 135 107 0 \;;
#X scalar part 45 45 663 0 \;;
#X scalar part 135 135 928 0 \;;
#X scalar grid-v 0 0 360 0 \;;
#X scalar grid-v 45 0 360 0 \;;
#X scalar grid-v 90 0 360 0 \;;
#X scalar grid-v 135 0 360 0 \;;
#X scalar grid-v 180 0 360 0 \;;
#X scalar grid-v 225 0 360 0 \;;
#X scalar grid-v 270 0 360 0 \;;
#X scalar grid-v 315 0 360 0 \;;
#X scalar grid-v 360 0 360 0 \;;
#X scalar grid-v 405 0 360 0 \;;
#X scalar grid-v 450 0 360 0 \;;
#X scalar grid-v 495 0 360 0 \;;
#X scalar grid-v 540 0 360 0 \;;
#X scalar grid-v 585 0 360 0 \;;
#X scalar grid-v 630 0 360 0 \;;
#X scalar grid-v 675 0 360 0 \;;
#X scalar index 193 0 360 \;;
#X scalar grid 0 0 720 \;;
#X scalar grid 0 45 720 \;;
#X scalar grid 0 90 720 \;;
#X scalar grid 0 135 720 \;;
#X scalar grid 0 180 720 \;;
#X scalar grid 0 225 720 \;;
#X scalar grid 0 270 720 \;;
#X scalar grid 0 315 720 \;;
#X scalar grid 0 360 720 \;;
#X scalar part 180 180 107 0 \;;
#X scalar part 135 90 107 0 \;;
#X scalar part 225 225 107 0 \;;
#X scalar part 540 90 287 0 \;;
#X scalar part 225 180 419 0 \;;
#X scalar part 405 180 146 0 \;;
#X scalar part 360 270 853 0 \;;
#X scalar part 495 135 107 0 \;;
#X scalar part 405 225 107 0 \;;
#X scalar part 495 225 107 0 \;;
#X scalar part 495 270 419 0 \;;
#X scalar part 585 225 853 0 \;;
#X scalar part 630 90 107 0 \;;
#X scalar part 585 135 107 0 \;;
#X scalar part 630 180 107 0 \;;
#X scalar part 630 135 419 0 \;;
#X scalar part 495 180 419 0 \;;
#X restore 28 14 pd arrange;
#N canvas 479 390 450 300 part 0;
#X obj 43 24 struct part float x float y float color;
#X obj 75 199 filledpolygon color 0 1 0 0 45 0 45 30 0 30;
#X obj 76 156 drawnumber color 0 33 222 s:;
#X restore 361 50 pd part;
#X obj 43 152 tgl 15 1 \$0-snap \$0-snap snap_to_grid 0 -6 0 8 -24198
-1 -1 1 1;
#N canvas 169 391 450 300 grid 0;
#X obj 75 23 struct grid float x float y float len;
#X obj 77 89 drawpolygon 0 1 0 0 len 0;
#X restore 362 27 pd grid;
#N canvas 452 51 656 567 build-grid 0;
#X obj 341 221 r \$0-xgrid;
#X obj 185 330 r \$0-ygrid;
#X msg 330 318 traverse pd-arrange \, bang;
#X obj 203 180 until;
#X obj 273 249 int 0;
#X obj 118 358 int 0;
#X obj 355 343 pointer;
#X msg 245 178 0;
#X obj 19 476 print y;
#X obj 76 332 until;
#X obj 318 250 + 45;
#X obj 162 358 + 45;
#X obj 58 539 print x;
#X msg 120 331 0;
#X obj 223 150 t f b b;
#X obj 223 22 r build-grid;
#X obj 80 513 spigot;
#X obj 41 456 spigot;
#X obj 57 366 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 24 227 r vertgrids;
#X obj 100 287 f 8;
#X obj 246 60 r horizgrids;
#X obj 223 126 f 16;
#X obj 305 93 * 45;
#X obj 305 118 s length-y;
#X obj 16 264 * 45;
#X obj 16 289 s length-x;
#X obj 305 459 r length-y;
#X obj 308 378 r length-x;
#X msg 256 375 0;
#X msg 259 465 0;
#X obj 211 494 append grid y x len;
#X obj 111 230 r build-grid;
#X msg 374 437 traverse pd-arrange \, bang;
#X obj 399 462 pointer;
#X obj 108 261 t b b b;
#X obj 223 407 append grid-v x y len;
#X msg 199 512 0;
#X msg 351 507 traverse pd-arrange \, bang;
#X obj 376 532 pointer;
#X obj 168 543 append index x y len;
#X msg 159 510 1;
#X connect 0 0 10 1;
#X connect 1 0 11 1;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 4 0 10 0;
#X connect 4 0 16 0;
#X connect 4 0 36 0;
#X connect 5 0 11 0;
#X connect 5 0 17 0;
#X connect 5 0 31 0;
#X connect 6 0 36 3;
#X connect 6 1 2 0;
#X connect 7 0 4 1;
#X connect 9 0 5 0;
#X connect 10 0 4 1;
#X connect 11 0 5 1;
#X connect 13 0 5 0;
#X connect 14 0 3 0;
#X connect 14 1 7 0;
#X connect 14 2 2 0;
#X connect 15 0 22 0;
#X connect 16 0 12 0;
#X connect 17 0 8 0;
#X connect 18 0 17 1;
#X connect 18 0 16 1;
#X connect 19 0 20 1;
#X connect 19 0 25 0;
#X connect 20 0 9 0;
#X connect 21 0 22 1;
#X connect 21 0 23 0;
#X connect 22 0 14 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 27 0 31 2;
#X connect 28 0 36 2;
#X connect 28 0 40 2;
#X connect 29 0 36 1;
#X connect 30 0 31 1;
#X connect 32 0 35 0;
#X connect 33 0 34 0;
#X connect 34 0 31 3;
#X connect 34 1 33 0;
#X connect 35 0 20 0;
#X connect 35 0 41 0;
#X connect 35 1 13 0;
#X connect 35 1 37 0;
#X connect 35 2 33 0;
#X connect 35 2 38 0;
#X connect 37 0 40 1;
#X connect 38 0 39 0;
#X connect 39 0 40 3;
#X connect 39 1 38 0;
#X connect 41 0 40 0;
#X restore 569 59 pd build-grid;
#N canvas 0 0 450 300 grid-v 0;
#X obj 78 121 drawpolygon 0 1 0 len 0 0;
#X obj 75 23 struct grid-v float x float y float len;
#X restore 289 26 pd grid-v;
#X msg 308 161 \; pd-arrange clear \; build-grid bang \;;
#X obj 508 200 s seqnum;
#N canvas 0 0 450 300 index 0;
#X obj 76 22 struct index float x float y float len;
#X obj 76 121 drawpolygon 900 3 0 len 0 0;
#X restore 290 46 pd index;
#X obj 191 126 nbx 5 14 -1e+37 1e+37 0 1 \$0-speed \$0-speed metro_speed
0 -6 0 10 -261689 -1 -1 20 256;
#X obj 183 59 tgl 15 1 \$0-index \$0-index index-pointer 0 -6 0 8 -261689
-1 -1 1 1;
#X obj 309 142 bng 15 250 50 0 empty empty clear-and-rebuild 0 -6 0
8 -258699 -1 -1;
#N canvas 0 0 629 488 calculations 0;
#X obj 87 15 r horizgrids;
#X obj 2 16 r \$0-ygrid;
#X obj 16 68 *;
#X obj 19 43 t b f;
#X obj 18 96 s \$0-vertlength;
#X obj 183 102 s \$0-xgrid;
#X obj 267 103 s \$0-ygrid;
#X floatatom 185 70 5 0 0 0 - - -;
#X floatatom 267 76 5 0 0 0 - - -;
#X msg 233 47 45;
#X obj 231 24 loadbang;
#X obj 393 86 s vertgrids;
#X obj 354 115 s horizgrids;
#X floatatom 353 84 5 0 0 0 - - -;
#X floatatom 395 68 5 0 0 0 - - -;
#X msg 352 63 16;
#X msg 394 45 8;
#X obj 162 215 pointer;
#X msg 162 182 traverse pd-arrange \, bang;
#X obj 51 250 append part x y color;
#X msg 46 201 0;
#X msg 80 200 0;
#X obj 52 150 t b b f b;
#X obj 52 126 r seqnum;
#X obj 288 270 loadbang;
#X msg 286 310 \; pd-arrange editmode 1 \; pd-arrange vis 1 \;;
#X msg 103 312 \; pd-arrange editmode 1 \;;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 7 0 5 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 10 0 15 0;
#X connect 10 0 16 0;
#X connect 13 0 12 0;
#X connect 14 0 11 0;
#X connect 15 0 13 0;
#X connect 16 0 14 0;
#X connect 17 0 19 3;
#X connect 18 0 17 0;
#X connect 20 0 19 0;
#X connect 21 0 19 1;
#X connect 22 0 20 0;
#X connect 22 1 21 0;
#X connect 22 2 19 2;
#X connect 22 3 18 0;
#X connect 23 0 22 0;
#X connect 24 0 26 0;
#X restore 573 36 pd calculations;
#X obj 508 180 random 999;
#X obj 507 131 bng 15 250 50 0 \$0-new empty create_new_sequence 0
-6 0 8 -260818 -1 -1;
#X obj 508 159 r \$0-new;
#N canvas 191 70 789 818 traverser 0;
#X obj 278 85 t p p;
#X obj 221 159 r \$0-xgrid;
#X obj 497 165 r \$0-ygrid;
#X obj 154 162 t f f;
#X obj 430 161 t f f;
#X obj 154 219 - 0;
#X obj 430 215 - 0;
#X obj 282 318 set part x y;
#X obj 184 193 mod 45;
#X obj 460 188 mod 45;
#X obj 154 244 max 0;
#X obj 430 245 max 0;
#X obj 506 657 set index x;
#X obj 548 593 t b p;
#X obj 506 629 f;
#X obj 497 491 mod;
#X obj 537 435 r \$0-vertlength;
#X obj 488 415 metro 500;
#X obj 488 461 counter 0 720;
#X obj 322 621 r \$0-ygrid;
#X obj 569 387 r \$0-speed;
#X obj 488 388 r \$0-index;
#X obj 278 25 r \$0-snap;
#X obj 548 533 r \$0-index;
#X obj 278 55 traverser pd-arrange part 50;
#X obj 264 443 r \$0-index;
#X obj 265 489 get part x y color;
#X obj 277 112 get part x y;
#X obj 548 561 traverser pd-arrange index 1;
#X obj 265 467 traverser pd-arrange part 5;
#X obj 283 721 pack 0 0;
#X obj 283 700 f;
#X obj 283 746 s \$0-curlist;
#X obj 299 658 / 45;
#X obj 299 679 int;
#X obj 162 579 / 45;
#X obj 162 600 int;
#X obj 206 581 / 45;
#X obj 206 603 int;
#X obj 162 625 ==;
#X obj 162 649 select 1;
#X obj 222 541 r \$0-ygrid;
#X text 602 593 Move index cursor;
#X connect 0 0 27 0;
#X connect 0 1 7 2;
#X connect 1 0 8 1;
#X connect 2 0 9 1;
#X connect 3 0 5 0;
#X connect 3 1 8 0;
#X connect 4 0 6 0;
#X connect 4 1 9 0;
#X connect 5 0 10 0;
#X connect 6 0 11 0;
#X connect 8 0 5 1;
#X connect 9 0 6 1;
#X connect 10 0 7 0;
#X connect 11 0 7 1;
#X connect 13 0 14 0;
#X connect 13 1 12 1;
#X connect 14 0 12 0;
#X connect 15 0 14 1;
#X connect 15 0 37 0;
#X connect 16 0 15 1;
#X connect 16 0 18 3;
#X connect 17 0 18 0;
#X connect 18 0 15 0;
#X connect 19 0 33 1;
#X connect 20 0 17 1;
#X connect 21 0 17 0;
#X connect 22 0 24 0;
#X connect 23 0 28 0;
#X connect 24 0 0 0;
#X connect 25 0 29 0;
#X connect 26 0 35 0;
#X connect 26 1 33 0;
#X connect 26 2 30 1;
#X connect 27 0 3 0;
#X connect 27 1 4 0;
#X connect 28 0 13 0;
#X connect 29 0 26 0;
#X connect 30 0 32 0;
#X connect 31 0 30 0;
#X connect 33 0 34 0;
#X connect 34 0 31 1;
#X connect 35 0 36 0;
#X connect 36 0 39 0;
#X connect 37 0 38 0;
#X connect 38 0 39 1;
#X connect 39 0 40 0;
#X connect 40 0 31 0;
#X connect 41 0 37 1;
#X connect 41 0 35 1;
#X restore 681 59 pd traverser;
#X obj 118 205 print acti;
#X obj 118 161 r \$0-curlist;
#X obj 42 57 r \$0-curlist;
#X obj 43 77 unpack 0 0;
#X obj 36 106 nbx 3 14 -1e+37 1e+37 0 0 empty empty row -30 0 0 10
-262131 -1 -1 4 256;
#X obj 113 104 nbx 3 14 -1e+37 1e+37 0 0 empty empty color -30 0 0
10 -225271 -1 -1 107 256;
#X obj 118 185 spigot;
#X obj 212 162 tgl 15 0 empty empty print 0 -6 0 8 -262144 -1 -1 0
1;
#X connect 11 0 6 0;
#X connect 13 0 7 0;
#X connect 15 0 13 0;
#X connect 18 0 23 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 22 0;
#X connect 23 0 17 0;
#X connect 24 0 23 1;
#X coords 0 0 0.00123153 0.00129366 200 140 1;
-------------- next part --------------
#N canvas 289 299 866 350 10;
#X msg 171 186 next;
#X obj 98 97 select 1;
#X obj 128 19 inlet;
#X obj 98 253 outlet;
#X obj 128 52 t f f;
#X obj 98 117 symbol \$1;
#X msg 98 162 traverse \$1 \, bang;
#X obj 222 50 inlet;
#X text 402 22 Args;
#X text 401 40 1: Name of subgraph to traverse in the form "pd-subpatch"
;
#X text 401 58 2: Pointer to select. Leave empty for all.;
#X obj 98 221 pointer \$2;
#X text 395 97 Inlets;
#X text 402 116 1: 1/0 - metro on off;
#X text 402 133 2: metro period;
#X text 403 157 outlet;
#X text 413 177 1: pointer.;
#X obj 281 173 loadbang;
#X msg 281 253 50;
#X obj 281 230 select 0;
#X obj 281 201 f \$3;
#X obj 281 279 s \$0-speed;
#X obj 269 50 r \$0-speed;
#X text 282 146 Init;
#X text 401 76 3: metro period;
#X obj 171 80 metro 50;
#X connect 0 0 11 0;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 4 0 25 0;
#X connect 4 1 1 0;
#X connect 5 0 6 0;
#X connect 6 0 11 0;
#X connect 7 0 25 1;
#X connect 11 0 3 0;
#X connect 11 2 5 0;
#X connect 17 0 20 0;
#X connect 18 0 21 0;
#X connect 19 0 18 0;
#X connect 19 1 21 0;
#X connect 20 0 19 0;
#X connect 22 0 25 1;
#X connect 25 0 0 0;