/rj_estudos.pd

http://github.com/cristianofigo/compondo · Unknown · 79 lines · 79 code · 0 blank · 0 comment · 0 complexity · dfe5b5f20d5494e544994a6e1e25e36a MD5 · raw file 

    

  1. #N canvas 138 153 1015 642 10;
    2. 

  2. #X msg 93 128 open;
    3. 

  3. #X msg 151 209 stop;
    4. 

  4. #X msg 182 255 loop \$1;
    5. 

  5. #X obj 182 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
    6. 

  6. 1;
    7. 

  7. #X msg 146 185 play 500;
    8. 

  8. #X obj 589 249 random 32;
    9. 

  9. #X obj 589 226 metro 125;
    10. 

  10. #X obj 589 203 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
    11. 

  11. 1;
    12. 

  12. #X floatatom 498 485 8 0 0 3 dur_in_smps - -;
    13. 

  13. #X floatatom 424 485 8 0 0 3 dur_in_ms - -;
    14. 

  14. #X symbolatom 349 485 10 0 0 3 table_name - -;
    15. 

  15. #X obj 349 435 unpack s f f f;
    16. 

  16. #X floatatom 582 485 6 0 0 3 samplerate - -;
    17. 

  17. #X obj 424 534 s \$0-duration;
    18. 

  18. #X obj 649 170 r \$0-duration;
    19. 

  19. #X obj 649 197 / 32;
    20. 

  20. #X obj 263 452 bng 15 50 50 0 empty empty bang_on_start 0 25 1 10 -262144
    21. 

  21. -1 -1;
    22. 

  22. #X msg 133 160 play;
    23. 

  23. #X text 176 160 all from start;
    24. 

  24. #X text 217 185 play all starting 500 ms into sample;
    25. 

  25. #X text 139 129 open a file;
    26. 

  26. #X text 241 256 loop file;
    27. 

  27. #X text 561 98 "playdiv <divs> <part> <duration in parts>" divides
    28. 

  28. the file into as many equal length parts as the <divs> number following
    29. 

  29. it specifies. Then it start playing part <part> and stops after <duration>
    30. 

  30. parts.;
    31. 

  31. #X msg 183 284 sr 22050;
    32. 

  32. #X msg 589 307 playdiv 32 \$1 1;
    33. 

  33. #X text 239 334 adjust fade-in time (default 2ms);
    34. 

  34. #X obj 729 275 hradio 15 1 0 8 empty empty empty 0 -8 0 10 -262144
    35. 

  35. -1 -1 0;
    36. 

  36. #X msg 729 303 playdiv 16 \$1 0.5;
    37. 

  37. #X text 253 284 set samplerate of file (default 22050 Hz);
    38. 

  38. #X text 533 73 The "playdiv" message:;
    39. 

  39. #X text 461 434 sample file info;
    40. 

  40. #X msg 185 306 sr 44100;
    41. 

  41. #X obj 93 389 s_looper \$0-mysample filenotfound.wav;
    42. 

  42. #X msg 186 334 fade 0;
    43. 

  43. #X msg 186 355 info;
    44. 

  44. #X text 237 355 print info to last outlet;
    45. 

  45. #X obj 62 573 e_vocoder;
    46. 

  46. #X obj 45 608 soundoutput;
    47. 

  47. #X obj 163 508 polifonico;
    48. 

  48. #X obj 156 420 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
    49. 

  49. -1 -1 0 1;
    50. 

  50. #X connect 0 0 32 0;
    51. 

  51. #X connect 1 0 32 0;
    52. 

  52. #X connect 2 0 32 0;
    53. 

  53. #X connect 3 0 2 0;
    54. 

  54. #X connect 4 0 32 0;
    55. 

  55. #X connect 5 0 24 0;
    56. 

  56. #X connect 6 0 5 0;
    57. 

  57. #X connect 7 0 6 0;
    58. 

  58. #X connect 9 0 13 0;
    59. 

  59. #X connect 11 0 10 0;
    60. 

  60. #X connect 11 1 9 0;
    61. 

  61. #X connect 11 2 8 0;
    62. 

  62. #X connect 11 3 12 0;
    63. 

  63. #X connect 14 0 15 0;
    64. 

  64. #X connect 15 0 6 1;
    65. 

  65. #X connect 17 0 32 0;
    66. 

  66. #X connect 23 0 32 0;
    67. 

  67. #X connect 24 0 32 0;
    68. 

  68. #X connect 26 0 27 0;
    69. 

  69. #X connect 27 0 32 0;
    70. 

  70. #X connect 31 0 32 0;
    71. 

  71. #X connect 32 0 36 1;
    72. 

  72. #X connect 32 2 16 0;
    73. 

  73. #X connect 32 3 11 0;
    74. 

  74. #X connect 33 0 32 0;
    75. 

  75. #X connect 34 0 32 0;
    76. 

  76. #X connect 36 0 37 0;
    77. 

  77. #X connect 36 0 37 1;
    78. 

  78. #X connect 38 0 36 0;
    79. 

  79. #X connect 39 0 38 0;
    80.