// Magical Mystery Tour — The Beatles
// 174 bpm, 4/4, key A major. Source: 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 ("Bass" on 68, "Brass 2" on 25, "Fantasy" on 32, "Brass" on 24, "Warm Bell" on 38), so with no bank select the whole file is read through the MT-32 patch table: ch 2 "Bass" Slap Bass 1 -> slap bass 1; ch 3 "Brass 2" Syn Brass 2 -> synth brass 2; ch 4 "Fantasy" Fantasy -> pad new age; ch 5 "Brass" Syn Brass 1 -> synth brass 1; ch 6 "Warm Bell" Warm Bell -> pad bowed; ch 7 "Dr Solo" Doctor Solo -> lead 8 bass lead; ch 7 "Dr Solo" Syn Brass 1 -> synth brass 1
// note: Full arrangement: all 95 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 · [...]/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 1 · "Bass"
const bass = note(`<
  A@2 B C D E@2 F G E@2 F G H@2 I J H@2 I J K L M N O@2 E@2 F G E@2 F G H@2 I J H@2 I J K L M N O@2 P Q R@2 P Q R S O P
  E@2 F G E@2 F G H@2 I J H@2 I J T@3 U@3 V@3 T@3 U@3 W@3 X@2
>`.pickRestart({
  A: "[~@3 d2@5]/2", B: "a1", C: "a1@2 e2@2 e1!2 e2@2", D: "e1@2 e2@2 e1!2 e2@2", E: "e2/2", F: "g2", G: "a2",
  H: "e2!4", I: "g2!4", J: "a2!4", K: "d2!2", L: "c2!2", M: "b1!2", N: "a#1!2", O: "a1!4", P: "b1!4",
  Q: "b1@2 b1@2 b1 d#2 f#2 d#2", R: "f#1!4", S: "f#1@2 f#1@2 f#1 g#1@3", T: "[d2 c2]/3", U: "[b1 a#1]/3",
  V: "[a0 a1 a1 a0]/3", W: "[a0 a1 a1@2]/3", X: "[d2@3 ~]/2",
})).s("gm_slap_bass_1").gain(0.4)

// other · synth brass 2 · "Brass 2"
const synth_brass_2 = note(`<
  A@2 B C@2 D E F@2 D E F@2 G H F@2 G H F@2 I@2 J K L M D E F@2 D E F@2 G H F@2 G H F@2 I@2 J K L M N@2 O P N@2 O Q R S
  D E F@2 D E F@2 G H F@2 G H F@2 T U V W@3 X Y@2 T U V W@3 X Z@2 AA@2
>`.pickRestart({
  A: "[~@12 d5@7 a4@2 ~ f#4@10]/2", B: "c#5@3 a4 e4@4", C: "b4/2", D: "~@2 e4 e4@3 e4@2", E: "~ e4 ~ e4",
  F: "[~@2 d4 d4@3 d4 e4@2 e4 d4 c#4@3 e4@2]/2", G: "~@2 e4 e4@2 ~@3", H: "g#4@2 e4 b3@3 g#3@2",
  I: "[~@2 f#4 f#4@2 f#4!2 f#4@2 e4 d4 c4@3 d4@2]/2", J: "d4!2", K: "g3", L: "d4@3 d4@2 d4@3 d4@3 e4@2 f4@3", M: "f#4",
  N: "f#4/2", O: "a4@6 ~@2 f#4@3 g#4@2 a4@3", P: "a4@6 b4 a4", Q: "a4", R: "~@2 e5 ~", S: "~@8 f#5 e5 f#5@2 ~@4",
  T: "~ f#4!3", U: "f#4!3 e4", V: "d4 c#4 ~ d4", W: "[d4!2 g3@2]/3", X: "d4!4", Y: "[e4 f4 f#4@6]/2",
  Z: "[e4 f4 f#4@3 f#4 f4 e4]/2", AA: "[d4@3 ~]/2",
})).s("gm_synth_brass_2").gain(0.23).pan(0.7)

// other · pad new age · "Fantasy"
const pad_new_age = note(`<
  A@2 B C@2 D E F@2 D E F@2 G ~ F@2 G ~ F@2 H ~ I ~ J K D E F@2 D E F@2 G ~ F@2 G ~ F@2 H ~ I ~ J K L@2 M N L@2 M O P Q
  D E F@2 D E F@2 G ~ F@2 G ~ F@2 R ~@2 S@2 ~ T U@2 R ~@2 S@2 ~ T V@2 W@2
>`.pickRestart({
  A: "[~@12 a4@7 ~@3 d4@10]/2", B: "a4@3 ~ c#4@4", C: "g#4/2", D: "~@2 b3 b3@3 b3@2", E: "~ b3 ~ b3",
  F: "[~@2 b3 b3@3 b3 c#4@2 ~@5 c#4@2]/2", G: "~@2 b3 b3@2 ~@3", H: "~@2 d4 d4@2 ~@3", I: "g3!2",
  J: "a3@3 a3@2 a3@3 a3@3 b3@2 c4@3", K: "c#4", L: "d#4/2", M: "f#4 ~", N: "f#4@6 g#4 f#4", O: "f#4", P: "~@2 c#5 ~",
  Q: "~@8 d#5 c#5 d#5@2 ~@4", R: "~ d4 ~@2", S: "[g3@3 g3@3 ~@2]/2", T: "a3!4", U: "[b3 c4 c#4@6]/2",
  V: "[b3 c4 c#4@3 c#4 c4 b3]/2", W: "[a3@3 ~]/2",
})).s("gm_pad_new_age").gain(0.23).pan(0.4)

// other · synth brass 1 · "Brass"
const synth_brass_1 = note("<A@2 B C@2 D E ~@2 D E ~@16 D E ~@2 D E ~@18 F ~@3 F ~ G ~ D E ~@2 D E ~@30>".pickRestart({
  A: "[~@12 f#4@7 ~@13]/2", B: "e4@3 ~@5", C: "e4/2", D: "~@2 g#3 g#3@3 g#3@2", E: "~ g#3 ~ g#3", F: "c#4 ~",
  G: "~@2 a4 ~",
})).s("gm_synth_brass_1").gain(0.4)

// other · pad bowed · "Warm Bell"
const pad_bowed = note(`<
  ~@5 A@2 B C A@2 B C D@2 E F D@2 E F G H I J ~@2 A@2 B C A@2 B C D@2 E F D@2 E F G H I J ~@12 A@2 B C A@2 B C D@2 E F
  D@2 E F K@3 L@3 ~@3 K@3 L@3 ~@3 M@2
>`.pickRestart({
  A: "e2/2", B: "g2", C: "a2", D: "e2!4", E: "g2!4", F: "a2!4", G: "d2!2", H: "c2!2", I: "b1!2", J: "a#1!2",
  K: "[d2 c2]/3", L: "[b1 a#1]/3", M: "[d2@3 ~]/2",
})).s("gm_pad_bowed").gain(0.23)

// drums · kick
const kick = s("bd").struct("<~@3 [x ~@3 x!2 ~@2]!22 ~@2 [x ~@3 x!2 ~@2]!49 ~@19>").gain(0.46)

// drums · rim
const rim = s("rim").struct("<~@3 [~ x ~ x]!22 ~@2 [~ x ~ x]!49 ~@19>").gain(0.46)

// drums · snare
const snare = s("sd").struct("<~@3 [~ x ~ x]!22 ~@2 [~ x ~ x]!49 ~@19>").gain(0.46)

// drums · hihat
const hihat = s("hh").struct("<~@3 [~ x ~ x]!22 ~@2 [~ x ~ x]!49 ~@19>").gain(0.46)

// drums · high tom
const high_tom = s("ht").struct("<~@3 [~ x ~ x]!22 ~@2 [~ x ~ x]!49 ~@19>").gain(0.46)

// drums · crash
const crash = s("cr").struct("<~@37 A ~ A ~@3 B@2 ~@12 A@2 C ~@35>".pickRestart({
  A: "x!2", B: "x!4", C: "x",
})).gain(0.46)

// drums · ride
const ride = s("rd").struct("<~@49 [x!4]!8 ~@38>").gain(0.37)

stack(bass, synth_brass_2, pad_new_age, synth_brass_1, pad_bowed, kick, rim, snare, hihat, high_tom, crash, ride)