list-replace.pd 1.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263
  1. #N canvas 281 128 614 631 10;
  2. #X obj 164 224 list;
  3. #X obj 327 98 inlet;
  4. #X obj 250 98 inlet;
  5. #X text 331 72 orig;
  6. #X text 256 74 pos;
  7. #X text 77 70 list to insert;
  8. #X obj 85 94 inlet;
  9. #X obj 164 254 list-splat \$1;
  10. #X obj 272 231 list-len;
  11. #X obj 207 281 list split;
  12. #X obj 85 526 list;
  13. #X obj 85 598 outlet;
  14. #X obj 85 317 list prepend;
  15. #X obj 85 120 t a b a b;
  16. #X obj 85 430 list prepend 0;
  17. #X obj 250 125 t f f;
  18. #X obj 207 524 list prepend;
  19. #X obj 85 469 route 0 1;
  20. #X obj 316 347 f;
  21. #X obj 286 282 t a b;
  22. #X obj 316 377 > 0;
  23. #X obj 122 358 r \$0-init;
  24. #X obj 122 377 0;
  25. #X obj 300 524 r \$0-init;
  26. #X obj 176 317 r \$0-init;
  27. #X obj 118 527 r \$0-init;
  28. #X obj 159 131 s \$0-init;
  29. #X text 47 25 list-replace: Replace the list starting at position POS
  30. with a new list \, overwriting the old elements.;
  31. #X connect 0 0 7 0;
  32. #X connect 1 0 0 1;
  33. #X connect 2 0 15 0;
  34. #X connect 6 0 13 0;
  35. #X connect 7 0 12 1;
  36. #X connect 7 1 9 0;
  37. #X connect 7 2 19 0;
  38. #X connect 8 0 9 1;
  39. #X connect 9 1 10 1;
  40. #X connect 9 1 16 1;
  41. #X connect 10 0 11 0;
  42. #X connect 12 0 14 0;
  43. #X connect 13 0 12 0;
  44. #X connect 13 1 0 0;
  45. #X connect 13 2 8 0;
  46. #X connect 13 3 26 0;
  47. #X connect 14 0 17 0;
  48. #X connect 15 0 7 1;
  49. #X connect 15 1 18 1;
  50. #X connect 16 0 11 0;
  51. #X connect 17 0 10 0;
  52. #X connect 17 1 16 0;
  53. #X connect 18 0 20 0;
  54. #X connect 19 0 16 1;
  55. #X connect 19 0 10 1;
  56. #X connect 19 1 18 0;
  57. #X connect 20 0 14 1;
  58. #X connect 21 0 22 0;
  59. #X connect 22 0 14 1;
  60. #X connect 23 0 16 1;
  61. #X connect 24 0 12 1;
  62. #X connect 25 0 10 1;