// Tell Me Why — The Beatles
// 152 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 82 bars on a 24-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 program 25.
setcpm(152/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 · slap bass 2
const bass = note(`<
  ~ A B C D E F G H I J E F G H I J K L M N K L M N E F G H I J E F G H I J K L M N K L M N E F G H I J E F G H O P Q@2
  R@2 S@2 T U V J E F G H I J E F G H W X Y Z ~
>`.pickRestart({
  A: "e2@2 ~ a2@3 ~@2", B: "e2@5 ~@4 a2@9 ~@6", C: "e2@5 ~@4 a2@8 ~@7", D: "e2@6 ~@3 a2@9 a2@4 ~@2",
  E: "d3@2 ~ e3@2 ~ d3@2 ~ c#3@2 ~", F: "b2@2 ~ c#3@2 ~ b2@2 ~ a2@2 ~", G: "e2@2 ~ d2@2 ~ e2@2 ~ b2@2 ~",
  H: "a2@2 ~ b2@2 ~ c#3@2 ~ a2@2 ~", I: "d3@2 ~ d3@2 ~ b2@2 ~ b2@2 ~", J: "e2@4 ~@5 a2@8 ~@7",
  K: "d3@5 ~ d3@5 ~ d3@2 ~@2 d3 ~ d3@4 ~@2", L: "b2@4 ~@2 b2@4 ~@2 b2@3 ~ b2@2 b2@5 ~",
  M: "e3@5 ~ e3@5 ~ e3@2 ~@2 e3@2 e3@5 ~", N: "a2@4 ~@2 a2@4 ~@2 a2@2 ~@2 a2 ~ a2@3 ~@3",
  O: "d3@2 ~ d3@2 ~ d3@2 ~ d3@2 ~", P: "d3@4 ~@5 d3@8 ~@7", Q: "g2@2 ~ b2@2 ~ d3@2 ~ b2@2 ~",
  R: "a2@2 ~ c#3@2 ~ e3@2 ~ c#3@2 ~", S: "b2@2 ~ b2@2 ~ b2@2 ~ b2@2 ~", T: "e3@2 ~ b2@2 ~ e2@2 ~ b2@2 ~",
  U: "a2@2 ~ a2@2 ~ b2@2 ~ c#3@2 ~", V: "d3@4 ~@5 b2@8 ~@7", W: "b2@5 ~@4 b2@8 ~@7", X: "a#2@5 ~@4 a#2@9 ~@6",
  Y: "a2 ~@2 a2@3 ~@2", Z: "d2",
})).s("gm_slap_bass_2").gain(0.41)

// chords · acoustic guitar nylon
const acoustic_guitar_nylon = note(`<
  ~ A@2 B A C D E F G H C D E F G H I J K L M J K L C D E F G H C D E F G H I J K L M J K L C D E F N H C D E F O P Q@2
  R@2 S@2 T R U V C D E F N H C D E F W X Y Z ~
>`.pickRestart({
  A: "[e2,b2,d3,g#3,b3,e4]@4 ~@5 [a2,c#3,e3,g3,c#4,e4]@8 ~@7", B: "[e2,b2,g#3,b3,e4]@4 ~@5 [a2,c#3,e3,g3,c#4,e4]@8 ~@7",
  C: "~@6 [d3,f#3,a3,d4,f#4]@5 ~@7 [d3,f#3,a3,d4,f#4]@6", // D
  D: "~@3 [d3,f#3,b3,d4,f#4]@3 ~@2 [b3,d4] [f#3,b3,d4]@2 [d3,f#3,b3,d4,f#4], ~@16 d3@5 ~@3, ~@16 [f#3,f#4] ~@7", // Bm F#
  E: "~@6 [e3,g3,b3,e4]@5 ~@7 [e3,g3,b3,e4]@5 ~", // Em
  F: "~@3 [c#3,e3,a3,c#4,e4]@3 ~@2 [e3,a3,c#4,e4] [e3,a3,c#4]@2 [e3,a3,c#4,e4]", // A
  G: "[d3,f#3,a3,d4,f#4]@2 ~ [d3,f#3,b3,d4,f#4]@2 ~", H: "[e2,b2,d3,g3,b3,e4]@4 ~@5 [a2,c#3,e3,g3,c#4,e4]@8 ~@7",
  I: "[d3,f#3,a3,d4,f#4]@6 [d3,f#3,a3,d4,f#4]@4 [a3,d4,f#4]@2 [d3,f#3,a3,d4,f#4]@4 [a3,d4,f#4]@2 [d3,f#3,a3,d4,f#4]@5 ~", // D
  J: "[d3,f#3,b3,d4,f#4]@4 ~@2 [d3,f#3,b3,d4,f#4]@4 [b3,d4,f#4] ~ [d3,f#3,b3,d4,f#4]@4 [b3,d4,f#4] ~ [d3,f#3,b3,d4,f#4]@4 ~@2", // Bm
  K: "[e3,g3,b3,e4,g4]@4 ~@2 [e3,g3,b3,e4,g4]@4 [b3,e4,g4] ~ [e3,g3,b3,e4,g4]@4 [b3,e4,g4] ~ [e3,g3,b3,e4,g4]@4 ~@2", // Em
  L: "[c#3,e3,a3,c#4,e4]@4 ~@2 [c#3,e3,a3,c#4,e4]@4 [a3,c#4,e4] ~ [c#3,e3,a3,c#4,e4]@4 [a3,c#4,e4] ~ [c#3,e3,a3,c#4,e4]@4 ~@2", // A
  M: "[d3,f#3,a3,d4,f#4]@5 ~ [d3,f#3,a3,d4,f#4]@4 [a3,d4,f#4] ~ [d3,f#3,a3,d4,f#4]@4 [a3,d4,f#4] ~ [d3,f#3,a3,d4,f#4]@4 ~@2", // D
  N: "[f#3,a3,d4,f#4]@2 ~ [d3,f#3,b3,d4,f#4]@2 ~, d3 ~@5", // D Bm
  O: "[f#3,a3,d4,f#4]@2 ~@2 [d3,f#3,a3,d4,f#4] ~ [d3,f#3,a3,d4,f#4]@2 ~@2 [d3,f#3,a3,d4,f#4] ~ [d3,f#3,a3,d4,f#4]@2 ~@2 [d3,f#3,a3,d4,f#4] ~ [d3,f#3,a3,d4,f#4]@2 ~@2 [d3,f#3,a3,d4,f#4] ~, d3 ~@5", // D
  P: "[d3,f#3,a3,c4,f#4,a4] ~ [d3,f#3,a3,c4,f#4,a4] ~ [d3,f#3,a3,c4,f#4,a4] ~ [d3,f#3,a3,c4,f#4,a4] ~ [d3,f#3,a3,c4,f#4,a4] ~ [d3,f#3,a3,c4,f#4,a4] ~ [d3,f#3,a3,c4,f#4,a4] ~ [d3,f#3,a3,c4,f#4,a4] ~ [d3,f#3,a3,c4,f#4,a4] ~ [d3,f#3,a3,c4,f#4,a4] ~ [d3,f#3,a3,c4,f#4,a4] ~ [d3,f#3,a3,c4,f#4,a4] ~", // D7
  Q: "[g3,d4,g4,b4,d5]@2 ~@7 [g3,d4,g4,b4,d5]@5 ~@2 [g3,d4,g4,b4,d5] ~ [d4,g4,b4,d5]@2 ~@2 [g3,d4,g4,b4,d5]@2", // G
  R: "[a3,e4,a4,c#5,e5]@2 ~@7 [a3,e4,a4,c#5,e5]@5 ~@2 [a3,e4,a4,c#5,e5] ~ [e4,a4,c#5,e5]@2 ~@2 [a3,e4,a4,c#5,e5]@2", // A
  S: "[f#3,d4,f#4,b4,d5]@2 ~@7 [f#3,d4,f#4,b4,d5]@5 ~@2 [f#3,d4,f#4,b4,d5] ~ [d4,f#4,b4,d5]@2 ~@2 [f#3,d4,f#4,b4,d5]@2", // Bm
  T: "[g3,e4,g4,b4,e5]@2 ~@7 [g3,e4,g4,b4,e5]@5 ~@2 [g3,e4,g4,b4,e5] ~ [e4,g4,b4,e5]@2 ~@2 [g3,e4,g4,b4,e5]@2", // Em
  U: "[f#3,a3,d4,f#4]@8 ~ [d3,f#3,b3,d4,f#4]@8 ~@7, d3 ~@5", V: "[b2,d3,g3,b3,e4,g4]@4 ~@5 [c#3,e3,g3,c#4,e4,a4]@8 ~@7",
  W: "[d4,f#4,b4]@5 ~@4 [d4,f#4,b4]@9 ~@6", X: "[d4,f4,a#4]@4 ~@5 [d4,f4,a#4]@9 ~@6",
  Y: "[d4,e4,a4]@5 ~@4 a4@9 ~@6, ~@4 [c#4,e4]@5 ~@3", Z: "[d4,f#4,a4]",
})).s("gm_acoustic_guitar_nylon").gain(0.41).pan(0.7)

// chords · acoustic guitar nylon · soft notes
const acoustic_guitar_nylon_2 = note(`<
  ~@6 A ~ B ~@3 A ~ B ~@2 C D E F D@2 E F ~ A ~ B ~@3 A ~ B ~@2 C D E F D@2 E F ~ A ~ B ~@3 A ~ B ~@2 G@2 H@2 I@2 G H
  ~@3 A ~ B ~@3 A ~ B ~@5
>`.pickRestart({
  A: "~@9 f#4@2 ~", B: "~@9 e4@2 ~", C: "~@5 [d3,f#3] ~@2 [d3,f#3] ~@3", D: "~@10 [d3,f#3] ~@5 [d3,f#3] ~@7",
  E: "~@10 [e3,g3] ~@5 [e3,g3] ~@7", F: "~@10 [c#3,e3] ~@5 [c#3,e3] ~@7", G: "~@9 g3 ~@2", H: "~@9 a3 ~@2",
  I: "~@9 f#3 ~@2",
})).s("gm_acoustic_guitar_nylon").gain(0.26).pan(0.7)

// chords · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  ~@4 A B@2 C@2 D A B@2 C@2 D ~@3 E@2 ~@2 F A B@2 C@2 D A B@2 C@2 D ~@3 E@2 ~@2 G@2 H I C@2 D A H I C@2 D ~@4 J K L ~@3
  A H I C@2 D A H I C@2 M ~@4
>`.pickRestart({
  A: "~@9 a3@7 ~@2 a3@4 ~@2", B: "[[a3,d4]@12 [a3,b3]@5 ~@7 b3@5 ~ a3@2 ~ a3@10 ~@5, ~@9 a3@5 ~@10]/2",
  C: "[~@6 g3@5 ~ b3@6 [g3,c#4]@3 [a3,d4]@9 c#4@6 [a3,b3]@5 ~ [a3,b3]@3 ~ a3@2, ~@12 g3@5 ~@13 a3@5 ~@13]/2", // Gdim D5 Asus2
  D: "[a3,b3]@3 [a3,d4]@14 ~@7", E: "[[b3,g4]@4 [b3,g4] ~ [b3,g4]@5 ~ [b3,g4]@3 [b3,g4]@4 ~@2 [c#4,g4]@8 ~@19]/2",
  F: "[b3,g4]@4 [b3,g4] ~ [b3,g4]@5 ~ [b3,g4]@3 [b3,g4]@4 ~@2 [c#4,g4]@3", // Em C#dim
  G: "[[b3,g4]@4 [b3,g4] ~ [b3,g4]@5 ~ [b3,g4]@3 [b3,g4]@4 ~@2 [c#4,g4]@8 ~@4 a3@7 ~@2 a3@4 ~@2]/2", // Em C#dim
  H: "[a3,d4]@12 [a3,b3]@5 ~ a3@6", I: "[a3,b3]@5 ~ a3@2 ~ a3@10 ~@5", J: "~@18 f#5@4 a5 ~",
  K: "b5@2 ~@2 b5@2 b5@5 ~ b5@5 ~ b5@6", L: "d6 a5 b5@5 ~@5", M: "b3@3 [b3,d4]@14 ~@7, a3 ~@23",
})).s("gm_acoustic_guitar_steel").gain(0.41).pan(0.4)

// chords · epiano2
const epiano2 = note("<~ A B@2 A ~@5 C ~@5 C ~@13 C ~@5 C ~@13 C ~@21 C ~@9>".pickRestart({
  A: "[e3,d4,e4,g#4,b4]@5 ~@4 [a3,c#4,e4,g4,a4]@8 ~@7", B: "[d4,e4,g#4,b4]@5 ~@4 [c#4,e4,g4,a4]@8 ~@7",
  C: "[e3,d4,e4,g4,b4]@5 ~@4 [a3,c#4,e4,g4,a4]@8 ~@7", // Em7 A7
})).s("gm_epiano2").gain(0.41).pan(0.3)

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

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

// drums · low tom
const low_tom = s("lt").struct("<A@4 ~@6 B ~@4 B@2 ~@13 B ~@4 B@2 ~@13 B ~@4 B@2 ~@9 C ~@5 B ~@4 A@3 ~@2>".pickRestart({
  A: "~@10 x!2", B: "~@11 x", C: "~@6 x!6",
})).gain(0.36)

// drums · mid tom
const mid_tom = s("mt").struct("<A@4 ~@6 B ~@4 B@2 ~@13 B ~@4 B@2 ~@13 B ~@4 B@2 ~@8 C ~@6 B ~@4 A@3 ~@2>".pickRestart({
  A: "~@3 x", B: "~@9 x!2 ~", C: "x!4",
})).gain(0.36)

// drums · open hat
const open_hat = s("oh").struct("<~@5 A@5 B A@4 C B A@13 B A@4 C B A@13 B A@4 C B A@8 ~@2 A@5 B A@4 ~@5>".pickRestart({
  A: "x ~@2 x ~ x!2 ~@2 x ~@2", B: "x ~@2 x ~@4", C: "x!2",
})).gain(0.36)

// drums · crash
const crash = s("cr").struct("<~ [x ~@2 x ~@4]!4 ~@72 [x ~@2 x ~@4]!3 x ~>").gain(0.36)

stack(
  bass, acoustic_guitar_nylon, acoustic_guitar_nylon_2, acoustic_guitar_steel, epiano2, kick, snare, low_tom, mid_tom,
  open_hat, crash
)