// All Things Must Pass — The Beatles
// 84 bpm, 4/4, key D# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 70 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(84/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 · "BASS"
const bass = note(`<
  A B A B A B A B A B A B A B A B C D E F G H I J C K E F L M N O A B A B A B A B A B A B A B A B C D P Q R S L M T U P
  V W X L M A Y A B Z ~
>`.pickRestart({
  A: "eb2@5 ~ eb2 ~ eb2@5 ~ eb2 ~", B: "eb2@5 ~ eb2 ~ ab2@5 ~ ab2 ~", C: "bb1@6 ~ bb1!2 ~ bb1@4 f1 g1",
  D: "bb1@6 ~ bb1 bb1@5 ~ bb1!2", E: "ab2@6 ~ ab2 ab2@5 ~ eb2 f2", F: "ab2@6 ~ ab2!2 ~ ab2@3 ~ ab2 ~",
  G: "eb2@5 ~@2 bb1 eb2@6 ~ eb2", H: "eb2@5 ~@2 bb1 eb2@6 ~ db2", I: "eb2@6 ~ eb2!2 ~ eb2@4 bb1 c2",
  J: "eb2@6 ~ eb2 eb2@5 ~ c2 eb2", K: "bb1@6 ~ bb1 bb1@5 ~ f2 g2", L: "eb2@6 ~ eb2 eb2@5 ~ bb1 c2",
  M: "eb2@6 ~ eb2!2 ~ eb2@3 ~ eb2 ~", N: "eb2@6 ~ eb2 eb2@5 ~ eb2!2", O: "eb2@6 ~ f2 ab2@5 ~ c2 ab2",
  P: "ab2@6 ~ ab2!2 ~ ab2@4 eb2 f2", Q: "ab2@6 ~ ab2 ab2@5 ~ g2 f2", R: "eb2@6 ~ eb2 eb2@5 ~ g2 d2",
  S: "eb2@4 ~@3 eb2 eb2@5 ~@2 c2", T: "bb1@6 ~ bb1 bb1@5 ~ f1 g1", U: "bb1@6 ~ bb1!2 ~ bb1@3 ~ bb1 ~",
  V: "ab2@6 ~ ab2 ab2@5 ~ ab2!2", W: "eb2@6 ~ eb2 eb2@5 ~ c2 d2", X: "eb2@5 ~@2 bb1 eb2@6 ~ c2",
  Y: "e2@5 ~ e2 ~ ab2@5 ~ ab2 ~", Z: "eb2 ~@3",
})).s("gm_electric_bass_finger").gain(0.3)

// chords · electric guitar clean · "GUITAR"
const electric_guitar_clean = note(`<
  A B C D E F G H I J K L M N O F P@2 Q@2 R S T@2 P@2 Q@2 U@2 V J E B W X Y J Z AA AB AC M AD AE AF AG AH P@2 Q@2 AI AJ
  AK@2 AL@2 Q@2 AM AN AO@2 AB AP AQ AR AS@2
>`.pickRestart({
  A: "eb4@2 eb4@5 ~ [ab3,bb3,eb4]@8, [bb3,g4]@7 ~@9", // Absus2 Eb
  B: "[g3,bb3,eb4]@2 ~@2 [g3,bb3,eb4]@2 ~@2 ab3@2 ~@2 c4@2 eb4 ~, ~ eb3@2 ~ eb4@3 ~, ~@2 c4 ~, ~@10 ab3@5 ~", // Eb
  C: "eb4@2 eb4@5 ~ [ab3,bb3,eb4]@7 ~, [g3,bb3]@7 ~@9", // Absus2 Gm
  D: "[g3,bb3,eb4]@2 ~@2 [g3,bb3,eb4]@2 ~@2 [ab3,c4,eb4]@6 c4 eb4, ~ eb3@2 ~@5", // Eb Ab
  E: "eb4@2 eb4@5 ~ [ab3,bb3,eb4]@8, [g3,bb3]@7 ~@9", F: "[g3,bb3,eb4]@8 [ab3,c4,eb4]@6 c4 eb4",
  G: "[g3,bb3,eb4]@2 ~@2 [g3,bb3,eb4]@2 ~@2 [ab3,bb3,eb4]@7 ~, ~ eb3@2 ~@5", // Eb Absus2
  H: "[bb3,eb4,g4]@2 ~@2 [bb3,eb4,g4]@2 ~@2 ab3@2 ~@2 c4@3 ~, ~@2 eb3@4 ~@2 eb4@7 ~, ~@2 c4 ~, ~@10 ab3@5 ~", // Eb
  I: "[g3,bb3,eb4]@8 [ab3,bb3,eb4]@6 ab4 ~", J: "[g3,bb3,eb4]@7 ~ [ab3,c4,eb4]@2 ~@2 [ab3,c4,eb4]@2 ~@2, ~@5 ab2@2 ~",
  K: "[g3,bb3,eb4]@2 ~@2 [g3,bb3,eb4]@2 ~@2 eb4@2 eb4@5 ~, ~@2 eb3@4 ~@2 [ab3,bb3]@7 ~", // Eb Absus2
  L: "eb4@2 eb4@5 ~ ab3@2 ~@2 c4@2 eb4 ~, [g3,bb3]@7 ~ eb4@6 ~@2, ~@2 c4 ~, ~@10 ab3@5 ~", // Gm
  M: "eb4@2 eb4@5 ~ [ab3,bb3,eb4]@2 ~@2 [ab3,bb3,eb4]@2 ~@2, [g3,bb3]@7 ~@3 eb3@4 ~@2", // Absus2 Gm
  N: "[bb3,eb4,g4]@7 ~ ab3@2 ~@2 c4@2 eb4 ~, ~@4 eb4@3 ~, ~@2 c4 ~, ~@10 ab3@5 ~", // Eb
  O: "eb4@2 eb4@5 ~ [ab3,bb3,eb4]@6 ab4 ~, [g3,bb3]@7 ~@9", // Absus2 Gm
  P: "[~@6 bb3@4 bb3@2 ~@2 db4@2 bb3@6 bb3@2 bb3@3 ~@3 db4 f4, [bb3,db4,f4]@6 f4@10 f4@8 f4@7 ~, ~ bb2@7, ~@3 db4@4 ~ db4@6 bb3@2, ~@12 bb3@4 ~@11 f3@5]/2", // Bbm
  Q: "[~@6 ab3@4 ab3@2 ~@2 c4@2 ab3@6 ab3@2 ab3@3 ~@3 c4 eb4, [ab3,c4,eb4]@6 eb4@10 eb4@8 eb4@7 ~, ~ ab2@7, ~@3 c4@4 ~ c4@6 ab3@2, ~@12 ab3@4 ~@11 eb3@5]/2", // Ab
  R: "[eb4,g4,bb4]@4 ~ eb4@2 ~, eb2@7 ~", S: "[eb4,ab4,bb4]@7 eb4@2 ~@3 ab4@2 ~@2, eb2@7 ~, ~@5 eb4@2 ~",
  T: "[~@10 eb4@6 eb4@6 eb4@5 eb4@3 g4 ~, bb4@31 ~, [g4,eb5]@16 [g4,eb5]@15 ~, eb4@5 ~@11, ~@6 eb3@25 ~]/2", // Cm
  U: "[~@16 eb4@6 ~@5 eb4@3 g4 eb4, [bb4,eb5] ~, [eb4,g4]@12 eb4@4 ~@6 eb4@5 ~@5, ~@3 eb3@13, ~@13 g4@11 [g4,bb4,eb5]@7 ~]/2", // Eb5 Eb
  V: "~@10 eb4@4 g4 ~, [g4,bb4]@15 ~, eb4@5 ~@3, eb3!2, ~@6 eb2@9 ~", W: "[g3,bb3,eb4] [ab3,bb3,eb4]",
  X: "[g3,bb3,eb4] [ab3,c4,eb4]", Y: "[bb3,eb4,g4]@2 ~@2 [bb3,eb4,g4]@2 ~@2 [ab3,bb3,eb4]@7 ~, ~ eb3@2 ~@5",
  Z: "eb4@2 eb4@5 ~ eb4@2 eb4@5 ~, [g3,bb3]@7 ~ [ab3,bb3]@7 ~", // Gm Absus2
  AA: "eb4@2 eb4@5 ~ [ab3,c4,eb4]@2 ~@2 [ab3,c4,eb4]@2 ~@2, [g3,bb3]@7 ~@3 ab2@4 ~@2", // Ab Gm
  AB: "[g3,bb3,eb4]@8 eb4@2 eb4@5 ~, ~@8 [ab3,bb3]@7 ~", AC: "[bb3,eb4,g4] [ab3,c4,eb4]",
  AD: "[bb3,eb4,g4] ~ [bb3,eb4,g4] ~ [ab3,c4,eb4]@4, ~ eb3@2 ~@5", // Eb Ab
  AE: "[bb3,eb4,g4] ~ [bb3,eb4,g4] ~ [ab3,bb3,eb4]@4, ~ eb3@2 ~@5", // Eb Absus2
  AF: "[g3,bb3,eb4]@4 [ab3,c4,eb4] ~ [ab3,c4,eb4] ~, ~@5 ab2@2 ~", AG: "[g3,bb3,eb4]@8 [ab3,bb3,eb4]@7 ~",
  AH: "[bb3,eb4,g4] ~ [bb3,eb4,g4] ~ [ab3,c4,eb4] ~ [ab3,c4,eb4] ~, ~ eb3@2 ~@2 ab2@2 ~", AI: "[g3,bb3,eb4]@7 ~",
  AJ: "[ab3,bb3,eb4]@9 ~ eb3@2 [ab3,bb3,eb4]@3 ~", // Absus2
  AK: "[~@13 eb4!2 ~, eb3@31 ~, eb4@11 eb4@2 ~@3, g4@8 g4@4 [g4,bb4]@3 ~, ~@4 g5@11 ~]/2", // Gm
  AL: "[~@26 bb3@2 bb3@2 db4 ~, [bb2,bb4]@15 ~, bb3@8 db4@3 bb3@2 ~@3, [db4,f4]@15 f4@9 [db4,f4]@6 ~@2, ~@4 db5@11 ~]/2", // Bb Db
  AM: "[g3,bb3,eb4]@12 eb4 g4 ~@2", AN: "[eb4,ab4,bb4]@4 ~ eb4@2 ~, eb2@7 ~",
  AO: "[g4@8 ~@6 eb4 ~, [eb3,eb5]@31 ~, bb4@3 ~, eb4@11 eb4@3 ~@2, ~@8 g4@4 [g4,bb4]@3 ~]/2", // Eb Gm
  AP: "[b3,eb4,gb4,ab4]@8 [ab3,c4,eb4]@6 c4 eb4", AQ: "[g3,bb3,eb4]@4 [ab3,bb3,eb4] ~ [ab3,bb3,eb4] ~, ~@5 eb3@2 ~",
  AR: "~ eb4@2 ~ [ab3,c4,eb4] ~ [ab3,c4,eb4] ~, [bb3,d4,f4,g4]@7 ~@3 ab2@4 ~@2", AS: "[[eb4,g4,bb4,eb5]@21 ~@11]/2",
})).s("gm_electric_guitar_clean").gain(0.36)

// chords · drawbar organ · "ORGAN"
const drawbar_organ = note(`<
  ~@16 A@2 B@2 C D E@2 F G H@2 I@2 J K ~@16 L@2 H@2 M D E@2 N@2 B@2 O M E@2 ~@4 P@2
>`.pickRestart({
  A: "[db6,bb6]/2", B: "[c6,ab6]/2", C: "[eb6,g6]", D: "[ab5,eb6]", E: "[eb6,g6]/2", F: "f5", G: "bb5",
  H: "[ab6,eb7]/2", I: "[g5,eb6]/2", J: "g5 bb5, g6", K: "[eb6,bb6] [c6,ab6]", L: "[f5,db6]/2", M: "[eb6,bb6]@15 ~",
  N: "[db6,f6]/2", O: "[g5,eb6]", P: "[~ eb6@21 ~@10]/2",
})).s("gm_drawbar_organ").gain(0.1)

// chords · drawbar organ · "ORGAN" · soft notes
const drawbar_organ_soft = note("<~@23 A B@2 ~@29 C ~ D ~@5 A ~@4 E@2>".pickRestart({
  A: "g5", B: "f6/2", C: "bb5", D: "f5", E: "[~ g5@21 ~@10]/2",
})).s("gm_drawbar_organ").gain(0.05)

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

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

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

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@15 A ~@3 B ~@5 B ~ B ~@23 B ~@5 B ~@3 B ~@8>".pickRestart({
  A: "~@3 x ~@5 x ~@6", B: "~@7 x ~@8",
})).gain(0.15)

// drums · low tom
const low_tom = s("lt").struct("<~@15 [~@6 x!2] ~@51 [~@3 x] ~@2>").gain(0.45)

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

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

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

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

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

stack(
  bass, electric_guitar_clean, drawbar_organ, drawbar_organ_soft, kick, rim, snare, snare_soft, low_tom, hihat, mid_tom,
  open_hat, high_tom, crash
)