// Take Good Care of My Baby — The Beatles
// 140 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 106 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): GUITAR.
setcpm(140/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, A@4 for four bars: edit a riff to change every repeat.

// bass · electric bass finger · "BASS"
const bass = note(`<
  ~@7 A B C D E F G H A F C I@2 B C D J K L M E B C D E F L I@2 F N F@2 O P Q R S T U V F C D A F L H A F C W X B N Y F
  O T Z AA AB AC AD AE F C M E F C H J F C X@2 K C D E B C D L D AF AG L M AF AH C M AF AH G AI ~
>`.pickRestart({
  A: "g2@6 g2 ~ g2 ~ g2@3 ~ g2 ~", B: "c2@6 c2 ~ c2 ~ c2@3 ~ c2 ~", C: "a1@4 ~@2 a1 ~ a1@5 ~ a1 ~",
  D: "d2@4 ~@2 d2 ~ d2@5 ~ d2 ~", E: "g2@4 ~@2 g2 ~ g2@5 ~ g2 ~", F: "c2@4 ~@2 c2 ~ c2@5 ~ c2 ~",
  G: "a1@6 e1@2 a1 ~ a1@2 ~@2 a1 ~", H: "d2@6 d2 ~ d2 ~ d2@3 ~ d2 ~", I: "f2@4 ~@2 f2 ~ f2@5 ~ f2 ~",
  J: "g2@6 d2@2 g2 ~ g2@2 ~@2 g2 ~", K: "c2@6 g1@2 c2 ~ c2@2 ~@2 c2 ~", L: "a1@6 a1 ~ a1 ~ a1@3 ~ a1 ~",
  M: "d2@6 a1@2 d2 ~ d2@2 ~@2 d2 ~", N: "f2@5 ~ f2 ~ g2@5 ~ g2 ~", O: "d2@5 ~@2 a1 d2@6 ~ d2",
  P: "g2@5 ~@2 d2 g2@6 ~ g1", Q: "c2@5 ~@2 g1 c2@6 ~ b1", R: "a1@6 ~ a1 a1@5 ~ c2 a1", S: "d2@4 ~@3 d2 d2@5 ~@2 e2",
  T: "g2@4 ~@3 g2 g2@5 ~@2 d2", U: "c2@6 ~ c2 c2@5 ~ c#2 c2", V: "d2@6 ~ d2 g2@5 ~ g2!2",
  W: "f2@6 f2 ~ f2 ~ f2@3 ~ f2 ~", X: "f2@6 c2@2 f2 ~ f2@2 ~@2 f2 ~", Y: "c2@5 ~ c2 ~ c2@7 ~",
  Z: "c2@6 ~ c2 c2@5 ~ g1 c2", AA: "a1@4 ~@3 a1 a1@5 ~@2 b1", AB: "d2@6 ~ d2 d2@5 ~ f2 d2", AC: "g2@5 ~@2 d2 g2@6 ~ e2",
  AD: "c2@4 ~@3 c2 c2@5 ~@2 e2", AE: "d2@6 ~ a2 g2@5 ~ g1 g2", AF: "b1@4 ~@2 b1 ~ b1@5 ~ b1 ~",
  AG: "e2@6 b1@2 e2 ~ e2@2 ~@2 e2 ~", AH: "e2@4 ~@2 e2 ~ e2@5 ~ e2 ~", AI: "d2 ~@3",
})).s("gm_electric_bass_finger").gain(0.3)

// chords · electric guitar clean · "GUITAR"
const electric_guitar_clean = note(`<
  ~ A B C D A E F G H I J K L M N O P Q R S L T J U V W X U Y M Z AA V AB AC AD AE AF@2 W AG U AH AI AJ AA AK AL AM AN
  AO S V M AO AA AH AP AQ AR AS AT@2 AU N K AV M N S AW AX AY W N AX AM W AZ BA AV BB BC K BD M Z O BD BE BF BG BH BI BJ
  BK BL BM BN BO BP BQ BR BS@2
>`.pickRestart({
  A: "[a2,a3,c4,e4]@15 ~", B: "[d3,d4,f4,a4]", C: "[g2,g3,b3,d4]", D: "[c3,c4,e4,g4]@15 ~",
  E: "[d3,d4,f4,a4]@8 ~@4 f4@2 a4 b3, d2@7 ~, ~@5 d4@2 ~", F: "d4@5 d4 b3 g3, [g2,g3,b3]@3 ~", G: "[g3,c4,e4]@6 e4 ~",
  H: "[a3,c4,e4]@7 a3@2 ~@3 c4@2 e4 ~, a2@7 ~, ~@7 e4@7 ~@2, ~@7 c4@5 ~@4, ~@5 a3@2 ~", I: "~@5 a4 ~@2, [a3,d4,f4]@3 ~",
  J: "[g3,b3,d4]@7 ~", K: "~@5 g4 ~ c4, [g3,c4,e4]@3 ~", L: "[a3,c4,e4]@9 ~ a2@2 [a3,c4,e4]@3 ~",
  M: "~@5 a4 ~ d4, [a3,d4,f4]@3 ~", N: "g2@8 ~@2 g3@4 b3 ~, [b3,d4]@15 ~, g3@5 ~@3, ~@8 g2@7 ~",
  O: "~@10 c4@4 e4 ~, [e4,g4]@15 ~, c4@5 ~@3, c3!2, ~@6 c2@9 ~", P: "[a3,c4,e4]@7 ~",
  Q: "[a3,c4,f4]@3 ~@2 a4@3, ~@3 f3@5, ~ f4", R: "[g#3,c4,f4]@7 ~", S: "[g3,c4,e4]@7 ~", T: "[a3,d4,f4]@12 d4 ~ a4 ~",
  U: "[g3,c4,e4]@3 ~@4 c5, ~@3 c3@5, ~ c4, ~@5 e4@3", V: "a2@8 ~@2 a3@4 c4 ~, [c4,e4]@15 ~, a3@5 ~@3, ~@8 a2@7 ~",
  W: "[a3,d4,f4]@9 ~ d3@2 [a3,d4,f4]@3 ~", X: "[g3,b3,d4]@12 g3 b3 ~ g4", Y: "[a3,c4,e4]@12 a3 c4 ~ a4",
  Z: "[g3,b3,d4]@6 ~@6 d4@3 ~, ~@3 g2@5, ~ g3, ~@5 b3@3", AA: "[g3,c4,e4]@9 ~ c3@2 [g3,c4,e4]@3 ~",
  AB: "~@5 c5 ~ f4, [a3,c4,f4]@3 ~", AC: "[f4,g#4,c5]@7 f4@2 ~ f4@4 c5 ~, f2@7 ~, ~@7 [g#4,c5]@7 ~@2",
  AD: "[c4,e4,g4]@7 c4@2 ~@3 e4@2 g4 ~, c2@7 ~, ~@7 g4@7 ~@2, ~@7 e4@5 ~@4, ~@5 c4@2 ~", // C
  AE: "[a3,c4,f4]@6 a4 ~ [g3,b3,d4]@8", // F G
  AF: "[~@6 c4@4 c4@2 ~@2 e4@2 c4@6 c4@2 c4@3 ~@3 e4 g4, [c4,e4,g4]@6 g4@10 g4@8 g4@7 ~, ~ c3@7, ~@3 e4@4 ~ e4@6 c4@2, ~@12 c4@4 ~@11 g3@5]/2", // C
  AG: "[g4,b4,d5]@7 g4@2 ~@3 b4@2 ~@2, g2@7 ~, ~@7 d5@8 ~, ~@7 b4@5 ~@4, ~@5 g4@2 ~", AH: "[a3,c4,e4]@12 a3 c4 ~@2",
  AI: "[d4,f4,a4]@7 d4@2 ~@3 f4@2 ~@2, d2@7 ~, ~@7 a4@8 ~, ~@7 f4@5 ~@4, ~@5 d4@2 ~", // Dm
  AJ: "[g3,b3,d4]@3 ~@3 d4 g4, ~@3 g2@5, ~ g3, ~@5 b3@3", // G
  AK: "[a3,d4,f4]@2 ~@2 [a3,d4,f4]@2 ~@2 [g3,b3,d4]@6 b3 d4, ~ d3@2 ~@5", AL: "[g3,c4,e4]@3 ~@2 e4@3, ~@3 c3@5, ~ c4",
  AM: "[a3,c4,e4]@7 a3@2 ~@3 c4@2 ~@2, a2@7 ~, ~@7 e4@8 ~, ~@7 c4@5 ~@4, ~@5 a3@2 ~", AN: "[a3,d4,f4]@12 d4 ~@3",
  AO: "[g3,b3,d4]@12 g3 b3 d4 ~", AP: "[a3,c4,f4]@12 f4 ~@2 f5",
  AQ: "[f4,g#4,c5]@7 f4@2 ~@3 g#4@2 c5 ~, f2@7 ~, ~@7 c5@7 ~@2, ~@7 g#4@5 ~@4, ~@5 f4@2 ~", // Fm
  AR: "[c4,e4,g4]@7 c4@2 ~ c4@4 g4 ~, c2@7 ~, ~@7 [e4,g4]@7 ~@2", AS: "[a3,c4,f4]@8 [g3,b3,d4]@6 b3 d4",
  AT: "[~@12 c4@3 ~ c4@6 ~@2 c5@3 ~ c5@3 c4, [e4,g4,c5]@16 ~@6 c4@5 c4@4 ~, c4@12 ~@3 c5@9 [e4,g4]@7 ~, ~@3 c3@13]/2", // C Em
  AU: "[a3,d4,f4]@7 ~", AV: "e4@5 e4 c4 a3, [a3,c4]@3 ~", AW: "[a3,d4,f4]@4 [g3,b3,d4] ~ [g3,b3,d4] ~, ~@5 g2@2 ~",
  AX: "[c4,e4,g4]@7 c4@2 ~@3 e4@2 ~@2, c2@7 ~, ~@7 g4@8 ~, ~@7 e4@5 ~@4, ~@5 c4@2 ~", AY: "[a3,c4,e4]@12 a3 ~@3",
  AZ: "[g4,b4,d5]@7 g4@2 ~ g4@4 d5 ~, g2@7 ~, ~@7 [b4,d5]@7 ~@2", BA: "[g3,c4,e4]@12 c4 ~@2 c5",
  BB: "[a3,c4,f4]@9 ~ f3@2 [a3,c4,f4]@3 ~", BC: "[g#3,c4,f4]@9 ~ f3@2 [g#3,c4,f4]@3 ~",
  BD: "[a3,c4,e4]@3 ~@4 a4, ~@3 a2@5, ~ a3, ~@5 c4@3", BE: "[a3,d4,f#4]@3 ~@4 d5, ~@3 d3@5, ~ d4, ~@5 f#4@3",
  BF: "[a3,c#4,e4]@9 ~ a2@2 [a3,c#4,e4]@3 ~", BG: "[d4,f#4,a4]@7 d4@2 ~ d4@4 a4 ~, d2@7 ~, ~@7 [f#4,a4]@7 ~@2",
  BH: "[f#3,b3,d4]@7 ~", BI: "[g3,b3,e4]@9 ~ e3@2 [g3,b3,e4]@3 ~",
  BJ: "a2@8 ~@2 a3@4 c#4 ~, [c#4,e4]@15 ~, a3@5 ~@3, ~@8 a2@7 ~", BK: "[a3,d4,f#4]@7 ~", BL: "[f#3,b3,d4]@12 b3 d4 ~@2",
  BM: "~@5 b4 ~ e4, [g3,b3,e4]@3 ~", // Em
  BN: "[a3,c#4,e4]@7 a3@2 ~@3 c#4@2 ~@2, a2@7 ~, ~@7 e4@8 ~, ~@7 c#4@5 ~@4, ~@5 a3@2 ~", // A
  BO: "~@5 a4 ~ d4, [a3,d4,f#4]@3 ~", BP: "~@5 f#4 d4 b3, [f#3,b3,d4]@3 ~", BQ: "[g3,b3,e4]@3 ~@2 g4@3, ~@3 e3@5, ~ e4",
  BR: "[a3,c#4,e4]@7 ~", BS: "[[f#3,d4,a4]@21 ~@11]/2",
})).s("gm_electric_guitar_clean").gain(0.31)

// chords · electric guitar clean · "GUITAR"
const electric_guitar_clean_2 = note(`<
  A@3 ~@12 B@2 ~@4 C@2 ~@4 D@2 ~@8 E@3 ~@7 F ~@13 G H@2 ~@7 I ~@7 J@2 ~@5 K ~ L M@4 ~@13
>`.pickRestart({
  A: "[[c3,g3,c4,e4,g4]@15 [a2,e3,a3,c4,e4]@16 [d3,a3,d4,f4,a4]@16 ~]/3", B: "[~@15 [c3,g3,e4]@16 ~]/2",
  C: "[~@16 c4@15 ~, ~@15 [f3,a3]@16 ~]/2", D: "[~@15 e4@17]/2", E: "[~@15 [c4,e4,g4]@32 ~]/3",
  F: "[g4,a#4,b4,c5] ~@15", G: "[d3,d4] ~", H: "[~@15 [e4,g4]@16 ~]/2", I: "c4@7 [g3,b3]@4 ~@5, ~@7 d4@8 ~",
  J: "[~@15 [e4,g4]@11 ~@6]/2", K: "c4@15 ~", L: "~ [c3,c4] ~ [b2,b3]",
  M: "[~@4 [a2,a3]@4 ~@12 [d3,d4]@4 ~@4 [c#3,c#4]@4 ~@4 [b2,b3]@4 [b2,b3]@23 ~, [b2,b3]@3 [b2,b3]@6 ~@7]/4", // A D C# B
})).s("gm_electric_guitar_clean").gain(0.41)

// drums · kick
const kick = s("bd").struct(`<
  ~@6 A B C D C D C D C@5 D C D C@7 D C@5 D C D C@2 E F E F E F E G C D C D C@3 D C@8 E F E F E F E C@2 D C@3 D C D C@7
  B C D C G C@3 G C@3 H C@3 D I ~
>`.pickRestart({
  A: "~@7 x", B: "x ~@4 x ~@5 x ~@4", C: "x ~@2 x!2 ~@2 x", D: "x ~@2 x!3 ~ x", E: "x ~@6 x!2 ~@5 x ~",
  F: "x ~@6 x!2 ~ x ~@3 x ~", G: "x ~@6 x ~@3 x ~@4", H: "x ~@2 x ~@4", I: "x",
})).gain(0.31)

// drums · rim
const rim = s("rim").struct("<~@8 A@15 B A@15 B ~@8 A@15 B ~@7 B A@15 ~ A@3 ~ A@3 ~ A@3 ~ A@4 ~@2>".pickRestart({
  A: "~ x ~ x", B: "~ x ~@2",
})).gain(0.41)

// drums · snare
const snare = s("sd").struct("<~@7 A ~@15 B ~@15 C D@7 E ~@15 F D@7 F ~@15 A ~@3 E ~@3 E ~@3 G ~@6>".pickRestart({
  A: "~ x ~@2", B: "~@10 x ~ x ~ x!2", C: "~@10 x ~ x!2 ~@2", D: "~ x ~ x", E: "~ x!3", F: "~@10 x!3 ~@3",
  G: "~@4 x!2 ~@2 x ~@3 x ~@3",
})).gain(0.41)

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@7 A ~@39 B ~@17 C@2 ~@20 A ~@3 B ~@3 B ~@3 D ~@6>".pickRestart({
  A: "~@3 x ~@5 x ~@6", B: "~@9 x ~@3 x ~@2", C: "~@7 x ~@8", D: "~@3 x ~@3 x ~@3 x ~ x ~@2",
})).gain(0.2)

// drums · low tom
const low_tom = s("lt").struct("<~@7 A ~@39 B ~@39 A ~@3 B ~@3 B ~@3 B ~@6>".pickRestart({
  A: "~@6 x!2", B: "~@7 x",
})).gain(0.46)

// drums · hihat
const hihat = s("hh").struct(`<
  ~@6 A ~ B C B@11 D B@5 D B C B@3 D B C B D B@2 E F G F G F E H B C B C B@3 D B@8 E I F@2 E F G B@6 C B C B@9 C B H B@3
  H B@7 C J ~
>`.pickRestart({
  A: "~@7 x", B: "x!8", C: "x ~ x ~ x ~ x ~ x ~ x ~ x ~ x!2", D: "x ~ x ~ x ~ x!3 ~ x ~ x ~ x ~",
  E: "x ~ x!3 ~ x!3 ~ x!3 ~ x!2", F: "x ~ x!3 ~ x ~ x ~ x!3 ~ x!2", G: "x ~ x!3 ~ x!3 ~ x ~ x ~ x!2",
  H: "x ~ x!3 ~ x ~ x ~ x ~ x ~ x ~", I: "x ~ x!3 ~ x ~ x ~ x!3 ~ x ~", J: "x!4 ~@4",
})).gain(0.36)

// drums · mid tom
const mid_tom = s("mt").struct("<~@7 [~@5 x ~@2] ~@79 [~@5 x ~@2] ~@11 [~@9 x ~@6] ~@6>").gain(0.41)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@11 A ~@3 A ~ A ~ A ~@13 A ~@3 A ~ B ~ C D C E C ~ F ~@7 A ~@3 C ~@3 B ~ A ~ C ~ C E B ~ A ~ G ~@15 F ~@3 F ~@10
>`.pickRestart({
  A: "~@15 x", B: "~@7 x", C: "~@7 x ~@8", D: "~@5 x ~@2", E: "~@11 x ~@4", F: "~ x ~@2", G: "~@7 x ~@7 x",
})).gain(0.31)

// drums · high tom
const high_tom = s("ht").struct("<~@7 [~@3 x ~@4] ~@79 [~@3 x ~@4] ~@18>").gain(0.41)

// drums · crash
const crash = s("cr").struct(`<
  ~@8 A ~@14 B A ~@15 A ~@7 A ~@15 A ~@7 A ~@15 A ~ A ~ A ~@3 A ~@3 A ~@3 A ~
>`.pickRestart({
  A: "x", B: "~@15 x",
})).gain(0.41)

// drums · ride
const ride = s("rd").struct("<~@8 A@28 B C A@10 D A@43 B@2 A@10 ~@2>".pickRestart({
  A: "~@2 x!2 ~@2 x ~", B: "~@2 x!2 ~@2 x!2", C: "~@2 x ~@3 x!2", D: "~@3 x ~@2 x ~",
})).gain(0.41)

stack(
  bass, electric_guitar_clean, electric_guitar_clean_2, kick, rim, snare, snare_soft, low_tom, hihat, mid_tom, open_hat,
  high_tom, crash, ride
)