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(1, 2),
\legato, Pseq(2, 2),
\amp, 0.5,
\detune, 1.005
),
//2
Pbind(
\instrument, \bass,
\midinote, Pseq([Pseq([37], 6), Pseq([39], 6)], 1),
\dur, Pseq(1, 2),
\legato, Pseq(2, 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(1, 2),
\legato, Pseq(2, 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(2, 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(2, 4),
\amp, Prand(9, 24),
\detune, 1.005
),

// Parte 2
Pseq([
//6
Pbind(
\instrument, \bass,
\midinote, 54,
\dur, Pseq(1, 2),
\legato, Pseq(2, 2),
\amp, 0.5,
\detune, 1.005
),
//7
Pbind(
\instrument, \bass,
\midinote, 78,
\dur, Pseq(1, 2),
\legato, Pseq(2, 2),
\amp, 0.5,
\detune, 1.005
),
//8
Pbind(
\instrument, \bass,
\midinote, Pseq([Pseq([77], 6), Pseq([75], 6)], 1),
\dur, Pseq(1, 2),
\legato, Pseq(2, 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(1, 2),
\legato, Pseq(2, 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(2, 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(2, 4),
\amp, Prand(9, 24),
\detune, 1.005
) ], 1),

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

], 1),
// Parte 4
Pseq([
//18
Pbind(
\instrument, \bass,
\midinote, 66,
\dur, Pseq(1, 2),
\legato, Pseq(2, 2),
\amp, 0.5,
\detune, 1.005
),
//19
Pbind(
\instrument, \bass,
\midinote, 78,
\dur, Pseq(1, 2),
\legato, Pseq(2, 2),
\amp, 0.5,
\detune, 1.005
),
//20
Pbind(
\instrument, \bass,
\midinote, Pseq([Pseq([77], 6), Pseq([75], 6)], 1),
\dur, Pseq(1, 2),
\legato, Pseq(2, 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(1, 2),
\legato, Pseq(2, 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(2, 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(2, 4),
\amp, Prand(9, 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(2, 4),
\amp, 0.5,
\detune, 1.005
)
], 1),
// Parte 5
Pseq([
//25
Pbind(
\instrument, \bass,
\midinote, 42,
\dur, 0.55,
\legato, Pseq(2, 2),
\amp, 0.5,
\detune, 1.005
),
//26
Pbind(
\instrument, \bass,
\midinote, Pseq([44, 45], 12),
\dur, Pseq(22, 12),
\legato, Pseq(2, 12),
\amp, 0.5,
\detune, Pseq(24, 12)
),
//27
Pbind(
\instrument, \bass,
\midinote, 46,
\dur, 0.55,
\legato, Pseq(2, 2),
\amp, 0.5,
\detune, 1.005
),
//28
Pbind(
\instrument, \bass,
\midinote, Pseq([42, 45], 12),
\dur, Pseq(22, 12),
\legato, Pseq(2, 12),
\amp, 0.5,
\detune, Pseq(24, 12)
),
//29
Pbind(
\instrument, \bass,
\midinote, Pseq([42, 44], 12),
\dur, Pseq(22, 12),
\legato, Pseq(2, 12),
\amp, 0.5,
\detune, Pseq(24, 12)
),
//30
Pbind(
\instrument, \bass,
\midinote, Pseq([Pseq([44], 12), Pseq([42], 12)], 1),
\dur, 0.55,
\legato, Pseq(2, 4),
\amp, 0.5,
\detune, 1.005
),

], 1),
// Parte 6
Pseq([
//31
Pbind(
\instrument, \bass,
\midinote, 30,
\dur, Pseq(1, 2),
\legato, Pseq(2, 2),
\amp, 0.5,
\detune, 1.005
),
//32
Pbind(
\instrument, \bass,
\midinote, Pseq([Pseq([37], 6), Pseq([39], 6)], 1),
\dur, Pseq(1, 2),
\legato, Pseq(2, 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(1, 2),
\legato, Pseq(2, 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(2, 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(2, 4),
\amp, Prand(9, 24),
\detune, 1.005
),

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

]),

], 1).play;
)

  1. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  2. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  3. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  4. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  5. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  6. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  7. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  8. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  9. 5, 0.3, 0.2
  10. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  11. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  12. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  13. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  14. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  15. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  16. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  17. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  18. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  19. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  20. 5, 0.3, 0.2
  21. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  22. 5
  23. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  24. 005, 1.2
  25. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  26. 5
  27. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  28. 005, 1.2
  29. 5
  30. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  31. 005, 1.2
  32. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  33. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  34. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  35. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  36. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  37. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  38. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  39. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  40. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  41. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  42. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  43. 5, 0.3, 0.2
  44. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  45. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  46. 5
  47. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  48. 005, 1.2
  49. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  50. 5
  51. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  52. 005, 1.2
  53. 5
  54. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  55. 005, 1.2
  56. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  57. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  58. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  59. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  60. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  61. 75, 0.25, 0.25, 0.25, 0.75, 0.75
  62. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  63. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  64. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  65. 5, 0.3, 0.2
  66. 2
  67. 9, 0.3, 0.3, 0.3, 0.3, 0.9
  68. 3, 0.4, 0.4
Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *