test-2.pd 1.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960
  1. #N canvas 199 63 798 509 16;
  2. #X declare -path ../lib;
  3. #X msg 318 275 a b c#/db d e f#/gb g#/ab;
  4. #X obj 320 200 notes;
  5. #X floatatom 381 4 5 0 0 0 - - -, f 5;
  6. #X floatatom 309 4 5 0 0 0 - - -, f 5;
  7. #X symbolatom 319 62 5 0 0 0 - - -, f 5;
  8. #X symbolatom 387 63 15 0 0 0 - - -, f 15;
  9. #X obj 387 34 mode;
  10. #X obj 319 164 octave;
  11. #X floatatom 382 124 5 0 0 0 - - -, f 5;
  12. #X obj 319 235 list-set;
  13. #X text 486 33 make SECTION obj;
  14. #X msg 655 83 \; pd dsp 1;
  15. #X obj 165 133 list-map;
  16. #X obj 93 234 list-reduce;
  17. #X msg 162 85 0 2 4;
  18. #X obj 87 298 notes~;
  19. #X obj 85 345 *~ 0.3;
  20. #X obj 93 436 dac~;
  21. #X text 437 179 harmonic progression;
  22. #X text 453 209 (a sort of counter?);
  23. #X obj 172 364 circle-of-fifths;
  24. #X floatatom 167 328 5 0 0 0 - - -, f 5;
  25. #X msg 235 333 0;
  26. #X symbolatom 291 457 10 0 0 0 - - -, f 10;
  27. #X obj 22 18 declare -path ../lib;
  28. #X symbolatom 166 433 10 0 0 0 - - -, f 10;
  29. #X obj 207 168 list-ref;
  30. #X obj 319 117 scala;
  31. #X obj 318 35 note;
  32. #X obj 291 411 note;
  33. #X obj 171 397 note;
  34. #X connect 1 0 9 0;
  35. #X connect 2 0 6 0;
  36. #X connect 2 0 27 1;
  37. #X connect 3 0 27 0;
  38. #X connect 3 0 28 0;
  39. #X connect 6 0 5 0;
  40. #X connect 7 0 1 0;
  41. #X connect 7 0 26 1;
  42. #X connect 8 0 7 1;
  43. #X connect 9 0 0 0;
  44. #X connect 12 0 13 0;
  45. #X connect 12 1 26 0;
  46. #X connect 13 0 15 0;
  47. #X connect 14 0 12 0;
  48. #X connect 15 0 16 0;
  49. #X connect 16 0 17 0;
  50. #X connect 16 0 17 1;
  51. #X connect 20 0 30 0;
  52. #X connect 20 1 29 0;
  53. #X connect 21 0 20 0;
  54. #X connect 22 0 20 0;
  55. #X connect 26 0 13 1;
  56. #X connect 27 0 7 0;
  57. #X connect 28 0 4 0;
  58. #X connect 29 0 23 0;
  59. #X connect 30 0 25 0;