// Thank You Girl — The Beatles
// 136 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: ch 3 "Harmony Flute" named as a pipe, played on flute (its clarinet patch is not one)
// note: Full arrangement: all 70 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(136/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.

// other · harmonica
const harmonica = note("<A B ~@29 C ~@3 D ~@4 A B ~@13 E@2 B ~@10 F G>".pickRestart({
  A: "e5", B: "d5", C: "a4@2 a4 b4 a4@4", D: "b4@2 a4 g4 a4@4", E: "[~@7 e5@9]/2",
  F: "d5!2 g5 [f#5,a5] ~ [d5,f#5] [g5,b5] [f#5,a5]", G: "d5 ~@3",
})).s("gm_harmonica").gain(0.44).pan(0.4)

// bass · electric bass finger · "Fretless E. Bass"
const bass = note(`<
  ~@2 A B C@2 D C@3 D@2 B A B A C@2 D C@3 D@2 B A B A E F A@2 G H I J B A B A ~@2 A B C@2 D C@3 D@2 B A B A K L A B C@2
  A B C@2 A B M N
>`.pickRestart({
  A: "a2 ~ e2 ~", B: "g2 ~ d2 ~", C: "d2 ~ g2 ~", D: "d2 ~ a2 ~", E: "b2 ~ f#2 ~", F: "[d2,a2] ~ a2 ~", G: "e2 ~ e2 ~",
  H: "a2@3 a2 c#2@2 e2@2", I: "d2@2 ~@2 a2@3 c#2", J: "d2@3 f#2 a2@2 f#2 d2",
  K: "[e2,f#2] a2@3 a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~, ~ g2 ~@14", L: "g2 ~ g2 ~ g2 ~ g2 ~ g2 ~ g2 ~ g2@2 ~@2",
  M: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~", N: "d2 ~@7",
})).s("gm_electric_bass_finger").gain(0.59).pan(0.6)

// chords · electric guitar muted · "Gtr 1 Muted"
const electric_guitar_muted = note(`<
  A B A B C@2 D C@3 D E F G H I C@2 D C@3 D E F G H I J K L@2 M N K@2 O L O L A B A B C@2 D C@3 D E F G H P A B A B Q@2
  A B Q@2 A B R S
>`.pickRestart({
  A: "[a2,e3]!2 [a2,f#3]!2 [a2,e3]!2 [a2,f#3]!2", B: "[g2,d3]!2 [g2,e3]!2 [g2,d3]!2 [g2,e3]!2",
  C: "[a3,d4,f#4]!4 [b3,d4,g4]!4", D: "[a3,d4,f#4]!4 [a3,c#4,g4]!4",
  E: "[a3,d4,f#4]@2 [a3,d4,f#4] [a3,d4,f#4]@2 [a3,d4,f#4] [a3,d4,f#4]@2", F: "[g2,d3]!2 [g2,e3]!2 [g2,d3]!4",
  G: "[a2,e3]@2 [a2,e3] [a2,e3]@2 [a2,e3] [a2,e3]@2", H: "[b3,d4,g4]!8, [g2,d3,g3]!4",
  I: "[a2,e3,a3,c#4,e4,a4]@2 [a2,e3,a3,c#4,e4,a4] [a2,e3,a3,c#4,e4,a4]@2 [a2,e3,a3,c#4,e4,a4] [a2,e3,a3,c#4,e4,a4]@2", // A
  J: "[b2,f#3,b3,d4,f#4]@2 [b3,d4,f#4]!6, ~ [b2,f#3]!3", K: "[d3,a3,d4,f#4,a4]@2 [d4,f#4,a4]!6, ~ [d3,a3]!3",
  L: "[a2,e3,a3,c#4,e4,a4]@2 [c#4,e4,a4]!6, ~ [a2,e3,a3]!3", M: "[e2,b2,e3,g3,b3,e4]@2 [g3,b3,e4]!6, ~ [e2,b2,e3]!3",
  N: "[a2,e3,a3,c#4,e4]@2 [a3,c#4,e4]!6, ~ [a2,e3]!3", O: "[g2,d3,g3,b3,d4,g4]@2 [b3,d4,g4]!6, ~ [g2,d3,g3]!3",
  P: "[a2,e3,a3,c#4,e4,a4]@2 [a2,e3,a3,c#4,e4,a4] [a2,e3,a3,c#4,e4,a4]@2 [a2,e3,a3,c#4,e4,a4]!3", // A
  Q: "[a3,d4,f#4]!3 ~ [b3,d4,g4]!3 ~", R: "[d3,a3]!2 [d3,b3]!2 [d3,a3]!2 [d3,b3]!2", S: "[d3,a3] ~@3",
})).s("gm_electric_guitar_muted").gain(0.39).pan(0)

// chords · acoustic guitar nylon · "Gtr 2 Nylon"
const acoustic_guitar_nylon = note(`<
  ~@2 A B C@2 D C@3 D E F G F G C@2 D C@3 D E F G F G H I G@2 J G I@2 F G F G ~@2 A B C@2 D C@3 D E F G F G K L A B C@2
  A B C@2 A B M N
>`.pickRestart({
  A: "[g3,c#4,e4]!8, [a2,e3]!4", B: "[g3,d4,g4]!8, [g2,b2,d3]!4", C: "[a3,d4,f#4]!4 [g3,d4,g4]!4, d3!2 [g2,b2,d3]!2",
  D: "[a3,d4,f#4]!4 [g3,c#4,e4]!4, d3!2 [a2,e3]!2", // D C#dim A5
  E: "[d3,a3,d4,f#4]@2 [d3,a3,d4,f#4] [d3,a3,d4,f#4]@2 [d3,a3,d4,g4] [d3,a3,d4,f#4]@2", // D Dsus4 D
  F: "[g2,b2,d3,g3,d4,g4]@2 [g2,b2,d3,g3,d4,g4] [g3,d4,g4]@2 [g3,d4,g4]!3, ~@3 [g2,b2,d3]@3 [g2,b2,d3]@2", // G G5 G
  G: "[a2,e3,g3,c#4,e4]@2 [a2,e3,g3,c#4,e4] [g3,c#4,e4]@2 [g3,c#4,e4]!3, ~@3 [a2,e3]@3 [a2,e3]@2", // A7 C#dim A5
  H: "[b2,f#3,b3,d4,f#4]@2 [b2,f#3,b3,d4,f#4] [b3,d4,f#4]@2 [b3,d4,f#4]!3, ~@3 [b2,f#3]@3 [b2,f#3]@2", // Bm B5
  I: "[d3,a3,d4,f#4]@2 [d3,a3,d4,f#4] [d4,f#4]@2 [d4,f#4]!3, ~@3 [d3,a3]@3 [d3,a3]@2", // D D5
  J: "[e2,b2,e3,g3,b3,e4]@2 [e2,b2,e3,g3,b3,e4] [g3,b3,e4]@2 [g3,b3,e4]!3, ~@3 [e2,b2,e3]@3 [e2,b2,e3]@2", // Em E5
  K: "[g3,c#4,e4] ~ [g3,c#4,e4] ~ [g3,c#4,e4] ~ [g3,c#4,e4] ~ [g3,c#4,e4] ~ [g3,c#4,e4] ~ [g3,c#4,e4] ~ [g3,c#4,e4] ~, [a2,e3] ~ [a2,e3] ~ [a2,e3] ~ [a2,e3] ~", // C#dim A5
  L: "[g2,b2,d3]@2 [g3,d4,g4] ~ [g2,b2,d3]@2 [g3,d4,g4] ~ [g2,b2,d3]@2 [g3,d4,g4] ~ [g2,b2,d3]@2 [g3,d4,g4] ~, [g3,d4,g4] ~@3 [g3,d4,g4] ~@3 [g3,d4,g4] ~@3 [g3,d4,g4] ~@3", // G G5 G G5 G G5 G G5
  M: "[a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~, d3 ~ d3 ~ d3 ~ d3 ~", // D
  N: "[d3,a3,d4,f#4] ~@3", // D
})).s("gm_acoustic_guitar_nylon").gain(0.33).pan(1)

// drums · kick
const kick = s("bd").struct(`<
  A B C@3 D C@3 D C@3 D C@3 D C@3 D C@3 D C@3 E C@3 E C E C ~ F ~ A B C@3 D C@3 D C@3 D C@2 G A C@10 A C
>`.pickRestart({
  A: "x!8", B: "x!7 ~", C: "x", D: "x ~@6 x", E: "~@7 x", F: "~ x", G: "x ~ x!6",
})).gain(0.51)

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

// drums · hihat
const hihat = s("hh").struct(`<
  ~@2 A B A@7 C A B@2 D A E A B F A@2 B A@3 D E@2 B@2 A E A@2 G A B@2 A D A B A@3 H A@3 B@2 A@2 D I A@3 ~@2 A@2 ~@2 A@2
  B ~
>`.pickRestart({
  A: "x!8", B: "x ~ x ~ x ~ x ~ x ~ x ~ x ~ x!2", C: "x ~ x!3 ~ x ~ x ~ x ~ x ~ x!2", D: "x!5 ~@3",
  E: "x ~ x ~ x ~ x ~ x ~ x!3 ~ x ~", F: "x ~ x!3 ~ x ~ x ~ x ~ x ~ x ~", G: "x ~ x!3 ~ x ~ x ~ x!3 ~ x ~",
  H: "x ~ x ~ x ~ x ~ x ~ x!3 ~ x!2", I: "x ~ x!6",
})).gain(0.4)

// drums · open hat
const open_hat = s("oh").struct("<~@7 A ~@7 B ~@11 B ~@13 B ~@13 B ~@14>".pickRestart({
  A: "~@15 x", B: "~@5 x ~@2",
})).gain(0.4)

// drums · mid tom
const mid_tom = s("mt").struct("<~ [~@3 x] ~@39 [~@3 x] ~@28>").gain(0.51)

// drums · crash
const crash = s("cr").struct("<~@69 x>").gain(0.45)

stack(harmonica, bass, electric_guitar_muted, acoustic_guitar_nylon, kick, snare, hihat, open_hat, mid_tom, crash)