// Paperback Writer — The Beatles
// 158 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 91 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): MUTED GTR.
setcpm(158/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 · acoustic bass · "ACOU BASS"
const bass = note(`<
  ~@7 A B C D E B@3 F G H I@2 B C D E B@3 F G H J@2 ~@7 A B C D E B@3 F G H I@2 B C D E B@3 F G H J@2 ~@7 A B C D E B C
  D E B C D E B C D K L@3
>`.pickRestart({
  A: "~@8 g3 g2@4 g3@3", B: "g1@5 ~ g1@4 c2@2 f2@2 g2@2", C: "g1@2 g2 g1@2 c2 f2 g2", D: "g1@5 ~ g1@3 ~ g1@2 c2@2 f2@2",
  E: "g1@4 g1 ~ g1@4 g2@2 g1@2 g2@2", F: "g1@5 ~ g1@3 ~ g1@2 a1@2 b1@2", G: "c2@5 ~ c2@4 g1@2 a#1@2 g1@2",
  H: "c2@5 ~ c2@3 ~ c2@2 b1@2 a1@2", I: "[g1@2 ~@2 g1@23 ~@5]/2", J: "[g1@2 ~@2 g1@25 ~@3]/2",
  K: "g1@2 c2@4 g1@2 d2@3 ~ f2@3 ~", L: "[g1@17 ~@7]/3",
})).s("gm_acoustic_bass").gain(0.46)

// chords · epiano1 · "E.PIANO 1"
const epiano1 = note(`<
  A@4 B C D E F@2 G@2 H I J K L M N@2 F@2 G@2 H I J K L M O@2 A@4 B C D E F@2 G@2 H I J K L M N@2 F@2 G@2 H I J K L M
  O@2 A@4 B C D E F@2 G@2 F@2 G@2 F@2 G@2 F@2 P@2 Q@3
>`.pickRestart({
  A: "[[c4,e4]@6 f#4@2 e4@7 ~ [g3,b3,e4]@5 ~ [a3,c4] ~ [b3,d4]@8 b4@6 g4 ~ g4@7 ~ [e4,g4]@7 ~ [c4,e4]@7 ~, ~@6 d4 ~ g4@28 ~@28, ~@32 c4@21 ~@11]/4", // C Em Am Bm Em C
  B: "~ c3 d3 g3@2 ~ f3@2, g2@9 ~ g2@5 ~", C: "~ c3@2 ~ d3@2 f3@2, g2@5 ~ g2@9 ~",
  D: "~@2 c3 ~ d3@2 g3@4 ~@2 f3@4, g2@9 ~ g2@5 ~", E: "~@2 c3@4 ~@2 d3@4 f3@3 ~, g2@5 ~ g2@9 ~",
  F: "[[d3,g3]@9 ~ [d3,g3]@2 g2 ~@3 g2@10 [d3,g3] ~ [d3,g3] ~ [d3,g3] ~, g2@6 ~ [d3,g3]@6 ~@3]/2", // G5
  G: "[[g2,d3,g3]@10 [d3,g3]@2 ~@2 [d3,g3] ~ [d3,g3]@9 ~ [d3,g3] ~@3 [d3,g3] ~, ~@6 g2@7 ~@3]/2", // G5
  H: "[d3,g3]@9 ~ [d3,g3] ~ g2 ~ [d3,g3] ~", I: "[d3,g3]@9 ~ g3@2 g2 ~ [d3,g3] ~, ~@10 d3 ~@5",
  J: "[d3,g3]@5 ~ [d3,g3] ~@3 [d3,g3]@2 g2@2 [d3,g3] ~", K: "[d3,g3]@4 g2 ~ [d3,g3]@5 ~@5",
  L: "[c3,g3,c4] ~@3 [c3,g3,c4]@6 [g3,c4] ~ c3 ~ [g3,c4] ~", M: "[g3,c4]@2 c3@2 [g3,c4] ~ [g3,c4]@10",
  N: "[[d4,g4,b4] ~@3 [d4,g4,b4]@23 ~@5]/2", O: "[[g3,d4,g4,b4] ~ [g3,d4,g4,b4]@12 ~@2]/2",
  P: "[[g2,d3,g3]@10 [d3,g3]@2 ~@2 [d3,g3] ~ g3@2 c4@4 g3@2 d4@2 [d3,g3] ~ f4@2 [d3,g3] ~, ~@6 g2@7 ~@3, ~@16 d3@9 ~@7]/2", // G5
  Q: "[[g2,d3,g3]@17 ~@7]/3", // G5
})).s("gm_epiano1").gain(0.53)

// other · electric guitar muted · "MUTED GTR"
const electric_guitar_muted = note(`<
  ~@9 A ~@5 B C D ~@3 A ~@5 B C ~ E@2 ~@9 A ~@5 B C D ~@3 A ~@5 B C ~ E@2 ~@9 A ~@3 A ~@3 A ~@3 A F G ~@3
>`.pickRestart({
  A: "~@6 d3 ~", B: "~@14 g2 ~", C: "~@4 c3@5 ~@3 b2 ~@3", D: "~@2 c3@3 ~@5 g2 ~@5", E: "[~ c3 ~ g3@12 ~]/2",
  F: "~ c3 d3 ~@3 f3@2", G: "~@2 c3@5 ~ d3@3 ~ f3@4",
})).s("gm_electric_guitar_muted").gain(0.54)

// other · electric guitar muted · "MUTED GTR" · soft notes
const electric_guitar_muted_2 = note("<~@8 A ~@11 A ~@19 A ~@11 A ~@19 A ~@3 A ~@3 A ~@3 A ~@6>".pickRestart({
  A: "~@6 d3 ~",
})).s("gm_electric_guitar_muted").gain(0.39)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~@4 A B C D E F G@2 H I J@2 K L A B E F G@2 H I J@2 K L M@2 ~@4 A B C D E F G@2 H I J@2 K L A B E F G@2 H I J@2 K L
  M@2 ~@4 A B C D E F G@2 E F G@2 E F G@2 E F G@2 N@3
>`.pickRestart({
  A: "~ c3 d3 g3@2 ~ f3@2, g2@9 ~ g2@5 ~", B: "~ c3@2 ~ d3@2 f3@2, g2@5 ~ g2@9 ~",
  C: "~@2 c3 ~ d3@2 g3@4 ~@2 f3@4, g2@9 ~ g2@5 ~", D: "~@2 c3@4 ~@2 d3@4 f3@3 ~, g2@5 ~ g2@9 ~",
  E: "[g2,d3,g3]@6 [d3,g3] ~@3 [d3,g3] ~ g2 ~ [d3,g3] ~", F: "~@7 [d3,g3], [d3,g3]@3 [d3,g3]@2 [d3,g3]@2 ~, ~ g2!3",
  G: "[[g2,d3,g3]@6 [d3,g3] ~@3 d3@2 ~@2 [d3,g3]@2 ~@4 g3@2 ~@8 [d3,g3]@2, ~@5 g3@2 ~ d3@3 [d3,g3]@2 [d3,g3]@2 ~, ~@6 g2@3 g2@3 g2@2 g2@2, ~@4 g3 ~@3]/2", // G5
  H: "[g2,d3,g3]@6 [d3,g3] ~@7 [d3,g3]@2, ~@5 [d3,g3]@2 ~, ~@3 g2", // G5
  I: "[d3,g3]@3 ~@11 [d3,g3]@2, g2@2 g2!2, ~@3 [d3,g3]@2 [d3,g3]@2 ~", // G5
  J: "[[g2,d3,g3]@6 [d3,g3] ~@3 [d3,g3]@2 ~@2 [d3,g3]@2 ~@4 [d3,g3]@2 ~@4 [d3,g3]@2 [d3,g3]@4, ~@6 g2@3 g2@3 g2@4, ~@8 [d3,g3]@2 ~ [d3,g3]@2 ~@3]/2", // G5
  K: "[c3,g3,c4]@5 ~ [g3,c4] ~@3 c3@2 ~@2 c3@2, ~@3 [g3,c4]", // C5
  L: "~@6 [g3,c4] ~, [g3,c4]@3 [g3,c4]@3 ~@2, ~@2 c3@3 c3@2 ~", M: "[[g2,d3,g3,b3] ~ [g2,d3,g3,b3]@12 ~@2]/2",
  N: "[[g2,d3,g3]@17 ~@7]/3", // G5
})).s("gm_acoustic_guitar_steel").gain(0.5)

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

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

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@19 [x!3 ~@13] ~@31 [x!3 ~@13] ~@34 [~@12 x!4] ~@4>").gain(0.15)

// drums · low tom
const low_tom = s("lt").struct("<~@19 [~@3 x] ~@31 [~@3 x] ~@35 [~@3 x] ~@3>").gain(0.74)

// drums · hihat
const hihat = s("hh").struct("<~@5 A@13 B C A@10 B C@5 A@14 B C A@10 B C@5 A@19 ~@4>".pickRestart({
  A: "x!4", B: "~@3 x", C: "~ x ~ x",
})).gain(0.74)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct(`<
  ~@5 A B A B A B A B A B A B A ~@2 B A B A B A B A B A ~@6 B A B A B A B A B A B A B A ~@2 B A B A B A B A B A ~@6 B A
  B A B A B A B A B A B A B A B A B ~@4
>`.pickRestart({
  A: "~ x ~ x ~ x ~@2", B: "~ x ~ x ~ x ~ x",
})).gain(0.22)

// drums · mid tom
const mid_tom = s("mt").struct("<~@19 [~@5 x ~@2] ~@31 [~@5 x ~@2] ~@35 [~ x] ~@3>").gain(0.74)

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

// drums · high tom
const high_tom = s("ht").struct("<~@19 [~@3 x ~@4] ~@31 [~@3 x ~@4] ~@35 [~ x ~ x ~@4] ~@3>").gain(0.74)

// drums · crash
const crash = s("cr").struct("<~@4 A ~@13 B ~@11 B ~@5 A ~@13 B ~@11 B ~@5 A ~@3 A ~@7 A ~@7 A ~@2>".pickRestart({
  A: "x", B: "x!2 ~@2",
})).gain(0.74)

stack(
  bass, epiano1, electric_guitar_muted, electric_guitar_muted_2, acoustic_guitar_steel, kick, snare, snare_soft,
  low_tom, hihat, hihat_soft, mid_tom, open_hat, high_tom, crash
)