// A Shot of Rhythm and Blues — The Beatles
// 136 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 74 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(136/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · "a, b" plays two voices at once.
// 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(`<
  A B C D C@2 A E F G C@2 D G D H G H B I H G D J A@2 K C G L A C D G D M@2 H D N I C I A L G A@2 D H D H G@2 D N C@2
  I@2 H L A O P G D G H@2 N@2 Q R
>`.pickRestart({
  A: "c2@5 ~ c2 ~ c2@6 c2 ~", B: "c2@5 ~ c2 ~ c2@6 d2 ~", C: "c2@5 ~ c2 ~ c2@5 ~ c2 ~", D: "g2@5 ~ g2 ~ g2@6 g2 ~",
  E: "c2@5 ~ c2 ~ c2@6 e2 ~", F: "f2@5 ~ f2 ~ f2@6 g2 ~", G: "f2@5 ~ f2 ~ f2@5 ~ f2 ~", H: "f2@5 ~ f2 ~ f2@6 f2 ~",
  I: "c2@5 ~ c2 ~ c2 ~ c2@3 ~ c2 ~", J: "g2@5 ~ g2 ~ g2@6 d2 ~", K: "c2@5 ~ c2 ~ c2@6 b1 ~",
  L: "f2@5 ~ f2 ~ f2 ~ f2@3 ~ f2 ~", M: "f2@5 ~ f2 ~ f2@6 e2 ~", N: "g2@5 ~ g2 ~ g2@5 ~ g2 ~",
  O: "c2@5 ~ c2 ~ c2@6 f2 ~", P: "g2@5 ~ g2 ~ g2 ~ g2@3 ~ g2 ~", Q: "c2@5 ~ c2 ~ c2 ~ c2@2 ~@2 c2 ~",
  R: "c2 ~ g1 ~ a1 ~@3 c2@2 ~@6",
})).s("gm_electric_bass_finger").gain(0.35)

// chords · acoustic guitar steel · "GUITAR"
const acoustic_guitar_steel = note(`<
  A B C D E F E B G H I F J K L M@2 G N O M H L P E B I Q R S N O T M T U@2 S L V N Q W O K S W Q L M T M G X L P N F W
  Q K Y W F Z M T U K H L V AA AB
>`.pickRestart({
  A: "~@2 [g3,c4,e4]@2 ~@2 c3@2 [g3,c4,e4]@2 ~@2 [g3,c4,e4] ~@3", // C
  B: "[a#3,c4,e4,g4] ~ [a#3,c4,e4,g4] ~@3 [a#3,c4,e4,g4]@6 ~@4", C: "[g3,c4,e4]@6 c3@2 [g3,c4,e4]@3 ~ [g3,c4,e4] ~@3",
  D: "~@2 [b3,d4,f4,g4]@2 ~@2 g2@2 [b3,d4,f4,g4]@2 ~@2 [b3,d4,f4,g4] ~@3", E: "[g3,c4,e4]@15 ~",
  F: "c4@4 c4 e4 ~@2, [a#3,e4,g4]@5 ~@3", G: "[a3,c4,f4]@15 ~",
  H: "[c4,d#4,f4,a4] ~ [c4,d#4,f4,a4] ~@3 [c4,d#4,f4,a4]@6 ~@4", // F7
  I: "~@2 [g3,c4,e4]@2 ~@4 [g3,c4,e4]@2 ~@2 [g3,c4,e4] ~@3", J: "g3@4 g3 b3 ~@2, [b3,d4]@5 ~@3",
  K: "f4@4 f4 a4 ~@2, [a3,c4]@5 ~@3", L: "[g3,b3,d4] ~ [g3,b3,d4] ~@3 [g3,b3,d4]@6 ~@4",
  M: "[a3,c4,f4] ~ [a3,c4,f4] ~@3 [a3,c4,f4]@6 ~@4", N: "[g3,c4,e4]@6 ~@2 [g3,c4,e4]@3 ~ [g3,c4,e4] ~@3",
  O: "~@2 [a#3,c4,e4,g4]@2 ~@4 [a#3,c4,e4,g4]@2 ~@2 [a#3,c4,e4,g4] ~@3", // C7
  P: "[b3,d4,f4,g4] ~ [b3,d4,f4,g4] ~@3 [b3,d4,f4,g4]@6 ~@4", // G7
  Q: "[a#3,c4,e4,g4]@6 ~@2 [a#3,c4,e4,g4]@3 ~ [a#3,c4,e4,g4] ~@3", // C7
  R: "~@2 [a3,c4,f4]@2 ~@4 [a3,c4,f4]@2 ~@2 [a3,c4,f4] ~@3", S: "[c4,d#4,f4,a4]@15 ~", T: "[g3,b3,d4]@15 ~",
  U: "[a3,c4,f4]@6 ~@2 [a3,c4,f4]@3 ~ [a3,c4,f4] ~@3", // F
  V: "~@2 [b3,d4,f4,g4]@2 ~@4 [b3,d4,f4,g4]@2 ~@2 [b3,d4,f4,g4] ~@3", W: "[g3,c4,e4] ~ [g3,c4,e4] ~@3 [g3,c4,e4]@6 ~@4",
  X: "f4@4 f4 a4 ~@2, [c4,d#4,a4]@5 ~@3", Y: "~@2 [c4,d#4,f4,a4]@2 ~@2 f3@2 [c4,d#4,f4,a4]@2 ~@2 [c4,d#4,f4,a4] ~@3",
  Z: "~@2 [g3,b3,d4]@2 ~@4 [g3,b3,d4]@2 ~@2 [g3,b3,d4] ~@3", AA: "[g3,c4,e4]@14 c3 ~",
  AB: "[g3,c4,e4]@2 c3 ~ [a3,c4,f4] ~@3 [g3,c4,e4]@8", // C F C
})).s("gm_acoustic_guitar_steel").gain(0.36)

// other · electric guitar clean · "GUITAR"
const electric_guitar_clean = note(`<
  A B@2 C D E F G H I J K L M N H@2 I O P Q R S T J@2 U V W X Y K Z AA AB AC AD X AE AF K AG AH V AI AJ AK AL AM AN AO
  AP AD AQ AR AS F AT AU AV AW AX AY AV AZ BA BB AN W X BC BD AU BE
>`.pickRestart({
  A: "~@2 c3@2 e3@2 c3@2 g3 ~ g3@2 f3@2 e3@2", B: "c3 ~ c3 ~ e3@2 c3@2 g3 ~ g3 ~ f3 ~ e3@2",
  C: "~@2 g3@2 g3 ~ g3 ~ g3 ~ g3@2 g3 ~ g3 ~", D: "c3 ~ c3 ~ e3@2 c3 ~ g3 ~ g3@2 f3@2 e3@2",
  E: "c3 ~ c3@2 e3@2 c3@2 g3 ~ g3 ~ f3 ~ e3@2", F: "c3 ~ c3@2 e3@2 c3@2 g3 ~ g3 ~ f3@2 e3@2",
  G: "c3 ~ c3 ~ e3@2 c3@2 g3 ~ g3 ~ f3@2 e3 ~", H: "f3 ~ f3 ~ a3@2 f3 ~ c4 ~ c4 ~ a#3 ~ a3@2",
  I: "f3 ~ f3@2 a3@2 f3@2 c4 ~ c4 ~ a#3 ~ a3 ~", J: "c3 ~ c3@2 e3@2 c3@2 g3 ~ g3@2 f3@2 e3@2",
  K: "c3 ~ c3@2 e3@2 c3@2 g3 ~ g3@2 f3 ~ e3 ~", L: "g3 ~ g3 ~ b3@2 g3 ~ d4 ~ d4 ~ c4@2 b3@2",
  M: "g3 ~ g3 ~ [a3,b3] ~ f3 ~ c4 ~ c4@2 a#3@2 f3 ~", N: "[c3,d3] ~ c3 ~ a3 ~ f3 ~ d4 ~ d4 ~ c4@2 [g3,a3] ~",
  O: "c3 ~ c3 ~ [e3,f3] ~ c3@2 [g3,a3] ~ g3 ~ f3 ~ e3@2", P: "c3 ~ c3 ~ e3@2 c3 ~ g3 ~ g3 ~ f3 ~ e3 ~",
  Q: "c3 ~ c3 ~ c4 ~ f3 ~ b3 ~ c4 ~ a#3 ~ a3 ~", R: "f3 ~ f3@2 a3@2 f3 ~ c4 ~ c4 ~ a#3@2 a3 ~",
  S: "~@2 c3 ~ b3@2 g3 ~ d4 ~ d4@2 c4@2 b3@2", T: "g3 ~ g3@2 b3@2 g3@2 d4 ~ d4 ~ c4 ~ g3 ~", U: "c3!2 e3 c3 g3!2 f3 e3",
  V: "c3 ~ c3@2 e3@2 c3@2 g3 ~ g3@2 f3@2 e3 ~", W: "f3 ~ f3@2 a3@2 f3@2 c4 ~ c4@2 a#3@2 a3@2",
  X: "f3 ~ f3@2 a3@2 f3@2 c4 ~ c4@2 a#3@2 a3 ~", Y: "c3 ~ c3@2 e3@2 c3@2 g3@2 g3@2 f3@2 e3@2",
  Z: "g3 ~ g3@2 b3@2 g3@2 d4 ~ d4@2 c4 ~ b3 ~", AA: "f3 ~ f3@2 a3@2 f3@2 c4 ~ c4 ~ a#3 ~ a#3 ~",
  AB: "g3 ~ g3 ~ b3@2 g3@2 d4 ~ d4@2 c4@2 b3 ~", AC: "f3 ~ f3 ~ a3@2 f3@2 c4 ~ c4 ~ b3@2 a3 ~",
  AD: "f3 ~ f3@2 a3@2 f3@2 c4 ~ c4 ~ a#3 ~ a3@2", AE: "c3 ~@3 [a3,b3]@2 g3@2 d4 ~ d4@2 c4 ~ b3@2",
  AF: "g3 ~ g3@2 b3@2 g3@2 d4 ~ d4@2 c4@2 g3 ~", AG: "f3 ~ f3 ~ [e3,f3]@2 c3 ~ g3 ~ g3@2 f3 ~ e3@2",
  AH: "c3 ~ c3 ~ e3@2 c3@2 g3 ~ g3@2 f3@2 e3@2", AI: "[f3,g3] ~ f3@2 a3@2 f3@2 c4 ~ c4@2 a#3@2 a3@2",
  AJ: "f3@2 f3@2 a3@2 f3@2 c4 ~ c4@2 a#3@2 a3 ~", AK: "c3 ~ c3@2 e3@2 c3@2 g3 ~ g3 ~ [f3,g3]@2 e3@2",
  AL: "c3@2 c3@2 e3@2 c3@2 g3 ~ g3@2 f3 ~ e3 ~", AM: "g3 ~ g3@2 b3@2 g3@2 d4 ~ d4 ~ c4@2 b3@2",
  AN: "f3 ~ f3@2 a3@2 f3@2 c4 ~ c4 ~ a#3@2 a3@2", AO: "g3 ~ g3@2 b3@2 g3@2 d4 ~ d4@2 c4@2 b3 ~",
  AP: "f3 ~ f3 ~ a3@2 f3@2 c4 ~ c4@2 a#3 ~ a3@2", AQ: "f3 ~ f3@2 a3@2 f3@2 c4 ~ c4@2 a#3 ~ a3 ~",
  AR: "c3 ~@3 b3@2 g3@2 d4 ~ d4@2 c4 ~ b3@2", AS: "g3 ~ g3@2 b3@2 g3@2 d4 ~ d4 ~ c4 ~ b3 ~",
  AT: "c3 ~ c3 ~ e3@2 c3@2 g3 ~ g3@2 f3 ~ e3 ~", AU: "c3 ~ c3 ~ e3@2 c3@2 g3 ~ g3 ~ f3@2 e3@2",
  AV: "c3 ~ c3@2 e3@2 c3@2 g3 ~ g3 ~ f3@2 e3 ~", AW: "f3 ~ f3@2 a3@2 f3@2 c4 ~ c4@2 b3@2 a3@2",
  AX: "f3 ~ f3@2 a3@2 f3@2 c4 ~ c4 ~ a#3@2 a3 ~", AY: "c3 ~ c3@2 e3@2 c3@2 g3 ~ g3 ~ e3@2 e3 ~",
  AZ: "g3 ~ g3@2 b3@2 g3@2 d4 ~ d4@2 c4@2 b3@2", BA: "[g3,a3] ~ g3 ~ a3@2 f3@2 c4 ~ c4 ~ a#3@2 a3@2",
  BB: "g3 ~ g3@2 b3@2 g3@2 d4@2 d4@2 c4@2 b3 ~", BC: "c3 ~ g3@2 b3@2 g3@2 d4 ~ d4@2 b3@3 ~",
  BD: "g3 ~ g3@2 b3@2 g3@2 d4 ~ d4 ~ c4@2 b3 ~", BE: "c3 ~ c3@2 e3 ~ [c3,e3]@7 ~@3",
})).s("gm_electric_guitar_clean").gain(0.36)

// other · overdriven guitar · "THOMPSON"
const overdriven_guitar = note("<~@47 A B C D E ~ F G H ~@18>".pickRestart({
  A: "~@7 g3", B: "a#3 ~ [b3,c4]@2 a#3@2 g3@2 a#3@2 g3@2 f3@2 g3@2", C: "~@2 g3 ~ a#3 ~ c4 ~ c4@2 a#3@2 g3 ~ g3 ~",
  D: "a#3@2 ~@2 c4@2 a#3 ~ c4@2 a#3@2 g3@2 f3@2", E: "g3@2 f3 ~ d#3 ~ [c3,d3] ~ d#3@2 c3@2 a#2@2 c3@2",
  F: "~@6 c4 ~@3 d#4@2 d4@2 c4 ~", G: "d#4@2 d4 ~ c4 ~ a#3@2 g3@2 a#3@2 g3@2 d#3@2", H: "g3 d#3 c3 d#3 c3 a#2 g2 ~",
})).s("gm_overdriven_guitar").gain(0.46)

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

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

// drums · clap
const clap = s("cp").struct("<~@31 [~@2 x!2 ~@4] ~@42>").gain(0.4)

// drums · low tom
const low_tom = s("lt").struct("<~@55 [~@13 x!2 ~] ~@18>").gain(0.46)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@3 [~@12 x!4] ~@51 [~@11 x!2 ~@3] ~@18>").gain(0.35)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~ A ~@3 A ~ A ~ A ~ A B ~ C A ~@3 A ~ A ~ A ~@3 A ~ A ~@7 A ~@7 A ~@3 A ~@5 D ~@3 A ~ A ~ A ~ A ~ A ~@6
>`.pickRestart({
  A: "~@7 x", B: "~@5 x ~@2", C: "~@15 x", D: "~ x ~@2",
})).gain(0.3)

// drums · high tom
const high_tom = s("ht").struct("<~@55 [~ x] ~@18>").gain(0.46)

// drums · crash
const crash = s("cr").struct("<A ~@3 A ~@19 A ~@6 B ~@8 A ~@15 A ~@15 A C>".pickRestart({
  A: "x", B: "~@3 x", C: "~ x!2 ~",
})).gain(0.35)

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

stack(
  bass, acoustic_guitar_steel, electric_guitar_clean, overdriven_guitar, kick, snare, clap, low_tom, hihat, mid_tom,
  open_hat, high_tom, crash, tambourine
)