// Taxman — The Beatles
// 120 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: track names are the Roland MT-32 patch names at their program numbers ("Syn Brass 1" on 24, "Elec Guitar 2" on 62, "Sitar" on 63, "Slap Bass 2" on 69), so with no bank select the whole file is read through the MT-32 patch table: ch 3 "Syn Brass 1" Syn Brass 1 -> synth brass 1; ch 2 "Elec Guitar 2" Elec Gtr 2 -> overdriven guitar; ch 5 "Sitar" Sitar -> sitar; ch 4 "Slap Bass 2" Slap Bass 2 -> slap bass 2
// note: Full arrangement: all 84 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(120/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.

// chords · synth brass 1 · "Syn Brass 1"
const synth_brass_1 = note(`<
  ~ A@3 ~ A@3 ~ B C D@3 E F@2 ~ A@3 ~ B C D@3 G@7 H@3 I ~@6 B C D@3 E F@2 ~ A@3 ~ B C D@3 E F@2 ~ A@3 ~ B C J@4 K L ~@5
  M
>`.pickRestart({
  A: "[~@6 a4 c5@2 d5@2 d5@2 c5@2 e5@2 c5@2 a4@3 ~@2]/3", B: "~@5 c5 d5 c5", C: "e5 c5@2 ~",
  D: "[~ [f5,a5]@2 [e5,g5]@3 [e5,g5] [d5,g5]@2 [d5,g5]@2 b4@5 a4@3 ~@5, ~@11 d5@8 ~@5]/3", E: "~@6 a4 c5",
  F: "[c5 ~ d5@4 d5@4 c5@4 e5@4 c5@4 a4@6 ~@4]/2",
  G: "[~@5 [a4,c5]!2 [c5,e5]@2 [d5,f#5]@2 [d5,f#5]@2 [d5,f#5]@7 ~ [a4,c5]!2 [c5,e5]@2 [d5,f#5]@2 [d5,f#5]@2 [d5,f#5]@2 [d5,g5]@5 ~ [a4,c5]!2 [c5,e5]@2 [d5,f#5]@2 [d5,f#5]@2 [d5,f#5]@7 ~ [a4,c5]!2 [c5,e5]]/7", // Am C D Am C D G5 Am …
  H: "[~ [d5,f#5]@2 [d5,f#5]@2 [c5,g5]@19]/3", I: "[f#5,a5] [f#5,a5]@3",
  J: "[~ [f5,a5]@2 [e5,g5]@3 [e5,g5] [d5,g5]@2 [d5,g5]@2 b4@5 a4@3 ~@2 a4@2 b4@2 c5@3 b4@2 c5@2, ~@11 d5@8 ~@13]/4", // F Em G5
  K: "d5 c5@2 b4", L: "a4", M: "c4!2 ~@2",
})).s("gm_synth_brass_1").gain(0.56)

// chords · overdriven guitar · "Elec Guitar 2"
const overdriven_guitar = note(`<
  A B C@2 D B C@2 D B E F@2 A B C@2 D B C@2 D B E F@2 A G@7 H@2 I J K L M N O P Q E F@2 A B C@2 D B C@2 D B E F@2 A B
  C@2 D B C@2 D B E F@2 R S@2 T K U M N O V
>`.pickRestart({
  A: "~ [f#4,c5,d5] ~ [f#4,c5,d5]", B: "~ [f#4,c5,d5] ~ f#4",
  C: "[~ [f#4,c5]@2 [f#4,c5]@4 [f#4,c5]@2 [d4,f#4,a4]@2 [c4,d4,f#4]@3 [c4,d4,f#4]@2]/2", // F#dim D D7
  D: "[c5,f5] [c5,f5]@2 [c5,d5], f#4 ~@3 f#4 ~@7 f#4 ~@3", E: "~ [e4,a#4] ~ [e4,a#4]",
  F: "[~ g4@2 g4@4 [f4,b4]@2 [f4,b4]@2 f4@5]/2", // Fdim
  G: "[~@2 d5@2 ~@3 f#4@2 f#4@2 f#4@2 [f#4,c5]@2 [f#4,e5]@2 [f#4,c5]@2 a4@3 ~ f#4@2 f#4@2 f#4@2 [f#4,d5]@2 [e4,c5]@2 [d4,b4]@2 g4@3 ~ f#4@2 f#4@2 f#4@2 [f#4,c5]@2 [f#4,e5]@2 [f#4,c5]@2 a4@3 ~ f#4, ~@19 f#4@2 ~@14 e4@2 ~@14 f#4@2 ~@3]/7", // F#dim F#7 F#dim D C G F#dim F#7 …
  H: "[~ f#4@2 f#4@2 [f#4,d5]@2 [e4,c5]@2 [e4,b4]@2 [e4,g4]@5]/2", // D C E5 Em
  I: "[c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~", // C
  J: "d5 d5@3", K: "d4!2 d4@2 d4!2 d4@2 d4!2 d4@2 d4 f4 g4@2", L: "g#4 g4 f4@4 d4@2 ~@4 d4@4, ~ d5",
  M: "g#4 g4 f4 g4 f4@2 d4@4 d4@6", N: "d4 ~@3 c#4 a3 c4@2 b3 a3 b3@2 a3 g3 a3 b3", O: "c4 d4@2 d3@2 d4 d3@2",
  P: "g4@2 f4@4 d4@2 f#4@3 d4 f#4 d4 f#4@2", Q: "g4 f4@2 d4 d5@4", R: "~ [f#4,c5,d5] ~@2",
  S: "[~ [d#4,a4]@5 [d#4,a4]@4 [d#4,a4]@4 [d4,g#4]@2]/2", T: "~ [c4,f#4,a4] ~ [c4,f#4,a4]",
  U: "g#4 g4 f4@4 d4@2 ~@4 [c4,d4]@4, ~ d5", V: "[d4,f#4,a4]!2 ~@2",
})).s("gm_overdriven_guitar").gain(0.56)

// bass · slap bass 2
const bass = note("<A@10 B@2 C A@10 B@2 C A@5 D A@3 D E A@8 B@2 C A@10 B@2 C A@10 B@2 C A F G A@6 H>".pickRestart({
  A: "d1@4 d2@3 g1 a1@2 c2@2 ~@4", B: "c1@4 c2@3 f1 g1@2 a#1@2 ~@4", C: "g1@4 g2@3 c2 d2@2 f2@2 ~@4",
  D: "c1@4 c2@3 a#1 c2@4 ~@4", E: "c2!4", F: "f1!4", G: "f1 ~@3 f1 ~@3 e1@4 e1@4", H: "d1!2 ~@2",
})).s("gm_slap_bass_2").gain(0.56)

// drums · kick
const kick = s("bd").struct("<A@10 B@5 A@8 B@13 C B@13 A@8 B@5 A@8 B@4 C@2 B@6 D>".pickRestart({
  A: "x ~ x ~ x!2 ~@2", B: "x ~@3 x ~@2 x!2 ~ x ~@5", C: "x!4", D: "x!2 ~@2",
})).gain(0.56)

// drums · snare
const snare = s("sd").struct("<[~ x ~ x]!83 [~ x ~@2]>").gain(0.56)

// drums · ride
const ride = s("rd").struct("<~@10 A@3 ~@10 A@3 ~@19 A@3 ~@10 A@3 ~@10 A@3 ~@10>".pickRestart({
  A: "x!4",
})).gain(0.56)

stack(synth_brass_1, overdriven_guitar, bass, kick, snare, ride)