diff options
Diffstat (limited to 'degreeToChord.pd')
| -rw-r--r-- | degreeToChord.pd | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/degreeToChord.pd b/degreeToChord.pd new file mode 100644 index 0000000..9591073 --- /dev/null +++ b/degreeToChord.pd @@ -0,0 +1,46 @@ +#N canvas 369 115 1071 783 10; +#X obj 191 419 list; +#X msg 733 559 1 0 1 0 1 1 0 1 0 1 0 1; +#X obj 736 535 loadbang; +#X obj 716 510 inlet; +#X obj 146 87 inlet; +#X text 759 590 The major; +#X obj 849 650 - 1; +#X text 713 484 Scale; +#X obj 224 174 t b f; +#X text 94 54 Offset (degree) of the chord to get; +#X obj 412 179 inlet; +#X text 418 153 Number of notes in the chord; +#X obj 415 224 f; +#X obj 183 694 outlet; +#X obj 226 130 - 1; +#X text 199 89 In music \, index 1 is the first degree. In computer +sciences \, it is index 0; +#X obj 218 464 expr 0-$f1; +#X text 302 464 The offset are the inverse (negative) than those in +list-rot; +#X obj 459 192 tof/argument 1 3; +#X obj 459 172 loadbang; +#X obj 716 620 ./listBoolToPos; +#X obj 716 653 ./listOp; +#X obj 156 524 cyclone/zl rot; +#X obj 183 639 ./listJump 2 3; +#X connect 0 0 22 0; +#X connect 1 0 20 0; +#X connect 2 0 1 0; +#X connect 3 0 20 0; +#X connect 4 0 14 0; +#X connect 6 0 21 1; +#X connect 8 0 0 0; +#X connect 8 1 16 0; +#X connect 10 0 12 0; +#X connect 12 0 23 2; +#X connect 14 0 8 0; +#X connect 16 0 22 1; +#X connect 18 0 12 0; +#X connect 19 0 18 0; +#X connect 20 0 21 0; +#X connect 21 0 0 1; +#X connect 21 1 6 0; +#X connect 22 0 23 0; +#X connect 23 0 13 0; |