// Voglio una donna — Drupi
// 70 bpm, 4/4, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 76 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(70/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · "a, b" plays two voices at once · [...]/2 spreads a riff over 2 bars.
// A part's distinct bars are riffs (A, B, C...) played in order: edit a riff to change every repeat.

// bass · synth bass 2
const bass = note(`<
  ~@11 A@2 B C B D B E F G H I J K L M N O P Q R S T U V W R X Y H I J K L M N Z H I J K P Q ~@5 AA@2 ~@3 AB AC AD AE AF
  AC AD AE AG@4
>`.pickRestart({
  A: "[a2@11 f2 g2@4]/2", B: "a2", C: "f2 g2", D: "d2 a#2", E: "f2 e2", F: "d2", G: "g1@2 a1 b1",
  H: "c2@2 c2@3 ~ c2@2 d3@4 g2@4", I: "b1@3 b1 b2@3 g2", J: "f1 g2@2 e1 a1@2 d2@2", K: "e2 a2 d2 g2",
  L: "c2@3 d3@2 g2 c2@2", M: "b1@5 ~ b2@2 g2@2 d2@2 g1@4", N: "f1!2 g2@2 d2 d3@3", O: "a2 c2@2 c2 g2 b1 b2@2",
  P: "a1@14 e1 f1", Q: "g1@3 g#1", R: "a1!2 b2@3 e2 c2@2", S: "f1@2 g2@2 f2 c2 f1@2 g1 ~ b2@2 g2@2 g1 g#1",
  T: "a1@2 b2@3 a1 c2 e2", U: "f2 c2 f2@2 g1@2 b2 g2", V: "a2@5 e2 c2@2 a1@2 e1 g1 a1@2 c2@2",
  W: "d2@4 d3@2 d2@2 a#1@4 d3@2 c2 a#1", X: "f1 g2 e1 e2", Y: "~@9 d3@4 b2 g2 e2, d2@3 ~", Z: "c3 c2@2 c2 g2 b1 b2@2",
  AA: "[~@12 a#3 ~ a1@10 ~@8]/2", AB: "~@8 c2@2 c2@3 ~ c2@2", AC: "d3@2 g2@2 b1@3 b1", AD: "b2@3 g2 f1 g2@2 e1",
  AE: "a1 d2 e2 a2", AF: "d2@4 g2@4 c2@2 c2@3 ~ c2@2", AG: "[d2@4 g2@4 a1@14 e1 f1 g1@12 g1@4 c2@16 ~@8]/4",
})).s("gm_synth_bass_2").gain(0.48)

// chords · string ensemble 2
const string_ensemble_2 = note("<~@25 A@2 B@2 ~@11 A@2 C@2 D E F@2 G@2 H I ~@12 J@4 K@4 L@4>".pickRestart({
  A: "[[c4,e4] [b3,d4], g3]/2", B: "[[a3,c4,e4]@3 [g3,b3,d4]]/2", C: "[[a3,f4]@2 [g3,e4] [g3,b3,d4], c4@3 ~]/2",
  D: "[c4,e4,g4]", E: "[d4,g4,b4]",
  F: "[e5@8 ~@8 e4@8 a4 b4 [c5,d5] [e5,f5] [g5,a5] b5 [c6,d6] [e6,f6], [f4,a4] g4, ~ c5@2 d4]/2", // Csus2 Fmaj7 Gsus2 Csus2 Fmaj7 F
  G: "[[g4,e5] [g4,d5], g6]/2", H: "f5 d5, [a4,f6]", I: "[g4,c5,e5] [d4,g4,b4]",
  J: "[[g4,a4] b4 [c5,d5] [e5,f5] [g5,a5] b5 [c6,d6] [e6,f6] [g4,e5]@16 [g4,d5]@16 f5@8 d5@8 [g4,c5,e5]@8, ~ g6@4 [a4,f6]@2 ~]/4", // Gsus2 Csus2 Fmaj7 Gsus2 Csus2 Fmaj7 C G5 …
  K: "[[d4,g4,b4] [g4,e5]@2 [g4,d5]@2 f5 d5 [g4,c5,e5], ~@5 [a4,f6]@2 ~]/4", // G C G5 C Dm
  L: "[[d4,g4,b4]@2 [c4,f4,a4]@4 c4@3 b3 [c4,e4,g4]@4 ~@2, ~@3 [d4,g4]@2 ~@3]/4", // G F C G5
})).s("gm_string_ensemble_2").gain(0.28).pan(0.3)

// chords · pad warm
const pad_warm = note("<~ A@2 B C B C D E F G H B H B H D E F I J K@2 L M N ~@28 H B H B H D E O@2 ~@13>".pickRestart({
  A: "[e3,a3,b3]/2", B: "[f3,a3,c4] [g3,b3,d4]", C: "[e3,a3,b3]", D: "a3 a#3, [d4,f4]", E: "[b3,c4,e4]",
  F: "[a3,c4,e4] [g3,b3,d4]", G: "[f3,a3,c4]@3 ~", H: "[e3,a3,c4]", I: "[f3,a3,c4]",
  J: "[g3,b3,d4]@2 [f3,a3,c4] [g3,b3,d4]", K: "[[g3,c4,e4] d4, g4]/2", L: "[c4,f4]", M: "e4 d4, g4", N: "g4",
  O: "[[a3,c4,e4]@4 [g3,b3,d4]@7 ~@5]/2", // Am G
})).s("gm_pad_warm").gain(0.3).pan(0.4)

// other · overdriven guitar
const overdriven_guitar = note("<~@31 A ~ B ~@4 C D E F G H I J K L I J K M N ~@5 O@2 ~@16>".pickRestart({
  A: "~@3 e5@3 d5 e5@7 ~@2", B: "~@2 d6@9 ~@5", C: "e5@7 ~@9", D: "~@14 [g2,a2,b2,d3,e3] [a1,b1,d2,e2]",
  E: "g3@5 c4 d4@2, g1 ~@15", F: "g4@2 a3 b3", G: "a4@3 e3 f3 a3 c4 e4", H: "g4@2 c4 d4", I: "g3@5 c4 d4@2",
  J: "g4@7 a4@6 ~ g4@2", K: "a4 c4 e4 f4@2 a3 c4@2", L: "g4@4 a4@3 g4", M: "e4 a4 d4@2", N: "c4@15 ~",
  O: "[~@9 c4 d4 c4@10 ~@11]/2",
})).s("gm_overdriven_guitar").gain(0.31).pan(1)

// chords · piano
const piano = note(`<
  A@2 B C D E F G H I J K L M L M N O P Q R S T U V S W X Y Z AA AB AC AB AC AB N AD AE AF AG AH AI AJ AG AH AK AL AG AH
  AM AN Z AA AO AP AQ AR AS AT AU AV@2 ~ AW@4 AX@4 AY@4
>`.pickRestart({
  A: "[~@8 [a1,a2,a3,b3,c4]@7 ~, ~@15 [d4,e4]@15 ~@2]/2", B: "[a1,a2,c4,e4]", C: "[f2,f3,a3,c4] [g2,g3,b3,d4]",
  D: "~@7 e3, [a1,a2]@15 ~, [c4,e4]@4 b3 a3@3, b3@7 a3@2 c4@7, ~@3 e3@3 b3@2", E: "[f2,a3,e4] [g2,g3,b3,d4], c4 ~@15",
  F: "~@3 c4, [a1,a2]@15 ~, [c4,e4]@10 b3@5 ~, a3@2 a3 ~, ~@3 e3@4 ~", G: "[d2,d3,a3,d4,f4] [a#1,a#2,a#3,d4,f4]",
  H: "~@8 b3 ~@3 b3@4, [a1,a2], [a3,c4,e4]@7 a3@2 c4@3 ~@4, ~@3 e3@5, ~@5 a3@3", I: "[f2,f3,a3,c4,e4] [e2,e3,g3,b3,d4]",
  J: "[d2,f3,a3,c4,e4]@7 ~", K: "[a3,b3,c4,e4]!4, a1@7 ~", L: "[a3,c4,e4]!2 [g3,b3,d4]!2, f2 g2",
  M: "[a3,b3,c4,e4]!4, a1", N: "[a3,d4,f4]!2 [a3,a#3,d4,f4]!2, [d2,d3] a#2",
  O: "[b3,c4,e4] ~@2 [b3,c4,e4], a1, a3@3 a3@2 a3@3, ~ [b3,c4,e4]!2 ~", // Cmaj7
  P: "[f3,a3,c4,e4]@2 ~ f2 [e2,e3,g3,b3,d4]@4, f2@3 ~@5, ~ [f3,a3,c4,e4] ~@2", // Fmaj7 Em7 Fmaj7
  Q: "[d2,d3,f3]@3 ~@3 d4@2, e4@9 a3@7, [a3,c4]@4 f3 c4@3, ~@3 d2@5, ~@7 d3@8 ~", // Dm Am
  R: "[g2,g3,a3,c4,d4]@2 [a2,f3,a3,c4] [b2,g3,b3,d4]", S: "[c4,e4]@9 ~@5 g4@2, [c3,g3]@3 d4, ~@5 c4@2 ~",
  T: "b3@3 ~@3 b3@2, [b2,g4], d4 ~@5 g3@4 g3@6, ~ a3", U: "[f3,a3,c4,d4]@3 e3 ~@2 d4 e4, f2, ~@4 f3@3 ~, ~@5 a3@2 ~",
  V: "~@3 g3 [g2,a3,c4,g4]@2 [g2,g3,b3,d4]@2, [g2,c4,d4,g4] ~", // Am7 G Gsus4
  W: "b3@3 ~@3 [b3,d4,g4]@2, b2, g4@3 ~, d4 ~@7 a4@8, ~@5 g3@3", // G
  X: "f4@3 ~@3 c4@2, [f2,c4,e4,a4] [d2,c5], ~@3 f4@5, ~@5 d4@3", // Fmaj7 D7
  Y: "~@3 a3 [g2,b3,d4]@2 [g2,b3,d4]@2, [a2,c4,e4] ~, a3@3 ~@5, ~@4 a4@5 ~@7", // G Am
  Z: "f3 ~@3 c4@4, a2, [a3,c4]@3 a3@4 e4@2 ~@7, ~ f3@7, ~@4 c4@2 f4@7 ~@3", // Am
  AA: "~@3 [e4,g4] [c4,e4] ~ [g#2,b3,d4]@2, g2@11 ~@5, ~ d3@3 a3 [f4,a4]@3 ~@2 a3@3 ~@3, ~@2 e3@9 ~@5, ~@3 f3@8 f3@3 ~@2", // Em C G#dim F
  AB: "[a3,b3,c4,e4]!4", AC: "[a3,c4,e4]!2 [g3,b3,d4]!2",
  AD: "[b3,c4,e4] ~@2 [b3,c4,e4], a3@3 a3@2 a3@3, ~ [b3,c4,e4]!2 ~", // Cmaj7
  AE: "[a3,c4,e4] ~@5 f2@2 [e2,e3,g3,b3,d4]@8, f2@3 ~@5, f3 [f3,a3,c4,e4] ~@2", // Am Em7 Fmaj7
  AF: "[d2,d3,f3]@3 ~@3 [e3,g3,b3,d4]@2, e4@11 ~@5, [a3,c4]@9 ~@7, ~@3 d2@5", // Dm Em7 Am
  AG: "[c4,e4]@9 ~@5 g4@2, g3@3 d4, ~@5 c4@2 ~", AH: "b3@3 ~@3 [b3,d4,g4]@2, g4@3 ~, d4 ~@7 a4@8, ~@5 g3@3",
  AI: "f4@3 ~@3 c4@2, [c4,e4,a4] c5, ~@3 f4@2 f4@3", // Am
  AJ: "~@3 g3 [c4,d4,g4]@2 [b3,d4,g4]@2, [c4,e4] ~, g3@3 ~@5, ~ g4 ~@2", AK: "f4@3 ~@3 c4@2, [c4,a4] c5, ~@3 f4@2 f4@3",
  AL: "~@3 g3 [b3,d4]@2 [b3,d4]@2, [c4,e4] ~, g3@3 ~@5, ~@4 a4@5 ~@7", AM: "f4@3 f4 f4@2 [c4,f4]@2, [c4,a4] a4",
  AN: "~@3 g3 [b3,d4]@2 [b3,d4]@2, [c4,e4] ~, g3@3 ~@5, ~@4 g4@5 ~@7", // Bm C
  AO: "a2 ~@2 b3, [a1,e4]@11 e3@5, [b3,c4]@7 a3@9, ~ a2@3, ~@6 e3@2 b3 c4@7", AP: "[f2,a3,c4,e4] [g2,g3,b3,d4]",
  AQ: "~@5 [e4,a4]@3, [a1,a2]@9 a3@7, e4 c4, [b3,c4]@7 b3@9, ~@3 e3@5", AR: "f2!2 g2!2, [a3,c4,e4] [g3,b3,d4]",
  AS: "a2@2 ~@3 [c4,e4]@3, [a1,a3], [c4,e4]@5 ~@3, b3@3 [b3,d4]@5, ~ a2@3", // C A C Bm
  AT: "[c4,d4,f4]@2 ~ d3 [a#3,d4,f4]@2 [a#3,d4,f4]@2, [d2,a3] ~, d3@3 ~ [a#2,a3]@4, ~ [c4,d4,f4] ~@2", // Dm7 A# D5 A#maj7 Dm7
  AU: "a3@6 ~@5 b3@5, [a1,a2]@5 a3@3, [b3,c4,e4] e4, ~@3 e3@5, ~@7 a3 b3 c4@7", // A Cmaj7
  AV: "[[f2,f3,a3,c4,e4]@2 [e2,e3,g3,b3,d4]@3 ~@3]/2", // Fmaj7 Em7
  AW: "[~@8 [c4,e4]@9 ~@5 g4@2 b3@6 ~@6 [d4,g4]@4 f4@6 ~@6 c4@4 ~@6 g3@2, ~@2 g3@3 d4 g4@3 ~ [e4,a4]@2 c5@2 ~ g4, ~@18 c4@4 ~@2 d4 ~@7 a4@8 ~@6 f4@4 f4@6 [c4,e4]@8, ~@17 g3@3 ~@8 g3@3 ~]/4", // C G5 A5 C
  AX: "[[c4,d4]@4 [b3,d4]@4 [c4,e4]@9 ~@5 g4@2 b3@6 ~@6 [d4,g4]@4 f4@6 ~@6 c4@4 ~@6 g3@2, ~@2 g3@3 d4 g4@3 ~ [e4,a4]@2 c5@2 ~ g4, ~@18 c4@4 ~@2 d4 ~@7 a4@8 ~@6 f4@4 f4@6 [c4,e4]@8, ~@17 g3@3 ~@8 g3@3 ~]/4", // Csus2 Bm C G5 A5 C
  AY: "[[c4,d4]@4 [b3,d4]@4 f3@2 ~@6 c4@8 ~@6 [e4,g4]@2 [c4,e4]@4 [g2,g3,b3,d4]@3 ~ [c2,c3,g3,c4,d4]@17 ~@7, ~@2 a2@4 g2@3 ~@7, ~@8 [a3,c4]@3 a3@4 e4@2 ~@9 e3@9 ~@29, ~@10 f3@14 ~ d3@3 a3 [f4,a4]@3 ~@7 [e4,g4]@17 ~@8, ~@12 c4@2 f4@7 ~@6 f3@8 ~@29]/4", // Csus2 Bm Em C G Csus2 Am F …
})).s("gm_piano").gain(0.42).pan(0.8)

// chords · lead 3 calliope
const lead_3_calliope = note(`<
  ~ A@4 B@4 C@2 D@3 B@4 C@2 ~@11 E F E F G@2 H I J K ~@15 L M N O N P@2 ~@13
>`.pickRestart({
  A: "a3/4", B: "a3/2", C: "[a3@13 ~@3]/2", D: "a3/3", E: "[c4,e4]", F: "[a3,c4] [b3,d4]",
  G: "[~ a4@2 b4@2 ~@7 d5@4, [c4,e4] [d4,f4], ~@5 c5@7 ~@4]/2", H: "[b4,c5,e5]", I: "[f4,a4] [d4,b4]",
  J: "[c4,a4]@3 [d4,b4]", K: "c5@13 ~@3", L: "~@5 c4@3, ~ e3@7, ~@3 b3@5", M: "[f3,a3] [g3,b3]", N: "[a3,c4]",
  O: "a3 a#3, d4", P: "[[a3,c4]@4 [g3,b3]@7 ~@5]/2",
})).s("gm_lead_3_calliope").gain(0.19).pan(0.7)

// other · distortion guitar
const distortion_guitar = note("<~@31 [~@3 e6@3 d6 e6@7 ~@2] ~ [~@5 d4@4 g5@6 ~] ~@24 [~@3 d#4@12 ~] ~@17>")
  .s("gm_distortion_guitar").gain(0.31).pan(1)

// drums · kick
const kick = s("bd").struct("<~@19 A B C D E F C D E F G H I@8 B I@12 G H ~@8 J K L M@7 N O P ~>".pickRestart({
  A: "~@15 x", B: "x", C: "x ~ x ~@5 x ~@6 x", D: "x!2 ~@2 x ~@3", E: "x!2 ~@2 x ~@2 x", F: "x!2 ~ x ~@4",
  G: "x ~@14 x", H: "x ~@10 x!2 ~@3", I: "x ~@2 x!2 ~@3", J: "~@12 x ~@2 x", K: "x ~@12 x ~@2",
  L: "x ~ x!2 ~ x ~@2 x ~@5 x ~", M: "x ~@3 x ~@2 x", N: "x!2", O: "~@7 x!2 ~@7", P: "~@3 x!2 ~@3 x ~@7",
})).gain(0.53)

// drums · snare
const snare = s("sd").struct(`<
  ~@21 A B A C A D A E ~ F G@3 H G@3 I J G@3 H G@7 H ~ F ~@8 F K L G@3 M G@3 N ~ O ~
>`.pickRestart({
  A: "~ x ~@2", B: "~@2 x ~@4 x", C: "~ x ~@3 x ~@6 x!2 ~ x", D: "~@4 x ~@10 x", E: "~ x ~@3 x ~@6 x ~@2 x",
  F: "~@13 x ~@2", G: "~ x ~ x", H: "~@4 x ~@7 x ~@2 x", I: "~@4 x ~@4 x ~@2 x ~@2 x", J: "~@11 x!5",
  K: "~@6 x ~@2 x ~@2 x ~@2 x", L: "~ x!2 ~ x ~@7 x ~@3", M: "~@4 x ~@2 x ~@4 x ~@3", N: "~@4 x ~@2 x ~@8",
  O: "~@5 x ~@10",
})).gain(0.53)

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@34 [~@11 x ~@4] ~@4 [~@7 x!4 ~@5] ~@23 [~@3 x!3 ~@10] [~@5 x!4 ~@7] ~@11>")
  .gain(0.18)

// drums · hihat
const hihat = s("hh").struct("<~@30 A B ~@21 A B ~@19 C ~>".pickRestart({
  A: "~@15 x", B: "x", C: "~@7 x!2 ~@7",
})).gain(0.41)

// drums · low tom
const low_tom = s("lt").struct(`<
  ~@24
  [~@5 x ~@6 x!2 ~ x]
  ~@3
  [~@5 x ~@6 x ~@2 x]
  ~@34
  [~@12 x ~@2 x]
  [~ x!2 ~ x ~@11]
  ~@11
>`).gain(0.41)

// drums · mid tom
const mid_tom = s("mt").struct("<~@24 [~ x ~@14] ~@3 [~ x ~@14] ~@34 [~@9 x ~@6] ~@12>").gain(0.47)

// drums · open hat
const open_hat = s("oh").struct("<~@31 x ~@22 x ~@19 [~ x] ~>").gain(0.41)

// drums · crash
const crash = s("cr").struct("<~@19 A B ~@19 B ~@23 C ~@3 C ~@5 C ~>".pickRestart({
  A: "~@15 x", B: "x", C: "~ x",
})).gain(0.29)

// drums · tambourine
const tambourine = s("tb").struct("<~@11 [~@4 x!3 ~@9]!8 ~@35 [~@4 x!3 ~@9]!8 ~@14>").gain(0.12)

// drums · tambourine · soft notes
const tambourine_soft = s("tb").struct("<~@11 [~@7 x ~@8]!8 ~@35 [~@7 x ~@8]!8 ~@14>").gain(0.06)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~@31 A@8 ~ A@12 ~@12 B A@7 C ~@3>".pickRestart({
  A: "~@2 x!2 ~@2 x!2 ~@2 x!2 ~@2 x!2", B: "~@10 x!2 ~@2 x!2", C: "~@2 x!2 ~@2 x!2 ~@8",
})).gain(1.2)

stack(
  bass, string_ensemble_2, pad_warm, overdriven_guitar, piano, lead_3_calliope, distortion_guitar, kick, snare,
  snare_soft, hihat, low_tom, mid_tom, open_hat, crash, tambourine, tambourine_soft, cabasa
)