-
Notifications
You must be signed in to change notification settings - Fork 0
/
_Main.pd
181 lines (181 loc) · 4.69 KB
/
_Main.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
#N canvas 843 183 1216 877 12;
#X obj 403 205 *~;
#X floatatom 487 234 5 0 1 0 - - - 0;
#X obj 403 234 hip~ 3;
#X obj 403 263 clip~ -1 1;
#X obj 403 292 *~ 1;
#X obj 403 176 catch~ out;
#X floatatom 573 332 5 0 0 0 - - - 0;
#X msg 647 222 422.5;
#X msg 647 250 409;
#X msg 647 279 455.4;
#X text 700 220 Handel 1740;
#X text 686 251 1780;
#X text 699 279 Beethoven;
#X msg 612 222 440;
#X msg 647 307 442;
#X obj 573 360 s base-freq;
#X obj 573 262 mtof;
#X msg 573 223 60;
#X obj 487 176 loadbang;
#X msg 487 205 0.5;
#N canvas 449 575 471 388 keyboard 0;
#X obj 41 35 notein;
#X floatatom 41 131 5 0 0 0 - - - 0;
#X floatatom 83 131 5 0 0 0 - - - 0;
#X floatatom 125 131 5 0 0 0 - - - 0;
#X obj 41 178 - 1;
#X obj 41 81 poly 16 1;
#X obj 41 211 pack 0 0 0, f 12;
#X obj 41 328 s packs;
#X obj 144 328 throw~ out;
#X obj 144 210 pack 0 0;
#X obj 144 265 spigot;
#X obj 183 238 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 239 329 5 0 0 0 - - - 0;
#X obj 144 300 rds-voice-mono;
#X connect 0 0 5 0;
#X connect 0 1 5 1;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 2 0 9 0;
#X connect 3 0 6 2;
#X connect 3 0 9 1;
#X connect 4 0 6 0;
#X connect 5 0 1 0;
#X connect 5 1 2 0;
#X connect 5 2 3 0;
#X connect 6 0 7 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 11 0 10 1;
#X connect 13 0 8 0;
#X connect 13 1 12 0;
#X restore 403 28 pd keyboard;
#X obj 403 87 tgl 20 0 empty just 0 6 -10 0 12 #dfdfdf #ff0400 #404040 0 1;
#N canvas 341 699 450 300 Pythagorean 0;
#X obj 61 111 spigot;
#X obj 61 170 throw~ out;
#X obj 61 58 r packs;
#X obj 61 141 clone rds-voice-poly-pyth 16;
#X obj 137 57 inlet;
#X connect 0 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 0 1;
#X restore 466 117 pd Pythagorean;
#X obj 466 87 tgl 20 0 empty pyth 1 6 -10 0 12 #dfdfdf #ff0400 #404040 0 1;
#N canvas 338 610 450 300 Just 0;
#X obj 42 110 spigot;
#X obj 42 169 throw~ out;
#X obj 42 57 r packs;
#X obj 42 140 clone rds-voice-poly-just 16;
#X obj 163 62 inlet;
#X connect 0 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 0 1;
#X restore 403 117 pd Just;
#N canvas 623 749 450 300 Ptolemy 0;
#X obj 71 121 spigot;
#X obj 71 180 throw~ out;
#X obj 71 68 r packs;
#X obj 71 151 clone rds-voice-poly-natural 16;
#X obj 193 69 inlet;
#X connect 0 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 0 1;
#X restore 578 117 pd Ptolemy;
#X obj 578 87 tgl 20 0 empty nat 2 6 -10 0 12 #dfdfdf #ff0400 #000000 0 1;
#N canvas 710 836 450 300 12-ET 0;
#X obj 101 121 spigot;
#X obj 101 180 throw~ out;
#X obj 101 68 r packs;
#X obj 101 151 clone rds-voice-poly-tet 16;
#X obj 223 77 inlet;
#X connect 0 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 0 1;
#X restore 662 117 pd 12-ET;
#X obj 662 87 tgl 20 0 empty tet 3 6 -10 0 12 #dfdfdf #ff0400 #000000 0 1;
#N canvas 626 542 957 616 BP 0;
#X obj 195 71 inlet;
#X obj 51 121 spigot;
#X obj 51 180 throw~ out;
#X obj 51 68 r packs;
#X obj 51 151 clone rds-voice-poly-tetpb 16;
#X connect 0 0 1 1;
#X connect 1 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X restore 732 117 pd BP;
#X obj 732 87 tgl 20 0 empty tetpb 4 6 -10 0 12 #dfdfdf #ff0400 #000000 0 1;
#X obj 403 321 output~;
#N canvas 556 573 455 420 switcher 0;
#X msg 151 124 0;
#X msg 151 153 1;
#X msg 151 181 2;
#X msg 151 207 3;
#X obj 74 123 loadbang;
#X floatatom 151 264 5 0 0 0 - - - 0;
#X obj 151 358 distribute, f 13;
#X msg 151 235 4;
#X obj 151 328 select 0 1 2 3 4;
#X obj 151 296 spigot, f 7;
#X obj 197 265 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X text 225 264 Polyphony;
#X obj 289 161 inlet;
#X obj 74 192 inlet;
#X obj 151 30 keyup;
#X floatatom 151 59 5 0 0 0 - - - 0;
#X obj 151 89 select 48 49 50 51 52;
#X connect 0 0 5 0;
#X connect 1 0 5 0;
#X connect 2 0 5 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 9 0;
#X connect 7 0 5 0;
#X connect 8 0 6 0;
#X connect 8 1 6 1;
#X connect 8 2 6 2;
#X connect 8 3 6 3;
#X connect 8 4 6 4;
#X connect 9 0 8 0;
#X connect 10 0 9 1;
#X connect 12 0 10 0;
#X connect 13 0 5 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 0 0;
#X connect 16 1 1 0;
#X connect 16 2 2 0;
#X connect 16 3 3 0;
#X connect 16 4 7 0;
#X restore 714 360 pd switcher;
#X obj 788 328 tgl 19 0 empty empty Poly 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X connect 0 0 2 0;
#X connect 1 0 0 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 31 0;
#X connect 4 0 31 1;
#X connect 5 0 0 0;
#X connect 6 0 15 0;
#X connect 7 0 6 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 13 0 6 0;
#X connect 14 0 6 0;
#X connect 16 0 6 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X connect 19 0 1 0;
#X connect 21 0 24 0;
#X connect 23 0 22 0;
#X connect 26 0 25 0;
#X connect 28 0 27 0;
#X connect 30 0 29 0;
#X connect 33 0 32 1;