// A Better Love — Londonbeat
// 96 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 102 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(96/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 · acoustic bass · "ACOU BASS"
const bass = note(`<
  A B C D A B C D E F G H I J G K L M N O A B C D A B C D A B C D E F G H I J G K L M N O A B C D A B C D A B C D P ~@5
  A B C D A B C D L M N O L M N O A B C D A B C D A B C D A B C D Q@3 ~@5
>`.pickRestart({
  A: "e2@3 ~ e2@3 ~ e2@3 ~ e2@3 e3", B: "e2@3 ~ e2@3 ~ e2@3 ~ e2@3 ~", C: "d3@3 ~ d3@3 ~ d3@3 ~ d3@3 ~",
  D: "d3@3 ~ d3@3 ~ d3@3 ~ d3@2 ~@2", E: "e3@4 e3@2 b2 e3 ~ e3@2 e2 e3 b2 e3@2",
  F: "e3@3 ~ e3@2 b2 e3@2 e2 ~ e2 e3 b2 e3@2", G: "d3@3 ~ d3@2 a2 d3 ~ d3@2 a2 d3@2 a2@2",
  H: "d3@3 ~ d3@2 ~ d3 ~ d3@2 a2 d3@2 a2 ~", I: "e3@4 e3@3 e3 ~ e3@2 b2 e3 b2 e3 ~",
  J: "e3@4 e2@2 e3 e3@2 e3@2 e2 e3@2 e2@2", K: "d3@3 ~ d3@2 a2 d3 ~ d3@2 a2 d3@2 a2 ~",
  L: "c3@2 c3 g2 c3@2 d3@3 a2 d3 ~ d3@2 a2@2", M: "e3@3 ~ e3 b2 e2@3 e3@3 e3 e2 e3@2",
  N: "c3@3 g2 c3@2 d3@3 a2 d3@2 d3 a2 d3@2", O: "e3@3 b2 e3@2 e2@3 e3@2 b2 e3 b2 e2 ~", P: "f#3@7 ~",
  Q: "[e2@11 ~@5]/3",
})).s("gm_acoustic_bass").gain(0.43)

// chords · piano · "A.PIANO 1"
const piano = note(`<
  A B C@2 A B C@2 D E F@2 D E G@3 H I J A B C@2 A B C@2 A B C@2 D E F@2 D E G@3 H I J A B C@2 A B C@2 A B C@2 K L M N O
  P A B C@2 A B C@2 I H I J I H I J A B C@2 A B C@2 A B C@2 A B C@2 Q@3 ~@5
>`.pickRestart({
  A: "~@5 g#4 e4 b3 g#4@3 e4@3 b3 ~, [e2,b2,e3]@15 ~", B: "[a2,e3,a3,c#4,a4]@13 ~@3",
  C: "[~@2 [d4,a4] ~@3 [d3,a3]@2 [d4,f#4]@2 ~@3 [d3,a3]!2 ~@3 d4@2 ~ [d4,g#4]@2 ~ [d4,f#4]@2 ~ [d4,f#4]@2 [d3,a3] [d4,f#4] ~, [d3,a3]@5 [d4,g#4]@3 ~@2 [d3,a3]@3 ~@2 [d3,a3]@2 [d3,a3]@3 [d3,a3]@3 [d3,a3]@3 [d3,a3]@3 ~@3, ~@11 f#4@13 ~@8, ~@11 d4@5 d4@2 a4@6 ~@8]/2", // D5 D D5 Ddim D D5 D D5 …
  D: "[b3,e4,g#4]@13 ~ [b3,e4,g#4]@2, [e2,e3]", E: "[e2,e3,b3,e4,a4]@7 ~", F: "[[d3,a3,d4,f#4,a4]@27 ~@5]/2",
  G: "[~@27 d4@3 ~@2 [c2,c3,b3,c4,e4,g4]@5 ~ [a3,d4,e4,f#4]@3 d3 [a3,d4,e4,f#4]@2 ~ d3 [a3,d4,e4] ~, [d3,a3,d4]@27 ~@17 [a3,d4,e4,f#4]@2 ~@2, f#4@12 f#4@3 f#4@4 ~@4 f#4, a4@7 a4@7 ~@2, ~@18 b4@7 ~@23]/3", // Cmaj7 D Asus4 D5 D
  H: "~@10 [g#3,b3,e4]@3 [g#3,b3,e4] ~@2, [e2,e3,g#5,g#6]@7 ~, [g#3,b3]@3 [e5,e6]@4 ~, ~ [a5,a6]@6 ~, ~@2 [b5,b6]@5 ~", // E G#m E A B
  I: "[c2,c3,b3,c4,e4,g4]@5 ~ [a3,d4,e4,f#4]@3 d3 [a3,d4,e4,f#4]@2 ~ d3 [a3,d4,e4,f#4] ~, ~@6 [a3,d4,e4,f#4] ~", // Cmaj7 D
  J: "~@13 [g#3,b3,e4] [e5,e6] ~, [e2,e3]@7 ~, [g#3,b3]@5 [g#3,b3,e4,a5,a6]@2 ~, ~@4 [g#5,g#6]@3 ~, ~@6 [b5,b6] ~", // E G#m E G# B
  K: "a3@2 ~@2 [a3,c#4,f#4]@2 a3 ~@5 a3@2 a3@2, f#2@7 ~@9, [f#3,c#4,f#4]@3 f#3@4 ~@3 f#3@6, ~@2 a3@2 ~@3 [c#4,f#4]@5 [c#4,f#4]@4", // F#m F#5
  L: "[a3,d4,f#4] ~@2 d3 [a3,d4,f#4]!2 d3 [a3,d4,f#4] ~ [a3,d4,f#4]@2 ~ [a3,d4,f#4]@2 ~@2, d3@2 a3@2 ~@7 d3@3 ~@2", // D
  M: "a3@2 a3@2 [a3,d4,f#4] ~@2 d3@2 ~@3 [a3,f#4] [a3,d4,f#4]@3, [d3,d4,f#4]@4 ~@2 a3@3 d3@2 d3@5, ~@10 [a3,d4,f#4]@3 ~@3", // D
  N: "a3@2 a3@2 [a3,c#4,e4]@2 a3 e4@2 [b3,e4]@3 [b3,e4]@2 [a3,c#4,e4] ~, [a2,e3]@15 ~, [c#4,e4]@4 ~@3 [a3,c#4]@7 ~@2", // A E5 A A5 C#m A
  O: "[e4,g4,b4]@4 [e4,g4,b4]@2 ~ [e4,g4,b4]@2 [e4,g4,b4]@2 ~ [e4,g4,b4]@2 ~@2, [c3,g3]@7 ~, c4@6 c4@5 c4@3 ~@2", // Em C5
  P: "[c#4,e4,a4]@2 ~@2 [c#4,e4,a4]@2 [c#4,e4,a4] [c#4,e4,a4]@2 [c#4,e4,a4] ~@3 [a2,e3,a3] [c#4,e4,a4] ~, [a2,e3,a3] ~ [c#4,e4,a4]@2 ~@8 [c#4,e4,a4]@2 ~@2, ~@3 a3@6 ~@2 [a2,e3,a3]@2 ~@3", // A A5 A A5 A A5
  Q: "[[e2,e3,g#3,b3,e4]@11 ~@5]/3", // E
})).s("gm_piano").gain(0.53)

// chords · electric guitar jazz · "STEEL GTR"
const electric_guitar_jazz = note(`<
  A B@2 C A B@2 C ~@12 A B@2 C A B@2 C A B@2 C ~@12 A B@2 C A B@2 C A B@2 C ~ D E ~ F@2 A B@2 C A B@2 C ~@8 A B@2 C A
  B@2 C A B@2 C A B@2 C G@2 ~@6
>`.pickRestart({
  A: "~@5 g#4 e4 b3 g#4@3 e4@3 b3 ~, [e2,b2,e3]@15 ~", B: "[[a2,e3,a3,c#4]@13 ~@19, a4@21 ~@11]/2",
  C: "~@8 [d3,a3,e4] ~ [d3,a3,e4] [d3,a3,e4]@2 [d3,a3,e4]!2 ~", D: "~@3 d5 c#5 a4 e4@2", E: "f#4@3 ~", F: "[b4@3 ~]/2",
  G: "[e2,b2,e3]/2", // E5
})).s("gm_electric_guitar_jazz").gain(0.53)

// chords · acoustic guitar nylon · "NYLON GTR"
const acoustic_guitar_nylon = note(`<
  A B C@2 A B C@2 D E F@2 D E F@2 G H G H A B C@2 A B C@2 A B C@2 D E F@2 D E F@2 G H G H A B C@2 A B C@2 A B C@2 I J@2
  K L M A B C@2 A B C@2 G H G H G H G H A B C@2 A B C@2 A B C@2 A B C@2 N@8
>`.pickRestart({
  A: "[e2,b2,e3,b3]@2 ~@2 [e3,g#3,b3]@2 ~ [e2,b2]@2 ~@3 [e3,g#3,b3]@2 [e3,g#3,b3]@2, g#3 ~ [e3,b3]@2 ~@2 [e3,g#3,b3]@4 [e3,g#3,b3]@2 ~@4, ~@3 [e2,b2]@4 ~@2 [e2,b2]@2 e2@5", // E5 E E5 E E5 E E5
  B: "[a2,e3,a3,c#4]@2 ~@2 [a3,c#4,e4]@2 [a3,e4] [a3,c#4,e4]@2 ~ [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4]@2, ~ [a3,c#4] ~@6, ~@3 [a2,e3]@6 [a2,e3]@7", // A A5 A A5
  C: "[[d3,f#3,d4]@2 ~@2 [a3,d4]@2 [a3,d4] [f#3,a3,d4]@2 [f#3,a3,d4]@2 ~@5 [f#3,a3,d4]@2 ~@2 [f#3,a3,d4]@2 [a3,d4] [f#3,a3,d4]@2 [f#3,a3,d4]@2 ~@3 [f#3,a3,d4] ~, ~ [a3,d4] ~@4 [a3,d4]!2 ~ [a3,d4] ~@4 [f#3,a3,d4] ~, ~@3 d3@8 d3@2 d3@2 d3@4 d3@8 d3@2 d3@2 ~]/2", // D D5 D D5 D D5 D
  D: "[e3,g#3,b3]@7 [e3,g#3,b3], [e2,b2]", E: "[e3,a3,b3]@7 ~",
  F: "[a3@16 a3@10 a3 [a3,d4]@2 [f#3,a3,d4] ~@2, d4@13 ~@3, f#3@7 ~@9]/2", // D5 D
  G: "[c3,g3,b3,c4,e4]@2 ~@2 [g3,c4,e4]@2 [f#3,a3]@3 [f#3,a3,d4]@2 ~ [f#3,a3,d4]@2 [f#3,a3,d4]@2, ~ [c4,e4] ~@6, ~@3 c3@3 d3@5 d3@5", // Cmaj7 C F#m D C
  H: "[g#3,b3]@3 ~ [e3,g#3,b3]@2 ~ [e2,b2]@2 ~ [e3,g#3,b3]@2 [e3,g#3,b3]@2 ~@2, e3 ~@2 b2@3 [e3,g#3,b3]@3 [e2,b2]@5 ~@2", // G#m E E5 E E5
  I: "[f#3,a3,c#4]@2 ~@2 [f#3,c#4]@2 [a3,c#4] [f#3,a3,c#4]@2 [f#3,a3,c#4]@2 ~ [a3,c#4]@2 [f#3,a3,c#4] ~, ~@3 f#2@8 f#2@4 ~", // F#m F#5 A F#m A F#m
  J: "[[d3,f#3,a3,d4]@2 ~@2 [f#3,a3,d4]@2 [f#3,a3,d4] [f#3,a3,d4]@2 [f#3,a3,d4]@2 ~@5 [f#3,a3,d4]@2 ~@2 [f#3,a3,d4]@2 ~ d3@2 ~@3 [f#3,a3,d4]@2 [f#3,a3,d4]@2, ~ [a3,d4] ~@4 [f#3,a3,d4]!2 ~ [a3,d4] ~ [f#3,a3,d4]@2 [f#3,a3,d4] ~@2, ~@3 d3@8 d3@2 d3@2 d3@4 d3@4 ~@2 d3@2 d3@5]/2", // D D5 D D5 D
  K: "[e3,a3,c#4]@2 ~ [e3,a3,c#4] [e3,a3,c#4]@2 [a3,c#4] [e3,a3,c#4]@2 [e3,a3,c#4]@2 [e3,a3,c#4] [e3,a3,c#4]@2 [e3,a3,c#4] ~", // A
  L: "[c3,g3,b3,e4,g4]@2 ~@2 [b3,e4,g4]@3 [b3,e4,g4]@2 [b3,e4,g4]@2 ~@3 [b3,e4,g4] ~, ~ g4 ~@4 [b3,e4,g4] ~, ~@3 [c3,g3]@8 [c3,g3]@2 [c3,g3]@2 ~", // Cmaj7 Em C5
  M: "[a2,e3,e4]@2 ~@4 [a3,c#4,e4] [a3,c#4,e4]@2 ~@5 [a2,e3] ~, [a3,c#4] ~ e4@2 [a3,c#4,e4]@2 ~@3 [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4]@2 ~, ~@3 [a2,e3]@2 [a2,e3]@5 [a2,e3]@2 [a2,e3]@2 ~@2", // A5 A A5 A A5
  N: "[[e2,g#3,b3], e3@27 ~@101]/8", // E
})).s("gm_acoustic_guitar_nylon").gain(0.34)

// chords · acoustic guitar nylon · "NYLON GTR" · soft notes
const acoustic_guitar_nylon_2 = note(`<
  A ~ B C A ~ B C ~@2 D@2 ~@2 D@2 E F E F A ~ B C A ~ B C A ~ B C ~@2 D@2 ~@2 D@2 E F E F A ~ B C A ~ B C A ~ B C G H@2
  I J K A ~ B C A ~ B C E F E F E F E F A ~ B C A ~ B C A ~ B C A ~ B C ~@8
>`.pickRestart({
  A: "~@2 g#3@2 ~@7 b2@5", B: "a3@2 f#3@2 f#3@2 f#3 ~@5 f#3@2 f#3@2", C: "~@2 f#3@2 ~@2 f#3 ~@9",
  D: "[~@14 f#3@12 [f#3,d4] f#3@2 ~@3]/2", E: "~@2 [g3,b3]@2 b3@2 e4 ~@9", F: "[e2,b2] ~ e3@2 ~@12",
  G: "~@2 [f#3,a3,c#4]@2 a3@2 f#3 ~@5 f#3@2 ~@2", H: "~ f#3 ~@6", I: "~@2 [e3,a3,c#4] ~@3 e3 ~@9", J: "~ [b3,e4] ~@6",
  K: "~ [a3,c#4] ~@6", // A
})).s("gm_acoustic_guitar_nylon").gain(0.17)

// other · drawbar organ · "ORGAN 1"
const drawbar_organ = note(`<
  A B@3 A B@3 ~@8 C@3 D E F G@2 E F G@2 A B@3 H@2 I@2 J@2 K@2 C@3 D E F G@2 E F G@2 A B@3 L ~@3 M@2 E F G@2 E F G@2 C@3
  D C@3 D E F G@2 E F G@2 E F G@2 E F G@2 ~@8
>`.pickRestart({
  A: "~@5 g#4 e4 b3 g#4@3 e4@3 b3@2", B: "[a4@47 ~]/3", C: "[e4,e5] ~@3 [e4,e5] ~@3 [e4,e5] ~@3 [e4,e5] ~@3",
  D: "[e4,e5]@7 ~", E: "[g#3,b3,e4]", F: "[a3,c#4,e4]", G: "[[a3,d4,f#4]@31 ~]/2", H: "b4/2", I: "[a4@6 g#4 f#4]/2",
  J: "e4/2", K: "[[d4,a4]@31 ~]/2", L: "a5 f#5, a4", M: "[[e4,g4] ~, b4@31 ~]/2",
})).s("gm_drawbar_organ").gain(0.31)

// drums · kick
const kick = s("bd").struct("<[x!4]!94 x ~@7>").gain(0.53)

// drums · snare
const snare = s("sd").struct(`<
  A B A B A B A C A B A@9 D A B A B A B A C A B A C A B A@9 D A B A B A B A C A B A@3 B A@3 D A B A B A B A C A B A@3 B
  A D A B A B A B A C A B A B A B A C ~@8
>`.pickRestart({
  A: "~@4 x ~@2 x ~@4 x ~@3", B: "~@4 x ~@2 x ~@4 x!2 ~ x", C: "~@4 x ~@2 x ~@6 x!2", D: "~@4 x ~@7 x!2 ~@2",
})).gain(0.53)

// drums · snare · soft notes
const snare_soft = s("sd").struct(`<
  ~@7 A ~@11 B ~@7 A ~@3 A ~@11 B ~@7 A ~@9 B ~@7 A ~@7 B ~@7 A ~@7 A ~@8
>`.pickRestart({
  A: "~@10 x!4 ~@2", B: "~@6 x!2 ~ x ~ x ~@4",
})).gain(0.12)

// drums · low tom
const low_tom = s("lt").struct("<~@19 A ~@23 A ~@17 A ~@15 A ~@24>".pickRestart({
  A: "~@15 x",
})).gain(0.53)

// drums · hihat
const hihat = s("hh").struct("<A@7 B A@11 C A@7 B A@3 B A@11 C A@7 B A@9 C A@7 B A@7 C A@7 B A@7 B ~@8>".pickRestart({
  A: "x!16", B: "x!7 ~ x!7 ~", C: "x!7 ~ x!8",
})).gain(0.12)

// drums · mid tom
const mid_tom = s("mt").struct("<~@19 A ~@23 A ~@17 A ~@15 A ~@24>".pickRestart({
  A: "~@7 x",
})).gain(0.53)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@7 A ~@11 B ~@7 A ~@3 A ~@11 B ~@7 A ~@9 B ~@7 A ~@7 B ~@7 A ~@7 A C ~@7
>`.pickRestart({
  A: "~@7 x ~@7 x", B: "~@7 x ~@8", C: "x",
})).gain(0.53)

// drums · high tom
const high_tom = s("ht").struct("<~@19 A ~@23 A ~@17 A ~@15 A ~@24>".pickRestart({
  A: "~@3 x",
})).gain(0.53)

// drums · crash
const crash = s("cr").struct(`<
  A ~@7 A ~@11 A ~@3 A ~@3 A ~@3 A ~@11 A ~@3 A ~@3 A ~@3 A ~@5 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@7
>`.pickRestart({
  A: "x",
})).gain(0.53)

// drums · ride
const ride = s("rd").struct("<~@94 x ~@7>").gain(0.53)

stack(
  bass, piano, electric_guitar_jazz, acoustic_guitar_nylon, acoustic_guitar_nylon_2, drawbar_organ, kick, snare,
  snare_soft, low_tom, hihat, mid_tom, open_hat, high_tom, crash, ride
)