// Three Cool Cats — The Beatles
// 158 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(158/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 B D B E F E G H B D I C J K L M N O P A F C F D I Q G C F C I D G H F C F Q F C F D R S T U N S P V B C F C F D
  I C F Q B C B D I C F D W X ~
>`.pickRestart({
  A: "g2@5 ~ g2@2 d2@5 ~ d2@2", B: "c2@6 g1 ~ a#1@5 ~ a#1@2", C: "c2@5 ~ c2@2 g2@5 ~ g2@2",
  D: "c2@5 ~ c2 ~ g1@4 c2@3 ~", E: "c2@6 g1@2 c2 ~ c2 ~ c2@2 g1@2", F: "c2@5 ~ c2@2 a#1@5 ~ a#1@2",
  G: "c2@6 g1 ~ a#1@6 f1 ~", H: "c2@3 g2 c2@2 c2 ~", I: "c2@5 ~ c2@2 a#1@6 f1 ~", J: "c2@3 g1 c2@2 c2 ~",
  K: "a#1@5 ~ a#1@2 f2@5 ~ f2 ~", L: "g#2@5 ~ g#2@2 d#2@5 ~ d#2@2", M: "g2@5 ~ g2@2 d2@5 ~ d2 ~",
  N: "c2@5 ~ c2@2 g1@5 ~ g1@2", O: "a#1@6 f1@2 a#1 ~ a#1 ~ a#1@2 f1@2", P: "g#2@5 ~ g#2@2 d#2@5 ~ d#2 ~",
  Q: "c2@5 ~ c2@2 g2@5 ~ g2 ~", R: "c2@5 ~ c2@2 g1@5 ~ g1 ~", S: "a#1@5 ~ a#1@2 f2@5 ~ f2@2",
  T: "g#2@5 ~ g#2 ~ d#2@4 g#2@3 ~", U: "g2@5 ~ g2 ~ d2@4 g2@3 ~", V: "g2@6 d2@2 g2 ~ g2 ~ g2@2 d2@2", W: "~@7 a#1",
  X: "c2@5 ~@11",
})).s("gm_electric_bass_finger").gain(0.35)

// chords · electric guitar clean · "GUITAR"
const electric_guitar_clean = note(`<
  A B C D E F G F H D G B H F I J K L M I N O P Q R S T S E U H F I Q J D V D H Q H S W U E H X Y Z H N Y Z D V B AA D
  AA S H S AB F AC D AC D H Q H ~ AD ~
>`.pickRestart({
  A: "~@2 [g3,b3,d4]@2 ~@2 g2@2 [g3,b3,d4]@2 ~@2 [g3,b3,d4] ~@3", B: "[g3,c4,e4]@7 ~ [f3,a#3,d4]@7 ~",
  C: "[g3,c4,e4] ~@15", D: "[g3,c4,e4]@7 ~ [a#3,d4,f4]@7 ~", E: "[g3,c4,e4]@15 ~",
  F: "~@2 [g3,c4,e4]@4 ~@2 [a#3,d4,f4]@7 ~", G: "~@2 [g3,c4,e4]@2 ~@4 g3@2 ~@2 [g3,c4,e4] ~@3",
  H: "[g3,c4,e4] ~@5 [g3,c4,e4]@6 ~@4", I: "c4@4 c4 ~@3, [g3,e4]@5 ~@3", J: "[g3,c4,e4]@6 c3@2 g3@3 ~ [g3,c4,e4] ~@3",
  K: "[a#3,d4,f4] ~@5 [a#3,d4,f4]@6 ~@4", L: "~ [g#3,c4,d#4] ~@2 [g#3,c4,d#4] ~@3",
  M: "~ [g3,b3,d4] ~@2 [g3,b3,d4] ~@3", N: "a#3@4 a#3 d4 ~@2, [d4,f4]@5 ~@3", O: "[g#3,c4,d#4] ~@5 [g#3,c4,d#4]@6 ~@4",
  P: "g3@4 g3 b3 ~@2, [b3,d4]@5 ~@3", Q: "[g3,c4,e4]@7 ~@3 [f3,a#3,d4]@4 ~@2", R: "[g3,c4,e4] ~@5 [g3,c4]@6 ~@4",
  S: "[g3,c4,e4]@7 ~@3 [a#3,d4,f4]@4 ~@2", T: "~@2 [g3,c4,e4]@2 ~@4 [g3,c4]@2 ~@2 g3 ~@3",
  U: "~ [g3,c4,e4]@2 ~@2 [a#3,d4,f4]@2 ~", V: "~ [g3,c4,e4] ~@2 [g3,c4,e4] ~@3",
  W: "[g3,c4,e4]@6 ~@2 [g3,c4,e4]@3 ~ [g3,c4,e4] ~@3", X: "[f3,a#3,d4]@6 a#2@2 [f3,a#3,d4]@3 ~ f3 ~@3",
  Y: "g#3@4 g#3 c4 ~@2, [c4,d#4]@5 ~@3", Z: "[g3,b3,d4] ~@5 [g3,b3,d4]@6 ~@4",
  AA: "[g3,c4,e4]@6 c3@2 [g3,c4,e4]@3 ~ g3 ~@3", AB: "~@2 [g3,c4,e4]@2 ~@4 [g3,c4,e4]@3 ~ g3 ~@3",
  AC: "c4@4 c4 e4 ~@2, [g3,e4]@5 ~@3", AD: "[c4,d#4]@7 ~",
})).s("gm_electric_guitar_clean").gain(0.36).pan(0.3)

// other · acoustic guitar steel · "GUITAR"
const acoustic_guitar_steel = note("<~@37 A B C D E F G H I ~@28>".pickRestart({
  A: "~@2 c4@3 ~ d#4@2 d#4@4 ~@2 d#4 c4", B: "d#4 c4 ~ a#3 g3 a#3 g3 ~ d#3 ~ c3 [d3,d#3] g3 ~ a#3 c4",
  C: "d#4 ~ f4 d#4 f4 d#4 g#4 ~ [g4,a4] g4 ~ f4 d#4 c4 d#4 ~", D: "c4 a#3 ~ g3 a#3 c4 ~ d#4 c4 a#3 ~ g3 d#3 e3 ~ g3",
  E: "~ c3 d#3 ~ g3 a#3 c4 ~ d#4 f4 d#4 c4 ~ d#4 f4 a#4",
  F: "~ a4 g4 ~ d#4 c4 d#4 ~ c4 a#3 ~@2 a#3 ~ c4 a#3, ~@11 g3@2 ~@3",
  G: "c4 a#3 ~ g3 a#3 g3 ~ e3 d#3@2 ~@2 g3 d#3 ~ c3", H: "d#3 ~@7 c3 d#3 ~ f3 a#3 c4 ~ d#4", I: "c4 ~@7",
})).s("gm_acoustic_guitar_steel").gain(0.41).pan(0.6)

// other · piano · "THREE COLL CATS"
const piano = note(`<
  ~@20
  [~@2 a#3 ~@2 a#3 ~ a#3 ~ a#3 ~ c4@3 a#3 ~]
  ~@29
  [~@2 a#3 ~ a#3 ~ a#3 ~ a#3 ~@2 c4 a#3@3 ~]
  ~@23
>`).s("gm_piano").gain(0.41)

// other · blown bottle · "LEIBER / STOLLER"
const blown_bottle = note(`<
  ~@21
  [~ g3@2 g#3 ~@2 g#3 ~ g#3@2 ~ a#3@2 ~ g#3@2]
  [~ g3@14 ~]
  ~@28
  [g3@2 ~ g#3 ~@2 g#3 ~ g#3@2 ~ a#3@2 ~ g#3@2]
  [~ g3@14 ~]
  ~@21
>`).s("gm_blown_bottle").gain(0.51)

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

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

// drums · low tom
const low_tom = s("lt").struct("<~@14 A ~@21 B ~@15 B ~@12 C B ~ D ~ D B ~@2>".pickRestart({
  A: "~ x!4 ~ x ~", B: "~@7 x", C: "~@5 x ~@2", D: "~@13 x!2 ~",
})).gain(0.4)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@36 A ~@15 A ~@13 A ~ B ~ B ~@3>".pickRestart({
  A: "~@3 x ~ x!2 ~", B: "~@11 x!2 ~@3",
})).gain(0.4)

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

// drums · high tom
const high_tom = s("ht").struct("<~@36 A ~@15 A ~@13 A ~ A ~ A ~@3>".pickRestart({
  A: "~ x",
})).gain(0.4)

// drums · crash
const crash = s("cr").struct("<~ A ~@12 A@2 ~@7 A ~@13 A ~@7 A ~@7 A ~@13 A ~ A ~@2 A ~>".pickRestart({
  A: "x",
})).gain(0.35)

stack(
  bass, electric_guitar_clean, acoustic_guitar_steel, piano, blown_bottle, kick, snare, low_tom, hihat, mid_tom,
  open_hat, high_tom, crash
)