// 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: 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 Z
  O T AA AB AC AD AE AF F C M E F C H J F C X@2 K C D E B C D L D AG AH L M AG AI C M AG AI G AJ ~
>`.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@5 ~ c2 ~ c2@5 ~ c2 ~", AA: "c2@6 ~ c2 c2@5 ~ g1 c2", AB: "a1@4 ~@3 a1 a1@5 ~@2 b1",
  AC: "d2@6 ~ d2 d2@5 ~ f2 d2", AD: "g2@5 ~@2 d2 g2@6 ~ e2", AE: "c2@4 ~@3 c2 c2@5 ~@2 e2",
  AF: "d2@6 ~ a2 g2@5 ~ g1 g2", AG: "b1@4 ~@2 b1 ~ b1@5 ~ b1 ~", AH: "e2@6 b1@2 e2 ~ e2@2 ~@2 e2 ~",
  AI: "e2@4 ~@2 e2 ~ e2@5 ~ e2 ~", AJ: "d2 ~@3",
})).s("gm_electric_bass_finger").gain(0.3)

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