Csaba Láng wrote:
Dearest list,
is there a way to delay a symbol like pipe does with number?
actually you can delay anything with a little abstraction
attached is my own personal approach (using vanilla objects only)
best
oliver
#N canvas 535 90 677 469 10;
#X obj 292 179 t b l b, f 33;
#X obj 292 152 list;
#X obj 40 19 inlet;
#X obj 343 83 inlet;
#X text 383 82 delay time;
#X text 81 18 message in;
#X obj 353 420 outlet;
#X obj 300 16 loadbang;
#X obj 300 41 f \$1;
#X obj 343 151 max 0;
#X obj 461 232 list prepend;
#X obj 292 218 f;
#X obj 530 178 f;
#X obj 558 178 + 1;
#X msg 545 151 0;
#X obj 530 202 t f f;
#X obj 575 202 sel 99999;
#X obj 67 250 text define \$0-p;
#X obj 461 254 text set \$0-p 999999;
#X obj 292 345 text delete \$0-p;
#X obj 319 314 text get \$0-p;
#X obj 292 264 text search \$0-p;
#X obj 292 289 t f f;
#X obj 319 393 list split 1;
#X obj 292 240 pipe 5000;
#X msg 67 223 clear;
#X obj 40 72 t b b;
#X obj 127 326 text sequence \$0-p;
#X msg 127 299 line 0 \, bang, f 13;
#X obj 40 43 route clear stop flush;
#X connect 0 0 11 0;
#X connect 0 1 10 0;
#X connect 0 2 12 0;
#X connect 1 0 0 0;
#X connect 2 0 29 0;
#X connect 3 0 9 0;
#X connect 7 0 8 0;
#X connect 7 0 14 0;
#X connect 7 0 25 0;
#X connect 8 0 9 0;
#X connect 9 0 24 1;
#X connect 10 0 18 0;
#X connect 11 0 24 0;
#X connect 12 0 13 0;
#X connect 12 0 15 0;
#X connect 13 0 12 1;
#X connect 14 0 12 1;
#X connect 15 0 10 1;
#X connect 15 0 11 1;
#X connect 15 1 16 0;
#X connect 16 0 14 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 19 0;
#X connect 22 1 20 0;
#X connect 23 1 6 0;
#X connect 24 0 21 0;
#X connect 25 0 24 0;
#X connect 25 0 17 0;
#X connect 26 0 14 0;
#X connect 26 1 25 0;
#X connect 27 0 23 0;
#X connect 27 1 26 0;
#X connect 28 0 27 0;
#X connect 29 0 26 0;
#X connect 29 1 26 0;
#X connect 29 2 28 0;
#X connect 29 3 1 0;
#N canvas 535 50 624 436 10;
#X obj 284 39 namecanvas \$0-ol_help;
#N canvas 173 255 626 727 init 0;
#X obj 470 388 cnv 8 120 25 empty empty empty 20 12 0 14 -204786 -66577
0;
#X obj 97 553 cnv 8 300 80 empty empty empty 20 12 0 14 -204786 -66577
0;
#X obj 461 76 cnv 8 120 26 empty empty empty 20 12 0 14 -204786 -66577
0;
#X obj 60 287 cnv 8 200 25 empty empty empty 20 12 0 14 -204786 -66577
0;
#X msg 245 33 vis 0 \, relocate \$3x\$4+0+0 0x0+\$1+\$2 \, vis 1 \,
editmode 0;
#X obj 245 55 s \$0-ol_help;
#X msg 118 64 520 50 600 400;
#X obj 118 219 s \$0-frame-r;
#X floatatom 118 176 5 0 0 0 - - -, f 5;
#X obj 28 450 s \$0-title-r;
#X msg 98 406 label \$1;
#X floatatom 263 143 5 0 0 0 - - -, f 5;
#X obj 263 183 s \$0-bgnd-r;
#X obj 56 119 del 10;
#X obj 56 99 t b b;
#X text 244 80 1.) set pos and size of main window;
#X msg 172 115 \$3;
#X obj 118 132 f;
#X text 151 143 minus frame sizes, f 11;
#X text 124 266 2.) set name of title;
#X obj 56 141 s \$0-lb;
#X obj 118 107 r \$0-lb;
#X obj 29 244 r \$0-lb;
#X obj 29 406 unpack 0 s;
#X text 175 530 3.) set description;
#X obj 263 262 s \$0-frame2-r;
#X obj 182 463 s \$0-text1-r;
#X obj 29 626 cnv 3 68 15 empty empty empty 2 7 0 10 -257985 -66577
0;
#N canvas 341 335 425 542 tosymbol 0;
#X obj 67 94 list length;
#X obj 67 42 list;
#X obj 101 226 list, f 7;
#X obj 67 175 f, f 10;
#X obj 154 175 + 1;
#X obj 67 150 until;
#X obj 101 251 list split;
#X msg 157 94 0;
#X obj 139 276 list split 1;
#X obj 139 361 list fromsymbol;
#X obj 139 302 route symbol float;
#X obj 191 329 makefilename %s;
#X obj 139 435 textfile;
#X msg 202 94 clear;
#X obj 139 387 list prepend add2;
#X obj 67 201 t b b b f;
#X obj 79 276 + 1;
#X obj 67 122 t f f;
#X obj 78 300 <;
#X obj 20 335 spigot;
#X msg 20 394 add2 160;
#X obj 139 411 list trim;
#X obj 67 335 f;
#X obj 67 361 sel 0;
#X obj 139 463 list tosymbol;
#X obj 67 68 t l l b b, f 23;
#X text 184 486 symbol out with correct spaces;
#X text 57 2 string in;
#X msg 136 25 #/zi 3 4 oo ä;
#X msg 229 25 1.23457e+019;
#X floatatom 315 28 5 0 0 0 - - -, f 5;
#X obj 67 22 cnv 13 34 15 empty empty empty 2 2 0 9 -163816 -66577
0;
#X obj 139 487 cnv 14 40 15 empty empty empty 2 2 0 9 -163840 -66577
0;
#X obj 67 21 inlet;
#X obj 139 486 outlet;
#X connect 0 0 17 0;
#X connect 1 0 25 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 3 0 15 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X connect 6 1 8 0;
#X connect 7 0 3 1;
#X connect 8 0 10 0;
#X connect 9 0 14 0;
#X connect 10 0 9 0;
#X connect 10 1 11 0;
#X connect 11 0 9 0;
#X connect 12 0 24 0;
#X connect 13 0 12 0;
#X connect 14 0 21 0;
#X connect 15 0 22 0;
#X connect 15 1 19 0;
#X connect 15 2 2 0;
#X connect 15 3 6 1;
#X connect 15 3 16 0;
#X connect 16 0 18 0;
#X connect 17 0 5 0;
#X connect 17 1 18 1;
#X connect 18 0 19 1;
#X connect 18 0 22 1;
#X connect 19 0 20 0;
#X connect 20 0 12 0;
#X connect 21 0 12 0;
#X connect 22 0 23 0;
#X connect 23 0 12 0;
#X connect 24 0 34 0;
#X connect 25 0 0 0;
#X connect 25 1 2 1;
#X connect 25 2 7 0;
#X connect 25 3 13 0;
#X connect 28 0 1 0;
#X connect 29 0 1 0;
#X connect 30 0 1 0;
#X connect 33 0 1 0;
#X restore 28 625 pd tosymbol;
#X obj 199 390 r \$0-lb;
#X obj 199 413 t b b;
#X obj 268 463 s \$0-text2-r;
#X obj 354 463 s \$0-text3-r;
#X msg 28 488 bang;
#X msg 118 195 vis_size \$1 45;
#X msg 263 240 vis_size \$1 43;
#X text 349 389 init text labels;
#X obj 28 719 pack s 0 0;
#X msg 28 740 label \$1 \, label_pos \$2 \$3;
#X obj 531 524 unpack;
#X msg 531 500 77 -26;
#X floatatom 493 391 5 0 0 0 - - -, f 5;
#X floatatom 531 391 5 0 0 0 - - -, f 5;
#X obj 531 421 t b f;
#X msg 545 471 set \$1 \$2;
#X obj 493 471 t b b l;
#X text 503 370 x;
#X text 540 370 y;
#X text 466 352 4.) set label position;
#X obj 564 545 f;
#X msg 321 367 color \$1 \$1 \$1;
#X msg 263 161 vis_size \$1 55;
#X msg 260 413 size 1 \, pos 300 65 \, vis_size 1 1 \, color \$1 \$1
2 \, label_font 1 11 \, label, f 26;
#X floatatom 79 174 5 0 0 0 - - -, f 5;
#X obj 118 153 - 13;
#X obj 263 122 + 10;
#X obj 263 219 - 254;
#X obj 56 56 t b f;
#X msg 260 390 -1.51675e+007;
#X msg 260 368 set \$1;
#X obj 56 11 loadbang;
#N canvas 36 456 791 300 better_colors 0;
#X obj 89 19 inlet;
#X obj 320 262 outlet;
#X obj 89 40 random 10;
#X obj 89 61 sel 0 1 2 3 4 5 6 7 8 9, f 83;
#X obj 320 239 expr ($f1*(-65536)+$f2*(-256)+$f3*(-1))-1;
#X msg 16 162 140 0 0;
#X msg 69 162 0 156 144;
#X msg 136 162 0 140 0;
#X msg 252 162 231 112 0;
#X msg 191 162 100 0 255;
#X msg 317 162 100 100 100;
#X msg 397 162 255 255 0;
#X msg 541 162 123 33 5;
#X msg 464 162 22 131 5;
#X msg 607 163 147 0 163;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 3 3 9 0;
#X connect 3 4 8 0;
#X connect 3 5 10 0;
#X connect 3 6 11 0;
#X connect 3 7 13 0;
#X connect 3 8 12 0;
#X connect 3 9 14 0;
#X connect 4 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 4 0;
#X connect 7 0 4 0;
#X connect 8 0 4 0;
#X connect 9 0 4 0;
#X connect 10 0 4 0;
#X connect 11 0 4 0;
#X connect 12 0 4 0;
#X connect 13 0 4 0;
#X connect 14 0 4 0;
#X restore 56 34 pd better_colors;
#X obj 56 78 del 50;
#X msg 170 17 bang;
#X text 200 114 width;
#X msg 29 428 label_pos \$1 21;
#X obj 479 124 list prepend set;
#X obj 479 146 list trim;
#X text 246 10 probably dangerous when initialized with loadbang!;
#X msg 29 383 85 ol_pipe;
#X obj 28 775 s \$0-text1-r;
#X obj 195 719 pack s 0 0;
#X obj 195 775 s \$0-text2-r;
#X obj 351 719 pack s 0 0;
#X msg 351 740 label \$1 \, label_pos \$2 \$3;
#X obj 351 775 s \$0-text3-r;
#X obj 28 648 list prepend 0;
#X msg 195 740 label \$1 \, label_pos \$2 \$3 \, label_font 1 11,
f 23;
#X obj 564 567 + 14;
#X obj 564 590 + 14;
#X obj 28 510 t b b b b b b b, f 20;
#X obj 28 672 route 1 2 3, f 66;
#X msg 86 532 2, f 1;
#X msg 125 531 1, f 1;
#X msg 47 532 3, f 1;
#X msg 153 608 empty;
#X obj 531 272 loadbang;
#X msg 531 293 set -26;
#X floatatom 73 292 5 0 0 0 - - -, f 5;
#X symbolatom 108 292 20 0 0 0 - - -, f 20;
#X obj 73 333 pack 0 s;
#X obj 108 310 t b s;
#X obj 73 354 t b l;
#X msg 113 354 set \$1 \$2;
#X msg 73 261 set 66;
#X msg 479 80 520 50 600 400;
#X obj 493 448 pack 0 -26;
#X msg 135 584 empty;
#X msg 106 560 a [pipe] for anythings;
#X connect 4 0 5 0;
#X connect 6 0 16 0;
#X connect 8 0 34 0;
#X connect 8 0 55 0;
#X connect 8 0 56 0;
#X connect 10 0 9 0;
#X connect 11 0 51 0;
#X connect 13 0 20 0;
#X connect 14 0 13 0;
#X connect 14 1 6 0;
#X connect 16 0 17 1;
#X connect 17 0 54 0;
#X connect 21 0 17 0;
#X connect 22 0 69 0;
#X connect 22 0 94 0;
#X connect 23 0 65 0;
#X connect 23 1 10 0;
#X connect 28 0 76 0;
#X connect 29 0 30 0;
#X connect 30 0 80 0;
#X connect 30 1 40 0;
#X connect 30 1 58 0;
#X connect 33 0 80 0;
#X connect 34 0 7 0;
#X connect 35 0 25 0;
#X connect 37 0 38 0;
#X connect 38 0 70 0;
#X connect 39 0 37 1;
#X connect 39 0 71 1;
#X connect 39 0 73 1;
#X connect 39 1 49 0;
#X connect 40 0 39 0;
#X connect 41 0 96 0;
#X connect 42 0 43 0;
#X connect 43 0 96 0;
#X connect 43 1 96 1;
#X connect 44 0 40 0;
#X connect 45 0 33 0;
#X connect 45 1 40 0;
#X connect 45 2 44 0;
#X connect 49 0 37 2;
#X connect 49 0 78 0;
#X connect 50 0 12 0;
#X connect 51 0 12 0;
#X connect 52 0 26 0;
#X connect 52 0 31 0;
#X connect 52 0 32 0;
#X connect 53 0 34 0;
#X connect 54 0 8 0;
#X connect 55 0 11 0;
#X connect 56 0 35 0;
#X connect 57 0 62 0;
#X connect 57 1 59 0;
#X connect 58 0 52 0;
#X connect 58 0 50 0;
#X connect 59 0 58 0;
#X connect 60 0 61 0;
#X connect 61 0 57 0;
#X connect 62 0 14 0;
#X connect 63 0 61 0;
#X connect 65 0 9 0;
#X connect 66 0 67 0;
#X connect 67 0 6 0;
#X connect 69 0 23 0;
#X connect 71 0 77 0;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 76 0 81 0;
#X connect 77 0 72 0;
#X connect 78 0 71 2;
#X connect 78 0 79 0;
#X connect 79 0 73 2;
#X connect 80 0 85 0;
#X connect 80 1 84 0;
#X connect 80 2 97 0;
#X connect 80 3 82 0;
#X connect 80 4 98 0;
#X connect 80 5 83 0;
#X connect 81 0 37 0;
#X connect 81 1 71 0;
#X connect 81 2 73 0;
#X connect 82 0 76 1;
#X connect 83 0 76 1;
#X connect 84 0 76 1;
#X connect 85 0 28 0;
#X connect 86 0 87 0;
#X connect 87 0 42 0;
#X connect 88 0 90 0;
#X connect 89 0 91 0;
#X connect 90 0 92 0;
#X connect 91 0 88 0;
#X connect 91 1 90 1;
#X connect 92 0 69 0;
#X connect 92 1 93 0;
#X connect 93 0 69 0;
#X connect 94 0 88 0;
#X connect 95 0 4 0;
#X connect 95 0 66 0;
#X connect 96 0 45 0;
#X connect 97 0 28 0;
#X connect 98 0 28 0;
#X restore 19 48 pd init;
#X obj 11 11 cnv 8 597 55 \$0-bgnd \$0-bgnd-r empty 0 20 0 4 -235265
-235265 0;
#X obj 15 16 cnv 8 587 45 \$0-frame \$0-frame-r empty 20 20 0 14 -1
-262144 0;
#X obj 16 17 cnv 15 250 43 \$0-title \$0-title-r ol_pipe 85 21 1 24
-236864 -64 0;
#X obj 268 17 cnv 15 333 43 \$0-frame2 \$0-frame2-r empty 25 18 1 24
-216384 -4160 0;
#X obj 310 75 cnv 1 1 1 \$0-text1 \$0-text1-r a [pipe] for anythings
77 -26 1 11 -235265 -66577 0;
#X obj 310 75 cnv 1 1 1 \$0-text2 \$0-text2-r empty 77 -12 1 11 -235265
-66577 0;
#X obj 310 75 cnv 1 1 1 \$0-text3 \$0-text3-r empty 77 2 1 11 -235265
-66577 0;
#X text 476 274 delay time;
#X obj 327 309 cnv 15 74 15 empty empty empty 20 12 0 14 -204786 -66577
0;
#X obj 33 109 cnv 1 146 1 empty empty ARGUMENTS:Â (defaults) 1 -7 0
12 -66577 -66577 0;
#X msg 326 253 bang;
#X floatatom 326 234 5 0 0 0 - - -, f 5;
#X msg 326 212 0.9999;
#X msg 326 188 wert;
#X msg 326 165 symbol ooo;
#X msg 326 141 ert 6 8 9;
#X msg 326 275 list vvv 4 908;
#X text 31 119 1.) delay time (0);
#X msg 110 183 clear;
#X msg 110 243 flush;
#X floatatom 436 275 5 0 0 0 - - -, f 5;
#X msg 110 206 stop;
#X text 155 181 clear pipe;
#X text 154 205 same as "clear";
#X text 154 234 output remaining;
#X text 154 244 pipe content at once;
#X text 109 154 RESERVED MESSAGES:;
#X text 105 380 Like in PD's [pipe] \, the incoming messages are "stacked"
and are output in the same order as they came in \, each with the specified
delay, f 72;
#X obj 326 308 ol_pipe 1000;
#X obj 326 346 print PIPE_OUT:::;
#X text 324 116 ANYTHING GETS DELAYED:;
#X connect 12 0 30 0;
#X connect 13 0 30 0;
#X connect 14 0 30 0;
#X connect 15 0 30 0;
#X connect 16 0 30 0;
#X connect 17 0 30 0;
#X connect 18 0 30 0;
#X connect 20 0 30 0;
#X connect 21 0 30 0;
#X connect 22 0 30 1;
#X connect 23 0 30 0;
#X connect 30 0 31 0;
_______________________________________________
Pd-list@lists.iem.at mailing list
UNSUBSCRIBE and account-management ->
https://lists.puredata.info/listinfo/pd-list
