gamme-help.pd


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
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183

#N canvas 0 31 520 515 10;
#X text 10 491 (c) Antoine Rousseau 2001;
#X text 85 3 gamme: a musical scale selector.;
#X obj 113 187 gamme 90 40 1 0 0 1 0 0 1 1 1 0 0 1;
#X floatatom 51 244 6 0 0 0 - - -;
#X floatatom 134 71 4 0 0 0 - - -;
#X floatatom 33 78 4 0 0 0 - - -;
#X floatatom 154 244 4 0 0 0 - - -;
#X msg 280 256 set \$1 \$2;
#X obj 280 288 gamme 90 40 1 0 0 1 0 0 1 1 1 0 0 1;
#X msg 401 177 getall;
#X floatatom 322 336 4 0 0 0 - - -;
#X floatatom 282 72 6 0 0 0 - - -;
#X msg 282 138 round \$1 \$2;
#X obj 282 116 pack f f;
#X floatatom 363 71 4 0 200 0 - - -;
#X obj 281 227 print changed;
#X obj 134 119 pack f f;
#X floatatom 190 71 4 0 0 0 - - -;
#X obj 156 99 t b f;
#X msg 134 141 get \$1 \$2;
#X text 126 53 octave;
#X text 188 53 note;
#X text 271 56 semitone;
#X text 344 55 rounding strength;
#X obj 303 93 t b f;
#X text 19 59 semitone;
#X text 152 32 ARPEGE;
#X text 28 39 FILTER;
#X text 324 36 ROUNDING;
#X text 51 263 Result;
#X text 139 261 Number of;
#X text 127 273 selected notes;
#X text 377 238 in the key set.;
#X text 383 225 Last change;
#X text 371 158 get all the key set.;
#N canvas 483 118 375 520 audio 0;
#X obj 4 356 gamme 90 40 1 0 1 1 0 0 1 1 1 1 0 1;
#X obj 28 464 *~;
#X obj 4 419 mtof;
#X obj 4 442 osc~;
#N canvas 394 93 600 400 env 0;
#X obj 19 122 inlet;
#X obj 105 121 inlet;
#X msg 19 143 bang;
#X obj 89 280 line~;
#X obj 114 329 outlet~;
#X obj 114 307 *~;
#X obj 130 280 +~ 1;
#X obj 130 258 *~ 0.6;
#X obj 130 237 osc~ 12;
#X msg 89 228 0 \$1;
#X obj 89 206 200;
#X obj 48 206 0.2;
#X obj 64 121 inlet;
#X text 18 101 trig;
#X text 62 101 vol;
#X text 103 102 sustain;
#X text 133 219 lfo...;
#X msg 48 228 \$1 2;
#X obj 89 183 delay 2;
#X connect 0 0 2 0;
#X connect 1 0 10 1;
#X connect 2 0 11 0;
#X connect 2 0 18 0;
#X connect 3 0 5 0;
#X connect 5 0 4 0;
#X connect 6 0 5 1;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 3 0;
#X connect 10 0 9 0;
#X connect 11 0 17 0;
#X connect 12 0 11 1;
#X connect 17 0 3 0;
#X connect 18 0 10 0;
#X restore 44 441 pd env;
#X floatatom 51 236 5 0 0 0 - - -;
#X obj 17 499 dac~;
#X obj 62 421 pow 4;
#X obj 4 189 metro 180;
#X obj 4 211 i;
#X obj 4 162 tgl 20 0 empty empty play 0 -8 1 10 -262144 -1 -1 0 1
;
#X obj 29 211 + 1;
#X obj 4 286 spigot;
#X obj 49 286 == 0;
#X obj 54 211 mod 16;
#X obj 91 287 spigot;
#X obj 136 287 == 1;
#X msg 91 309 get 4 \$1;
#X obj 233 251 unpack f;
#X obj 188 279 spigot;
#X msg 188 345 round \$1 \$2;
#X obj 188 323 pack f f;
#X obj 233 279 == 2;
#X obj 4 306 + 60;
#X obj 188 301 + 60.05;
#X obj 191 375 hsl 50 10 0 500 0 1 empty empty Sustain -2 -6 1 10 -262144
-1 -1 1700 1;
#X obj 52 165 hsl 50 10 5 500 0 1 empty empty Metro(ms) -2 -6 1 10
-262144 -1 -1 1200 1;
#X obj 318 165 vsl 10 40 0 100 0 1 empty empty Round 0 -8 1 10 -262144
-1 -1 600 1;
#X obj 191 486 hsl 60 15 0 1 0 1 empty empty Volume -2 -6 1 10 -258699
-1 -1 4300 1;
#X obj 149 88 cnv 15 90 47 empty empty filter/arpeg/round 2 8 1 10
-233017 -1 0;
#X obj 149 162 hdl 30 0 1 3 empty empty empty 20 8 0 8 -262144 -1 -1
0;
#X obj 13 328 inlet;
#X connect 0 0 4 0;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 1 0 6 1;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 1 1;
#X connect 5 0 15 0;
#X connect 5 0 12 0;
#X connect 5 0 19 0;
#X connect 7 0 4 1;
#X connect 8 0 9 0;
#X connect 9 0 5 0;
#X connect 9 0 11 0;
#X connect 10 0 8 0;
#X connect 11 0 14 0;
#X connect 12 0 23 0;
#X connect 13 0 12 1;
#X connect 14 0 9 1;
#X connect 15 0 17 0;
#X connect 16 0 15 1;
#X connect 17 0 0 0;
#X connect 18 0 16 0;
#X connect 18 0 22 0;
#X connect 18 0 13 0;
#X connect 19 0 24 0;
#X connect 20 0 0 0;
#X connect 21 0 20 0;
#X connect 22 0 19 1;
#X connect 23 0 0 0;
#X connect 24 0 21 0;
#X connect 25 0 4 2;
#X connect 26 0 8 1;
#X connect 27 0 21 1;
#X connect 28 0 7 0;
#X connect 30 0 18 0;
#X connect 31 0 0 0;
#X coords 0 0 1 1 210 110 1;
#X restore 33 325 pd audio demo;
#N canvas 518 217 494 344 META 0;
#X text 12 25 LICENSE GPL v2;
#X text 12 145 AUTHOR Antoine Rousseau;
#X text 12 165 HELP_PATCH_AUTHORS Antoine Rousseau. "pd meta" information
added by Jonathan Wilkes for Pd version 0.42.;
#X text 12 45 DESCRIPTION a musical scale selector;
#X text 12 65 INLET_0 float get round getall;
#X text 12 85 OUTLET_0 float;
#X text 12 105 OUTLET_1 float;
#X text 12 125 OUTLET_2 list;
#X text 12 5 KEYWORDS control GUI storage MIDI;
#X restore 460 480 pd META;
#X connect 2 0 3 0;
#X connect 2 1 6 0;
#X connect 2 2 7 0;
#X connect 2 2 15 0;
#X connect 4 0 16 0;
#X connect 5 0 2 0;
#X connect 7 0 8 0;
#X connect 7 0 35 0;
#X connect 8 1 10 0;
#X connect 9 0 2 0;
#X connect 11 0 13 0;
#X connect 12 0 2 0;
#X connect 13 0 12 0;
#X connect 14 0 24 0;
#X connect 16 0 19 0;
#X connect 17 0 18 0;
#X connect 18 0 16 0;
#X connect 18 1 16 1;
#X connect 19 0 2 0;
#X connect 24 0 13 0;
#X connect 24 1 13 1;