// From Me to You — The Beatles
// 120 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 65 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.

// bass · electric bass finger · "bas"
const bass = note(`<
  ~ A B A C D E F G A H A C D B F I J K L M N O J P A B A C D B F G A B A C D E F G A H A C D B F I J K L M N O J P A B
  A C D B F Q
>`.pickRestart({
  A: "g1@2 g1@3 ~ d1@2 g1@2 g1@3 ~ d1@2", B: "e2@2 e2@3 ~ b1@2 b1@2 b1@2 d2@2 d2@2",
  C: "d2@2 d2@3 ~ a1@2 f#2@2 g2@2 g#2@2 a2@2", D: "c2@2 c2@3 ~ g1@2 c2@2 c2@3 ~ g1@2",
  E: "e2@2 e2@3 ~ b1@2 g1@2 a1@2 a#1@2 b1@2", F: "g1@2 g1@3 ~ d1@2 d2@2 d2@3 ~ a1@2",
  G: "g1@2 g1@3 ~ d1@2 e2@2 e2@3 ~ b1@2", H: "e2@2 e2@3 ~ b1@2 g2@2 a2@2 a#2@2 b2@2",
  I: "g1@2 g1@3 ~ d1@2 d2@2 d2@2 f2@2 f2@2", J: "d2!8", K: "g1!7 b1", L: "c2!6 g2!2", M: "c2!7 f2", N: "e2!8",
  O: "a1!7 c#2", P: "d2!7 c2", Q: "g1 ~@7",
})).s("gm_electric_bass_finger").gain(0.4)

// chords · acoustic guitar steel · "guitar"
const acoustic_guitar_steel = note(`<
  ~ A B C D E F G H C F I J E B G A K L M N O P J Q A F C Q E R S T A B C D E F G H C F I J E B G A K L M N O P J Q A F
  C Q E R S U
>`.pickRestart({
  A: "[g3,b3,d4]@7 ~ [g3,b3,d4]@2 ~@2 [g3,b3,d4]@2 ~@2", B: "[g3,b3,e4]!2 ~ [g3,b3,e4]@2 ~@3",
  C: "[g3,b3,d4]!2 ~ [g3,b3,d4]@2 ~@3", D: "[c4,d4,f#4,a4]@7 ~ [c4,d4,f#4,a4]@2 ~@2 [c4,d4,f#4,a4]@2 ~@2",
  E: "[a#3,c4,e4,g4]@7 ~ [a#3,c4,e4,g4]@2 ~@2 [a#3,c4,e4,g4]@2 ~@2", F: "[g3,b3,e4]!2 ~@2 [g3,b3,e4] ~ [g3,b3,e4] ~",
  G: "[g3,b3,d4]@3 ~ [g3,b3,d4]@3 ~ [c4,d4,f#4,a4] ~ [c4,d4,f#4,a4]@2 ~@4", // G D7
  H: "[g3,b3,d4] ~ [g3,b3,d4]@2 ~@4 [g3,b3,e4]@7 ~", I: "[g3,b3,d4]!2 ~@2 [g3,b3,d4] ~ [g3,b3,d4] ~",
  J: "[c4,d4,f#4,a4]!2 ~@2 [c4,d4,f#4,a4] ~ [c4,d4,f#4,a4] ~", // D7
  K: "[c4,d4,f4,a4]@7 ~ [c4,d4,f4,a4]@2 ~@2 [c4,d4,f4,a4]@2 ~@2", // Dm7
  L: "~@2 [b3,d4,f4,g4]@5 ~ [b3,d4,f4,g4]@3 ~ [b3,d4,f4,g4]@2 ~@2", // G7
  M: "[g3,c4,e4]@7 ~ [g3,c4,e4]@3 ~ [b3,d4,f4,g4]@3 ~", N: "[g3,c4,e4]@7 ~ [g3,c4,e4]@2 ~@2 [g3,c4,e4]@2 ~@2",
  O: "[b3,d4,e4,g4]@7 ~ [b3,d4,e4,g4]@2 ~@2 [b3,d4,e4,g4]@2 ~@2", // Em7
  P: "[c#4,e4,g4,a4]@7 ~ [c#4,e4,g4,a4]@2 ~@2 [c#4,e4,g4,a4]@2 ~@2", Q: "[c4,d4,f#4,a4]!2 ~ [c4,d4,f#4,a4]@2 ~@3",
  R: "~@2 [g3,b3,e4]@5 ~ [g3,b3,e4]@3 ~ [g3,b3,e4]@2 ~@2", S: "[g3,b3,d4]@7 ~ [c4,d4,f#4,a4] ~ [c4,d4,f#4,a4]@2 ~@4",
  T: "[g3,b3,d4]@3 ~ [g3,b3,d4]@3 ~ [g3,b3,e4]@3 ~ [g3,b3,e4]@3 ~", U: "[g3,b3,d4]@3 ~@13",
})).s("gm_acoustic_guitar_steel").gain(0.36)

// chords · synth brass 2 · "brass"
const synth_brass_2 = note(`<
  A@3 B@2 C@4 D@2 E F G H I@2 ~@7 J@3 B@2 C@4 K@2 B@2 L@3 M D@2 E F G H I@2 ~@7 N@3 B@2 C@4
>`.pickRestart({
  A: "[~@15 [g4,b4,d5]@8 g4 [b4,d5] ~@6 [e4,g4,b4]@12 ~ [e4,g4,b4] ~@3]/3", // G Bm Em
  B: "[[g4,b4,d5]@10 [g4,b4] d5 ~@4 [c4,d4,a4]@11 ~ [c4,d4,f#4,a4] ~@3, ~@15 f#4@11 ~@6]/2", // G D7
  C: "[[g4,a#4,c5,e5]@10 ~ [g4,a#4,c5,e5] ~@4 [e4,b4]@5 ~ [e4,g4,b4] ~@5 [e4,g4,b4] ~@3 [b4,d5]@5 ~@2 f#4 [c4,d4,a4] [c4,d4,f#4,a4]@4 ~@2 [g4,b4,d5]@9 ~@8, ~@15 g4@5 ~@11 g4@6 ~@27]/4", // C7 E5 Em Bm D7 G
  D: "[[g4,b4,d5]@9 ~ [g4,b4,d5] ~@4 [e4,g4,b4]@9 [e4,g4,b4] ~@7]/2", E: "[g4,b4,d5]@10 [g4,b4,d5] ~@5",
  F: "[c4,d4,f#4,a4]@11 f#4 [c4,d4,a4] ~@3", G: "[g4,a#4,c5,e5]@5 ~ [g4,a#4,c5,e5]@5 ~ [g4,a#4,c5,e5] ~@3",
  H: "[e4,g4,b4]@5 ~ [e4,b4]@5 e4 b4@2 ~@2, ~@5 g4@4 ~@3 g4 ~@3", // Em E5
  I: "[[g4,b4,d5]@6 ~@2 [c4,d4,f#4,a4] ~ [c4,d4,f#4,a4]@4 ~ [g4,b4,d5]@9 ~@8]/2", // G D7 G
  J: "[~@15 [g4,b4,d5]@8 ~@3 [g4,b4,d5] ~@4 [e4,g4,b4]@12 ~ [e4,g4,b4] ~@3]/3", // G Em
  K: "[[g4,b4,d5] [g4,b4,d5]@8 ~ [g4,b4,d5] ~@4 [e4,g4,b4]@12 ~ [e4,g4,b4] ~@3]/2", // G Em
  L: "[[g4,a#4,c5,e5]@10 ~ [g4,a#4,c5,e5] ~@4 [e4,b4]@5 ~ [e4,g4,b4] ~@5 [e4,g4,b4] ~@3 [b4,d5]@5 ~@2 f#4 [c4,d4,a4] [c4,d4,f#4,a4]@4 ~@3, ~@15 g4@5 ~@11 g4@6 ~@11]/3", // C7 E5 Em Bm D7
  M: "[g4,b4,d5]@9 ~@7", N: "[~@15 [g4,b4,d5]@8 ~ [g4,b4,d5] ~@6 [e4,g4,b4]@12 ~ [e4,g4,b4] ~@3]/3",
})).s("gm_synth_brass_2").gain(0.11)

// drums · kick
const kick = s("bd").struct(`<
  ~ A B A B A B A@3 B A B A B A@2 C@3 A C@3 A@2 B A B A B A@3 B A B A B A@3 B A B A B A@2 C@3 A C@3 A@2 B A B A B A D
>`.pickRestart({
  A: "x ~@2 x!2 ~@2 x", B: "x ~@2 x!3 ~ x", C: "x!2 ~ x!3 ~ x", D: "x",
})).gain(0.3)

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

// drums · low tom
const low_tom = s("lt").struct("<~@4 A ~@7 B ~@19 C ~@3 A ~@7 B ~@20>".pickRestart({
  A: "~ x ~@3 x ~@2", B: "~@5 x ~@2", C: "~@7 x",
})).gain(0.36)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@20 [~@12 x!4] ~@11 [~@3 x ~ x!2 ~] ~@19 [~@12 x!4] ~@12>").gain(0.36)

// drums · open hat
const open_hat = s("oh").struct("<~@15 A@3 ~@4 A ~@2 A ~@3 A ~@2 A ~@14 A@3 ~@4 A ~@2 A ~@3 A ~@3>".pickRestart({
  A: "~@7 x",
})).gain(0.3)

// drums · high tom
const high_tom = s("ht").struct("<~@32 [~ x] ~@32>").gain(0.36)

// drums · crash
const crash = s("cr").struct("<~@9 A ~@7 A ~@3 A ~@3 B ~@15 A ~@7 A ~@3 A ~@3 B ~@7>".pickRestart({
  A: "x", B: "~ x ~@2",
})).gain(0.36)

// drums · tambourine
const tambourine = s("tb").struct("<~@17 A@3 B A@3 C D ~@23 A@3 B A@3 C D ~@7>".pickRestart({
  A: "x!8", B: "~@2 x ~ x ~ x ~ x!2 ~@3 x ~@2", C: "~ x!7", D: "x",
})).gain(0.42)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~@17 A@3 B A@3 C D ~@23 A@3 B A@3 C D ~@7>".pickRestart({
  A: "x!8", B: "~@2 x ~ x ~ x ~ x!2 ~@3 x ~@2", C: "~ x!7", D: "x",
})).gain(2.13)

stack(
  bass, acoustic_guitar_steel, synth_brass_2, kick, snare, low_tom, hihat, mid_tom, open_hat, high_tom, crash,
  tambourine, cabasa
)