// Love Me Do — The Beatles
// 205 bpm, 12/8, key G major. Source: mcgill + midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 87 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(205/6)

// 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 · "Bass"
const bass = note(`<
  ~ A B A B A B A C A B A D A E F G H A D C G A D C B C G F@2 I A J A K L@2 M C L@2 M N A D A J C E O E I C P A Q L@2 M
  C L@2 M R S T A U C V A W C X F O I A B C Y Z AA C AB AC ~
>`.pickRestart({
  A: "g1 d2", B: "c2@5 ~ c2@6", C: "g1@12 d2@11 ~", D: "c2@11 ~ c2@12", E: "c2@3 ~ c2@3 ~", F: "c2@11 ~ c2@10 ~@2",
  G: "c2@5 ~ c2@5 ~", H: "c2 ~@7", I: "c2 ~@5", J: "c2@10 ~@2 c2@11 ~", K: "g2@4 ~@2 g2@6 f#2@6 e2@5 ~", L: "d2 a1",
  M: "c2@6 g1@5 ~", N: "g1@3 ~@3 d2@3 ~@3 g1@4 ~@8", O: "c2@10 ~@2 c2@9 ~@3", P: "c2@9 ~@3 c2@11 ~",
  Q: "g2@5 ~ g2@6 f#2@5 ~ e2@5 ~", R: "g1@6 d2@5 ~ g1@6 ~@6", S: "g1@11 ~ d2@11 ~", T: "g1@11 ~ d2@12",
  U: "g1@4 ~@8 d2@9 ~@3", V: "c2@3 ~ c2@4", W: "c2@2 ~ c2@2 ~", X: "c2@9 ~@3 c2@8 ~@4", Y: "c2@9 ~@3 c2@10 ~@2",
  Z: "g1@6 d2@5 ~", AA: "c2@2 ~ c2@3", AB: "c2@8 ~@4 c2@11 ~", AC: "g1 ~@5",
})).s("gm_acoustic_bass").gain(0.39)

// chords · acoustic guitar steel · "Acoustic Gtr."
const acoustic_guitar_steel = note(`<
  ~ A B C D C E F@3 G H I J K L@2 M N G O P J G Q G R K S@2 M T U V@2 W@2 X Y Z@2 AA AB AC G AD G AE AF@3 M C AG AH@2
  AI@2 X Y AJ@2 AK AL AM@3 AN N G AO AP N K AQ@2 M N E AR AS@2 G N AT@3
>`.pickRestart({
  A: "~@9 [g2,b3,d4]@2 g3, g2@2 g2 ~, ~@2 g3@3 g3@3 g3@3 ~, ~ [b3,d4]@2 ~", // G Bm
  B: "~@3 [a#3,c4,e4]@2 c3 ~@3 c3@2 [c3,g3], c3@5 g3@3 g3@3 ~, ~@2 g3@3 [a#3,c4,e4]@4 [a#3,c4,e4]@3, ~@2 c3 ~", // C7 C5 C7
  C: "~@5 g2 ~@5 [g2,g3], g2@5 ~ g2@5 ~, ~@2 g3@3 g3@3 g3@3 ~, ~ [b3,d4]@2 [b3,d4]", // G Bm
  D: "~@5 c3 ~@5 c3, c3@5 ~ c3@5 ~, ~@2 g3@3 g3@3 g3@4, ~ [a#3,c4,e4]@2 [a#3,c4,e4]", // C7
  E: "~@5 c3 ~@5 [c3,g3], c3@5 ~ c3@5 ~, ~@2 g3@3 g3@3 g3@3 ~, ~ [a#3,c4,e4]@2 [a#3,c4,e4]", // C5 C7
  F: "[~@5 g2 ~@5 g2 ~@5 g2 ~@8 g3 ~@3 g2@2 ~@3 g3, g2@5 ~ g2@5 ~ g2@5 ~ g2@6 g2@6 ~@2 g2@4, ~@2 g3@3 g3@3 g3@3 g3@3 g3@3 g3@3 g3@3 g3@3 ~@3 g3@6 ~, ~@3 [b3,d4]@6 [b3,d4]@6 [b3,d4]@6 [b3,d4]@5 ~ [b3,d4]@6 [b3,d4]@3]/3", // Bm
  G: "~@3 [a#3,c4,e4]@2 c3 ~@5 [c3,g3], c3@5 g3@3 g3@3 ~, ~@2 g3@3 [a#3,c4,e4]@4 [a#3,c4,e4]@3, ~@6 c3@5 ~", // C7 C5 C7
  H: "~@2 g3 ~@3 g2@2 ~@3 g3, g2@3 ~ g2@2, ~ [b3,d4]@2 [b3,d4], ~@5 g3@6 ~", // Bm
  I: "~@3 [a#3,c4,e4]@2 c3 ~@5 c3, c3@5 g3@3 g3@4, ~@2 g3@3 [a#3,c4,e4]@4 [a#3,c4,e4]@3, ~@6 c3@5 ~", // C7
  J: "~@6 g2@2 ~@3 g3, g2@3 ~ g2@2, ~@2 g3@3 g3@6 ~, ~ [b3,d4]@2 [b3,d4]", // Bm
  K: "~@3 [a#3,c4,e4]@2 c3 ~@5 g3, c3@5 g3@3 g3@3 ~, ~@2 g3@3 [a#3,c4,e4]@4 [a#3,c4,e4]@3, ~ c3", // C7
  L: "[~@5 c3 ~@6 c3@2 ~@9 a#3, c3@5 ~ c3@6 ~@2 c3@6 c3@4, ~@2 g3@3 g3@3 g3@3 g3@4 g3@6 g3@3, ~@3 [a#3,c4,e4]@6 [a#3,c4,e4]@8 [c4,e4]@7, ~@17 a#3@6 ~]/2", // C7 C
  M: "[c3,g3,a#3,c4,e4] ~@7", N: "~@11 [g2,g3], g2@6 g2@5 ~, ~@2 g3@3 g3@3 g3@3 ~, ~ [b3,d4]@2 [b3,d4]",
  O: "~@2 g3 ~@3 g2@2 ~@3 [g2,g3], g2@6 ~@2 g2@3 ~, ~ [b3,d4]@2 [b3,d4], ~@5 g3@6 ~", // G Bm
  P: "~@5 c3@3 ~@3 [c3,g3], c3@5 ~@3 c3@3 ~, ~@2 g3@3 g3@6 ~, ~ [a#3,c4,e4]@2 [a#3,c4,e4]", // C5 C7
  Q: "~@9 g2@2 [g2,g3], g2@2 g2 ~, ~@2 g3@3 g3@3 g3@3 ~, ~ [b3,d4]@2 [b3,d4]", // G Bm
  R: "~@11 g3, g2@2 g2 [g2,b3,d4], ~@2 g3@3 g3@3 g3@3 ~, ~ [b3,d4]@2 ~", // G Bm
  S: "[~@5 c3 ~@17 g3, c3@5 ~ c3@6 c3@6 c3@6, ~@2 g3@3 g3@3 g3@3 g3@2 ~ g3@3 g3@3 g3@3 ~, ~ [a#3,c4,e4]@2 [a#3,c4]@2 [a#3,c4,e4]@2 [a#3,c4,e4], ~@18 e4@7 ~@23]/2", // C7 A#sus2 C7
  T: "~@2 g3 ~@8 g3, g2!2, ~ [b3,d4]@2 [b3,d4], ~@5 g3@3 g3@3 ~", // Bm
  U: "~@3 [a#3,c4,e4]@2 c3 ~@5 [c3,g3], c3@5 [g3,c4]@3 c4@4, ~@2 g3@3 [a#3,e4]@4 [a#3,e4]@3, ~@6 c3@5 ~, ~@8 g3@3 ~", // C7 C5 A#dim
  V: "[~@2 g3 g3@2 g2 ~@6 g2@2 ~@3 g2 ~@5 [g2,g3], g2@5 g3@3 g3@3 g3@4 g3@5 g3@3 ~, ~ [b3,d4]@2 [b3,d4]@2 [b3,d4]@2 [b3,d4], ~@6 g2@6 ~@2 g2@3 ~ g2@5 ~]/2", // G Bm
  W: "[~@6 d3@2 ~ f#3@2 ~@6 d3 ~@2 f#3 f#3@2 [d3,f#3], d3@6 ~@2 d3@4 d3@5 ~ d3@5 ~, ~@2 f#3@3 f#3@4 ~@2 f#3@3 f#3@6 ~@4, ~@3 [a3,d4]@6 [a3,d4]@5 ~ [a3,d4]@6 [a3,d4]@3]/2", // D D5
  X: "~@5 c3 ~@5 [c3,g3], c3@5 ~ c3@5 ~, ~@2 g3@6 g3@3 ~, ~ [a#3,c4,e4]@2 [a#3,c4,e4]", // C5 C7
  Y: "~@3 [b3,d4]@2 g2 ~@5 [g2,g3], g2@5 g3@3 g3@3 ~, ~@2 g3@3 [b3,d4]@4 [b3,d4]@3, ~@6 g2@5 ~", // Bm G Bm
  Z: "[~@6 d3@2 ~@4 d3@2 ~@9 [d3,a3,d4], d3@6 ~@2 d3@4 ~@2 d3@6 d3@3 ~, ~@2 f#3@3 f#3@4 f#3@6 f#3@6 f#3@3, ~@3 [a3,d4]@8 [a3,d4]@6 [a3,d4]@6 ~]/2", // D5
  AA: "~@5 c3 ~@5 [c3,g3], c3@5 ~ c3@5 ~, ~@2 g3@6 g3@3 ~, ~ [c4,e4]@2 [c4,e4]", // C5 C
  AB: "[g2,g3,b3,d4]@2 [g2,g3,b3,d4]@2 [g2,g3,b3,d4] ~@3", // G
  AC: "~@3 g3@2 ~@6 [g2,g3], g2@6 g2@5 ~, ~ [b3,d4]@2 [b3,d4], ~@5 g3@3 g3@3 ~", // G Bm
  AD: "~@11 [g2,g3], g2@6 g2@5 ~, ~@2 g3@2 ~ g3@3 g3@3 ~, ~ [b3,d4]@2 [b3,d4]", // G Bm
  AE: "~@6 g2@2 ~ g3@2 [g2,g3], g2@6 ~@2 g2@3 ~, ~@2 g3@3 g3@4 ~@3, ~ [b3,d4]@2 [b3,d4]", // G Bm
  AF: "[~@3 [a#3,c4,e4]@2 c3 ~@5 c3 ~@5 c3 ~@11 c3 ~@5 g3, c3@5 [c4,e4]@4 [c4,e4]@4 ~@23, ~@2 g3@3 a#3@8 ~@2 [a#3,c4,e4]@6 [a#3,c4,e4]@6 [a#3,c4,e4]@6 [a#3,c4,e4]@3, ~@5 g3@3 g3@3 g3@2 ~ g3@3 g3@3 g3@3 g3@3 g3@6 g3@3 ~, ~@6 c3@5 ~ c3@5 ~ c3@6 c3@5 ~ c3@6]/3", // C7 C C7
  AG: "~@3 [a#3,c4]@2 c3 ~@5 [c3,g3], c3@5 g3@3 g3@3 ~, ~@2 g3@3 [a#3,c4]@4 [a#3,c4,e4]@3, ~ e4@2 ~, ~@6 c3@5 ~", // A#sus2 C5 A#sus2 C7
  AH: "[~@5 g2 ~@6 g2@2 ~@4 g2@2 ~@3 [b3,d4], g2@5 ~ g2@6 ~@2 g2@4 ~@2 g2@4, ~@2 g3@3 g3@3 g3@3 g3@4 g3@6 g3@3, ~@3 [b3,d4]@6 [b3,d4]@8 [b3,d4]@6 ~]/2", // Bm
  AI: "[~@6 d3@2 ~@4 d3@2 ~ f#3@2 ~ d3@2 ~ f#3@2 [f#3,a3,d4], d3@3 ~ d3@2 ~ d3@2 ~ d3@2, ~@2 f#3@3 f#3@4 f#3@6 ~@2 f#3@4 ~@3, ~@3 [a3,d4]@8 [a3,d4]@6 [a3,d4]@6 ~]/2", // D D5
  AJ: "[~@5 d3 ~@2 f#3 f#3@2 ~@3 f#3 [f#3,a3,d4]@2 d3 ~@5 [d3,f#3], d3@5 ~ d3@6 d3@5 ~ d3@5 ~, ~@2 f#3@3 f#3@3 ~@3 f#3@3 ~@3 f#3@3 f#3@3 ~, ~@3 [a3,d4]@6 [a3,d4]@6 ~@2 [a3,d4]@4 [a3,d4]@3]/2", // D D5
  AK: "~@6 c3@2 ~ g3@2 [c3,g3], c3@6 ~@2 c3@3 ~, ~@2 g3@3 g3@4 ~@3, ~ [a#3,c4,e4]@2 [a#3,c4,e4]", // C5 C7
  AL: "~@10 g2@2 g2@5 ~@7, g2@5 ~@7, ~ g3@3 ~@2, ~@3 [b3,d4]@5 ~@4", // Bm
  AM: "[~@6 g2@2 ~@3 g2 ~@5 g2 ~@2 g3 ~@3 g2@2 ~@3 g2 ~@5 g3, g2@12 ~@4 g2@6 ~@2 g2@10 ~@2 g2@9 ~@7 g2@4 ~@4 g2@12, ~@2 g3@3 g3@4 g3@5 g3@6 ~@3 g3@4 g3@5 g3@3 ~, ~ [b3,d4]@2 [b3,d4]@2 [b3,d4]@2 [b3,d4]@2 [b3,d4]@2 [b3,d4]]/3", // Bm
  AN: "[g2,g3,b3,d4]@3 ~@9 [d3,f#3,a3,d4]@7 ~@5", // G D
  AO: "~@2 g3 ~@8 [g2,g3], g2@6 g2@5 ~, ~ [b3,d4]@2 [b3,d4], ~@5 g3@3 g3@3 ~", // G Bm
  AP: "~@3 [a#3,c4,e4]@2 c3 ~@3 [a#3,c4,e4]@2 c3, c3@5 g3@3 g3@3 ~, ~@2 g3@3 [a#3,c4,e4]@4 ~@3, ~@6 c3@5 ~", // C7
  AQ: "[~@5 c3 ~@5 g3@3 ~@9 g3, c3@5 ~ c3@5 c3@7 c3@6, ~@2 g3@3 g3@3 g3@3 ~@3 g3@3 g3@3 g3@3 ~, ~ [a#3,c4,e4]@2 [a#3,c4,e4]@2 [a#3,c4,e4]@2 [a#3,c4,e4]]/2", // C7
  AR: "~@5 g3@3 ~@3 [g2,g3], g2@5 g2@6 ~, ~@2 g3@3 ~@3 g3@3 ~, ~ [b3,d4]@2 [b3,d4]", // G Bm
  AS: "[~@3 a#3@2 c3 ~@17 [g2,g3], c3@5 g3@3 g3@3 g3@2 ~ g3@3 g3@3 g3@3 ~, ~@2 g3@3 a#3@4 [a#3,c4,e4]@4 ~@2 [b3,d4]@6 [b3,d4]@3, ~@3 [c4,e4]@6 ~@3 g2@6 g2@5 ~, ~@6 c3@7 ~@11]/2", // G C7 Bm C
  AT: "[~@5 c3 ~@5 g3 [g2,g3,b3,d4]@24, c3@5 ~ c3@5 c3@24 ~, ~@2 g3@6 g3@3 ~@25, ~ [a#3,c4,e4]@2 [a#3,c4,e4]@8 ~]/3", // G C7
})).s("gm_acoustic_guitar_steel").gain(0.38)

// drums · kick
const kick = s("bassdrum1:6").struct(`<
  ~ A B A B A B A B A B A B A B@3 C A B A B A B A B A B@3 C A B A B@8 D A B A B A B@3 C A B A B@8 D A B A B A B A B A
  B@3 C A B A B A B A B C ~
>`.pickRestart({
  A: "x ~@5 x ~@4 x", B: "x!2", C: "x", D: "x!3 ~",
})).gain(0.49)

// drums · snare
const snare = s("snare_modern:14").struct(`<
  ~ A B A B A B A B A B A B A B A@2 ~ A B A B A B A B A B A@2 ~ A B A B A@7 C A B A B A B A@2 ~ A B A B A@7 C A B A ~ A
  B A B A B A@2 ~ A B A B A B A B ~@2
>`.pickRestart({
  A: "~ x ~ x", B: "~@3 x ~ x ~@3 x ~@2", C: "~ x!2 ~",
})).gain(0.66)

// drums · clap
const clap = s("cp").struct(`<
  ~@2 A ~ A ~ A ~ A ~ A ~ A ~ A ~@4 A ~ A ~ A ~ A ~ A ~@4 A ~ A B@7 C ~ A ~ A ~ A ~@4 A ~ A B@7 C ~ A ~@3 A ~ A ~ A ~@4
  A ~ A ~ A ~ A ~@2
>`.pickRestart({
  A: "~@3 x ~ x ~@6", B: "~ x ~ x", C: "~ x!2 ~",
})).gain(0.44)

// drums · hihat
const hihat = s("hihat:8").struct("<[x!4] ~@86>").gain(0.35)

// drums · pedal hat
const pedal_hat = s("hihat:0").struct("<~ A@16 B A@12 B A@11 C A@8 B A@11 C A@3 B A@8 B A@8 B ~>".pickRestart({
  A: "x!4", B: "x", C: "x!3 ~",
})).gain(0.35)

// drums · crash
const crash = s("sus_cymbal2:9").struct("<~@67 [~ x] ~@19>").gain(0.35)

// drums · tambourine
const tambourine = s("tb").struct(`<
  ~ A B A B A B A B A B A B A B A@2 ~ A B A B A B A B A B A@2 ~ A B A B A@7 C A B A B A B A@2 ~ A B A B A@7 C A B A ~ A
  B A B A B A@2 ~ A B A B A B A B ~@2
>`.pickRestart({
  A: "~ x ~ x", B: "~@3 x ~ x ~@3 x ~@2", C: "~ x!2 ~",
})).gain(0.44)

stack(bass, acoustic_guitar_steel, kick, snare, clap, hihat, pedal_hat, crash, tambourine)