// Hold On (I'm Coming) — Sam & Dave
// 108 bpm, 4/4, key A major. 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 66 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(108/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 · acoustic bass · "ACOU BASS"
const bass = note(`<
  A B C D E F G H I J K L A B C D E F G H I J K L A B C D A B C D M N O P Q R S T U V W X A B C D E F G H I J K L A B C
  D A B C Y@3
>`.pickRestart({
  A: "a1@2 a1@2 a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~", B: "c2@2 c2 ~ c2 ~ c2 ~ c2 ~ c2 ~ c2 ~ c2 ~",
  C: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~", D: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~",
  E: "a1 ~@3 e1@2 ~ e1 g1@2 e1@2 g1@2 e1@2", F: "a1@2 ~@2 a1@2 ~ e1 g1@2 e1@2 g1@2 g#1@2",
  G: "a1@2 ~@2 e1 ~@2 e1 g1@2 e1@2 g1@2 g#1@2", H: "a1@2 ~@2 a1@2 ~ e1 g1@2 e1@2 g1@2 g#1 ~",
  I: "d2@2 ~@2 d2@2 ~ a1 b1@2 a1@2 c2@2 a1@2", J: "d2@2 ~@2 d2@2 ~ a1 c2@2 a1@2 c2@2 c#2@2",
  K: "d2@2 ~@2 d2@2 ~ a1 c2@2 a1@2 c2@2 c#2 ~", L: "d2@2 ~@2 d2@2 ~ a1 c2@2 a1@2 d2@2 a1 ~",
  M: "d2@2 ~@2 d2@2 ~ c2 d2@2 c2@2 d2@2 a1@2", N: "d2@2 ~@2 d2@2 ~ c2 d2 ~ d2@4 a1@2",
  O: "d2@2 ~@2 d2@2 ~ c2 d2 ~ d2@3 ~ a1@2", P: "d2@2 ~@2 d2@2 ~ c2 d2@2 c2@2 d2@2 a1 ~",
  Q: "c2@2 ~@2 c2@2 ~ b1 c2@2 b1@2 c2@2 g1@2", R: "c2@2 ~@2 c2@2 ~ g1 c2@2 g1@2 c2@2 g1@2",
  S: "d2@2 ~@2 d2@3 a1 d2@2 a1@2 d2@2 a1@2", T: "e2@3 ~ e2@2 e1@2 e2 ~ e2@2 e1@2 e2 ~",
  U: "a2 ~@3 a2@3 a1 a2 ~ a2@4 a1@2", V: "g2@2 ~@2 g2@3 d2 g2 ~ g2@2 d2@2 g2@2", W: "c2@2 ~@2 c2@3 g1 c2 ~ c2@4 g1@2",
  X: "d2@3 ~ d2@3 a1 d2 ~ d2@2 a1@2 d2 ~", Y: "[a1@2 ~@6 a1@30 ~@2 a1 ~@7]/3",
})).s("gm_acoustic_bass").gain(0.64)

// chords · epiano2 · "E.PIANO 2"
const epiano2 = note(`<
  A B C D E F E F G H I J A B C D E F E F G H I J A B C D A B C D K L M N O@2 P Q R S T U A B C D E F E F G H I J A B C
  D A B C V W@2
>`.pickRestart({
  A: "[a2,e3,a3,c#4,e4]@15 ~", B: "[c3,g3,c4,e4,g4]@15 ~", C: "[d3,a3,d4,f#4,a4]@7 ~", D: "[a2,e3,a3,c#4,e4]@7 ~",
  E: "[a2,e3] ~@3 [g3,c#4,e4] ~@2 [a2,e3] [g3,c#4,e4] ~ [g3,c#4,e4]@4 [a2,e3] ~", // A5 C#dim A5 C#dim A5
  F: "~@4 [g3,c#4,e4] ~@2 [a2,e3] [g3,c#4,e4] ~ [g3,c#4,e4]@3 ~ [g3,c#4,e4] ~", // C#dim A5 C#dim
  G: "[c3,a3] ~@3 [c4,f#4,a4] ~@2 [d3,a3] [c4,f#4,a4] ~ [c4,f#4,a4]@3 ~ [c4,f#4,a4] ~", // F F#dim D5 F#dim
  H: "~@4 [c4,f#4,a4] ~@2 [d3,a3] [c4,f#4,a4] ~ [c4,f#4,a4]@4 a3@2, ~@14 d3 ~", // F#dim D5 F#dim
  I: "[d3,a3] ~@3 [c4,f#4,a4] ~@2 [d3,a3] [c4,f#4,a4] ~ [c4,f#4,a4]@4 [d3,a3] ~", // D5 F#dim D5 F#dim D5
  J: "[d3,a3] ~@3 [c4,f#4,a4] ~@2 [d3,a3] [c4,f#4,a4] ~ [c4,f#4,a4]@4 ~@2", // D5 F#dim D5 F#dim
  K: "[d3,c4,f#4,a4] ~@3 [c4,f#4,a4]@3 [d3,a3] [c4,f#4,a4] ~ [c4,f#4]@2 ~@2 [c4,f#4] ~, ~@3 [d3,a3]", // D7 F#dim D5 F#dim Cdim D5
  L: "[c4,f#4,a4] ~@3 [c4,f#4,a4]@3 [d3,a3] [c4,f#4] ~ [c4,f#4]@2 ~@2 [c4,f#4] ~, ~@3 [d3,a3]", // F#dim D5 Cdim D5
  M: "[c4,f#4,a4] ~@3 [c4,f#4,a4] ~@2 [d3,a3] [c4,f#4] ~ [c4,f#4]@2 ~@2 [c4,f#4] ~, ~@3 [d3,a3]", // F#dim D5 Cdim D5
  N: "[c4,f#4,a4] ~@3 [c4,f#4,a4] ~@2 [d3,a3] [c4,f#4,a4] ~ [c4,f#4,a4]@2 [d3,a3] ~ g3 ~", // F#dim D5 F#dim D5
  O: "[[c3,g3,a#3,e4,g4] ~@3 [a#3,e4] ~@2 [c3,g3] [a#3,e4,g4] ~ [a#3,e4,g4]@3 [c3,g3] [a#3,e4,g4]@5 ~ [a#3,e4,g4] ~@2 [c3,g3] [a#3,e4,g4] ~ [a#3,e4,g4]@2 [c3,g3] ~@3, ~@2 g4 ~@13]/2", // C7 A#dim C5 Edim C5 Edim C5 Edim …
  P: "[d3,a3,c4,f#4,a4] ~@3 [c4,f#4,a4]@2 ~ [d3,a3] [c4,f#4,a4]@2 [d3,a3]@2 [c4,f#4,a4]@2 b3 ~", // D7 F#dim D5 F#dim D5 F#dim
  Q: "[d4,g#4]@3 ~ [d4,g#4]@2 e3@2 [d4,g#4]@2 ~@2 [d4,g#4,b4]@2 ~@2, b3@9 ~@7, e3@2 ~@3 [e3,b3]@2 ~, e4 ~@15", // Ddim G#dim E5
  R: "[a2,a3,c#4,e4]@15 ~", S: "[g2,g3,b3,d4]@7 ~", T: "[c4,e4]@7 ~, g3@3 ~", U: "[d3,a3,d4]@7 ~",
  V: "[a2,g3,c#4,e4] ~@7 [a3,e4,g4,c#5,e5]@2 [g4,c#5,e5] ~ a3 [a3,c#5,e5] a3 [a3,e4,c#5,e5]", // A7 C#dim A
  W: "[[a3,g4,c#5,e5] [c#5,e5] [a3,g4] [a3,g4,c#5,e5]!2 [g4,c#5,e5] [a3,g4,c#5,e5]!2 a3 [a3,e4,c#5,e5] [e4,g4,c#5,e5] [a3,c#5] a3 ~@12 a2 ~@6, ~@6 c#5@6 g3 ~@3, ~@12 [e4,g4]@7 c6@7 ~@6, ~@12 e5@5 f6@8 ~@7, ~@13 a3@10 [a3,b3]@3 ~@6]/2", // A7 C#m A7 C#dim A7 A C#dim A …
})).s("gm_epiano2").gain(0.48)

// chords · epiano2 · "E.PIANO 2" · soft notes · A5 C#dim Em C#dim A5 C Dm Cmaj7 …
const epiano2_soft = note(`<
  ~@38
  [~@14 e3 ~]
  ~@24
  [~@10 [a3,e4] [g4,c#5,e5] e4 [e4,g4] [e4,g4,c#5,e5] g4]
  [e4 ~ e4 e4@2 [a3,e4] e4!3 g4 ~ [g4,e5] ~@4]
  [~@7 c4@3 ~@6, a6@2 [d5,e5,f5] [d4,e4,f4]@2 ~@3, ~ g6@4 [g4,a4,b4,c5]@5 ~@6, ~ [d6,e6]@4 ~@3, ~@3 [g5,a5,b5]@7 ~@6]
>`).s("gm_epiano2").gain(0.32)

// chords · acoustic guitar nylon · "NYLON GTR"
const acoustic_guitar_nylon = note(`<
  A B C A D E D F G H G I J K L M D E D F G H G I J K L M J K L M N O P Q R S T U V W X Y J K L M D E D F G H G I J K L
  M Z AA AB AC@3
>`.pickRestart({
  A: "[c#3,e3,a3] ~ [c#3,e3,a3] ~ [c#3,e3,a3] ~ [c#3,e3,a3] ~ [c#3,e3,a3] ~ [c#3,e3,a3] ~ [c#3,e3,a3] ~ [c#3,e3,a3] ~", // A
  B: "[c3,e3,g3] ~ [c3,e3,g3] ~ [c3,e3,g3] ~ [c3,e3,g3] ~ [c3,e3,g3] ~ [c3,e3,g3] ~ [c3,e3,g3] ~ [c3,e3,g3] ~", // C
  C: "[d3,f#3,a3] ~ [d3,f#3,a3] ~ [d3,f#3,a3] ~ [d3,f#3,a3] ~ [d3,f#3,a3] ~ [d3,f#3,a3] ~ [d3,f#3,a3] ~ [d3,f#3,a3] ~", // D
  D: "[c#4,e4,g4] ~@3 [c#4,e4,g4] ~@2 [c#4,e4,g4] ~@6 [c#4,e4,g4] ~", // C#dim
  E: "[c#4,e4,g4] ~@3 [c#4,e4,g4] ~@9 [c#4,e4,g4] ~", F: "[c#4,e4,g4] ~@3 [c#4,e4,g4] ~@2 [c#4,e4,g4] ~@8",
  G: "[a3,c4,f#4] ~@3 [a3,c4,f#4] ~@2 [a3,c4,f#4] ~@6 [a3,c4,f#4] ~", // F#dim
  H: "[a3,c4,f#4] ~@3 [a3,c4,f#4] ~@5 [a3,c4,f#4] ~@3 [a3,c4,f#4] ~", // F#dim
  I: "[a3,c4,f#4] ~@3 [a3,c4,f#4] ~@2 [a3,c4,f#4] ~@8", // F#dim
  J: "[e3,a3,c#4]@2 [e3,a3,c#4] [e3,a3,c#4]@2 [e3,a3,c#4]@2 [e3,a3,c#4]", // A
  K: "[g3,c4,e4]@2 [g3,c4,e4]!2 ~ e4!2 [g3,c4,e4], ~@5 [g3,c4]@2 ~", // C C5
  L: "[a3,d4,f#4]@2 [a3,d4,f#4] [a3,d4,f#4]@2 [a3,d4,f#4] [a3,d4,f#4]@2", // D
  M: "[e3,a3,c#4]@4 [e3,a3,c#4]@2 [e3,a3,c#4]@4 [e3,a3,c#4]@4 [e3,a3,c#4] ~", // A
  N: "[d3,a3,c4] ~@3 [d3,a3,c4] ~@3 [d3,a3,c4] ~@3 [d3,a3,c4]@3 ~", // D7
  O: "[d3,a3,c4] ~@3 [d3,a3,c4] ~@3 [d3,a3,c4] ~@3 [d3,a3,c4] ~ [d3,a3,c4] ~", // D7
  P: "[d3,a3,c4] ~@3 [d3,f#3,a3,c4] ~@3 [d3,f#3,a3,c4] ~@3 [d3,a3,c4]@3 ~", // D7
  Q: "[d3,a3,c4] ~@3 [d3,a3,c4] ~@3 [d3,a3,c4] ~@3 [d3,a3,c4]@2 ~@2", // D7
  R: "[c3,g3,c4] ~@3 [c3,g3,c4] ~@3 [c3,g3,a#3] ~@3 [c3,g3,a#3]@3 ~", // C5 C7
  S: "[c3,g3,a#3] ~@3 [c3,g3,a#3] ~@3 [c3,g3,a#3] ~@3 [c3,g3,a#3] ~@3", // C7
  T: "[d3,a3,c4] ~@3 [d3,a3,c4] ~@3 [d3,a3,c4] ~@3 [d3,a3,c4] ~@3", // D7
  U: "d4@2 ~@4 e3 ~, e3@5 g#4@2 ~, b3@4 b3@3 ~, ~@2 g#3@5 ~, ~@3 d4@4 ~", V: "a3@3 ~@3 a3@7 ~ a3@2",
  W: "g3@3 ~ a3@2 b3@3 ~ a3@2 g3@4", X: "c4@7 ~", Y: "d4@3 ~ e4 ~ f#4@3 ~ e4@2 d4@2 ~@2",
  Z: "[e3,a3,c#4]@4 [e3,a3,c#4]@2 [e3,a3,c#4]@2 ~@2 [e3,a3,c#4]@4 [e3,a3,c#4] ~", // A
  AA: "[g3,c4,e4]@4 [g3,c4,e4]@2 [g3,c4,e4]@4 e4@2 e4@2 [g3,c4,e4] ~, ~@5 [g3,c4]@2 ~", // C C5
  AB: "[a3,d4,f#4]@4 [a3,d4,f#4]@2 [a3,d4,f#4]@4 [a3,d4,f#4]@2 [a3,d4,f#4]@3 ~", // D
  AC: "[[a2,g3,c#4,e4] ~@7 [a2,e3,g3,c#4,e4]@2 ~ [a2,e3] [a2,e3,g3,c#4,e4] [g3,c#4,e4] [a2,e3,g3,c#4,e4] ~ [a2,e3] [a2,e3,g3,c#4,e4]!2 [g3,c#4,e4] [a2,e3,g3,c#4,e4] ~@2 [g3,c#4,e4] [a2,e3,g3,c#4,e4]!2 ~ [a2,e3,g3] [a2,e3,g3,c#4,e4]!2 [g3,c#4,e4] ~ [a2,e3] [a2,e3,g3,c#4,e4]!2 ~ a2@5 ~@7, ~@8 a3 ~ [g3,c#4,e4]@2 ~@3 [a2,e3,g3,c#4,e4]@2 ~@4 [a2,e3,g3,c#4,e4]@2 ~@3 [a2,e3,c#4,e4]@2 ~@3 [a2,e3,g3,c#4,e4]@2 ~@2 [e3,g3,c#4,e4]@6 ~@7, ~@11 [a2,e3] ~@12]/3", // A7 A5 A7 C#dim A7 A5 A7 C#dim …
})).s("gm_acoustic_guitar_nylon").gain(0.43)

// other · alto sax
const alto_sax = note(`<
  A B C@2 ~@8 A B C@2 D E D F G H@2 I A B C@2 A B C@2 J K@2 L M@2 N O P Q R S A B C@2 D E D F G H@2 I A B C@2 A B C T@3
>`.pickRestart({
  A: "a3 g3 ~@2 e3 ~ e3@2 ~ e3 g3 ~ a3 ~@3", B: "a3 g3 ~ e3 ~@2 e3@2 ~ e3 g3 ~ a3@2 ~@2",
  C: "a3 g3 ~ e3 ~@2 e3@2 ~ e3 g3 ~ a3 ~@3", D: "~@4 [c#4,e4,g4] ~@3 [c#4,e4,g4] ~@3 [c#4,e4,g4]@2 ~@2",
  E: "~@4 [c#4,e4,g4] ~@3 [c#4,e4,g4] ~@3 [c#4,e4,g4]@3 ~", // C#dim
  F: "~@4 [c#4,e4,g4] ~@3 [c#4,e4,g4] ~@3 [e4,g4] ~@3, ~@6 c#4 ~", // C#dim Em
  G: "~@4 [a3,c4,f#4] ~@3 [a3,c4,f#4] ~@3 [a3,c4,f#4]@3 ~", H: "~@4 [a3,c4,f#4] ~@3 [a3,c4,f#4] ~@3 [a3,c4,f#4]@4",
  I: "~@4 [a3,c4,f#4] ~@3 [a3,c4,f#4] ~@3 [a3,c4,f#4]@2 ~@2", J: "~@6 d4 ~@3 d4 ~@3 d4@2",
  K: "[~@2 d4 ~@3 d4 ~@3 d4 ~@3 e4@4 g4 ~@5 d4 ~ d4@3 ~ d4@2]/2", L: "~@2 d4 ~ d4 ~@3 d4 ~ d4@2 ~@2 d4 ~",
  M: "[~@2 e4@2 c4@6 e4@2 g4@2 c4 ~, c4@3 ~@13]/2", N: "~@4 d4 ~@3 d4 ~ d4@3 ~@3", O: "~@4 e4@3 ~, b3@7 ~",
  P: "[c#4,e4,a4]@15 ~", Q: "[b3,d4,g4]@15 ~", R: "[c4,e4,g4]@15 ~", S: "[a3,d4,f#4]@15 ~",
  T: "[[a3,a4] ~@7 [g3,c#4,e4]@33 ~@7, ~@8 a3 ~@39]/3", // A C#dim
})).s("gm_alto_sax").gain(0.72)

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

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

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@59 [~@10 x!4 ~@2] ~@2 [~@12 x!2 ~@2] [~ x] [~@8 x!6 ~@2] [~@2 x!4 ~@10]>")
  .gain(0.14)

// drums · low tom
const low_tom = s("lt").struct("<[~ x ~ x]!4 ~@61 [~@4 x!5 ~@7]>").gain(0.64)

// drums · hihat
const hihat = s("hh").struct("<[x!4]!63 [~ x ~@2] ~@2>").gain(0.64)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct(`<
  A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A
  B A B A ~@3
>`.pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~ x ~ x ~ x ~@2",
})).gain(0.14)

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

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

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

// drums · ride
const ride = s("rd").struct("<~@63 [~@8 x!8] [x!6 ~ x ~ x!7] [x!4 ~ x ~@10]>").gain(0.64)

stack(
  bass, epiano2, epiano2_soft, acoustic_guitar_nylon, alto_sax, kick, snare, snare_soft, low_tom, hihat, hihat_soft,
  mid_tom, open_hat, crash, ride
)