// Because — The Beatles
// 80 bpm, 4/4, key C# minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 56 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(80/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 · piano
const piano = note(`<
  ~@8 A B C D E F G H I J K L C D E F G H I J K M N O P Q C D E F G H I J R S T U V@2 W X Y Z AA AB@2 ~
>`.pickRestart({
  A: "[a4,d5,f#5]", B: "[g#4,d5,f5]@3 g#4", C: "e5@3 c#5 [e4,g#4]@2 [c#5,e5]@2, g#4 ~",
  D: "g#4@3 g#4 [g#4,c#5]@2 [c#5,e5]@2, e4 ~", E: "[f#4,a4]@4 a4 g#4 f#4 e4", F: "f#4, g#4 ~", G: "[c#5,e5]@7 c#5",
  H: "[c#5,e5]@3 c#5", I: "[c#5,g5]", J: "[c#5,f#5]@3 ~", K: "[d5,f#5]", L: "[d5,f5]@5 ~@3",
  M: "[g#4,d#5,f#5] ~ b3 c#4 d4@2 b3 c#4", N: "a#3 ~", O: "~@2 [c#4,a#4] [d#4,b4] [f4,c#5]@2 [c#4,a#4] [d#4,b4]",
  P: "[d#4,g#4] ~", Q: "~@3 g#4", R: "[a4,f#5]", S: "[b4,d5]@3 ~, g#5", T: "c#5, g#4@3 ~@5",
  U: "g#4@3 g#4 [g#4,c#5]@2 [g#4,e5]@2", V: "[[f#4,a4]@2 [d#4,g#4] [g#4,c5], f#5@29 ~@3]/2", W: "[e4,a4]",
  X: "[g#4,c#5]@3 g#4", Y: "b4@14 a4 b4, [c#5,g5]", Z: "[a4,c#5,f#5]@3 ~",
  AA: "[f#4,a4]@3 [e4,g4] [d4,f#4] [c#4,e4] [b3,d4]@2", AB: "[~@6 f#4@2 f4@19 ~@5, [g#4,b4]@27 ~@5]/2",
})).s("gm_piano").gain(0.35)

// other · brass section · "brass"
const brass_section = note(`<
  ~@4 A ~ A@2 B C ~@3 D E F G H I J ~@3 D E F G H I ~@8 D E F G H K L ~@4 M N O P ~ Q@2 ~
>`.pickRestart({
  A: "a2", B: "d3", C: "d3@3 ~", D: "d#4", E: "a4@7 ~", F: "g#4@3 ~", G: "b4@14 a4 b4", H: "a4@3 ~", I: "a4",
  J: "g#4@5 ~@3", K: "~ a3 d4 f#4 d4 a3 f#3 a3", L: "~ b3 d4 f#4 f4@2 ~@2", M: "~ a3 c#4 e4 c#4 a3 e3 a3", N: "e4@3 e4",
  O: "~ g3 c#4 e4 c#4 g3 e3 g3", P: "~ g3 c#4 f#4@3 ~@2", Q: "[~@2 b3@2 d4@23 ~@5]/2",
})).s("gm_brass_section").gain(0.35)

// bass · fretless bass
const bass = note(`<
  A@2 B C D E D@2 F@2 G H I C D A D@2 F@2 G H B C J A J@2 F K L M C@2 A N O P Q A J D R F A@2 B C D A D@2 F@2 S T
>`.pickRestart({
  A: "c#2@4 ~@2 c#2 ~ c#2@5 ~ c#2 ~", B: "d#2@4 ~@2 d#2 ~ d#2@5 ~ d#2 ~", C: "g#2@4 ~@2 g#2 ~ g#2@5 ~ g#2 ~",
  D: "a1@4 ~@2 a1 ~ a1@5 ~ a1 ~", E: "c#2@6 g#1@2 c#2 ~ c#2@2 ~@2 c#2 ~", F: "d2@4 ~@2 d2 ~ d2@5 ~ d2 ~",
  G: "c#2@4 ~@2 c#2 ~ c#2@6 g#1@2", H: "c#2@6 ~ c#2!2 ~ c#2@3 ~ c#2@2", I: "d#2@6 a1@2 d#2 ~ d#2@2 ~@2 d#2 ~",
  J: "a1@6 a1 ~ a1 ~ a1@3 ~ a1 ~", K: "d2@6 d2 ~ d2 ~ d2@3 ~ d2 ~", L: "f#2@5 ~ f#2 ~ f#2@7 ~",
  M: "f#2@5 ~ f#2 ~ f#2@5 ~ f#2 ~", N: "c#2@6 c#2 ~ c#2 ~ c#2@3 ~ c#2 ~", O: "d#2@6 d#2 ~ d#2 ~ d#2@3 ~ d#2 ~",
  P: "g#2@6 g#2 ~ g#2 ~ g#2@3 ~ g#2 ~", Q: "a1@6 e1@2 a1 ~ a1@2 ~@2 a1 ~", R: "d2@6 a1@2 d2 ~ d2@2 ~@2 d2 ~",
  S: "d2@5 ~ d2 ~ d2@5 ~ g#1 a#1", T: "d2@5 ~ d2 ~ d2@8",
})).s("gm_fretless_bass").gain(0.3)

// chords · electric guitar muted · "muted guitar"
const electric_guitar_muted = note(`<
  A@2 B C D E F G H I J@2 K L D M N O P Q R@2 S T U M V G W X Y@2 L Z AA E AB AC AD AE N AF AG AH AI@2 AJ C AK M V G AL
  AM AN@2
>`.pickRestart({
  A: "[~@16 c#4@6 ~@2 c#5@3 ~@4 c#4, [g#4,c#5]@14 g#4@8 c#4@5 c#4@3 e4@2, [c#4,e4]@12 c#4@3 c#5@9 ~@4 c#5@4, ~@3 c#3@13, ~@13 e4@11 [e4,g#4]@5 g#4@3]/2", // C#5 C#m E
  B: "~@12 d#4@2 f#4 ~, [f#4,a4]@15 ~, d#4@10 c#4@5 ~, c#4 d#3, d#3@6 d#2@9 ~", C: "[c4,d#4,f#4,g#4]@12 g#3 c4 d#4 g#4",
  D: "a2@8 ~@2 a3@4 c#4 ~, [c#4,e4]@15 ~, a3@5 ~@3, ~@8 a2@7 ~", // C#m
  E: "[g#3,c#4,e4]@3 ~@3 g#4 c#5, ~@3 c#3@5, ~ c#4, ~@5 e4@3", // C#m
  F: "[g3,a3,c#4,e4]@7 ~@5 c#4@2 e4 ~, a2@7 ~, ~@7 e4@7 ~@2, ~@7 c#4@3 a3@4 ~@2, ~@7 a3 g3@6 ~@2", // A7
  G: "[c#4,f#4,g4,b4]@9 ~ a2@2 [c#4,f#4,g4,b4]@3 ~", H: "[a3,d4,f#4]@7 ~", I: "g#4@5 g#4 f4 d4, [b3,d4,f4]@3 ~",
  J: "[~@14 e4 ~, c#3@13 c#4@2 ~, c#5@6 c#4 e4@2 g#3@6 ~, [e4,g#4]@2 c#4@3 g#3@2 c#5@3 c#4 e4 c#5@3 ~, c#4 g#3@2 [e4,g#4]@4 g#4@8 ~]/2", // E
  K: "[c#4,d#4,f#4,a4]@12 d#4 f#4 a4 d#5", L: "[c4,d#4,f#4,g#4]@7 ~", M: "[g#3,c#4,e4]@12 c#4 e4 g#4 c#5",
  N: "[g3,b3,c#4,e4]@7 ~@5 c#4@2 e4 ~, a2@7 ~, ~@7 e4@7 ~@2, ~@7 c#4@3 b3@4 ~@2, ~@7 b3 g3@6 ~@2", // C#m7b5
  O: "~@5 e4 c#4 b3, [c#4,f#4,g4,b4]@3 ~", P: "[a3,d4,f#4]@3 ~@3 a4 d5, ~@3 d3@5, ~ d4, ~@5 f#4@3",
  Q: "[b3,d4,f4,g#4]@3 ~@3 g#4 b4, ~@3 d3@5, ~ d4, ~@5 f4@3", // Bdim
  R: "[~@6 c#4@4 c#4@2 ~@2 e4@2 c#4@6 c#4@2 c#4@3 ~@4 g#4, [c#4,e4,g#4]@3 g#4@5 g#4@4 g#4@3 e4, ~ c#3@7, ~@3 e4@4 ~ e4@6 c#4@2, ~@12 c#4@4 ~@11 g#3@5]/2", // C#m
  S: "[a3,c#4,d#4,f#4]@9 ~ d#3@2 [a3,c#4,d#4,f#4]@3 ~", T: "[c4,d#4,f#4,g#4]@9 ~ g#2@2 [c4,d#4,f#4,g#4]@3 ~",
  U: "[a3,c#4,e4]@3 ~@3 e4 a4, ~@3 a2@5, ~ a3, ~@5 c#4@3", V: "[c#4,e4,g4,b4]@12 b3 c#4 e4 b4",
  W: "[d4,f#4,a4]@7 d4@2 ~@3 f#4@2 a4 ~, d2@7 ~, ~@7 a4@7 ~@2, ~@7 f#4@5 ~@4, ~@5 d4@2 ~", // D
  X: "[b3,d4,f4,g#4]@12 d4 f4 g#4 d5", // Bdim
  Y: "[~@14 a#3 ~, f#2@13 f#3@2 ~, f#4@6 f#3 a#3@2 c#3@6 ~, [a#3,c#4]@2 f#3@3 c#3@2 f#4@3 f#3 a#3 f#4@3 ~, f#3 c#3@2 [a#3,c#4]@4 c#4@8 ~]/2", // A#m
  Z: "d#4@5 d#4 c4 g#3, [c4,f#4,g#4]@3 ~", // G#7
  AA: "[c#4,e4,g#4]@7 c#4@2 ~@3 e4@2 g#4 ~, c#2@7 ~, ~@7 g#4@7 ~@2, ~@7 e4@5 ~@4, ~@5 c#4@2 ~", // C#m
  AB: "a4@5 a4 f#4 d#4, [c#4,d#4,f#4]@3 ~", // D#m7
  AC: "[f#3,g#3,c4,d#4]@7 ~@5 c4@2 d#4 ~, g#2@7 ~, ~@7 d#4@7 ~@2, ~@7 c4@3 g#3@4 ~@2, ~@7 g#3 f#3@6 ~@2", // G#7
  AD: "[a3,c#4,e4]@7 ~", AE: "~@10 c#4@4 e4 ~, [e4,g#4]@15 ~, c#4@5 ~@3, c#3!2, ~@6 c#2@9 ~",
  AF: "[c#4,f#4,g4,b4]@12 b3 c#4 e4 b4", AG: "[f#3,a3,d4]@7 ~",
  AH: "~@12 d4@2 f4 ~, [f4,g#4]@15 ~, d4@10 b3@5 ~, b3 d3, d3@6 d2@9 ~", AI: "[g#3,c#4,e4]@9 ~ c#3@2 [g#3,c#4,e4]@3 ~",
  AJ: "[c#4,d#4,f#4,a4]@3 ~@3 a4 c#5, ~@3 d#3@5, ~ d#4, ~@5 f#4@3", AK: "[a3,c#4,e4]@9 ~ a2@2 [a3,c#4,e4]@3 ~",
  AL: "~@10 d4@4 f#4 ~, [f#4,a4]@15 ~, d4@5 ~@3, d3!2, ~@6 d2@9 ~", AM: "[b3,d4,f4,g#4]@9 ~ d3@2 [b3,d4,f4,g#4]@3 ~",
  AN: "[[b3,f4,g#4,d5]@21 ~ d3@2 [b3,f4,g#4,d5]@4 ~@4]/2", // Bdim
})).s("gm_electric_guitar_muted").gain(0.3)

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

// drums · rim
const rim = s("rim").struct("<A@7 ~ A@7 ~ A@9 ~ A@6 B A@6 B A@4 ~ A@8 B ~@2>".pickRestart({
  A: "~ x ~ x", B: "~ x ~@2",
})).gain(0.4)

// drums · snare
const snare = s("sd").struct("<~@7 A ~@7 B ~@9 C ~@6 D ~@6 E ~@4 F ~@8 G H I>".pickRestart({
  A: "~ x!3", B: "~ x ~@2", C: "~@3 x!2 ~@11", D: "~@6 x!2", E: "~@10 x ~ x!2 ~@2", F: "~@4 x!2 ~@2 x ~@3 x ~@3",
  G: "~@10 x!3 ~@3", H: "~ x ~ x", I: "~ x!2 ~",
})).gain(0.4)

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@7 [~@9 x ~@3 x ~@2] ~@7 [~@3 x ~@5 x ~@6] ~@28 [~@3 x ~@3 x ~@3 x ~ x ~@2] ~@11>")
  .gain(0.2)

// drums · low tom
const low_tom = s("lt").struct("<~@7 A ~@7 B ~@9 C ~@18 A ~@11>".pickRestart({
  A: "~@7 x", B: "~@6 x!2", C: "~@3 x",
})).gain(0.45)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@15 [~@5 x ~@2] ~@9 [~@9 x ~@6] ~@18 [~@9 x ~@6] ~@11>").gain(0.4)

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

// drums · high tom
const high_tom = s("ht").struct("<~@15 [~@3 x ~@4] ~@9 [~@3 x ~@4] ~@30>").gain(0.4)

// drums · crash
const crash = s("cr").struct("<A ~@7 A ~@7 A ~@8 A@2 ~@6 A ~@6 A ~@4 A ~@8 A B>".pickRestart({
  A: "x", B: "~ x",
})).gain(0.35)

stack(
  piano, brass_section, bass, electric_guitar_muted, kick, rim, snare, snare_soft, low_tom, hihat, mid_tom, open_hat,
  high_tom, crash
)