[PD] cute arranger

Frank Barknecht fbar at footils.org
Mon Jun 28 15:33:18 CEST 2004


Hallo,

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

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 366 533 701 243 10;
#N canvas 56 81 784 461 arrange 1;
#X scalar part 90 135 742 0 \;;
#X scalar part 135 315 901 0 \;;
#X scalar part 360 180 714 0 \;;
#X scalar part 180 135 190 0 \;;
#X scalar part 585 45 722 0 \;;
#X scalar part 180 225 515 0 \;;
#X scalar part 45 225 481 0 \;;
#X scalar part 180 270 760 0 \;;
#X scalar part 90 180 560 0 \;;
#X scalar part 45 90 742 0 \;;
#X scalar part 135 90 103 0 \;;
#X scalar part 45 45 101 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 489 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 270 225 103 0 \;;
#X scalar part 315 225 152 0 \;;
#X scalar part 450 135 103 0 \;;
#X scalar part 540 90 103 0 \;;
#X scalar part 360 225 177 0 \;;
#X scalar part 405 225 552 0 \;;
#X scalar part 450 225 401 0 \;;
#X scalar part 450 315 152 0 \;;
#X scalar part 495 315 333 0 \;;
#X scalar part 540 315 152 0 \;;
#X scalar part 585 315 152 0 \;;
#X scalar part 315 45 175 0 \;;
#X scalar part 360 90 174 0 \;;
#X scalar part 180 45 152 0 \;;
#X scalar part 225 45 152 0 \;;
#X scalar part 495 180 401 0 \;;
#X scalar part 495 225 401 0 \;;
#X scalar part 540 135 401 0 \;;
#X obj 4 413 nbx 5 14 -1e+37 1e+37 0 0 empty \$0-currently currently_active
0 -6 0 10 -24198 -1 -1 552 256;
#X obj 161 414 tgl 15 1 \$0-snap \$0-snap snap_to_grid 0 -6 0 8 -24198
-1 -1 1 1;
#X obj 258 415 bng 15 250 50 0 \$0-new empty create_new_sequence 0
-6 0 8 -260818 -1 -1;
#X obj 389 416 tgl 15 1 \$0-index \$0-index index-pointer 0 -6 0 8
-261689 -1 -1 1 1;
#X obj 485 417 nbx 5 14 -1e+37 1e+37 0 1 \$0-speed \$0-speed metro_speed
0 -6 0 10 -261689 -1 -1 26 256;
#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 115 355 get part x y color;
#X msg 98 275 next;
#X msg 85 248 traverse pd-arrange \, bang;
#X obj 96 329 t p p;
#X obj 153 379 r \$0-xgrid;
#X obj 237 380 r \$0-ygrid;
#X obj 116 404 t f f;
#X obj 176 403 t f f;
#X obj 105 461 - 0;
#X obj 180 457 - 0;
#X obj 36 515 set part x y;
#X obj 43 152 tgl 15 1 \$0-snap \$0-snap snap_to_grid 0 -6 0 8 -24198
-1 -1 1 1;
#X obj 132 435 mod 45;
#X obj 195 424 mod 45;
#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 69 194 select 1;
#X obj 507 167 s seqnum;
#X obj 36 488 max 0;
#X obj 75 488 max 0;
#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 26 256;
#X obj 240 711 set index x;
#X obj 290 650 t b p;
#X obj 240 683 f;
#X obj 160 574 mod;
#X obj 304 470 r \$0-vertlength;
#X obj 255 450 metro 500;
#X obj 183 59 tgl 15 1 \$0-index \$0-index index-pointer 0 -6 0 8 -261689
-1 -1 1 1;
#X obj 255 496 counter 0 720;
#X obj 183 600 r \$0-ygrid;
#X obj 124 710 f;
#X obj 70 612 moses;
#X obj 71 638 moses;
#X obj 158 526 pack 0 0;
#X obj 67 576 unpack 0 0;
#X obj 127 685 t b;
#X obj 114 597 + 1;
#X obj 160 631 - 44;
#X obj 485 488 pointer index;
#X msg 558 466 next;
#X msg 485 442 traverse pd-arrange \, bang;
#X obj 483 413 select 1;
#X obj 558 396 metro 1;
#X obj 85 306 pointer part;
#X obj 309 142 bng 15 250 50 0 empty empty clear-and-rebuild 0 -6 0
8 -258699 -1 -1;
#X obj 39 108 nbx 5 14 -1e+37 1e+37 0 0 empty \$0-currently currently_active
0 -6 0 10 -24198 -1 -1 552 256;
#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 285 290 loadbang;
#X msg 286 310 \; pd-arrange editmode 1 \; pd-arrange vis 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 25 0;
#X restore 573 36 pd calculations;
#X obj 133 191 metro 50;
#X obj 360 415 r \$0-speed;
#X obj 282 419 r \$0-index;
#X obj 123 741 s \$0-currently;
#X obj 544 354 r \$0-index;
#X obj 506 143 random 999;
#X obj 523 103 bng 15 250 50 0 \$0-new empty create_new_sequence 0
-6 0 8 -260818 -1 -1;
#X obj 92 165 r \$0-snap;
#X obj 532 123 r \$0-new;
#X connect 2 0 8 0;
#X connect 2 0 38 0;
#X connect 2 1 9 0;
#X connect 2 2 38 1;
#X connect 3 0 48 0;
#X connect 4 0 48 0;
#X connect 5 0 2 0;
#X connect 5 1 12 2;
#X connect 6 0 14 1;
#X connect 7 0 15 1;
#X connect 8 0 10 0;
#X connect 8 1 14 0;
#X connect 9 0 11 0;
#X connect 9 1 15 0;
#X connect 10 0 22 0;
#X connect 11 0 23 0;
#X connect 14 0 10 1;
#X connect 15 0 11 1;
#X connect 20 0 4 0;
#X connect 22 0 12 0;
#X connect 23 0 12 1;
#X connect 27 0 28 0;
#X connect 27 1 26 1;
#X connect 28 0 26 0;
#X connect 29 0 28 1;
#X connect 29 0 41 0;
#X connect 29 0 42 0;
#X connect 30 0 29 1;
#X connect 30 0 33 3;
#X connect 31 0 33 0;
#X connect 33 0 29 0;
#X connect 34 0 42 1;
#X connect 35 0 55 0;
#X connect 36 0 37 0;
#X connect 37 1 40 0;
#X connect 38 0 39 0;
#X connect 39 0 36 0;
#X connect 39 1 35 1;
#X connect 40 0 35 0;
#X connect 41 0 36 1;
#X connect 42 0 37 1;
#X connect 43 0 27 0;
#X connect 43 2 45 0;
#X connect 44 0 43 0;
#X connect 45 0 43 0;
#X connect 46 0 45 0;
#X connect 47 0 44 0;
#X connect 48 0 5 0;
#X connect 48 2 4 0;
#X connect 49 0 19 0;
#X connect 52 0 3 0;
#X connect 53 0 31 1;
#X connect 54 0 31 0;
#X connect 56 0 47 0;
#X connect 56 0 46 0;
#X connect 57 0 21 0;
#X connect 59 0 20 0;
#X connect 59 0 52 0;
#X connect 60 0 57 0;
#X coords 0 0 0.00123153 0.00129366 200 140 1;


More information about the Pd-list mailing list