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

#N canvas 901 143 450 362 10;
#X obj 129 30 inlet;
#X obj 129 278 outlet;
#X obj 129 59 list fromsymbol;
#N canvas 217 164 423 411 find_last_/ 0;
#X obj 75 47 inlet;
#X obj 101 121 list split 1;
#X msg 216 123 0;
#X obj 155 267 i;
#X obj 128 288 sel 47;
#X obj 128 239 t f b;
#X obj 128 313 f;
#X obj 101 90 t a a;
#X obj 128 156 list;
#X obj 101 215 t b f;
#X obj 182 267 + 1;
#X obj 75 69 t b a;
#X obj 75 342 f;
#X obj 75 364 outlet;
#X connect 0 0 11 0;
#X connect 1 0 9 0;
#X connect 1 1 8 1;
#X connect 2 0 3 0;
#X connect 2 0 12 1;
#X connect 3 0 6 1;
#X connect 3 0 10 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 5 1 3 0;
#X connect 6 0 12 1;
#X connect 7 0 1 0;
#X connect 7 1 2 0;
#X connect 8 0 1 0;
#X connect 9 0 8 0;
#X connect 9 1 5 0;
#X connect 10 0 3 1;
#X connect 11 0 12 0;
#X connect 11 1 7 0;
#X connect 12 0 13 0;
#X restore 156 105 pd find_last_/;
#X obj 129 143 list split;
#X obj 129 81 t a a;
#X obj 129 252 list tosymbol;
#X obj 157 193 outlet;
#X obj 157 167 list tosymbol;
#N canvas 1 82 501 486 striplast/ 0;
#X obj 176 165 inlet;
#X obj 231 402 outlet;
#X obj 176 256 list split 1;
#X obj 176 206 t a a;
#X obj 245 211 list length;
#X obj 245 233 - 1;
#X obj 176 383 spigot;
#X obj 214 313 == 47;
#X obj 231 358 spigot;
#X obj 264 336 != 47;
#X obj 231 380 list append;
#X obj 113 264 t a;
#X obj 176 327 t a a;
#X obj 214 283 t f f;
#X connect 0 0 3 0;
#X connect 2 0 12 0;
#X connect 2 1 13 0;
#X connect 3 0 2 0;
#X connect 3 1 4 0;
#X connect 4 0 5 0;
#X connect 5 0 2 1;
#X connect 6 0 11 0;
#X connect 7 0 6 1;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 1 0;
#X connect 11 0 3 0;
#X connect 12 0 6 0;
#X connect 12 1 8 0;
#X connect 13 0 7 0;
#X connect 13 0 9 0;
#X connect 13 1 10 1;
#X restore 129 218 pd striplast/;
#X connect 0 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 4 1;
#X connect 4 0 9 0;
#X connect 4 1 8 0;
#X connect 5 0 4 0;
#X connect 5 1 3 0;
#X connect 6 0 1 0;
#X connect 8 0 7 0;
#X connect 9 0 6 0;