// Ticket to Ride — The Beatles
// 126 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: track names are the Roland MT-32 patch names at their program numbers ("Fretless 2" on 71, "Org etc." on 8, "Syn Brass1" on 24, "Gtr etc." on 62, "Bass etc." on 31, "Honkytonk" on 7, "Tel etc." on 123), so with no bank select the whole file is read through the MT-32 patch table: ch 2 "Fretless 2" Fretless 2 -> fretless bass; ch 3 "Org etc." Elec Org 1 -> drawbar organ; ch 3 "Org etc." Elec Gtr 2 -> overdriven guitar; ch 4 "Syn Brass1" Syn Brass 1 -> synth brass 1; ch 5 "Gtr etc." Elec Gtr 2 -> overdriven guitar; ch 6 "Bass etc." Syn Bass 4 -> synth bass 2; ch 6 "Bass etc." Square Wave -> lead 1 square; ch 7 "Honkytonk" Honkytonk -> piano; ch 8 "Tel etc." Telephone -> telephone; ch 8 "Tel etc." Chorale -> choir aahs
// note: duplicate parts dropped: ch 6 "Bass etc." lead 1 square (copy of ch 3 "Org etc." overdriven guitar)
// note: Full arrangement: all 98 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(126/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 · fretless bass · "Fretless 2"
const bass = note(`<
  ~@2 A@8 B C D E D F D G H@2 A@6 B C I J I F I K L M N@2 O P N@2 O Q@2 A@6 B C I J I F I K L M N@2 O P N@2 O Q@2 A@6 B
  C I J I F I K L R S@11 T
>`.pickRestart({
  A: "a1@5 ~ a1@2 a1@5 ~@3", B: "b1@5 ~ b1@9 ~", C: "e2@5 ~ e2@9 ~", D: "f#2@5 ~ f#2@7 ~@3", E: "d2@5 ~ d2@7 ~@3",
  F: "g2", G: "e2@5 ~ e2@7 ~@3", H: "a1@5 ~ a1@7 ~@3", I: "f#2@5 ~ f#2@2 c#2@2 f#2@6", J: "d2@5 ~ d2@2 a1@2 d2@6",
  K: "e2@5 ~ e2@4 b1@2 e2@2 b1@2", L: "a1@5 ~ a1@2 d2@7 ~", M: "a1@5 ~ a1@2 e2@3 ~ a1@3 ~",
  N: "d2@4 d2@3 ~ a1@2 a1@2 a1@2 c2@2", O: "d2@4 d2@3 ~ a1@2 a1@2 a1@2 d2@2", P: "e2@4 e2@3 ~ b1@2 b1@2 e2@2 b1@2",
  Q: "[e2@31 ~]/2", R: "a1@3 ~@13", S: "a1@3 ~ e2@3 ~ a1@3 ~ e2@3 ~", T: "a1@3 ~ e2@3 ~@9",
})).s("gm_fretless_bass").gain(0.48)

// chords · drawbar organ · "Org etc."
const drawbar_organ = note(`<
  ~@2 A@8 B C D E D F D G A@8 B C D E D F D G H A I@3 J I@3 ~@2 A@6 B C D E D F D G H A I@3 J I@3 ~@2 A@6 B C D E D F D
  G H K ~@12
>`.pickRestart({
  A: "~@4 [b3,e4,a4] ~@5 [a3,b3,e4] ~@5", B: "~@4 [b3,f#4,a4] ~@5 [a3,b3,f#4] ~@5",
  C: "~@4 [b3,e4,g#4] ~@5 [b3,d4,e4] ~@5", D: "~@4 [c#4,f#4,a4] ~@5 [a3,c#4,e4] ~@5",
  E: "~@4 [d4,f#4,a4] ~@5 [f#3,a3,d4] ~@5", F: "~@4 [b3,d4,g4] ~@5 [g3,b3,f#4] ~@5",
  G: "~@4 [b3,e4,g#4] ~@5 [g#3,b3,e4] ~@5", H: "~@4 [b3,e4,a4] ~@5 [a3,b3,f#4] ~@5",
  I: "~@4 [d3,f#3,c4] ~@7 [d3,f#3,c4] ~@3", J: "~@4 [e3,g#3,b3] ~@7 [d3,e3,g#3] ~@3", K: "[b3,e4,a4] ~@15",
})).s("gm_drawbar_organ").gain(0.36).pan(0.7)

// other · overdriven guitar · "Org etc."
const overdriven_guitar = note("<~@43 A B ~@23 A B ~@16 C D E F G H I J K@2 I L>".pickRestart({
  A: "~@7 b4@4 ~ g4@2 e4@2", B: "b4@2 d5 b4 f#5 e5 d5 e5", C: "~@3 c#5@3 c5@2 a4@2 e5@2 d5@2 a4@2",
  D: "c#5 c5 c#5 c5 a4@4", E: "~@3 g5@3 f#5@2 e5@2 d5@2 c#5@2 a4@2", F: "~ a4 f#5@2 d5@2 c#5@2",
  G: "a4 c#5 c5 a4 e5 d5 c#5 a4", H: "~ f#5 d5 c#5 a4@2 ~@2", I: "~ [e5,g5] [d5,f#5]@2 [e5,g5] [d5,f#5]@2 [e5,g5]",
  J: "[d5,f#5]@2 c#5 a4 ~ c#5@3", K: "a4 c#5 c5 a4 e5 d5 a4 g5", L: "a4 c#5 c5 a4 ~@4",
})).s("gm_overdriven_guitar").gain(0.29).pan(0.7)

// chords · synth brass 1 · "Syn Brass1"
const synth_brass_1 = note(`<
  ~@3 A B C@3 D@3 ~ E@2 F@2 G@3 A B C@3 D@3 ~ E@2 F@2 G@3 H I J K L I J K M A B C@3 D@3 N E@2 F@2 G@3 H I J K L I J K M
  A B C@3 D@3 N E@2 F@2 G@3 O P O P O P O P O P O P ~
>`.pickRestart({
  A: "~@7 e4", B: "a4 ~ c#5 ~ d5 c#5 a4!2",
  C: "[e4@5 ~ c#5@2 d5@2 c#5@2 d5@2 [e5,a5]@14 ~@2 [e5,a5]@4 ~@12 [e5,g5]@2]/3", // A5 Em
  D: "[[g5,b5]@2 ~@2 [g5,b5]@2 ~@2 [e5,a5]@2 [d5,g5]@2 e5@2 e5 d5 c#5@4 ~@2 c#5@2 d5@2 c#5@2 d5@2 e5@14 ~@4, ~@3 a5@2 ~@7]/3", // G A5 G5
  E: "[c#5@2 e5 c#5 e5!3 e5@5 ~@4]/2", F: "[c#5@2 e5 c#5 e5!3 f#5@4 c#5@3 ~@2]/2",
  G: "[c#5@4 e5@2 c#5@2 e5@2 e5@2 e5@2 g5@6 ~@2 [b4,e5]@2 [e5,a5]@2 [e5,a5]@3 ~ e5@4 ~ c#5@7 ~@6, ~@5 a5@2 ~, ~@17 d5 ~@6]/3", // E5 A5
  H: "~@7 [a3,a4]", I: "[d4,f#4] [c4,e4] [d4,f#4] [c4,e4] [d4,f#4] [c4,e4] [d4,f#4]!2",
  J: "[d4,f#4]@2 [c4,f#4]@2 ~@9 [d4,f#4]!2 [c4,e4]", // D Cdim D C
  K: "[d4,f#4]@2 [d4,f#4]@2 ~ [d4,f#4]!2 [c4,e4] [d4,f#4]@2 [d4,f#4]@3 ~ [d4,f#4]@2", L: "[e4,g#4]@13 ~ [a3,a4]@2",
  M: "[e4,g#4] ~", N: "~@10 e5@3 ~@3", O: "~@4 d5@3 ~ c#5@2 a4@2 e4@2 d4@2, ~@3 a4", P: "[c#4,a4]@7 ~@9",
})).s("gm_synth_brass_1").gain(0.68).pan(0.3)

// chords · overdriven guitar · "Gtr etc."
const overdriven_guitar_2 = note(`<
  A@10 B C D E F G H I A@8 B C D E F G H I A@2 J@3 K J@3 L M A@6 B C D E F G H I A@2 J N J O N J@2 L P A@6 B C D E F G H
  I A Q R S@10 T
>`.pickRestart({
  A: "~@4 e4@2 c#4@2 ~@3 b3@3 e4@2, a3@6 ~@2 a3@5 ~@3", B: "~@4 f#4@2 d4@2 ~@3 b3@3 d4@2, b3@6 ~@2 f#3@5 ~@3",
  C: "[b2,e3,g#3]@2 ~@2 [b2,e3,g#3]@6 [b2,e3,g#3]@3 ~ [b2,e3,g#3]@2", D: "[f#3,a3,c#4] ~ [f#3,a3,e4]@2 [f#3,a3,c#4]!4",
  E: "[f#3,a3,d4] ~ [f#3,a3,d4]@3 [f#3,a3,d4]!3", F: "[f#3,a3,e4] ~ [f#3,a3,e4]@3 [f#3,a3,e4]!2 ~",
  G: "[g3,b3,f#4] [g3,b3,f#4]@2 [g3,b3,f#4]@4 ~", H: "[f#3,a3,e4] ~ [f#3,a3,e4]@2 [f#3,a3,e4]!4",
  I: "[g3,b3,e4] ~ [g#3,b3,e4]@2 [g#3,b3,e4]!4", // Em E
  J: "[f#3,a3,c4]@3 ~ [f#3,a3,c4]@3 ~ [f#3,a3,c4]@2 [f#3,a3,c4]@3 ~ [f#3,a3,c4] ~", // F#dim
  K: "[g#3,b3,e4]@3 ~ [g#3,b3,e4]@3 ~ [g#3,b3,d4]@2 [g#3,b3,d4]@3 ~ [g#3,b3,d4] ~", L: "~ d4@15, [e3,g#3,b3]@15 ~",
  M: "[g#3,b3,d4]@2 [g#3,b3,d4] ~ [g#3,b3,d4]@2 [g#3,b3,d4] ~ [g#3,b3,d4]@2 [g#3,b3,d4] ~ [g#3,b3,d4]@2 [g#3,b3,d4] ~", // G#dim
  N: "[f#3,a3,c4]@3 ~ [f#3,a3,c4]@3 ~ [f#3,a3,c4]@2 [f#3,a3,c4]@4 [f#3,a3,c4] ~", // F#dim
  O: "[g#3,b3,e4]@3 ~ [g#3,b3,e4]@3 ~ [g#3,b3,d4]@2 [g#3,b3,d4]@3 ~ [g#3,b3,d4]@2", // E G#dim
  P: "[g#3,b3,d4]@2 [g#3,b3,d4] ~ [g#3,b3,d4]@2 [g#3,b3,d4] ~ [g#3,b3,d4]@2 [g#3,b3,d4] ~ [g#3,b3,d4]@2 [g#3,b3,d4]@2", // G#dim
  Q: "a3 ~@7", R: "[c#3,e3,a3]@2 [c#3,e3,a3]!4 [c#3,e3,a3]@2 [c#3,e3,a3]@2 [a3,b3]@4 [b3,e4]@2",
  S: "a3@2 [c#3,e3,a3]!4 [c#3,e3,a3]@2 [c#3,e3,a3]@2 [a3,b3]@4 [b3,e4]@2", // A Asus2 E5
  T: "a3@2 [c#3,e3,a3]!4 [c#3,e3,a3]@2 [c#3,e3,a3]@2 ~@6", // A
})).s("gm_overdriven_guitar").gain(0.21).pan(0.2)

// bass · synth bass 2 · "Bass etc."
const bass_2 = note(`<
  A@10 B C D E F G H I J@2 A@6 B C D E F G H I J@2 ~@9 A@6 B C D E F G H I J@2 ~@9 A@6 B C D E F G H I J K ~@12
>`.pickRestart({
  A: "a3@4 e4@2 c#4@2 a3@3 b3@3 e4@2", B: "~@4 f#4@2 d4@2 ~@3 b3@3 d4@2, b3@6 ~@2 f#3@5 ~@3",
  C: "[b2,e3,g#3]@2 ~@2 [b2,e3,g#3]@6 [b2,e3,g#3]@3 ~ [b2,e3,g#3]@2", D: "[f#3,a3,c#4] ~ [f#3,a3,e4]@2 [f#3,a3,c#4]!4",
  E: "[f#3,a3,d4] ~ [f#3,a3,d4]@3 [f#3,a3,d4]!3", F: "[f#3,a3,e4] ~ [f#3,a3,e4]@3 [f#3,a3,e4]!2 ~",
  G: "[g3,b3,f#4] [g3,b3,f#4]@2 [g3,b3,f#4]@4 ~", H: "[f#3,a3,e4] ~ [f#3,a3,e4]@2 [f#3,a3,e4]!4",
  I: "[g3,b3,e4] ~ [g#3,b3,e4]@2 [g#3,b3,e4]!4", J: "~@4 e4@2 c#4@2 ~@3 b3@3 e4@2, a3@6 ~@2 a3@5 ~@3", K: "a3 ~@7",
})).s("gm_synth_bass_2").gain(0.28).pan(0.2)

// other · piano · "Honkytonk"
const piano = note(`<
  ~@2 A@8 B C ~@3 D ~@2 A@8 B C ~@3 D ~@2 A@2 ~@9 A@6 B C ~@3 D ~@2 A@2 ~@9 A@6 B C ~@3 D ~@2 A E ~@12
>`.pickRestart({
  A: "a3@6 a3@9 ~", B: "b3@6 b3@9 ~", C: "e3@6 e3@9 ~", D: "f#4 e4@2 c#4@4 ~", E: "a3@3 ~@13",
})).s("gm_piano").gain(0.24).pan(0.8)

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

// drums · snare
const snare = s("sd").struct("<~ A B@13 A B@15 A B@3 C@8 ~ A B@11 A B@3 C@8 ~ A B@11 A B@3 ~ C@11 ~>".pickRestart({
  A: "~@12 x!4", B: "~@4 x ~@5 x!2 ~@4", C: "~ x ~ x",
})).gain(0.61)

// drums · clap
const clap = s("cp").struct("<~@86 [~ x ~ x ~ x ~ x]!11 [~ x ~ x ~@4]>").gain(0.54)

// drums · hihat
const hihat = s("hh").struct("<~@35 A B@7 ~@17 A B@7 ~@18 B@11 ~>".pickRestart({
  A: "~@5 x!3", B: "x!8",
})).gain(0.54)

// drums · open hat
const open_hat = s("oh").struct("<~@15 A ~@15 A ~@11 A ~@12 A ~@11 A ~@12 A ~@16>".pickRestart({
  A: "x",
})).gain(0.54)

// drums · high tom
const high_tom = s("ht").struct("<~@2 A@13 ~ A@15 ~ A@3 ~@10 A@11 ~ A@3 ~@10 A@11 ~ A@3 ~@13>".pickRestart({
  A: "~@7 x",
})).gain(0.61)

// drums · crash
const crash = s("cr").struct("<~@44 [~@3 x ~@4] ~@24 [~@3 x ~@4] ~@28>").gain(0.34)

// drums · tambourine
const tambourine = s("tb").struct(`<
  ~@2 A@12 B ~ A@14 B ~ A@3 C D@7 E F A@10 B ~ A@3 C D@7 E F A@10 B ~ A@3 E D@11 G
>`.pickRestart({
  A: "~ x ~ x", B: "~@2 x ~@3 x!2", C: "~@4 x ~@3 x!8", D: "x!16", E: "x", F: "~@6 x!7 ~@3", G: "x!8 ~@8",
})).gain(0.48)

stack(
  bass, drawbar_organ, overdriven_guitar, synth_brass_1, overdriven_guitar_2, bass_2, piano, kick, snare, clap, hihat,
  open_hat, high_tom, crash, tambourine
)