«MUSC 115 Final: Theme and Variations on Tetris» by jshimada

on 15 Mar'16 15:06 in
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
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
// Jared Shimada
// MUSC 115 Final (Experimental Sound Design)
// Winter 2016
// tEtRiS: tHeMe AnD vArIaTiOnS

//Synths

(
SynthDef("Synth1", { arg freq = 440, modfreq = 1, amp = 0.5, attack = 0.01, dur = 2, pos = 0;
var carrier, modulator, env;
modulator = LFSaw.kr(modfreq).range(0, 1);
carrier = LFSaw.ar(freq: freq, mul: modulator);
env = Env.perc(attackTime: attack, releaseTime: dur - attack, level: amp).kr(2);
carrier = carrier * env;
Out.ar(0, Pan2.ar(carrier, pos))
}).add;
)

(
SynthDef("Synth2", { arg freq = 440, modfreq = 1, amp = 0.5, attack = 0.01, dur = 1, pos = 0;
var carrier, modulator, env;
modulator = LFSaw.kr(modfreq).range(0, 1);
carrier = LFTri.ar(freq: freq, mul: modulator);
env = Env.perc(attackTime: attack, releaseTime: dur - attack, level: amp).kr(2);
carrier = carrier * env;
Out.ar(0, Pan2.ar(carrier, pos))
}).add;
)

(
SynthDef("Synth3", { arg freq = 440, modfreq = 1, amp = 0.5, attack = 0.01, dur = 2, pos = 0;
var carrier, modulator, env;
modulator = LFTri.kr(modfreq).range(0, 1);
carrier = LFTri.ar(freq: freq, mul: modulator);
env = Env.perc(attackTime: attack, releaseTime: dur - attack, level: amp).kr(2);
carrier = carrier * env;
Out.ar(0, Pan2.ar(carrier, pos))
}).add;
)

(
SynthDef("Synth4", { arg freq = 440, modfreq = 1, amp = 0.2, attack = 0.01, dur = 2, pos = 0;
var carrier, modulator, env;
modulator = LFSaw.kr(modfreq).range(0, 1);
carrier = SinOsc.ar(freq: freq, mul: modulator);
env = Env.perc(attackTime: attack, releaseTime: dur - attack, level: amp).kr(2);
carrier = carrier * env;
Out.ar(0, Pan2.ar(carrier, pos))
}).add;
)

(
SynthDef("hihat", {arg amp = 0.5, att = 0.01;
    var snd = WhiteNoise.ar(amp);
    var env = EnvGen.kr(Env.perc(att, 0.1), doneAction: 2);
    snd = HPF.ar(snd * env, 500000);
	Out.ar([0,1], snd);
}).add;
)


// Pbinds

// Main Tetris Melody

(
~soprano1=Pbind(
	\instrument, "Synth3",
	\midinote, Pseq([76, 71, 72, 74, 72, 71, 69, 69, 72, 76, 74, 72, 71, 71, 72, 74, 76, 72, 69, 69, 69, 74, 74, 77, 81, 79, 77, 76, 76, 72, 76, 74, 72, 71, 71, 72, 74, 76, 72, 69, 69, 69], 1),
	\dur, Pseq([1, 0.5, 0.5, 1, 0.5, 0.5, 1, 0.5, 0.5, 1, 0.5, 0.5, 1, Rest(0.5), 0.5, 1, 1, 1, 1, 1, Rest(1), Rest(0.5), 1, 0.5, 1, 0.5, 0.5, 1, Rest(0.5), 0.5, 1, 0.5, 0.5, 1, 0.5, 0.5, 1, 1, 1, 1, 1, Rest(1)], 1),
	\legato, 0.3,
	\amp, 0.50,
	\tempo, 100/60,
);
~soprano1.play;
)

(
~alto1=Pbind(
	\instrument,"Synth3",
	\midinote, Pseq([71, 71, 68, 69, 71, 76, 74, 69, 68, 64, 64, 64, 69, 72, 72, 71, 69, 68, 68, 64, 68, 69, 71, 71, 72, 72, 69, 69, 64, 64, 64, 64, 65, 65, 65, 69, 72, 72, 72, 71, 69, 67, 67, 64, 67, 69, 67, 65, 64, 68, 64, 67, 69, 71, 67, 72, 67, 69, 64, 64, 64, 64, 64],1),
		\dur, Pseq([0.5, Rest(0.5), 0.5, 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 0.5, Rest(0.5), 0.5, 0.5, 0.5, Rest(0.5), 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 0.5, 0.5, Rest(0.5),  0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, Rest(1.5), Rest(0.5), 0.5, Rest(0.5), 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 0.5, Rest(1), 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, Rest(0.5), 0.5, Rest(1.5)],1),
	\legato, 0.01,
	\amp, 0.4,
	\tempo, 100/60,
);
~alto1.play;
)


(~bass1=Pbind(
	\instrument, "Synth2",
	\midinote, Pseq([40, 52, 40, 52, 40, 52, 40, 52, 45, 57, 45, 57, 45, 57, 45, 57, 44, 56, 44, 56, 40, 52, 40, 52, 45, 57, 45, 57, 45, 57, 47, 48, 50, 38, 38, 38, 38, 38, 45, 41, 36, 48, 48, 48, 36, 43, 43, 43, 47, 59, 59, 59, 59, 52, 52, 56, 45, 52, 45, 52, 45, 45],1),
	\dur, Pseq([0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, 0.5, 0.5, 0.5, 0.5, Rest(0.5), 0.5, 0.5, 0.5, 0.5, Rest(0.5), 0.5, 0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, 0.5, 0.5, 0.5, 0.5, 1, Rest(1)], 1),
	\legato, 1,
	\amp, 0.6,
	\tempo, 100/60,
);
~bass1.play;
)


(
~soprano2=Pbind(
	\instrument, "Synth3",
	\midinote, Pseq([64, 60, 62, 59, 60, 57, 56, 59, 59, 64, 60, 62, 59, 60, 64, 69, 68, 68 ], 1),
	\dur, Pseq([2, 2, 2, 2, 2, 2, 2, 1, Rest(1), 2, 2, 2, 2, 1, 1, 2, 2, Rest(2)],1),
	\amp, 0.2,
	\legato, 3,
	\tempo, 100/60,
);
~soprano2.play;
)

(
~alto2=Pbind(
	\instrument, "Synth3",
	\midinote, Pseq([60, 57, 59, 56, 57, 52, 52, 56, 56, 60, 57, 59, 56, 57, 60, 64, 62, 62], 1),
	\dur, Pseq([2, 2, 2, 2, 2, 2, 2, 1, Rest(1), 2, 2, 2, 2, 1, 1, 2, 2, Rest(2)], 1),
	\amp, 0.40,
	\legato, 3,
	\tempo, 100/60,
);
~alto2.play;
)

(
~bass2=Pbind(
	\instrument, "Synth2",
	\midinote, Pseq([57, 64, 57, 64, 57, 64, 57, 64, 56, 64, 56, 64, 56, 64, 56, 64, 57, 64, 57, 64, 57, 64, 57, 64, 56, 64, 56, 64, 64, 57, 64, 57, 64, 57, 64, 57, 64, 56, 64, 56, 64, 56, 64, 56, 64, 57, 64, 57, 64, 57, 64, 57, 64, 56, 64, 56, 64, 64],1),
	\dur, Pseq([0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, Rest(2), 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, Rest(2)],1),
	\amp, 0.55,
	\legato, 1,
	\tempo, 100/60,
);
~bass2.play;
)



// Ending of Melody
(
~soprano1_ending=Pbind(
	\instrument, "Synth3",
	\midinote, Pseq([76, 71, 72, 74, 72, 71, 69, 69, 72, 76, 74, 72, 71, 71, 72, 74, 76, 72, 69, 69, 69, 74, 74, 77, 81, 79, 77, 76, 76, 72, 76, 74, 72, 71, 71, 72, 74, 76, 72, 69, 69, 69], 1),
	\dur, Pseq([1, 0.5, 0.5, 1, 0.5, 0.5, 1, 0.5, 0.5, 1, 0.5, 0.5, 1, Rest(0.5), 0.5, 1, 1, 1, 1, 1, Rest(1), Rest(0.5), 1, 0.5, 1, 0.5, 0.5, 1, Rest(0.5), 0.5, 1, 0.5, 0.5, 1, 0.5, 0.5, 1, 1, 1, 1, 1, Rest(4)], 1),
	\legato, 0.3,
	\amp, 0.50,
	\tempo, 100/60,
);
~soprano1_ending.play;
)

(
~alto1_ending=Pbind(
	\instrument,"Synth3",
	\midinote, Pseq([71, 71, 68, 69, 71, 76, 74, 69, 68, 64, 64, 64, 69, 72, 72, 71, 69, 68, 68, 64, 68, 69, 71, 71, 72, 72, 69, 69, 64, 64, 64, 64, 65, 65, 65, 69, 72, 72, 72, 71, 69, 67, 67, 64, 67, 69, 67, 65, 64, 68, 64, 67, 69, 71, 67, 72, 67, 69, 64, 64, 64, 64, 64],1),
		\dur, Pseq([0.5, Rest(0.5), 0.5, 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 0.5, Rest(0.5), 0.5, 0.5, 0.5, Rest(0.5), 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 0.5, 0.5, Rest(0.5),  0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, Rest(1.5), Rest(0.5), 0.5, Rest(0.5), 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 0.5, Rest(1), 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, Rest(0.5), 0.5, Rest(4.5)],1),
	\legato, 0.01,
	\amp, 0.4,
	\tempo, 100/60,
);
~alto1_ending.play;
)


(~bass1_ending=Pbind(
	\instrument, "Synth2",
	\midinote, Pseq([40, 52, 40, 52, 40, 52, 40, 52, 45, 57, 45, 57, 45, 57, 45, 57, 44, 56, 44, 56, 40, 52, 40, 52, 45, 57, 45, 57, 45, 57, 47, 48, 50, 38, 38, 38, 38, 38, 45, 41, 36, 48, 48, 48, 36, 43, 43, 43, 47, 59, 59, 59, 59, 52, 52, 56, 45, 52, 45, 52, 45, 45],1),
	\dur, Pseq([0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, 0.5, 0.5, 0.5, 0.5, Rest(0.5), 0.5, 0.5, 0.5, 0.5, Rest(0.5), 0.5, 0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, 0.5, 0.5, 0.5, 0.5, 1, Rest(1)], 4),
	\legato, 1,
	\amp, 0.6,
	\tempo, 100/60,
);
~bass1_ending.play;
)




// Variation 1

(
~drums=Pbind(
	\instrument,"hihat",
	\dur, Pseq([Rest(0.5), 0.5, Rest(0.5), 0.5, Rest(0.5), 0.25, 0.25, Rest(0.5), 0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, Rest(0.5), 0.5, 0.5, 0.5], 4),
	\amp, 0.5,
	\tempo, 130/60,
);
~drums.play;
)

(~var1_soprano1=Pbind(
	\instrument, "Synth1",
	\midinote, Pseq([[76, 71], 71, 72, 74, 76, 74, 72, 71, 69, 72, 76, 77, 76, 74, 72, 71, 72, 74, 76, 74, 72, 71, 69, 69, 69, 0, 74, 77, 81, 79, 77, 76, 72, 76, 77, 76, 74, 72, 71, 72, 74, 76, 74, 72, 71, 69, 69, 69, 0],1),
	\dur, Pseq([1, 0.5, 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 1.5, 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 1.5, 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 1, 1, 1, Rest(1), 1.5, 0.5, 1, 0.5, 0.5, 1.5, 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 1.5, 0.5, 0.5, 0.25, 0.25, 0.5, 0.5, 1, 1, 1, Rest(1)],1),
	\amp, 0.2,
	\legato, 1,
	\tempo, 130/60,
);~var1_soprano1.play;
)

(~var1_bass1=Pbind(
	\instrument, "Synth3",
	\midinote, Pseq([40, 52, 40, 52, 40, 52, 40, 52, 45, 57, 45, 57, 45, 57, 45, 57, 44, 56, 44, 56, 40, 52, 40, 52, 45, 57, 45, 57, [45, 57], [33, 45], [35, 47], [36, 48], 38, 50, 38, 50, 38, 50, 38, 50, 36, 48, 36, 48, 36, 48, 36, 48, 44, 56, 44, 56, 40, 52, 40, 52, 45, 57, 45, 57, [45, 57], 0], 1),
	\dur, Pseq([0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 1, Rest(1) ], 1),
	\amp, 0.7,
	\legato, 1,
	\tempo, 140/60,
);~var1_bass1.play;
)

(~var1_soprano2=Pbind(
	\instrument, "Synth1",
	\midinote, Pseq([76, 72, 69, 71, 72, 74, 71, 64, 68, 71, 72, 69, 72, 71, 69, 68, 71, 68, 64, 76, 72, 69, 71, 72, 74, 71, 64, 68, 71, 72, 72, 73, 74, 75, 76, 71, 68, 64, 68, 71, 76, 77,], 1),
	\dur, Pseq([2, 0.5, 0.5, 0.5, 0.5, 2, 0.5, 0.5, 0.5, 0.5, 2, 0.5, 0.5, 0.5, 0.5, 1.5, 0.25, 0.25, 2,  2, 0.5, 0.5, 0.5, 0.5, 2, 0.5, 0.5, 0.5, 0.5, 2, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5], 1),
	\amp, 0.2,
	\legato, 1,
	\tempo, 130/60,
);~var1_soprano2.play;
)

(~var1_bass2=Pbind(
	\instrument, "Synth3",
	\midinote, Pseq([45, 57, 45, 57, 45, 57, 45, 57, 44, 56, 44, 56, 44, 56, 44, 56, 41, 53, 41, 53, 41, 53, 41, 53, 40, 52, 40, 52, 40, 52, 40, 52, 45, 57, 45, 57, 45, 57, 45, 57, 44, 56, 44, 56, 44, 56, 44, 56, 41, 53, 41, 53, 41, 53, 41, 53, 40, 52, 40, 52, 40, 52, 40, 52], 1),
	\dur, Pseq([0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5], 1),
	\amp, 0.75,
	\legato, 1,
	\tempo, 130/60,
);~var1_bass2.play;
)

// Variation 2

(~var2_soprano1=Pbind(
	\instrument, "Synth4",
	\midinote, Pseq([76, 75, 74, 75, 76, 75, 74, 75, 76, 75, 74, 75, 76, 74, 72, 71, 69, 72, 73, 74, 75, 76, 75, 74, 73, 72, 71, 72, 74, 73, 72, 71, 70, [69, 81], [71, 83], [72, 84], [69, 81], 0, 74, 70, 71, 72, 73, 74, 76, 74, 72, 74, 72, 74, 72, 74, 72, 71, 69, 68, 64, 68, 71, 74, 76, 72, 68, 64, 62, 64, 66, 68, 69, 64, [69, 81], 0], 1),
	\dur, Pseq([0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1, 0.25, 0.25, 0.25, 0.25, 1, 0.25, 0.25, 0.25, 0.25, 1.5, 0.5, 1, 0.25, 0.25, 0.25, 0.25, 0.75, 0.25, 1, 1, Rest(1), 1, 0.25, 0.25, 0.25, 0.25, 1, 0.25, 0.25, 0.25, 0.25, 1.5, 0.5, 1, 0.25, 0.25, 0.25, 0.25, 1, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1, 1, 1, Rest(1)], 1),
	\amp, 0.70,
	\legato, 1,
	\tempo, 145/60,
);
~var2_soprano1.play;
)

(~var2_bass1=Pbind(
	\instrument, "Synth4",
	\midinote, Pseq([40, 52, 51, 52, 53, 52, 51, 52, 47, 48, 50, 52, 47, 48, 50, 52, 45, 57, 56, 55, 54, 53, 52, 51, 48, 47, 46, 45, 44, 43, 42, 41, 40, 52, 51, 52, 53, 52, 51, 52, 47, 48, 50, 52, 47, 48, 50, 52, 45, 44, 43, 42, 41, 40, 39, 38, [33, 45], [35, 47], [36, 48], [37, 49], 45, 50, 49, 50, 52, 50, 45, 50, 56, 55, 54, 53, 52, 51, 50, 49, 43, 48, 47, 48, 50, 48, 55, 52, 55, 54, 53, 52, 51, 50, 49, 48, 47, 40, 47, 52, 50, 48, 47, 48, 40, 52, 50, 48, 50, 52, 44, 40, 45, 40, [33 ,45], 0], 1),
	\dur, Pseq([0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1, 1/3, 1/3, 1/3, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1, 1, 1, Rest(1)], 1),
	\amp, 0.75,
	\legato, 1,
	\tempo, 145/60,
);
~var2_bass1.play;
)

(~var2_soprano2=Pbind(
	\instrument, "Synth4",
	\midinote, Pseq ([76, 77, 76, 74, 72, 71, 72, 74, 76, 74, 76, 74, 72, 71, 69, 71, 72, 74, 72, 74, 72, 71, 69, 68, 69, 71, 72, 71, 64, 68, 69, 71, 64, 76, 77, 76, 74, 72, 71, 72, 74, 76, 74, 76, 74, 72, 71, 69, 71, 72, 74, 72, 74, 72, 71, 69, 68, 69, 71, 72, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 84, [76, 83, 88]], 1),
	\dur, Pseq ([2, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 2, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 2, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1, 0.25, 0.25, 0.25, 0.25, 2, 2, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 2, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 2, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1], 1),
	\amp, 0.55,
	\legato, 1,
	\tempo, 145/60,
);
~var2_soprano2.play;
)

(~var2_bass2=Pbind(
	\instrument, "Synth4",
	\midinote, Pseq ([40, 52, 47, 52, 44, 47, 52, 40, 47, 52, 40, 52, 44, 52, 47, 52, 38, 50, 49, 50, 52, 50, 51, 50, 62, 60, 59, 57, 55, 53, 52, 50, 48, 60, 59, 60, 57, 60, 55, 60, 59, 57, 55, 53, 52, 50, 48, 47, 44, 40, 44, 47, 50, 60, 59, 57, 56, 52, 56, 59, 52, 40, 52, 47, 52, 44, 47, 52, 40, 47, 52, 40, 52, 44, 52, 47, 52, 38, 50, 49, 50, 52, 50, 51, 50, 62, 60, 59, 57, 55, 53, 52, 50, 48, 60, 59, 60, 57, 60, 55, 60, 59, 57, 55, 53, 52, 50, 48, 47, 44, 40, 44, 47, 50, 60, 59, 57, 56, 52, 56, 59, [40, 47, 52]], 1),
	\dur, Pseq ([0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1], 1),
	\amp, 0.65,
	\legato, 1,
	\tempo, 145/60,
);
~var2_bass2.play;
)

// Ending of Variation 2

(~var2_soprano1_ending=Pbind(
	\instrument, "Synth4",
	\midinote, Pseq([74, 70, 71, 72, 73, 74, 76, 74, 72, 74, 72, 74, 72, 74, 72, 71, 69, 68, 64, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 76, [69, 81], [64, 76], [81, 93]], 1),
	\dur, Pseq([1, 0.25, 0.25, 0.25, 0.25, 1, 0.25, 0.25, 0.25, 0.25, 1.5, 0.5, 1, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.26, 0.27, 0.28, 0.29, 0.3, 0.4, 0.5, 0.5, 0.6, 0.6, 0.7, 0.7, 1.2, 1.5, 1], 1),
	\amp, 0.65,
	\legato, 1,
	\tempo, 145/60,
);
~var2_soprano1_ending.play;
)

(~var2_bass1_ending=Pbind(
	\instrument, "Synth4",
	\midinote, Pseq([45, 50, 49, 50, 52, 50, 45, 50, 56, 55, 54, 53, 52, 51, 50, 49, 43, 48, 47, 48, 50, 48, 55, 52, 55, 54, 53, 52, 51, 50, 49, 48, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 40, 44, 42, 44, 40, [45, 57], [40, 52], [33, 45]], 1),
	\dur, Pseq([0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.26, 0.27, 0.28, 0.29, 0.3, 0.4, 0.5, 0.5, 0.6, 0.6, 0.7, 0.7, 1.2, 1.5, 6], 1),
	\amp, 0.65,
	\legato, 1,
	\tempo, 145/60,
);
~var2_bass1_ending.play;
)

s.record;
s.stopRecording;


(
Pspawner({arg maestro;
	maestro.par(~soprano1);
	maestro.par(~alto1);
	maestro.par(~bass1);
	32.wait;
	maestro.par(~soprano2);
	maestro.par(~alto2);
	maestro.par(~bass2);
	32.wait;
	maestro.par(~soprano1_ending);
	maestro.par(~alto1_ending);
	maestro.par(~bass1_ending);
	32.wait;
	maestro.par(~var1_soprano1);
	maestro.par(~var1_bass1);
	maestro.par(~drums);
	32.wait;
	maestro.par(~var1_soprano1);
	maestro.par(~var1_bass1);
	maestro.par(~drums);
	32.wait;
	maestro.par(~var1_soprano2);
	maestro.par(~var1_bass2);
	maestro.par(~drums);
	32.wait;
	maestro.par(~var1_soprano1);
	maestro.par(~var1_bass1);
	maestro.par(~drums);
	32.5.wait;
	maestro.par(~var2_soprano1);
	maestro.par(~var2_bass1);
	32.wait;
	maestro.par(~var2_soprano1);
	maestro.par(~var2_bass1);
	32.wait;
	maestro.par(~var2_soprano2);
	maestro.par(~var2_bass2);
	32.wait;
	maestro.par(~var2_soprano1);
	maestro.par(~var2_bass1);
	32.wait;
	maestro.par(~var2_soprano1_ending);
	maestro.par(~var2_bass1_ending)
}).play;

)
raw 17117 chars (focus & ctrl+a+c to copy)
reception
comments