octoloop~-help.pd 2.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798
  1. #N canvas 0 29 1022 569 12;
  2. #X declare -path ../util/file -path ../util;
  3. #X obj 7 36 cnv 15 600 150 empty empty left 20 12 0 30 -233017 -66577
  4. 0;
  5. #X obj 3 216 cnv 15 600 150 empty empty right 20 12 0 30 -233017 -66577
  6. 0;
  7. #X obj 24 137 hradio 30 1 0 5 oct1 empty octave 0 -8 0 30 -262144 -1
  8. -1 4;
  9. #X obj 219 137 hradio 30 1 0 6 vol1 empty volume 0 -8 0 30 -262144
  10. -1 -1 5;
  11. #X obj 24 318 hradio 30 1 0 5 oct2 empty octave 0 -8 0 30 -262144 -1
  12. -1 1;
  13. #X obj 219 318 hradio 30 1 0 6 vol2 empty volume 0 -8 0 30 -262144
  14. -1 -1 1;
  15. #X text 616 46 How does it work?;
  16. #X text 617 69 Use the keys:;
  17. #X text 620 94 q \, w \, e \, r \, t;
  18. #X text 621 119 a \, s \, d \, f \, g;
  19. #X obj 439 314 tgl 30 0 loop2 empty loop 17 7 0 30 -262144 -258113
  20. -1 0 1;
  21. #X obj 455 137 tgl 30 0 loop1 empty loop 17 7 0 30 -262144 -258113
  22. -1 0 1;
  23. #X msg 638 289 stop;
  24. #X obj 622 342 s rec;
  25. #X text 621 202 record to rec.wav;
  26. #X obj 27 66 press q;
  27. #X obj 112 63 press w;
  28. #X obj 223 59 press e;
  29. #X obj 308 58 press r;
  30. #X obj 457 96 press t;
  31. #X obj 442 254 press g;
  32. #X obj 309 246 press f;
  33. #X obj 222 245 press d;
  34. #X obj 116 248 press s;
  35. #X obj 27 247 press a;
  36. #X msg 623 225 ~/rec.wav;
  37. #X obj 26 91 between 0 4;
  38. #X obj 221 91 between 0 5;
  39. #X obj 26 273 between 0 4;
  40. #X obj 221 272 between 0 5;
  41. #N canvas 0 29 1022 569 octoloop 0;
  42. #X obj 28 191 dac~;
  43. #X obj 467 88 loadbang;
  44. #X msg 467 156 \; pd dsp 1;
  45. #X obj 22 156 octoloop~;
  46. #X obj 103 69 r oct1;
  47. #X obj 128 92 r vol1;
  48. #X obj 153 117 r loop1;
  49. #X obj 19 63 adc~;
  50. #X obj 59 112 - 2;
  51. #X obj 96 121 / 5;
  52. #X obj 249 110 - 2;
  53. #X obj 286 119 / 5;
  54. #X obj 293 65 r oct2;
  55. #X obj 313 93 r vol2;
  56. #X obj 343 119 r loop2;
  57. #X obj 212 154 octoloop~;
  58. #X obj 273 189 r rec;
  59. #X obj 210 189 rec~;
  60. #X obj 15 21 declare -path ../util/file -path ../util;
  61. #X connect 1 0 2 0;
  62. #X connect 3 0 0 0;
  63. #X connect 3 0 17 0;
  64. #X connect 4 0 8 0;
  65. #X connect 5 0 9 0;
  66. #X connect 6 0 3 3;
  67. #X connect 7 0 3 0;
  68. #X connect 7 1 15 0;
  69. #X connect 8 0 3 1;
  70. #X connect 9 0 3 2;
  71. #X connect 10 0 15 1;
  72. #X connect 11 0 15 2;
  73. #X connect 12 0 10 0;
  74. #X connect 13 0 11 0;
  75. #X connect 14 0 15 3;
  76. #X connect 15 0 0 1;
  77. #X connect 15 0 17 0;
  78. #X connect 16 0 17 1;
  79. #X restore 10 8 pd octoloop;
  80. #X text 115 9 Requires pd-lyonpotpourri;
  81. #X text 637 267 finish recording;
  82. #X connect 12 0 13 0;
  83. #X connect 15 0 26 0;
  84. #X connect 16 0 26 1;
  85. #X connect 17 0 27 0;
  86. #X connect 18 0 27 1;
  87. #X connect 19 0 11 0;
  88. #X connect 20 0 10 0;
  89. #X connect 21 0 29 1;
  90. #X connect 22 0 29 0;
  91. #X connect 23 0 28 1;
  92. #X connect 24 0 28 0;
  93. #X connect 25 0 13 0;
  94. #X connect 26 0 2 0;
  95. #X connect 27 0 3 0;
  96. #X connect 28 0 4 0;
  97. #X connect 29 0 5 0;