Bohlen-Pierce.pd

#N canvas 572 279 1314 716 12;
#X floatatom 492 52 5 0 0 0 - sd - 0;
#X obj 515 192 pow;
#X obj 452 247 *;
#X floatatom 452 275 8 0 0 0 - - - 0;
#X obj 492 135 t b b f;
#X floatatom 515 220 8 0 0 0 - - - 0;
#X floatatom 510 79 5 0 0 0 - - - 0;
#X obj 492 106 /;
#X floatatom 452 25 5 0 0 0 - rp - 0;
#X text 581 25 <== Setting a reference pitch;
#X text 581 50 <== Selecting scale degree;
#X text 581 220 <== Multiplyer;
#X text 582 272 <== New frequency;
#X text 581 134 <== Determining in which order the information flows;
#X text 581 77 <== Amount of equal scale degree per octave;
#X obj 452 419 output~;
#X obj 452 303 t f b, f 6;
#X msg 505 335 100;
#X obj 452 546 bng 19 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X text 582 369 <== Complex sound engine;
#X msg 515 163 3;
#X text 581 163 <== The span of a tritave (3:1 ratio);
#X obj 452 583 qlist;
#X msg 481 546 read Bohlen-Pierce-Scale.txt;
#X obj 452 371 marimba~;
#X connect 0 0 7 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 16 0;
#X connect 4 0 2 0;
#X connect 4 1 20 0;
#X connect 4 2 1 1;
#X connect 5 0 2 1;
#X connect 6 0 7 1;
#X connect 7 0 4 0;
#X connect 8 0 2 0;
#X connect 16 0 24 0;
#X connect 16 1 17 0;
#X connect 17 0 24 1;
#X connect 18 0 22 0;
#X connect 20 0 1 0;
#X connect 23 0 22 0;
#X connect 24 0 15 0;
#X connect 24 0 15 1;