-
Notifications
You must be signed in to change notification settings - Fork 0
/
test-suite.pd
225 lines (225 loc) · 5.91 KB
/
test-suite.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
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
#N canvas 265 -1106 1202 864 10;
#X obj 260 60 v global-bpm;
#X obj 260 85 v beat-clock;
#N canvas 564 108 814 718 run-clocks 0;
#X text 10 44 beat clock 0 to 359;
#X text 290 44 Set global bpm;
#X text 460 84 beat_interval_s = 1 / beats_per_s;
#X text 460 109 beat_per_s = bpm / 60;
#X text 460 134 beat_interval_ms = beat_interval_s * 1000;
#X text 460 159 Tharefore... beat_interval_ms = 1 / beats_per_s * 1000
;
#X text 460 184 = 1 / (bpm/60) * 1000;
#X obj 290 138 expr 60 / $f1 * 1000;
#X floatatom 330 163 5 0 0 0 - - -, f 5;
#X obj 290 186 s beat_int_ms;
#X obj 81 120 r beat_int_ms;
#X obj 24 207 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 81 149 t f f;
#X obj 100 264 metro 1000;
#X obj 24 182 metro 1000;
#X obj 100 372 f 0;
#X obj 154 383 + 1;
#X obj 100 400 % 360;
#X floatatom 191 452 5 0 0 0 - - -, f 5;
#X obj 157 230 / 360;
#X floatatom 180 264 10 0 0 0 - - -, f 10;
#X obj 100 452 s beat-clock;
#X obj 120 319 f 0;
#X obj 290 100 r global-bpm;
#X obj 24 87 r loadbang-ext;
#X obj 71 230 r loadbang-ext;
#X obj 120 294 r loadbang-ext;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 10 0 12 0;
#X connect 12 0 14 1;
#X connect 12 1 19 0;
#X connect 13 0 15 0;
#X connect 14 0 11 0;
#X connect 15 0 17 0;
#X connect 16 0 15 1;
#X connect 17 0 16 0;
#X connect 17 0 21 0;
#X connect 17 0 18 0;
#X connect 19 0 13 1;
#X connect 19 0 20 0;
#X connect 22 0 15 1;
#X connect 23 0 7 0;
#X connect 24 0 14 0;
#X connect 25 0 13 0;
#X connect 26 0 22 0;
#X restore 260 30 pd run-clocks;
#X floatatom 240 193 5 1 270 0 - - -, f 5;
#X obj 240 220 s global-bpm;
#X obj 370 35 r beat-clock;
#X obj 370 60 select 0;
#X obj 370 85 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#N canvas 360 132 802 649 synth 0;
#X text 50 50 Just make a sound;
#X obj 76 312 unpack f f;
#X obj 76 407 osc~;
#X obj 76 452 *~;
#X obj 117 413 / 127;
#X obj 76 374 mtof;
#X obj 336 567 dac~;
#X obj 86 102 inlet;
#X obj 128 184 pack f f f;
#X obj 128 209 route 1 2 3 4;
#X obj 128 159 poly 4;
#X obj 230 310 unpack f f;
#X obj 230 405 osc~;
#X obj 230 450 *~;
#X obj 271 411 / 127;
#X obj 230 372 mtof;
#X obj 370 310 unpack f f;
#X obj 370 405 osc~;
#X obj 370 450 *~;
#X obj 411 411 / 127;
#X obj 370 372 mtof;
#X obj 540 310 unpack f f;
#X obj 540 405 osc~;
#X obj 540 450 *~;
#X obj 581 411 / 127;
#X obj 540 372 mtof;
#X connect 1 0 5 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 0 6 1;
#X connect 4 0 3 1;
#X connect 5 0 2 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 9 0 1 0;
#X connect 9 1 11 0;
#X connect 9 2 16 0;
#X connect 9 3 21 0;
#X connect 10 0 8 0;
#X connect 10 1 8 1;
#X connect 10 2 8 2;
#X connect 11 0 15 0;
#X connect 11 1 14 0;
#X connect 12 0 13 0;
#X connect 13 0 6 0;
#X connect 13 0 6 1;
#X connect 14 0 13 1;
#X connect 15 0 12 0;
#X connect 16 0 20 0;
#X connect 16 1 19 0;
#X connect 17 0 18 0;
#X connect 18 0 6 0;
#X connect 18 0 6 1;
#X connect 19 0 18 1;
#X connect 20 0 17 0;
#X connect 21 0 25 0;
#X connect 21 1 24 0;
#X connect 22 0 23 0;
#X connect 23 0 6 0;
#X connect 23 0 6 1;
#X connect 24 0 23 1;
#X connect 25 0 22 0;
#X restore 50 528 pd synth;
#X obj 240 165 f 60;
#X msg 600 206 symbol seq1;
#X obj 620 229 text define -k seq1;
#A set 0 55 100 1000 \;;
#X text 620 27 Data in these tests are: wait (ms) \, midi note \, vel
\, duration;
#X obj 620 57 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X text 749 57 Bang to stop tapes (when testing);
#X text 130 446 Our module in slot 1 \, sends to notesOut-\$1;
#X text 70 200 For our module;
#X obj 50 240 s loadbang-ext;
#X obj 290 128 r loadbang-ext;
#X obj 50 130 t b;
#X obj 50 64 loadbang;
#X obj 110 64 r test-loadbang;
#X obj 620 83 t b b;
#X obj 620 132 s test-loadbang;
#X text 60 261 For external to our module;
#N canvas 708 213 650 540 play-seq 0;
#X obj 151 69 inlet;
#X text 200 70 symbol of sequence to play;
#X msg 90 123 line 0 \, auto;
#X obj 150 180 makenote;
#X obj 150 210 pack f f;
#X obj 151 94 t b s;
#X obj 150 153 text sequence dummy -w 1;
#X obj 150 238 outlet;
#X connect 0 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 7 0;
#X connect 5 0 2 0;
#X connect 5 1 6 1;
#X connect 6 0 3 0;
#X restore 50 368 pd play-seq;
#X obj 50 340 r play-seq;
#X obj 600 253 s play-seq;
#X obj 860 256 s play-seq;
#X obj 660 57 r test-reset;
#X obj 70 176 s loadbang-s1;
#X obj 347 368 s knob1-s1;
#X obj 490 370 s knob3-s1;
#X obj 50 400 s notesIn-s1;
#X obj 50 446 module s1;
#X obj 50 500 r notesOut-s1;
#X obj 415 368 s knob2-s1;
#X obj 222 556 dac~;
#X obj 410 180 f 0.5;
#X obj 347 178 f 1;
#X obj 490 180 f 0;
#X obj 350 230 vsl 30 100 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc
#000000 #000000 9900 1;
#X obj 410 230 vsl 30 100 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc
#000000 #000000 4950 1;
#X obj 490 230 vsl 30 100 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc
#000000 #000000 9150 1;
#X obj 880 230 text define -k 29wav;
#A set 0 52 75 1000 \;;
#X msg 860 206 symbol 29wav;
#X text 860 180 Play 29.wav (need to add 23 to get MIDI);
#X text 600 180 Play the indicator sample;
#X obj 600 357 s play-seq;
#X obj 613 332 text define -k play-midi-30;
#A set 0 30 100 1000 \;;
#X obj 870 330 text define -k play-midi-31;
#A set 0 31 100 1000 \;;
#X msg 600 310 symbol play-midi-30;
#X obj 860 355 s play-seq;
#X msg 860 308 symbol play-midi-30;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 9 0 3 0;
#X connect 10 0 27 0;
#X connect 13 0 22 0;
#X connect 18 0 9 0;
#X connect 18 0 38 0;
#X connect 18 0 39 0;
#X connect 18 0 40 0;
#X connect 19 0 17 0;
#X connect 19 0 30 0;
#X connect 20 0 19 0;
#X connect 21 0 19 0;
#X connect 22 0 23 0;
#X connect 25 0 33 0;
#X connect 26 0 25 0;
#X connect 29 0 22 0;
#X connect 34 0 37 0;
#X connect 34 1 37 1;
#X connect 35 0 8 0;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 43 0;
#X connect 41 0 31 0;
#X connect 42 0 36 0;
#X connect 43 0 32 0;
#X connect 45 0 28 0;
#X connect 51 0 48 0;
#X connect 53 0 52 0;