#N canvas 189 203 449 413 10;
#N canvas 0 22 502 352 tuneblock 0;
#X obj 33 21 inlet~;
#X obj 97 20 inlet;
#X obj 161 25 inlet;
#X obj 242 56 inlet;
#X obj 33 203 outlet~;
#X obj 33 102 pvtuner~ 0 5000;
#X obj 147 208 block~ 256;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 5 2;
#X connect 3 0 5 0;
#X connect 5 0 4 0;
#X restore 24 141 pd tuneblock;
#X obj 24 3 noise~;
#X floatatom 50 71 5 0.1 2 1 transpose - -;
#X obj 24 242 dac~;
#X msg 81 239 \; pd dsp \$1;
#X obj 81 216 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#N canvas 154 403 400 321 messages 0;
#X obj 21 216 outlet;
#N canvas 0 22 536 459 built-in-scales 0;
#X msg 11 30 major_seventh_chord;
#X msg 41 49 minor_seventh_chord;
#X msg 113 88 minor_added_sixth;
#X msg 84 68 major_added_sixth;
#X msg 320 8 pelog;
#X msg 324 36 slendro;
#X obj 46 312 outlet;
#X msg 296 97 eq5;
#X msg 302 117 eq8;
#X msg 309 138 eq12;
#X msg -1 11 dominant_seventh_chord;
#X msg 276 181 minor;
#X msg 284 208 pentatonic;
#X msg 282 233 eastern;
#X msg 255 261 pentaclust;
#X msg 270 282 quarterclust;
#X connect 0 0 6 0;
#X connect 1 0 6 0;
#X connect 2 0 6 0;
#X connect 3 0 6 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 7 0 6 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 10 0 6 0;
#X connect 11 0 6 0;
#X connect 12 0 6 0;
#X connect 13 0 6 0;
#X connect 14 0 6 0;
#X connect 15 0 6 0;
#X restore 21 27 pd built-in-scales;
#N canvas 520 357 631 434 more-scales 0;
#X msg 77 94 27.5 41.25 55 82.5 110 165 220 330 440 660 880 1320 1760
2640 3520 5280 7040 10560 14080 21120;
#X text 80 78 define scale as ordered list of numbers;
#X obj 77 371 outlet;
#X msg 165 148 import_scale examples/blue3.scale;
#X text 161 130 you can even load a file \, but be sure to use a full
pathname;
#X msg 165 170 import_scale examples/13et.scale;
#X msg 165 190 import_scale examples/24et.scale;
#X msg 165 210 import_scale examples/4th.scale;
#X msg 165 230 import_scale examples/blue3.scale;
#X msg 165 250 import_scale examples/m3chord.scale;
#X msg 165 270 import_scale examples/m3M3.scale;
#X msg 165 290 import_scale examples/octfifth.scale;
#X msg 165 310 import_scale examples/test.scale;
#X text 217 337 There are also included perl scripts for generating
the scale files: examples/scale*.pl;
#X connect 0 0 2 0;
#X connect 3 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X connect 8 0 2 0;
#X connect 9 0 2 0;
#X connect 10 0 2 0;
#X connect 11 0 2 0;
#X connect 12 0 2 0;
#X restore 48 48 pd more-scales;
#X obj 130 154 fftease-system;
#N canvas 968 224 694 704 frequency-management 0;
#X obj 37 509 outlet;
#X msg 37 122 toptune \$1;
#X msg 187 129 topfreq \$1;
#X floatatom 37 93 5 0 0 0 - - -;
#X floatatom 187 98 5 0 0 0 - - -;
#X obj 160 31 hsl 200 15 500 9000 0 0 empty empty empty -2 -6 0 8 -126035
-1 -1 0 1;
#X obj 157 57 t f f;
#X msg 258 181 frequency_range 500 2000;
#X msg 258 207 frequency_range 0 6000;
#X text 45 106 highest tuned freq;
#X text 191 114 highest synthesized freq;
#X text 256 166 set synthesize range;
#X msg 155 471 basefreq \$1;
#X floatatom 155 454 5 0 0 0 - - -;
#X obj 158 433 hsl 128 15 27.5 500 0 0 empty empty empty -2 -6 0 8
-261681 -1 -1 0 1;
#X msg 155 406 27.5;
#X obj 155 381 loadbang;
#X text 190 409 set base frequency for scale;
#X obj 40 12 hsl 200 15 500 9000 0 0 empty empty empty -2 -6 0 8 -126035
-1 -1 0 1;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 6 1 4 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 12 0 0 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 16 0 15 0;
#X connect 18 0 3 0;
#X restore 56 73 pd frequency-management;
#X msg 109 116 binfo;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X restore 103 115 pd messages;
#X obj 167 26 loadbang;
#X msg 50 42 1;
#X obj 71 163 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -123336
-1 -1 0 1;
#X floatatom 68 181 5 0 0 0 - - -;
#X floatatom 76 91 5 0 0 1 synth-threshold - -;
#X msg 167 47 0.001;
#X text 188 116 <- check it;
#X obj 24 199 *~ 0.01;
#X text 27 295 pvtuner~ tunes sounds to scales.;
#X connect 0 0 14 0;
#X connect 1 0 0 0;
#X connect 2 0 0 1;
#X connect 5 0 4 0;
#X connect 6 0 0 3;
#X connect 7 0 8 0;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 9 0 10 0;
#X connect 10 0 14 1;
#X connect 11 0 0 2;
#X connect 12 0 11 0;
#X connect 14 0 3 0;
#X connect 14 0 3 1;