Return to set-directory.pd CVS log

Up to [Development] / JSOC / proj / globalhs / sosh

initial commit

#N canvas 558 32 678 617 10;
#X obj 125 67 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 125 87 openpanel;
#X obj 124 116 list prepend symbol;
#X obj 124 138 route list;
#X obj 123 162 list fromsymbol;
#N canvas 0 22 450 300 list-rev 0;
#X obj 92 29 inlet;
#X obj 148 141 t l;
#X obj 92 141 list;
#X obj 152 210 list;
#X obj 152 262 outlet;
#X text 174 95 drip list;
#X text 190 213 intermediate store \, bang'd on list end.;
#X text 178 140 repack in reverse order;
#X obj 92 54 t a b b;
#N canvas 0 22 450 300 list-drip 0;
#X obj 63 84 t a a;
#X obj 63 241 spigot;
#X obj 102 149 bang;
#X obj 102 168 1;
#X obj 223 149 route bang;
#X obj 183 150 bang;
#X obj 183 169 0;
#X obj 102 114 list split 2;
#X obj 232 379 list split;
#X obj 299 328 list length;
#X obj 299 350 >> 1;
#X obj 63 260 t a a a a;
#X obj 63 446 list split;
#X obj 130 398 list length;
#X obj 130 423 >> 1;
#X obj 31 19 inlet;
#X obj 290 175 outlet;
#X text 73 19 Copyright 2009 by Mathieu Bouchard;
#X obj 31 53 t b a;
#X obj 465 119 outlet;
#X text 520 121 signal end of list;
#X text 381 23 made compatible with [list-drip]: fbar 2009;
#X connect 0 0 1 0;
#X connect 0 1 7 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 1 16 0;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X connect 7 0 2 0;
#X connect 7 2 4 0;
#X connect 7 2 5 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 8 1;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 11 2 8 0;
#X connect 11 3 9 0;
#X connect 12 1 0 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 15 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 0 0;
#X restore 89 92 pd list-drip;
#X connect 0 0 8 0;
#X connect 1 0 2 1;
#X connect 2 0 1 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 8 0 9 0;
#X connect 8 1 2 1;
#X connect 8 2 3 1;
#X connect 9 0 2 0;
#X connect 9 1 3 0;
#X restore 119 201 pd list-rev;
#N canvas 0 22 450 300 list-drip 0;
#X obj 63 84 t a a;
#X obj 63 241 spigot;
#X obj 102 149 bang;
#X obj 102 168 1;
#X obj 223 149 route bang;
#X obj 183 150 bang;
#X obj 183 169 0;
#X obj 102 114 list split 2;
#X obj 232 379 list split;
#X obj 299 328 list length;
#X obj 299 350 >> 1;
#X obj 63 260 t a a a a;
#X obj 63 446 list split;
#X obj 130 398 list length;
#X obj 130 423 >> 1;
#X obj 31 19 inlet;
#X obj 290 175 outlet;
#X text 73 19 Copyright 2009 by Mathieu Bouchard;
#X obj 31 53 t b a;
#X obj 465 119 outlet;
#X text 520 121 signal end of list;
#X text 381 23 made compatible with [list-drip]: fbar 2009;
#X connect 0 0 1 0;
#X connect 0 1 7 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 1 16 0;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X connect 7 0 2 0;
#X connect 7 2 4 0;
#X connect 7 2 5 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 8 1;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 11 2 8 0;
#X connect 11 3 9 0;
#X connect 12 1 0 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 15 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 0 0;
#X restore 118 263 pd list-drip;
#X obj 217 315 sel 47;
#X obj 117 284 t f f;
#X obj 119 392 spigot;
#X obj 175 426 t l;
#X obj 119 426 list;
#X obj 170 463 list;
#X text 206 468 intermediate store \, bang'd on list end.;
#X text 205 425 repack in reverse order;
#X obj 170 489 list tosymbol;
#X obj 148 358 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X msg 218 336 1;
#X obj 119 228 t b l b b b;
#X msg 187 336 0;
#X obj 170 515 outlet;
#X obj 126 32 inlet;
#X msg 293 513 set \$1;
#X obj 292 538 outlet;
#X obj 494 427 inlet;
#X obj 494 455 list prepend symbol;
#X obj 494 481 route list;
#X text 491 400 for user-entered directory;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 18 0;
#X connect 6 0 8 0;
#X connect 7 0 17 0;
#X connect 8 0 7 0;
#X connect 8 1 9 0;
#X connect 9 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 10 0;
#X connect 11 0 12 1;
#X connect 12 0 15 0;
#X connect 15 0 20 0;
#X connect 15 0 22 0;
#X connect 16 0 9 1;
#X connect 17 0 16 0;
#X connect 18 0 12 0;
#X connect 18 1 6 0;
#X connect 18 2 19 0;
#X connect 18 3 11 1;
#X connect 18 4 12 1;
#X connect 19 0 16 0;
#X connect 21 0 0 0;
#X connect 22 0 23 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 20 0;