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

#N canvas 281 56 684 695 10;
#X obj 122 513 sel s;
#X obj 143 361 makefilename %%.%ds;
#X msg 143 388 set \$1;
#X obj 48 212 until;
#X obj 76 297 + 1;
#X obj 33 623 f;
#X obj 122 311 symbol;
#X obj 48 238 t b b;
#X obj 149 563 s \$0-stop;
#X obj 122 539 t b b;
#X obj 75 174 r \$0-stop;
#X obj 192 468 print;
#X obj 184 46 inlet;
#X obj 184 174 t b b s;
#X obj 184 73 route symbol;
#X obj 33 644 outlet;
#X obj 192 445 spigot 0;
#X obj 237 423 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 223 204 s \$0-sym;
#X obj 122 280 r \$0-sym;
#X obj 149 490 r \$0-sym;
#X obj 122 422 makefilename;
#X text 31 18 find length of symbol by iterating the first n characters
;
#X text 276 362 <- sprintf fun;
#X text 266 423 <- try this on;
#X obj 48 297 f 1;
#X msg 138 232 1;
#X obj 157 145 sel s;
#X obj 184 100 loadbang;
#X msg 184 122 symbol;
#X obj 208 262 s \$0-protect;
#X obj 103 604 r \$0-protect;
#X msg 103 627 0;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 21 0;
#X connect 3 0 7 0;
#X connect 4 0 25 1;
#X connect 5 0 15 0;
#X connect 6 0 21 0;
#X connect 7 0 6 0;
#X connect 7 1 25 0;
#X connect 9 0 5 0;
#X connect 9 1 8 0;
#X connect 10 0 3 1;
#X connect 12 0 14 0;
#X connect 13 0 3 0;
#X connect 13 1 26 0;
#X connect 13 2 18 0;
#X connect 14 0 27 0;
#X connect 16 0 11 0;
#X connect 17 0 16 1;
#X connect 19 0 6 1;
#X connect 20 0 0 1;
#X connect 21 0 0 0;
#X connect 21 0 16 0;
#X connect 25 0 4 0;
#X connect 25 0 5 1;
#X connect 25 0 1 0;
#X connect 26 0 25 1;
#X connect 27 0 30 0;
#X connect 27 1 13 0;
#X connect 28 0 29 0;
#X connect 29 0 27 1;
#X connect 31 0 32 0;
#X connect 32 0 15 0;