ktabdump.pd 1.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556
  1. #N canvas 223 136 610 610 10;
  2. #X obj 370 409 tabread dummy;
  3. #X obj 122 192 list prepend set;
  4. #X obj 122 234 list trim;
  5. #X text 428 555 (c)2013 Marian Weger;
  6. #X obj 346 78 loadbang;
  7. #X obj 346 100 list prepend \$1;
  8. #X obj 346 122 route 0;
  9. #X obj 385 258 expr size("$s1");
  10. #X obj 370 344 until;
  11. #X obj 370 312 t f b;
  12. #X obj 370 376 f;
  13. #X obj 413 376 + 1;
  14. #X msg 413 344 0;
  15. #X obj 239 569 outlet data;
  16. #X obj 370 283 f;
  17. #X obj 385 236 symbol dummy;
  18. #X obj 239 100 route bang set;
  19. #X obj 239 192 t b b b b;
  20. #X text 71 47 Pd-Vanilla compatible replacement for zexy/tabdump;
  21. #X obj 239 78 inlet;
  22. #X obj 290 467 list prepend;
  23. #X obj 239 543 list;
  24. #X obj 290 509 t a a;
  25. #X text 70 20 ktabdump (<table name>);
  26. #X connect 0 0 20 0;
  27. #X connect 1 0 2 0;
  28. #X connect 2 0 0 0;
  29. #X connect 4 0 5 0;
  30. #X connect 5 0 6 0;
  31. #X connect 6 1 1 0;
  32. #X connect 6 1 15 0;
  33. #X connect 7 0 14 1;
  34. #X connect 8 0 10 0;
  35. #X connect 9 0 8 0;
  36. #X connect 9 1 12 0;
  37. #X connect 10 0 11 0;
  38. #X connect 10 0 0 0;
  39. #X connect 11 0 10 1;
  40. #X connect 12 0 10 1;
  41. #X connect 14 0 9 0;
  42. #X connect 15 0 7 0;
  43. #X connect 16 0 17 0;
  44. #X connect 16 1 15 0;
  45. #X connect 16 1 1 0;
  46. #X connect 17 0 21 0;
  47. #X connect 17 1 14 0;
  48. #X connect 17 2 21 1;
  49. #X connect 17 2 20 1;
  50. #X connect 17 3 15 0;
  51. #X connect 19 0 16 0;
  52. #X connect 20 0 22 0;
  53. #X connect 21 0 13 0;
  54. #X connect 22 0 21 1;
  55. #X connect 22 1 20 1;