blob: 430e89b6e82333a4d38a16633c7dc68fb2993846 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
#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;
|
