Pieza en una y dos voces

Lunes y martes estuve componiendo una pieza en SuperCollider, que estaba en GbM (Sol bemol Mayor).
Al final, el resultado fueron dos piezas:

Una voz:

Dos voces:

La segunda es una variación de la primera, pues añadí la misma primera voz como segunda voz, sólo que trasladada.

Y el código para la primera voz, lo puedes ver a continuación.


(
SynthDef(\bass, { |freq = 440, gate = 1, amp = 0.5, slideTime = 0.17, ffreq = 1100, width = 0.15,
detune = 1.005, preamp = 4|
var sig,
env = Env.adsr(0.01, 0.3, 0.4, 0.1);
freq = Lag.kr(freq, slideTime);
sig = Mix(VarSaw.ar([freq, freq * detune], 0, width, preamp)).distort * amp
* EnvGen.kr(env, gate, doneAction: 2);
sig = LPF.ar(sig, ffreq);
Out.ar(0, sig ! 2)
}).add;
)

TempoClock.default.tempo = 100/60;

// Rola
(
Pseq([

// Parte 1
Pseq([
//1
Pbind(
\instrument, \bass,
\midinote, 30,
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//2
Pbind(
\instrument, \bass,
\midinote, Pseq([Pseq([37], 6), Pseq([39], 6)], 1),
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//3
Pbind(
\instrument, \bass,
\midinote, Pseq([41, 42, 44, 46, 47, 49, 51, 53, 54, 54, 54, 54],1),
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//4
Pbind(
\instrument, \bass,
\midinote, Pseq([59, 58, 56, 54, 53, 51, 49, 47, 46, 44, 42, 41],1),
\dur,0.25,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//5
Pbind(
\instrument, \bass,
\midinote, Pseq([66, 65, 63, 61, 59, 58, 56, 54, 53, 51, 49, 47,
46, 44, 42, 41, 39, 37, 35, 34, 32, 30, 29, 27],1),
\dur,0.25,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 4),
\amp, Prand([0.5, 0.3, 0.2], 24),
\detune, 1.005
),

// Parte 2
Pseq([
//6
Pbind(
\instrument, \bass,
\midinote, 54,
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//7
Pbind(
\instrument, \bass,
\midinote, 78,
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//8
Pbind(
\instrument, \bass,
\midinote, Pseq([Pseq([77], 6), Pseq([75], 6)], 1),
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//9
Pbind(
\instrument, \bass,
\midinote, Pseq([73, 71, 70, 68, 66, 65, 63,61, 59, 58, 56, 54],1),
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//10
Pbind(
\instrument, \bass,
\midinote, Pseq([49, 51, 53, 54, 56, 58, 59, 61, 63, 65, 66, 68],1),
\dur,0.25,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//11
Pbind(
\instrument, \bass,
\midinote, Pseq([66, 68, 70, 71, 73, 75,77, 78, 80, 82, 83, 85,
87, 89, 90, 92, 94, 95, 97, 99, 101, 102,104, 106] ,1),
\dur,0.25,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 4),
\amp, Prand([0.5, 0.3, 0.2], 24),
\detune, 1.005
) ], 1),

// Parte 3
Pseq([
//12
Pbind(
\instrument, \bass,
\midinote, 54,
\dur, 0.55,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//13
Pbind(
\instrument, \bass,
\midinote, Pseq([56, 57], 12),
\dur, Pseq([0.5], 12),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 12),
\amp, 0.5,
\detune, Pseq([1.005, 1.2], 12)
),
//14
Pbind(
\instrument, \bass,
\midinote, 58,
\dur, 0.55,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//15
Pbind(
\instrument, \bass,
\midinote, Pseq([54, 57], 12),
\dur, Pseq([0.5], 12),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 12),
\amp, 0.5,
\detune, Pseq([1.005, 1.2], 12)
),
//16
Pbind(
\instrument, \bass,
\midinote, Pseq([54, 56], 12),
\dur, Pseq([0.5], 12),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 12),
\amp, 0.5,
\detune, Pseq([1.005, 1.2], 12)
),
//17
Pbind(
\instrument, \bass,
\midinote, Pseq([Pseq([56], 12), Pseq([54], 12)], 1),
\dur, 0.55,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 4),
\amp, 0.5,
\detune, 1.005
)

], 1),
// Parte 4
Pseq([
//18
Pbind(
\instrument, \bass,
\midinote, 66,
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//19
Pbind(
\instrument, \bass,
\midinote, 78,
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//20
Pbind(
\instrument, \bass,
\midinote, Pseq([Pseq([77], 6), Pseq([75], 6)], 1),
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//21
Pbind(
\instrument, \bass,
\midinote, Pseq([73, 71, 70, 68, 66, 65, 63,61, 59, 58, 56, 54],1),
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//22
Pbind(
\instrument, \bass,
\midinote, Pseq([49, 51, 53, 54, 56, 58, 59, 61, 63, 65, 66, 68],1),
\dur,0.25,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//23
Pbind(
\instrument, \bass,
\midinote, Pseq([66, 68, 70, 71, 73, 75,77, 78, 80, 82, 83, 85,
85, 83, 82, 80, 78, 77, 75, 73, 71, 70, 68, 66] ,1),
\dur,0.25,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 4),
\amp, Prand([0.5, 0.3, 0.2], 24),
\detune, 1.005
),
//24
Pbind(
\instrument, \bass,
\midinote, Pseq([65, 63, 61, 59, 58, 56, 54, 53, 51, 49, 47, 46,
44, 42, 41, 39, 37, 35, 34, 32, 30, 29, 27, 30],1),
\dur,0.25,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 4),
\amp, 0.5,
\detune, 1.005
)
], 1),
// Parte 5
Pseq([
//25
Pbind(
\instrument, \bass,
\midinote, 42,
\dur, 0.55,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//26
Pbind(
\instrument, \bass,
\midinote, Pseq([44, 45], 12),
\dur, Pseq([0.5], 12),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 12),
\amp, 0.5,
\detune, Pseq([1.005, 1.2], 12)
),
//27
Pbind(
\instrument, \bass,
\midinote, 46,
\dur, 0.55,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//28
Pbind(
\instrument, \bass,
\midinote, Pseq([42, 45], 12),
\dur, Pseq([0.5], 12),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 12),
\amp, 0.5,
\detune, Pseq([1.005, 1.2], 12)
),
//29
Pbind(
\instrument, \bass,
\midinote, Pseq([42, 44], 12),
\dur, Pseq([0.5], 12),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 12),
\amp, 0.5,
\detune, Pseq([1.005, 1.2], 12)
),
//30
Pbind(
\instrument, \bass,
\midinote, Pseq([Pseq([44], 12), Pseq([42], 12)], 1),
\dur, 0.55,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 4),
\amp, 0.5,
\detune, 1.005
),

], 1),
// Parte 6
Pseq([
//31
Pbind(
\instrument, \bass,
\midinote, 30,
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//32
Pbind(
\instrument, \bass,
\midinote, Pseq([Pseq([37], 6), Pseq([39], 6)], 1),
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//33
Pbind(
\instrument, \bass,
\midinote, Pseq([41, 42, 44, 46, 47, 49, 51, 53, 54, 54, 54, 54],1),
\dur, Pseq([0.75, 0.25, 0.25, 0.25, 0.75, 0.75], 2),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//34
Pbind(
\instrument, \bass,
\midinote, Pseq([59, 58, 56, 54, 53, 51, 49, 47, 46, 44, 42, 41],1),
\dur,0.25,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, 0.5,
\detune, 1.005
),
//35
Pbind(
\instrument, \bass,
\midinote, Pseq([66, 65, 63, 61, 59, 58, 56, 54, 53, 51, 49, 47,
46, 44, 42, 41, 39, 37, 35, 34, 32, 30, 29, 27],1),
\dur,0.25,
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 4),
\amp, Prand([0.5, 0.3, 0.2], 24),
\detune, 1.005
),

], 1),
// Final
//36
Pbind(
\instrument, \bass,
\midinote, Pseq([30, 54, 66], 6),
\dur, Pseq([1.2], 6),
\legato, Pseq([0.9, 0.3, 0.3, 0.3, 0.3, 0.9], 2),
\amp, Pseq([0.3, 0.4, 0.4], 6),
\detune, 1.005
)

]),

], 1).play;
)