chose/extra/Fraise/pied/intern/simplify_path.pd

#N canvas 87 103 332 276 10;
#X obj 42 8 inlet;
#X obj 42 219 outlet;
#X obj 42 37 list fromsymbol;
#X obj 42 140 list;
#N canvas 4 103 259 265 remove_last/ 0;
#X obj 79 28 inlet;
#X obj 79 71 t a a;
#X obj 106 96 list length;
#X obj 79 144 list split;
#X obj 106 117 - 1;
#X obj 79 50 list fromsymbol;
#X obj 79 164 list tosymbol;
#X obj 79 186 outlet;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 1 1 2 0;
#X connect 2 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 3 1;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X restore 42 188 pd remove_last/;
#N canvas 4 103 362 295 l2s/ 0;
#X obj 102 72 t b a b;
#X obj 148 166 pack s s;
#X msg 203 123 symbol;
#X obj 121 123 list split 1;
#X obj 134 102 list;
#X obj 121 145 t b s;
#X obj 102 211 symbol;
#X msg 148 188 symbol \$2\$1/;
#X obj 102 47 inlet;
#X obj 102 233 outlet;
#X connect 0 0 6 0;
#X connect 0 1 3 0;
#X connect 0 2 2 0;
#X connect 1 0 7 0;
#X connect 2 0 1 1;
#X connect 2 0 6 1;
#X connect 3 0 5 0;
#X connect 3 1 4 1;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 1 0;
#X connect 6 0 9 0;
#X connect 7 0 1 1;
#X connect 7 0 6 1;
#X connect 8 0 0 0;
#X restore 42 164 pd l2s/;
#X obj 42 60 t b a b;
#N canvas 5 75 434 315 repack_but_if".."_remove_previous_element 0
;
#X obj 118 13 inlet;
#X obj 240 233 outlet;
#X obj 240 195 list;
#X obj 240 172 list prepend;
#X obj 118 46 sel ..;
#X msg 323 69 list;
#X obj 118 76 list;
#X obj 118 99 t a a;
#X obj 145 124 list length;
#X obj 118 172 list split;
#X obj 145 145 - 1;
#X obj 118 195 t a;
#X obj 323 47 inlet reset;
#X connect 0 0 4 0;
#X connect 2 0 3 1;
#X connect 2 0 6 1;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 6 0;
#X connect 4 1 3 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 7 1 8 0;
#X connect 8 0 10 0;
#X connect 9 0 11 0;
#X connect 9 2 11 0;
#X connect 10 0 9 1;
#X connect 11 0 2 0;
#X connect 12 0 5 0;
#X restore 61 110 pd repack_but_if".."_remove_previous_element;
#N canvas 28 459 456 371 s2l/_then_drip 0;
#X obj 111 88 list split 1;
#X obj 111 139 t b f;
#X obj 124 112 list;
#X obj 165 184 list tosymbol;
#X obj 165 231 sel /;
#X obj 211 277 pack s s;
#X msg 211 299 symbol \$2\$1;
#X obj 165 277 t b b;
#X obj 192 326 symbol;
#X msg 165 300 symbol;
#X obj 180 160 b;
#X obj 138 163 t b f;
#X msg 105 186 symbol /;
#X msg 250 127 symbol;
#X obj 111 19 inlet;
#X obj 111 41 t a b;
#X text 201 230 split at '/' \, but protect first char;
#X obj 192 348 outlet;
#X connect 0 0 1 0;
#X connect 0 1 2 1;
#X connect 0 2 10 0;
#X connect 1 0 2 0;
#X connect 1 1 11 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 4 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 5 1;
#X connect 6 0 8 1;
#X connect 7 0 9 0;
#X connect 7 1 8 0;
#X connect 8 0 17 0;
#X connect 9 0 5 1;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 11 1 3 0;
#X connect 12 0 4 1;
#X connect 13 0 4 1;
#X connect 13 0 5 1;
#X connect 14 0 15 0;
#X connect 15 0 0 0;
#X connect 15 1 13 0;
#X restore 61 84 pd s2l/_then_drip;
#X connect 0 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 6 1 8 0;
#X connect 6 2 7 1;
#X connect 7 0 3 1;
#X connect 8 0 7 0;