list-insert.pd 1.5 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. #N canvas 313 86 599 614 10;
  2. #X obj 94 50 inlet;
  3. #X obj 259 133 inlet;
  4. #X obj 308 134 inlet;
  5. #X text 257 112 pos;
  6. #X text 306 113 list;
  7. #X obj 173 180 list;
  8. #X obj 94 528 outlet;
  9. #X obj 94 308 list;
  10. #X obj 94 250 list prepend;
  11. #X text 91 29 list to insert;
  12. #X obj 173 206 list-splat \$1;
  13. #X obj 371 246 > 0;
  14. #X obj 292 337 route 0 1;
  15. #X obj 292 316 list prepend;
  16. #X obj 292 371 list prepend;
  17. #X obj 393 370 list;
  18. #X obj 94 75 t a b b a;
  19. #X obj 152 100 s \$0-insert;
  20. #X obj 416 338 r \$0-insert;
  21. #X obj 149 122 s \$0-init;
  22. #X obj 190 250 r \$0-init;
  23. #X obj 322 290 s \$0-out-of-range;
  24. #X obj 145 350 r \$0-out-of-range;
  25. #X obj 292 243 t a b;
  26. #X obj 94 374 spigot 1;
  27. #X obj 397 157 s \$0-out-of-range;
  28. #X obj 397 108 r \$0-init;
  29. #X obj 397 130 1;
  30. #X obj 322 266 0;
  31. #X obj 130 307 r \$0-init;
  32. #X text 231 524 This is more complicated than I thought!;
  33. #X connect 0 0 16 0;
  34. #X connect 1 0 10 1;
  35. #X connect 1 0 11 0;
  36. #X connect 2 0 5 1;
  37. #X connect 5 0 10 0;
  38. #X connect 7 0 24 0;
  39. #X connect 8 0 7 0;
  40. #X connect 10 0 8 1;
  41. #X connect 10 1 7 1;
  42. #X connect 10 2 23 0;
  43. #X connect 11 0 13 1;
  44. #X connect 12 0 14 0;
  45. #X connect 12 1 15 0;
  46. #X connect 13 0 12 0;
  47. #X connect 14 0 6 0;
  48. #X connect 15 0 6 0;
  49. #X connect 16 0 8 0;
  50. #X connect 16 1 5 0;
  51. #X connect 16 2 19 0;
  52. #X connect 16 3 17 0;
  53. #X connect 18 0 15 1;
  54. #X connect 18 0 14 1;
  55. #X connect 20 0 8 1;
  56. #X connect 22 0 24 1;
  57. #X connect 23 0 13 0;
  58. #X connect 23 1 28 0;
  59. #X connect 24 0 6 0;
  60. #X connect 26 0 27 0;
  61. #X connect 27 0 25 0;
  62. #X connect 28 0 21 0;
  63. #X connect 29 0 7 1;