// Matchbox — The Beatles
// 174 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 92 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(174/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 · piano · "PIANO1"
const bass = note(`<
  ~ A B C@2 D E D F G H I J K L M@2 E@3 F N H I J K N E O D E P F G Q I J K L E O D E D F G H I J K L E R E@2 P F N S I
  J K L E O I E A F G H I J K L E O D E@2 F N H I J K L T U@3 ~
>`.pickRestart({
  A: "a1 ~@2 a1 c2@2 ~@2 e2 ~@2 e2 c#2@3 e2, ~@7 c#2@2 ~@7",
  B: "a1 ~@2 a1 c2@3 ~ e2@2 ~@2 c#2@2 ~ e2, ~@7 c#2@2 ~@2 e2@2 ~@3",
  C: "a1 ~@2 a1 c2@3 ~ e2@2 ~ e2 c#2@2 ~ e2, ~@7 c#2@2 ~@7", D: "a1 ~@2 a1 c2@3 ~ e2 ~@2 e2 c#2@3 e2, ~@7 c#2@2 ~@7",
  E: "a1 ~@2 a1 c2@3 c#2 e2 ~@2 e2 c#2@3 e2", F: "a1 ~@2 a1 b1 ~@2 b1 c2 ~@2 c2 c#2 ~@2 c#2",
  G: "d2@2 ~ d2 f2@2 ~ f#2 a2 ~@2 a2 f#2@2 ~ a2", H: "d2 ~@2 d2 f2@3 ~ a2 ~@2 a2 f#2@3 a2, ~@7 f#2@2 ~@7",
  I: "a1 ~@2 a1 c2@3 ~ e2 ~@2 e2 c#2@2 ~ e2, ~@7 c#2@2 ~@7",
  J: "a1 ~@2 a1 c2@3 ~ e2 ~@3 c#2@3 e2, ~@7 c#2@2 ~@2 e2@2 ~@3", K: "e2 ~@2 e2 g2@3 g#2 b2 ~@2 b2 g#2@3 b2",
  L: "d2 ~@2 d2 f2@3 f#2 a2 ~@2 a2 f#2@2 ~ a2",
  M: "[a1 ~@2 a1 c2@3 c#2 e2 ~@2 e2 c#2@3 ~ a1 ~@2 a1 e1 ~@2 [e1,f1] f#1 ~@2 f#1 g#1 ~@2 g#1, ~@15 e2@2 ~@15]/2", // Fmaj7
  N: "d2 ~@2 d2 f2@2 ~ f#2 a2 ~@2 a2 f#2@2 ~ a2", O: "a1 ~@2 a1 e1 ~@2 [e1,f1] f#1 ~@2 f#1 g#1 ~@2 g#1",
  P: "a1 ~@2 a1 c2@2 ~ c#2 e2 ~@2 e2 c#2@3 e2", Q: "d2 ~@2 d2 f2@3 ~ a2 ~@2 a2 f#2@2 ~ a2, ~@7 f#2@2 ~@7",
  R: "a1 ~@2 a1 e1 ~@2 [e1,f1] f#1 ~@2 f#1 g#1@2 ~ g#1", S: "d2 ~@2 d2 f2@3 ~ a2@2 ~ a2 f#2@2 ~ a2, ~@7 f#2@2 ~@7",
  T: "a1@4 c#2@4 d2@4 d#2@3 ~", U: "[e2@2 f#2@2 g#2@2 a2@2 ~@4 a1@35 ~]/3",
})).s("gm_piano").gain(0.25)

// chords · piano · "PIANO2"
const piano = note(`<
  ~@17 A@3 B C D@2 A E C A@2 F@3 G H I J K L I M N ~@12 A@3 B C O@2 A E C A@2 F@3 P Q I R S L I T U F@3 V Q I W X L I Y
  Z@2 AA ~
>`.pickRestart({
  A: "[e4,a4,c#5] ~@2 [e4,a4,c#5]!2 ~@2 [e4,a4,c#5]!2 ~@2 [e4,a4,c#5]!2 ~@2 [e4,a4,c#5]", // A
  B: "[e4,g4,c#5] ~@2 [e4,g4,c#5]!2 ~@2 [e4,g4,c#5]!2 ~@2 [e4,g4,c#5]!2 ~@2 [e4,g4,c#5]", // C#dim
  C: "[f#4,a4,d5] ~@2 [f#4,a4,d5]!2 ~@2 [f#4,a4,d5]!2 ~@2 [f#4,a4,d5]!2 ~@2 [f#4,a4,d5]", // D
  D: "[[f#4,a4,d5] ~@2 [f#4,a4,d5]!2 ~@2 [f#4,a4,d5]!2 ~@2 [f#4,a4,d5] [f#4,a4] ~@2 [f#4,d5] [e4,c#5] ~@2 [e4,a4,c#5]!2 ~@2 [e4,a4,c#5]!2 ~@2 [e4,a4,c#5]!2 ~@2 [e4,a4,c#5], ~@12 d5@2 ~ a4@2 ~@15]/2", // D F#m D C#m A
  E: "[e4,g#4,b4] ~@2 [e4,g#4,b4]!2 ~@2 [e4,g#4,b4]!2 ~@2 [e4,g#4,b4]!2 ~@2 [e4,g#4,b4]", // E
  F: "[c#5,e5,a5] ~@2 [c#5,e5,a5]!2 ~@2 [c#5,e5,a5]!2 ~@2 [c#5,e5,a5]!2 ~@2 [c#5,e5,a5]", // A
  G: "a4@2 ~ [c#5,e5] [a4,c#5,e5] g5@2 [a4,e5,g5] [a4,c#5] [c#5,e5,g5] ~ [a4,c#5,e5,g5]!2 [a4,e5,g5] ~ c#5, e5 ~@15", // C#m A A7 A C#dim A7
  H: "[d5,f#5,g5,a5] ~@2 [d5,f#5,a5]!3 ~ [d5,f#5,a5]!3 ~ [d5,f#5,a5]!3 ~ [d5,f#5,a5]", // D
  I: "[d5,f#5,a5]!2 ~ [d5,f#5,a5]!3 ~ [d5,f#5,a5]!3 ~ [d5,f#5,a5]!3 ~ [d5,f#5,a5]", // D
  J: "[e5,a5] [c#5,e5,a5] ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]", // A5 A
  K: "[c#5,e5,a5]!2 ~ [c#5,e5,a5] [e5,a5] ~ a4 [b4,c5,d5,e5,f5,g5] [a5,b5] c6 [a5,b5] [e5,f5,g5] [c5,d5] [d4,e4,f4,g4,a4,b4] [b3,c4] [c3,d3,e3,f3,g3,a3]", // A A5 Cmaj7 Asus2 Em Csus2 Em7 Cmaj7 …
  L: "[e5,g#5,b5]!2 ~ [e5,g#5,b5]!3 ~ [e5,g#5,b5]!3 ~ [e5,g#5,b5]!3 ~ [e5,g#5,b5]", // E
  M: "[c#5,e5,g5,a5] [c#5,e5,a5] ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5] [c#5,a5] [c#5,e5,a5] ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]", // A7 A F#m A
  N: "[c#5,e5,a5]!2 ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]", // A
  O: "[[f#4,a4,d5] ~@2 [f#4,a4,d5]!2 ~@2 [f#4,a4,d5]!2 ~@2 [f#4,a4,d5]!2 ~@2 [f#4,d5] [e4,c#5] ~@2 [e4,a4,c#5]!2 ~@2 [e4,a4,c#5]!2 ~@2 [e4,a4,c#5]!2 ~@2 [e4,a4,c#5], ~@15 a4@2 ~@15]/2", // D C#m A
  P: "a4@2 ~@3 [c#5,e5,g5] a4 [e5,g5] a4 [c#5,e5,g5] a4 [a4,c#5,e5,g5] [e5,g5] [c#5,e5] c#5 ~, e5 ~@12 [a4,g5]@2 ~", // C#dim Em C#dim A7 Em C#m A7
  Q: "[d5,f#5,a5] ~@2 [d5,f#5,a5]!3 ~ [d5,f#5,a5]!3 ~ [d5,f#5,a5]!3 ~ [d5,f#5,a5]", // D
  R: "[e5,f5,a5] [c#5,e5,a5] ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]", // Fmaj7 A
  S: "[c#5,e5,a5]!2 ~ [e5,a5]!2 ~ a4 [b4,c5,d5,e5,f5,g5] [a5,b5] c6 [a5,b5] [e5,f5,g5] [c5,d5] [d4,e4,f4,g4,a4,b4] [b3,c4] [b2,c3,d3,e3,f3,g3,a3], ~@3 c#5@2 ~@11", // A A5 Cmaj7 Asus2 Em Csus2 Em7 Cmaj7 …
  T: "[c#5,e5,g5,g#5,a5] [c#5,e5,a5] ~ [c#5,d#5,e5,a5] [c#5,e5,a5]!2 ~ [c#5,e5,a5] [c#5,a5] [c#5,e5,a5] ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]", // A7 A F#m A
  U: "[c#5,e5,a5]!2 ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]!3 ~ [c#5,e5,g#5,a5] [c#5,e5,a5]!2 ~ [c#5,e5,a5]", // A Amaj7 A
  V: "a4@2 ~@3 [c#5,e5,g5] a4 [e5,g5] a4 [c#5,e5,g5] a4 [a4,c#5,e5,g5] [e5,g5] [a4,c#5,e5,g5] c#5 [e5,f5], e5 ~@15", // C#dim Em C#dim A7 Em A7 Fmaj7
  W: "[e5,a5] [c#5,e5,a5] ~ [e5,a5] [c#5,e5,a5]!2 ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]!3 ~ [c#5,e5,a5]", // A5 A A5 A
  X: "[c#5,e5,a5]!2 ~ [c#5,e5,a5] [e5,a5] ~ a4 [b4,c5,d5,e5,f5,g5] [a5,b5] c6 [a5,b5] [e5,f5,g5] [c5,d5] [d4,e4,f4,g4,a4,b4] [b3,c4] [b2,c3,d3,e3,f3,g3,a3]", // A A5 Cmaj7 Asus2 Em Csus2 Em7 Cmaj7 …
  Y: "a2@4 c#3@3 ~ d3@4 d#3@3 ~", Z: "[e3@2 ~ f#3 g#3 ~@2 a3 ~@4 a2@19 ~]/2",
  AA: "~@3 [e1,f1,g1,a1,b1] [c1,d1,e1] [f5,g5,a5,b5,c6] e5 [f4,g4,a4,b4,c5,d5] [d4,e4] [d3,d#3,e3,f3,g3,a3,a#3,b3,c4] [a2,b2,c3] [c2,d2,e2,f2,g2] ~@4", // Em C F Dm7 Dsus2 Am C
})).s("gm_piano").gain(0.16).pan(0.7)

// bass · acoustic bass · "BASS"
const bass_2 = note(`<
  ~ A@2 B@4 A C D@2 E B F G B H B@3 I G@2 B@2 J G A K B A B L D M B A N G A O B A@2 L D@2 B@2 N G A P A B@2 Q D@2 B@2 F
  G R S A T U L G@2 B@2 F G R V B@3 W G X R B Y G Z AA@3 ~
>`.pickRestart({
  A: "a1@4 c#2@3 ~ e2@3 ~ c#2@3 ~", B: "a1@3 ~ c#2@3 ~ e2@3 ~ c#2@3 ~", C: "a1@3 ~ a1@3 ~ b1@3 ~ c#2@2 ~@2",
  D: "d2@3 ~ f#2@3 ~ a2@3 ~ f#2@3 ~", E: "a1@3 ~ c#2@3 ~ e2@3 ~ c#2@3 ~, g1 ~@15", F: "e2@3 ~ g#2@3 ~ b2@3 ~ g#2@3 ~",
  G: "d2@4 f#2@3 ~ a2@3 ~ f#2@3 ~", H: "a1@3 ~ e1@3 ~ f#1@3 ~ g#1@2 ~@2",
  I: "a1@2 ~@2 a1@3 ~ b1@3 ~ c#2@2 ~@2, b1 ~@15", J: "e2@4 g#2@3 ~ b2@3 ~ g#2@3 ~",
  K: "a1@2 ~@2 e1@3 ~ f#1@3 ~ g#1 ~@3", L: "a1@3 ~ a1@3 ~ b1@3 ~ c#2@3 ~", M: "d2@3 ~ f#2@3 ~ a2@4 f#2@3 ~",
  N: "e2@3 ~ g#2@3 ~ b2@4 g#2@3 ~", O: "a1@3 ~ [e1,f1]@3 ~ f#1@3 ~ g#1@2 ~@2",
  P: "a1@3 ~ e1@3 ~ f#1@3 ~ g#1@2 ~@2, ~@4 f1 ~@11", Q: "a1@2 ~@2 a1@3 ~ b1@3 ~ c#2@3 ~",
  R: "a1@3 ~ c#2@3 ~ e2@4 c#2@3 ~", S: "a1@2 ~@2 e1@3 ~ f#1@3 ~ g#1@3 ~", T: "a1@2 c#2@2 e2@2 c#2 ~",
  U: "a1@4 c#2@3 ~ e2@4 c#2@3 ~", V: "a1@2 ~@2 e1@3 ~ f#1@3 ~ g#1@2 ~@2", W: "a1@3 ~ c#2@4 e2@3 ~ c#2@3 ~",
  X: "d2@4 f#2@3 ~ a2@3 ~ f#2@2 ~@2", Y: "e2@4 g#2@3 ~ b2@4 g#2@3 ~", Z: "a1@4 c#2@4 e2@3 ~ c#2@3 ~",
  AA: "[a1 ~@3 e1 ~ a1 ~@5 a1@36]/3",
})).s("gm_acoustic_bass").gain(0.19)

// drums · kick
const kick = s("bd").struct("<~ [x!2]!87 [x ~@2 x] [x ~@3 x ~@6 x ~@4] [x ~@10 x ~@4] ~>").gain(0.35)

// drums · snare
const snare = s("sd").struct("<[~@11 x!2 ~@3] [~ x ~ x]!3 [~@4 x ~@6 x!2 ~@3] [~ x ~ x]!83 [x ~@2 x!2 ~@2 x ~@8] ~@3>")
  .gain(0.45)

// drums · low tom
const low_tom = s("lt").struct("<~@90 [~@9 x ~@6] ~>").gain(0.35)

// drums · mid tom
const mid_tom = s("mt").struct("<~@90 [~@9 x ~@6] ~>").gain(0.35)

// drums · crash
const crash = s("cr").struct("<~@88 [~@3 x] [x ~@3 x ~@6 x ~@4] x ~>").gain(0.4)

// drums · high tom
const high_tom = s("ht").struct("<~@90 [~@9 x ~@6] ~>").gain(0.35)

// drums · ride
const ride = s("rd").struct("<~ [x ~@3 x ~@2 x!2 ~@3 x ~@2 x]!87 x ~@3>").gain(0.35)

stack(bass, piano, bass_2, kick, snare, low_tom, mid_tom, crash, high_tom, ride)