list-makefilename-a.pd 1.0 KB

1234567891011121314151617181920212223242526272829303132333435363738
  1. #N canvas 674 83 624 640 10;
  2. #X msg 119 113 1 2 3 4 a b c;
  3. #X text 251 117 <- click to test;
  4. #X obj 196 386 list;
  5. #X obj 77 499 list;
  6. #X obj 100 385 list prepend;
  7. #X obj 78 150 t b a b;
  8. #X obj 122 178 s \$0-reset-result;
  9. #X obj 179 357 r \$0-reset-result;
  10. #X text 260 177 clear result list;
  11. #X text 181 204 "Drip" (serialize) the list;
  12. #X text 258 389 Repack the list (think of the counter);
  13. #X text 124 496 Final result is built here;
  14. #X obj 78 81 inlet;
  15. #X obj 223 248 inlet;
  16. #X obj 77 530 outlet;
  17. #X obj 100 334 makefilename \$1;
  18. #X obj 223 272 symbol;
  19. #X msg 223 293 set \$1;
  20. #X text 148 27 Use as "list-makefilename makefilename-arg". Right inlet
  21. can be used to change the arg to makefilename.;
  22. #X obj 100 202 list-drip;
  23. #X connect 0 0 5 0;
  24. #X connect 2 0 4 1;
  25. #X connect 3 0 14 0;
  26. #X connect 4 0 2 0;
  27. #X connect 4 0 3 1;
  28. #X connect 5 0 3 0;
  29. #X connect 5 1 19 0;
  30. #X connect 5 2 6 0;
  31. #X connect 7 0 4 1;
  32. #X connect 12 0 5 0;
  33. #X connect 13 0 16 0;
  34. #X connect 15 0 4 0;
  35. #X connect 16 0 17 0;
  36. #X connect 17 0 15 0;
  37. #X connect 19 0 15 0;