// More Than I Can Say — Leo Sayer
// 98 bpm, 4/4, key A# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: duplicate parts dropped: ch 6 "CHOIR AAHS" choir aahs (copy of ch 3 "JAZZ GTR" electric guitar jazz)
// note: Full arrangement: all 83 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): JAZZ GTR, JAZZ GTR.
setcpm(98/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 · "FINGERDBAS"
const bass = note(`<
  ~ A B C D E B F G E H I J K L M N E O P Q R S E T U V W X Y Z AA AB E H I J K L M N E O P Q R AC E AD AE AF W X Y Z AG
  AH E O P Q R AI AJ S AJ S AK@2 AL AM AN AO AL AM AN AO AL AM AN AO AL AP
>`.pickRestart({
  A: "bb1@3 ~ bb1@2 bb2@2 bb1@4 bb2@2 f2@2", B: "bb1@2 bb1@2 bb2@2 f2@2 bb1@2 d1@2 f1 ~ f1@2",
  C: "g1@2 ~@2 g1 ~ g2@2 g1@3 ~ g2@2 d2@2", D: "g1@2 g1@2 g2@2 d2@2 g2@2 d2@2 g2 ~ d2@2",
  E: "bb1@3 ~ bb1@2 bb2@2 bb1@2 bb1@2 bb2@2 f2@2", F: "g1@2 g1@2 g1@2 g2@2 g1@3 ~ g2@2 d2@2", G: "g1 ~ g1 ~@5",
  H: "bb1 ~ bb1@2 bb2@2 f2@2 bb1@2 bb1@2 bb2@2 f2@2", I: "g1@3 ~ g1@2 g2@2 g1@3 ~ g2@2 d2@2",
  J: "g1 ~ g1@2 g2@2 d2@2 g1@3 ~ g2@2 d2 ~", K: "d2@3 ~ d2@2 d3@2 d2@3 ~ d3@2 a2@2",
  L: "c2@3 c2 c3 g2 c2 ~ f1@2 f1 ~ f1@2 f1 ~", M: "bb1@4 bb2@2 f2@2 bb1@2 ~@2 bb1 f1 bb1@2", N: "g1!3 ~@5",
  O: "bb1 ~ bb1@2 bb2@2 f2@2 bb1@2 bb1@2 bb1@2 a1@2", P: "g1 ~ g1 g2 g1!2 g2 d2",
  Q: "g1@3 ~ g2@2 d2@2 g1 ~ g1@2 g2@2 d2 ~", R: "d2 ~ d2@2 d3@2 a2@2 d2 ~ d2@2 d3@2 a2@2",
  S: "c2 ~ c2@2 c3@2 g2@2 f1 ~ f1@2 f2@2 c2@2", T: "bb1 ~ bb1@2 bb2@2 f2@2 bb1 ~ bb1@2 bb2@2 f2 ~",
  U: "eb2@3 ~ eb2@2 eb3@2 eb2 ~ eb2@2 eb3@2 bb2 ~", V: "eb2 ~ eb2@2 eb3@2 bb2 ~ eb2 ~ eb2 ~ eb2@2 f2@2, ~@12 d2 ~@3",
  W: "bb1@3 ~ bb1@2 bb2@2 bb1@3 ~ bb2@2 f2 ~", X: "bb1 ~ bb1@2 bb2@2 f2 ~ bb1 ~ bb1@2 c2 d2 f2 g2",
  Y: "c2@3 ~ c3@2 c2 ~ c2@4 c3@2 g2@2", Z: "c2 ~ c2 ~ c3@2 g2@2 c2 ~ c2@2 c3@2 g2 ~", AA: "f2 f1 f2 f1",
  AB: "f2@2 f1 ~ f1 ~ f1@2 ~@8", AC: "c2 ~ c2@2 c3@2 g2@2 f2 ~ f2@2 f3@2 c3@2",
  AD: "bb1 ~ bb1@2 bb2@2 f2@2 bb1 ~ c2 d2 f2 d2 f2 ~", AE: "eb2@3 ~ eb2@2 eb3@2 eb2 ~ eb2@2 eb3@2 bb2!2",
  AF: "eb2@2 eb2@2 f2@2 bb2@2 eb3@2 bb3@2 eb3@2 bb2 ~", AG: "f2@3 ~ f2@2 f3@2 eb2@3 ~ eb2@2 eb3@2",
  AH: "d2@3 ~ d2@2 c2@8 ~@2", AI: "c2@2 c2@2 c3@2 g2@2 f1 ~ f1@2 f2@2 c2@2",
  AJ: "bb1 ~ bb1@2 bb2 ~ bb1 d2 f2 bb2 d3@2 f3 bb3 d3 bb2", AK: "bb1/2", AL: "g1@4 g2@2 g1 ~ g1 ~ g1@2 g2@2 d2@2",
  AM: "g1 ~ g1@2 g2@2 d2@2 g1 ~ g1@2 f1@3 ~", AN: "bb1@4 bb2@2 f2@2 bb1 ~ bb1@2 bb2@2 f2@2",
  AO: "bb1 ~ bb1@2 bb2@2 f2@2 bb1 ~ bb1@2 c2 ~ c2@2", AP: "g1 ~ g1@2 g2@2 d2@2 g1 ~ g1@2 ~@4",
})).s("gm_electric_bass_finger").gain(0.38)

// other · electric guitar clean · "CLEAN GTR"
const electric_guitar_clean = note(`<
  A B@2 C@2 D@2 E@2 F@4 G H I J F@4 G H F@2 K@2 L@2 M@2 N O F@4 G H I P B@2 Q@2 R S T@2 K@2 L@2 M@2 N O F@4 G H I H I H
  ~@2 F@14
>`.pickRestart({
  A: "~@2 g3 bb3 g3 f3 d3 bb2", B: "[d3 ~ bb3 c4@3 ~@4 g3 ~ g3 f3 d3 bb2, ~ f3@5 bb3@5 bb3@5]/2",
  C: "[d3@2 db3 [bb2,c3] bb3@2 c4@6 bb3@12 g2@4 bb2 ~ c3!2, ~ g2@2 ~@5]/2", // Bbsus2
  D: "[[db3,d3]@2 f3 ~ [f3,bb3]@2 g3@2 ~@4 bb3@12 d3@2 f3@2 d3@2 bb2 ~, ~@3 c4@3 ~@10, ~ f3 ~@2]/2", // Dmaj7 Bb5
  E: "[d3@2 db3 [bb2,c3] bb3@2 ~@4 bb2@2 d3@4 f3@2 g3@2 g2@2 ~@10, ~ g2 ~@6, ~@3 c4@3 bb3@4 ~@6]/2", // Bbsus2
  F: "[~@2 bb3 c4@3 bb3@6 ~@4]/2", G: "~ a3 d4 g4@3 f4@2", H: "eb4@2 d4@2 c4@5 ~@7", I: "~@2 bb3 c4@3 bb3@2",
  J: "[d3,g3] ~ [d3,g3] ~ [d3,g3] ~@11", K: "[~ g3 bb3 f4@3 eb4@4 ~@6]/2",
  L: "[~@2 f3@2 bb3@2 c4@6 bb3@6 f3@2 bb3@2 f3 ~@3 f3@2 bb3@2 f3 ~]/2", M: "[~ g3 c4 f4@3 e4@4 ~@6]/2",
  N: "[a3,c4,f4,a4]@2 [a3,c4,f4]!2 [bb3,eb4,g4,bb4]@2 [bb3,eb4,g4]!2, ~ a4 ~ bb4", // F Eb
  O: "[d4,f4]@2 [d4,f4,bb4]@2 [bb3,d4,f4,bb4]@2 [a3,c4,f4,a4]@3 ~@7, bb3 ~@3, bb4 ~@15", // Dm Bb F
  P: "[d3,g3] ~ [d3,g3] ~ [d3,g3] ~ bb3@2 g3@2 f3@2 d3@2 bb2@2", // G5
  Q: "[d3@3 c3 bb3@2 c4@6 bb3@12 ~@2 bb2@2 c3@2 bb2@2, ~ g2@2 ~@5, ~@4 bb2 ~@27]/2",
  R: "d3 a3 d4 g4@3 f3 g3, ~ f3@4 ~ f4@2", S: "[d3,eb4]@2 d4@2 c4@5 ~ f2 g2 bb2 c3 bb2 g2, ~@2 c3@5 ~@9",
  T: "[bb2@4 [d3,bb3]@2 f3@2 g3@2 bb3@2 d4@2 f4 g4 bb4@12 ~@4, ~@3 c4@3 bb3@6 ~@4]/2", // Gm
})).s("gm_electric_guitar_clean").gain(0.28).pan(0.4)

// chords · rock organ · "ORGAN 3"
const rock_organ = note(`<
  ~@17 A@2 B@2 C D@3 E@2 F@2 G@2 H I J@2 K@3 L M N A@2 B@2 C D@3 E@2 F@2 G@2 H I J@2 K@3 L M O P O Q ~ R@2 S@2 T@8 U@2
>`.pickRestart({
  A: "[~@2 f5 g5, [f4,bb4,d5]@31 ~]/2", B: "[~@24 bb5@7 ~, [bb4,d5], g4@3 ~, ~@16 g5@15 ~]/2", C: "[a4,d5,f5,a5]",
  D: "[[c5,eb5]@3 d5 [c5,eb5] d5 eb5 ~ [bb4,f5]@16, [g4,g5] f4@5, ~@4 a4@3 d5@17]/3", E: "[bb4,eb5,g5]/2",
  F: "[[bb4,d5,f5]@31 ~]/2", G: "[e5@16 ~@6 e5@9 ~, [bb4,g5]@31 ~, ~@16 c5@15 ~]/2", H: "[a4,c5,f5] [g4,bb4,eb5]",
  I: "[f4,bb4,d5]@3 [f4,a4,c5] ~@4", J: "[~@24 f5@7 ~, [f4,bb4,d5]@31 ~]/2",
  K: "[[g4,bb4,g5]@31 ~ [a4,f5]@16, d5@47 ~]/3", L: "[g4,eb5]@7 ~ [a4,f5]@7 ~, c5@15 ~", M: "[bb4,d5], [f4,f5]@7 ~",
  N: "[bb4,d5,g5] g4 [g4,bb4,d5,g5] ~@5, g4 ~@15", O: "[g4,eb5] [a4,f5], c5", P: "[f4,bb4,d5,f5]",
  Q: "[f4,bb4,d5,f5] ~@3", R: "[g4,bb4,d5,g5]/2", S: "[f4,bb4,d5,f5]/2", T: "[[g4,bb4,d5,g5]@15 [f4,bb4,d5,f5]@17]/4",
  U: "[[g4,bb4,d5,g5]@7 ~]/2", // Gm
})).s("gm_rock_organ").gain(0.13).pan(0.6)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~ A B C D A B C D A B C D E F A G A B C D E F A H I J K L M@2 N O A B C D E F A G A B C D E F A H I J K L M@2 N O A B
  C D E F A F A F ~@2 C D A B C D A B C D A B C D
>`.pickRestart({
  A: "~@2 bb3 ~@3 bb3 f3, bb2, ~ f3@4 f3@2 ~, ~@3 c4@3 ~@2", B: "~@2 bb3 ~@5, bb2@3 ~@5, ~ f3@2 ~@5",
  C: "~@2 bb3 ~@3 bb3 d3, g2, ~ d3@4 d3@2 ~, ~@3 c4@3 ~@2", D: "~@2 bb3 ~@5, g2@3 ~@5, ~ d3@2 ~@5",
  E: "~@6 f4 a3, d3, ~ a3@4 a3@2 ~, ~ d4@2 ~, ~@3 g4@3 ~@2", F: "~@3 g3 ~@3 c3, c3 f2, ~ g3@2 ~@2 c3@2 ~, ~ eb4 ~ c4",
  G: "[d3,g3] ~ [d3,g3] ~ [d3,g3] ~@11", H: "[bb2,f3,bb3,c4,f4]!8",
  I: "[eb4,g4,bb4]@4 [eb4,g4,bb4] ~ [bb2,g4]@4 [bb2,g4]@2 [bb2,eb3,eb4,g4]@2 [bb2,eb3,eb4,g4]@2, [eb3,bb3]@3 [eb3,bb3,eb4,bb4]@3 [bb3,bb4]@2, bb2 ~@15", // Eb Eb5 Bb
  J: "[eb4,g4,bb4]@2 [eb4,g4,bb4] [bb2,eb3,bb3,eb4,g4,bb4]@3 [bb2,eb3,bb3,eb4,g4]!2, [bb2,eb3,bb3]@3 ~@3 bb4@2", // Eb Eb5
  K: "[bb3,d4,f4,bb4]@2 [bb3,d4,f4,bb4] [bb2,f3,bb3,d4,f4,bb4]@3 [bb2,f3,bb3,d4,f4]!2, [bb2,f3]@3 ~@3 bb4@2", // Bb Bb5
  L: "[bb2,f3]@2 [bb2,f3] ~ [bb3,d4,f4,bb4]@2 [bb2,f3,bb3,d4,f4,bb4]@6 [bb2,f3]@2 [bb2,f3]@2, [bb3,d4,f4,bb4] ~@2 [bb3,d4,f4,bb4]", // Bb5 Bb Bb5 Bb
  M: "[[c3,e3]@2 e3@2 [e3,g3,c4,e4,bb4]@2 [c3,e3,g3,c4,e4,bb4]@6 [c3,e3,c4,e4]@2 [e3,c4,e4]@2 [e3,g3,c4,e4]@2 [c3,e3,g3,c4,e4]@2 [g3,c4,e4,bb4] ~ c3@4 c3 ~ [c3,e3,g3,c4,e4]@2 [c3,e3,g3,c4,e4]@2, [g3,c4,e4,bb4] ~@2 [g3,bb4] bb4 ~@2 bb4, ~ c3@2 ~@4 c3@2 ~@2 [e3,g3,c4,e4,bb4]@3 ~@2]/2", // C C7 C C7 C C7 Gm C7
  N: "[f3,a3,c4,f4,a4]@2 [f3,a3,c4,f4] [c3,f3,a3,c4,f4] [eb3,bb3,eb4,g4,bb4]@2 [eb3,bb3,eb4,g4] [bb2,eb3,bb3,eb4,g4], c3@3 ~ bb2@3 ~, ~ a4 ~ bb4", // F Eb
  O: "[bb2,f3,d4,f4]@2 [bb2,f3,d4,f4,bb4]@2 [bb2,f3,bb3,d4,f4,bb4]@2 [c3,f3,a3,c4,f4,a4]@3 ~@7, bb3 ~@3, bb4 ~@15", // Bb F
})).s("gm_acoustic_guitar_steel").gain(0.1).pan(0.9)

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

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

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

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

// drums · low tom
const low_tom = s("lt").struct("<~@56 [~@15 x] ~@26>").gain(0.3)

// drums · mid tom
const mid_tom = s("mt").struct("<~@47 [~@7 x] ~@8 [~@7 x] ~@17 [~@3 x ~@2 x ~] ~@8>").gain(0.35)

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

// drums · high tom
const high_tom = s("ht").struct("<~@40 [~@12 x!2 ~@2] ~@33 [~ x ~@6] ~@8>").gain(0.45)

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

stack(
  bass, electric_guitar_clean, rock_organ, acoustic_guitar_steel, kick, snare, snare_soft, hihat, low_tom, mid_tom,
  open_hat, high_tom, crash
)