// Help! — The Beatles
// 192 bpm, 4/4, key A major. Source: mcgill + midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: pitch bends are ignored
// note: track names are the Roland MT-32 patch names at their program numbers ("Slap Bass2" on 69, "Elec Gtr 1" on 61, "Brass etc." on 25, "Brass etc." on 24, "Elec Gtr 2" on 62), so with no bank select the whole file is read through the MT-32 patch table: ch 2 "Slap Bass2" Slap Bass 2 -> slap bass 2; ch 3 "Elec Gtr 1" Elec Gtr 1 -> electric guitar clean; ch 4 "Str etc." Elec Gtr 2 -> overdriven guitar; ch 4 "Str etc." Elec Gtr 1 -> electric guitar clean; ch 5 "Brass etc." Syn Brass 2 -> synth brass 2; ch 5 "Brass etc." Doctor Solo -> lead 8 bass lead; ch 6 "Brass etc." Syn Brass 1 -> synth brass 1; ch 6 "Brass etc." Square Wave -> lead 1 square; ch 7 "Elec Gtr 2" Elec Gtr 2 -> overdriven guitar; ch 7 "Elec Gtr 2" Elec Gtr 1 -> electric guitar clean
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 107 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): Str etc..
setcpm(192/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 · "Slap Bass2"
const bass = note(`<
  A B C D E@2 ~@2 F@2 G@2 H@2 I J F@2 G@2 H@2 I K L@3 M N@3 O P Q P Q R@2 S J F@2 G@2 H@2 I J F@2 G@2 H@2 I K L@3 M N@3
  O P Q P Q R@2 S J R@2 T@2 U@2 V W F@2 G@2 H@2 I K L@3 M N@3 O P Q P Q R@2 X Y Z@3
>`.pickRestart({
  A: "c3!4", B: "c3!2 a#2!2", C: "g#2!4", D: "g#2!2 g2!2", E: "f2!4", F: "a#2@3 a#2 f2@4", G: "d2@3 d2 a2@4",
  H: "g2@3 g2 d2@4", I: "d#2@3 d#2 g#2@4", J: "a#2@3 a#2 f2@2 g#2@2", K: "a#2!8", L: "c2!2 g1!2", M: "c2!2 a#1!2",
  N: "g#1!2 d#2!2", O: "g#1!2 g1!2", P: "f1!2 a1!2", Q: "c2!2 a1 c2", R: "a#1/2", S: "a#2 f2", T: "d2/2", U: "g2/2",
  V: "[d#2,a#2] [g#1,d#2]", W: "[a#1,f2]", X: "g1!2 d2!2", Y: "g2!2 d2 g2", Z: "[a#1@5 ~]/3",
})).s("gm_slap_bass_2").gain(0.3)

// chords · electric guitar clean · "Elec Gtr 1"
const electric_guitar_clean = note(`<
  A B C D E F G@2 H I J K L M N O H I J K L M P Q R@3 B D@3 S T@2 U T G@2 V W H I J K L M N O H I J K L M P Q R@3 B D@3
  S T@2 U T X@2 V W Y Z Y Z AA@2 AB AC H I J K L M P Q R@3 B D@3 S T@2 U T X@2 L@2 AD@3
>`.pickRestart({
  A: "[c3,g3,c4,d#4,g4]@2 [g3,c4,d#4,g4]@2 [g3,c4,d#4,g4]!2 [g3,c4,d#4,g4]@2", // Cm
  B: "[g3,c4,d#4,g4]@2 [g3,c4,d#4,g4]@2 [g3,c4,d#4,g4] [g#3,c4,d#4,g#4] [g#3,c4,d#4,g#4]@2", // Cm G#
  C: "[d#3,g#3,c4,d#4,g#4]@2 [g#3,c4,d#4,g#4]@2 [g#3,c4,d#4,g#4]!2 [g#3,c4,d#4,g#4]@2", // G#
  D: "[g#3,c4,d#4,g#4]@2 [g#3,c4,d#4,g#4]@2 [g#3,c4,d#4,g#4]!2 [g#3,c4,d#4,g#4]@2", // G#
  E: "[c3,f3,a3,c4,f4]@2 [f3,a3,c4,f4]@2 ~ [f3,a3,c4,f4]!3", F: "[f3,a3,c4,f4]@2 [f3,a3,c4,f4]@2 ~ [f3,a3,c4,f4]!3",
  G: "[f3,g#3,d4,f4]/2", H: "[f3,a#3,d4,f4]@2 [f3,a#3,d4,f4]@2 [f3,a#3,d4,f4]!2 [f3,a#3,d4,f4]@2",
  I: "[f3,a#3,d4,f4]@2 [f3,a#3,d4,f4]!4 [f3,a#3,d4,f4]@2", // A#
  J: "[a3,d4,f4,a4]@2 [a3,d4,f4,a4]@2 [a3,d4,f4,a4]!2 [a3,d4,f4,a4]@2", // Dm
  K: "[a3,d4,f4,a4]@2 [a3,d4,f4,a4]!4 [a3,d4,f4,a4]@2", // Dm
  L: "[g3,a#3,d4,g4]@2 [g3,a#3,d4,g4]@2 [g3,a#3,d4,g4]!2 [g3,a#3,d4,g4]@2", // Gm
  M: "[g3,a#3,d4,g4]@2 [g3,a#3,d4,g4]!4 [g3,a#3,d4,g4]@2", // Gm
  N: "[d#3,a#3,d#4,g4]@4 [d#3,g#3,c4,g#4] [d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4]", // D# G#
  O: "[f3,a#3,d4,f4]!2 [f3,a#3,d4,f4]@2 [f3,a#3,d4,f4]@2 [f3,a#3,d4,f4]!2", // A#
  P: "[d#3,a#3,d#4,g4]@2 [d#3,a#3,d#4,g4]@2 [d#3,g#3,c4,g#4] [d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4]", // D# G#
  Q: "[f3,a#3,d4,f4]!2 [f3,a#3,d4,f4]@2 [f3,a#3,d4,f4] ~ [f3,a#3,d4,f4] ~", // A#
  R: "[g3,c4,d#4,g4]@2 [g3,c4,d#4,g4]@2 [g3,c4,d#4,g4]!2 [g3,c4,d#4,g4]@2", S: "[g#3,c4,d#4,g#4]!8",
  T: "[f3,a3,c4,f4]@2 [f3,a3,c4,f4]@2 [f3,a3,c4,f4]!2 [f3,a3,c4,f4]@2", // F
  U: "[f3,a3,c4,f4]@2 [f3,a3,c4,f4]@2 [f3,a3,c4,f4]!4", V: "[f3,a#3,d4,f4]@2 [f3,a#3,d4,f4]@3 [f3,a#3,c4,f4]!3",
  W: "[f3,a#3,d4,f4]@2 [f3,a#3,c4,f4]@3 [f3,a#3,c4,f4]!3", X: "[d4 d4, [f3,g#3,f4]]/2",
  Y: "[f3,a#3,d4,f4]@2 [f3,a#3,d4,f4]@2 [f3,a#3,d4,f4] [f3,a#3,d4,f4]@3", // A#
  Z: "[f3,a#3,d4,f4]@2 [f3,a#3,d4,f4]!3 [f3,a#3,d4,f4]@3", // A#
  AA: "[g3,a#3,d4,g4]@2 [g3,a#3,d4,g4] [g3,a#3,d4,g4]@2 [g3,a#3,d4,g4] [g3,a#3,d4,g4]@2", // Gm
  AB: "[d#3,a#3,d#4,g4]!2 [d#3,g#3,c4,g#4]!2", // D# G#
  AC: "[f3,a#3,d4,f4]!2 [f3,a#3,d4,f4]@2 [f3,a#3,d4,f4]@2 [f3,a#3,d4,f4]@2", AD: "[[f3,a#3,d4,f4]@5 ~]/3",
})).s("gm_electric_guitar_clean").gain(0.3).pan(0.3)

// other · synth strings 1 · "Str etc."
const synth_strings_1 = note(`<
  A ~ B ~ C ~ D ~ E@2 F G H@2 I@2 E@2 F J K L M@2 ~@16 E@2 F G H@2 I@2 E@2 F J K L M@2 ~@24 K N F J K L M@2 ~@19
>`.pickRestart({
  A: "[d#5,g5]@3 ~@13", B: "[d#5,g#5]@3 ~@13", C: "[f5,a5]@3 ~@13", D: "[f5,d6]@3 [d#5,c6] [d5,a#5]@2 ~@2",
  E: "[a#4@5 a#4 c5 a#4]/2", F: "a4", G: "~@2 d5@2 f5 d5@3", H: "[a#4@3 ~]/2", I: "[a#4@2 a#4@2 c5 c5@2 a#4@3 ~@6]/2",
  J: "~@2 d5@2 f5 d5 c5@2", K: "a#4", L: "~@7 a#4", M: "[a#4@2 a#4@2 c5@2 c5 a#4@3 ~@6]/2", N: "a#4!2 c5 a#4",
})).s("gm_synth_strings_1").gain(0.18).pan(0.7)

// chords · overdriven guitar · "Str etc."
const overdriven_guitar = note("<~@27 A ~@31 A ~@31 A ~@10 B ~@4>".pickRestart({
  A: "~@12 g3@3 ~", B: "f2 ~@15",
})).s("gm_overdriven_guitar").gain(0.3).pan(0.7)

// other · electric guitar clean · "Str etc."
const electric_guitar_clean_2 = note("<~@36 A B ~@30 A B ~@2 C@2 D@2 E@2 ~@22 A B ~@5>".pickRestart({
  A: "f3 g#3 a#3 d4 f3 g#3 a#3 c4", B: "d#3 f3 g#3 c4 d3 f3 g#3 a#3", C: "[~@3 a#4@5, a#3, ~ d4@7, ~@3 f4@13]/2",
  D: "[~ a4@3, d4, ~ f4@7]/2", E: "[~ f4, d4, ~ f4@3 ~@4, ~ a#4@3, ~@5 d5@11]/2",
})).s("gm_electric_guitar_clean").gain(0.33).pan(0.7)

// chords · synth brass 2 · "Brass etc." · D# G#5 F
const synth_brass_2 = note("<[[d#5,g5]@3 ~@13] ~ [[d#5,g#5]@3 ~@13] ~ [[f5,a5]@3 ~@13] ~@102>")
  .s("gm_synth_brass_2").gain(0.59).pan(0.3)

// other · synth brass 1 · "Brass etc."
const synth_brass_1 = note(`<
  [~@7 f5]
  [g5 f5!2 d#5]
  [~@10 c5@3 d#5@3]
  [g5@2 f5@5 ~ f5@4 d#5@4]
  [~@5 c5 d#5@2]
  [g5 f5 f5@2]
  ~@101
>`).s("gm_synth_brass_1").gain(0.45).pan(0.3)

// chords · lead 1 square · "Brass etc."
const lead_1_square = note(`<
  ~@14 A@2 ~@5 B C@2 ~@8 D@2 E F G H I ~@7 A@2 ~@5 B C@2 ~@8 D@2 E F G H I ~@14 B C@2 ~@8 D@2 E F G H J K L M@2
>`.pickRestart({
  A: "[a#4@2 a#4@2 c5 c5@2 a#4@3 ~@6]/2", B: "~@7 a#4", C: "[a#4@2 a#4@2 c5@2 c5 a#4@3 ~@6]/2",
  D: "[[a5,c6]@2 [a5,c6] [a5,c6]@2 [a5,c6]@2 [a5,c6]@3 [g5,a#5]@2 [f5,a5]@2 [d#5,g5]@2]/2", // Am Gm F D#
  E: "[g5,a#5]@2 [f5,a5] [d#5,g5]", F: "~@2 f5!2", G: "a#5", H: "c6 a#5@3 f5 d#5@3", I: "d5 ~@3", J: "d5 ~ [d5,g5]@2",
  K: "~ [d5,g5]", L: "[d5,a#5] [a#4,f5]", M: "[~ [a#4,g5]@22 ~@9]/2",
})).s("gm_lead_1_square").gain(0.36).pan(0.3)

// other · overdriven guitar · "Elec Gtr 2"
const overdriven_guitar_2 = note(`<
  ~ A B@2 C@2 ~@21 A D ~@2 E C@2 ~@25 A D ~@2 E C@2 ~@25 A D ~@2 E C@2 ~@9
>`.pickRestart({
  A: "c3 a#2", B: "[g#2@3 g2]/2", C: "f2/2", D: "g#2", E: "g#2 g2",
})).s("gm_overdriven_guitar").gain(0.33).pan(0.7)

// other · electric guitar clean · "Elec Gtr 2"
const electric_guitar_clean_3 = note("<~@6 [f3 g#3 a#3 d4 f3 g#3 a#3 c4] [d#3 f3 g#3 c4 d3 f3 g#3 a#3] ~@99>")
  .s("gm_electric_guitar_clean").gain(0.33).pan(0.7)

// chords · synth strings 1 · "Elec Gtr 2"
const synth_strings_1_2 = note("<~@102 A B C D@2>".pickRestart({
  A: "d5@2 ~@2 [d5,g5]@3 ~", B: "~@4 [d5,g5]@3 ~", C: "[d5,a#5] [a#4,f5]", D: "[~ [a#4,g5]@22 ~@9]/2",
})).s("gm_synth_strings_1").gain(0.19).pan(0.7)

// drums · kick
const kick = s("bd").struct(`<
  A ~ A ~ A ~ A ~ B@15 A B@12 A ~ B@17 A B@12 A ~ B@2 A ~@7 B@7 A B@12 A ~ B@2 A ~@2
>`.pickRestart({
  A: "x", B: "x!2",
})).gain(0.51)

// drums · snare
const snare = s("sd").struct("<~@8 A@15 B A@12 ~@2 A@17 B A@12 ~@2 A@2 ~@8 A@7 B A@12 ~@2 A@2 ~@3>".pickRestart({
  A: "~ x ~ x", B: "~ x!7",
})).gain(0.57)

// drums · hihat
const hihat = s("hh").struct("<A B A B A B ~@2 C@15 ~@17 C@15 ~@25 C@7 ~@20>".pickRestart({
  A: "~ x!3", B: "x!4", C: "x!8",
})).gain(0.38)

// drums · crash
const crash = s("cr").struct(`<
  A ~ A ~ A ~ A ~@16 A@2 ~@11 A ~@18 A@2 ~@11 A ~@3 A ~ A ~ A ~ B A ~@7 A@2 ~@11 A ~@3 A ~@2
>`.pickRestart({
  A: "x", B: "x!2",
})).gain(0.57)

// drums · high tom
const high_tom = s("ht").struct("<~@7 A ~@15 B ~@31 B ~@31 B ~@19>".pickRestart({
  A: "~@12 x!4", B: "~ x!7",
})).gain(0.51)

// drums · ride
const ride = s("rd").struct("<~@24 A B@11 ~@2 B@2 ~@16 A B@11 ~@2 B@2 ~@16 A B@11 ~@2 B@2 ~@3>".pickRestart({
  A: "~ x!7", B: "x!8",
})).gain(0.38)

// drums · tambourine
const tambourine = s("tb").struct("<~@24 A@12 B ~ A@2 ~@16 A@12 B ~ A@2 ~@16 A@12 B ~ A@2 ~@3>".pickRestart({
  A: "x!8", B: "x",
})).gain(0.26)

// drums · congas
const congas = s("conga:18").struct("<~@6 A B ~@28 B@2 ~@30 B@2 ~@30 B@2 ~@5>".pickRestart({
  A: "~@3 x", B: "~ x ~ x",
})).gain(1.84)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~@24 A@12 ~@2 A@2 ~@16 A@12 ~@2 A@2 ~@16 A@12 ~@2 A@2 ~@3>".pickRestart({
  A: "~ x ~ x",
})).gain(2.26)

stack(
  bass, electric_guitar_clean, synth_strings_1, overdriven_guitar, electric_guitar_clean_2, synth_brass_2,
  synth_brass_1, lead_1_square, overdriven_guitar_2, electric_guitar_clean_3, synth_strings_1_2, kick, snare, hihat,
  crash, high_tom, ride, tambourine, congas, cabasa
)