// Help Me Make It Through the Night — Kris Kristofferson
// 164 bpm, 4/4, key C 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 117 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): guitar program 25.
setcpm(164/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, A@4 for four bars: edit a riff to change every repeat.

// bass · fretless bass
const bass = note(`<
  ~@4 A B@3 C D E F G H@3 I B J K A B@3 L D E F G H@3 M B@3 C D@3 N B@3 O F@3 G P Q R S B@3 C D E F G H@3 M B J K A B@3
  C D E F G H@3 T B@3 C D@3 U B@3 O F@3 G P Q R A B@3 V D W F G H@3 X Y N Z AA
>`.pickRestart({
  A: "~@4 g1@3 ~ a1@4 b1@4", B: "c2 ~ g1 ~", C: "c2@4 ~@3 c2 d2@3 ~ e2@3 ~", D: "f2 ~ c2 ~", E: "f2@4 ~@3 f2 e2@7 ~",
  F: "d2 ~ a1 ~", G: "d2@4 ~@4 a1@3 ~ d2@3 ~", H: "g2 ~ d2 ~", I: "g2@4 ~@4 e2@4 d2@3 ~", J: "c2@5 ~@3 g1@4 a1@4",
  K: "c2@3 ~@13", L: "c2@4 ~@3 c2 c2@3 ~ d2@3 ~", M: "g2@2 ~@2 g1@3 ~ a1@3 ~ b1@3 ~", N: "f2@4 ~@4 c2@3 ~ f2@3 ~",
  O: "c2@4 ~@3 c2 g1@3 ~ c#2@4", P: "g2@5 ~@3 f2@4 ~@4", Q: "d2@4 ~@4 b1@3 ~ a1@4", R: "g1 ~@3",
  S: "~@4 g1@3 ~ a1@3 ~ b1@3 ~", T: "g2@4 ~@3 g2 d2@3 ~ g2@3 ~", U: "f2@4 ~@3 f2 e2@3 ~ d2@4",
  V: "c2@4 ~@4 d2@4 e2@3 ~", W: "f2@4 ~@4 e2@7 ~", X: "g2@5 ~@3 d2@4 g2@3 ~", Y: "c2@4 ~@4 g1@3 ~ c2@3 ~",
  Z: "c2@4 ~@4 g1@5 ~@3", AA: "c2@3 ~",
})).s("gm_fretless_bass").gain(0.32)

// chords · synth strings 1
const synth_strings_1 = note(`<
  ~ A@2 B ~ C D E@2 F@2 G@2 H@4 C D I ~ C D E@2 F@2 G@2 H@4 C D J@2 K@4 L@4 M@4 N@2 O ~ C D E@2 F@2 G@2 H@4 C D I ~ C D
  E@2 F@2 G@2 H@4 C D J@2 K@4 L@4 P@4 N@2 O ~ C D E@2 F@2 G@2 H@4 C Q R S
>`.pickRestart({
  A: "[[e4,e5]@15 ~ [f4,f5]@15 ~, [g3,c4]@31 ~]/2", B: "[c4,e4,g4,g5] ~@3", C: "[g3,c4,e4]@15 ~", D: "[g3,c4,f4]@15 ~",
  E: "[[g3,c4,e4]@31 ~]/2", F: "[f4@23 ~ e4@7 ~, [a3,c4]@31 ~]/2", G: "[[a3,d4,f4]@31 ~]/2", H: "[[g3,b3,d4]@63 ~]/4",
  I: "[g3,c4,e4]@3 ~@13", J: "[[g3,c4,e4]@8 [g3,a#3,c4,e4]@23 ~]/2", K: "[[a3,c4,f4]@63 ~]/4", L: "[[g3,c4,e4]@63 ~]/4",
  M: "[[f#3,a3,c4,d4]@63 ~]/4", N: "[[g3,b3,d4]@31 ~]/2", O: "[f3,g3,b3,d4]@3 ~@13", P: "[f#3,a3,c4,d4]/4",
  Q: "[a3,c4,f4]@15 ~", R: "[g3,c4,e4]@3 ~@5 [g3,b3,d4]@3 ~@5", S: "[g3,c4,e4]@3 ~",
})).s("gm_synth_strings_1").gain(0.08)

// other · string ensemble 1
const string_ensemble_1 = note("<~@37 A@4 B@4 C@7 ~@33 A@4 D@4 C@7 ~@17>".pickRestart({
  A: "[[a4,a5]@63 ~]/4", B: "[g4, g5@25 ~@39]/4", C: "[[f#4,f#5]@9 [b4,b5]@5 ~@2]/7", D: "[g4, g5@7 ~@9]/4",
})).s("gm_string_ensemble_1").gain(0.17)

// other · electric guitar clean
const electric_guitar_clean = note("<~@67 A B@2 ~ C D E F G H@3 I J@3 ~@34>".pickRestart({
  A: "~@4 g2@4 c3@3 ~ e3@2 ~@2", B: "[e3@2 ~@2 e3@2 ~@2 d3@2 ~ c3 a2@2 g2@16 ~@2]/2", C: "~@7 g2 c3@3 ~ e3@2 ~@2",
  D: "e3@3 ~ e3@3 ~ d3@2 ~ c3@3 ~ a2", E: "c3", F: "a2", G: "~@7 d3 d3@3 ~ e3@3 ~",
  H: "[f3@3 ~ e3@4 d3@2 ~ e3 c3@2 ~ b2@20 ~@13]/3", I: "~@7 d3 f3@2 ~ d3 f3@4",
  J: "[e3 f3 ~ e3 d3 e3 ~ d3 c3@2 ~ b2 g2@2 ~ c3@18 ~@15]/3",
})).s("gm_electric_guitar_clean").gain(0.42).pan(0.6)

// chords · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  ~ A@2 B ~@6 C@2 ~ D E ~@10 F@3 ~ D E ~@4 G ~@13 D H ~@7 I J ~ D E ~@11 I J ~ D E ~@4 G ~@13 K H ~@5 L M@2 N ~ D E ~@6
>`.pickRestart({
  A: "[~@7 c4@4 ~@17 g3@3 ~, ~@3 g3@7 ~ g3@8 g3@9 ~@4, ~@4 e4@11 ~ f4@7 f4@8 ~, ~@12 c4@8 c4@7 c4@5]/2",
  B: "~ g4@13 ~@2", C: "[~ f4@5 ~@3 e4@4 ~@4 f4@9 ~@6, ~@15 d3@10 ~@7]/2", D: "~@3 [d3,g3,b3,g4]", E: "~ b3 ~ b3",
  F: "[~@17 f4@4 ~@4 e4@4 ~@4 f4@11 ~@4, ~@15 f3@6 ~@10 d3@13 ~@4]/3", G: "~@3 a#3", H: "~@4 b3@5 ~@2 b3@4 ~",
  I: "~ f4@4 ~@4 e4@4 ~@3", J: "~ f4@11 ~@4", K: "~@3 b3", L: "~@3 f4", M: "[~@15 f3@6 ~@3 e4@5 ~@3]/2",
  N: "~ f4@2 ~@13",
})).s("gm_acoustic_guitar_steel").gain(0.08).pan(0.3)

// chords · acoustic guitar steel
const acoustic_guitar_steel_2 = note(`<
  A@5 B C D@2 E F G@2 H I J K B L M ~ D C D@2 E F N G O I J@2 D L D P E@4 D@4 Q@4 O I R ~ D L D@2 E F G@2 O I J K D L M
  ~ D C D@2 E F G@2 O I J K D L D S E@4 B D@2 B Q@3 T U I R ~ D L D@2 V F N G O I J@2 D E W X
>`.pickRestart({
  A: "[~@16 [c4,e4]@13 ~@4 f4@13 ~@2 [g3,c4,e4]@28 ~@4, ~@15 [c3,e3]@15 ~ [c3,e3]@15 ~ [c3,e3]@29 ~@4, ~@16 g3@15 ~ g3@16 ~@32, ~@32 c4@13 ~@35]/5", // C
  B: "[e3,g3,c4,e4]@4 [e3,g3,c4,e4]@3 [e3,g3,c4,e4]@4 [e3,g3,c4,e4] [e3,g3,c4,e4]@2 ~@2", // C
  C: "[e3,g3,c4,f4]@4 [e3,g3,c4,f4]@3 [e3,g3,c4,f4]@4 [e3,g3,c4,f4]!2 ~@3", // C
  D: "[e3,g3,c4,e4]@4 [e3,g3,c4,e4]@3 [e3,g3,c4,e4]@4 [e3,g3,c4,e4]!2 ~@3", // C
  E: "[f3,a3,c4,f4]@4 [f3,a3,c4,f4]@3 [f3,a3,c4,f4]@4 [f3,a3,c4,f4]!2 ~@3", // F
  F: "[f3,a3,c4,f4]@4 [f3,a3,c4,f4]@3 [f3,a3,c4,f4] [f3,a3,c4,f4]@2 ~ [f3,a3,c4,e4]@4 ~", // F Fmaj7
  G: "[d3,a3,d4,f4]@4 [d3,a3,d4,f4]@3 [d3,a3,d4,f4]@4 [d3,a3,d4,f4] [d3,a3,d4,f4]@2 ~@2", // Dm
  H: "[d3,g3,b3,g4]@4 [d3,g3,b3,g4]@3 [d3,g3,b3,g4] [d3,g3,b3,g4]@2 ~ [d3,g3,c4,g4]@3 ~@2", // G Csus2
  I: "[d3,g3,d4,g4]@4 [d3,g3,d4,g4]@3 [d3,g3,d4,g4]@4 [d3,g3,d4,g4] [d3,g3,c4,g4]@2 ~@2", // G5 Csus2
  J: "[d3,g3,b3,g4]@4 [d3,g3,b3,g4]@3 [d3,g3,b3,g4]@4 [d3,g3,b3,g4] [d3,g3,b3,g4]@2 ~@2", // G
  K: "[d3,g3,b3,g4]@4 [d3,g3,b3,g4]@3 [d3,g3,b3,g4]@4 [d3,g3,b3,g4]!2 ~@3", // G
  L: "[e3,g3,c4,f4]@4 [e3,g3,c4,f4]@3 [e3,g3,c4,f4]@4 [e3,g3,c4,f4] [e3,g3,c4,f4]@2 ~@2", M: "[e3,g3,c4,e4]@3 ~@13",
  N: "[d3,a3,d4,f4]@4 [d3,a3,d4,f4]@3 [d3,a3,d4,f4]@4 [d3,a3,d4,f4]!2 ~@3", // Dm
  O: "[d3,g3,b3,g4]@4 [d3,g3,b3,g4]@3 [d3,g3,b3,g4]!2 ~@2 [d3,g3,c4,g4]@4 ~", // G Csus2
  P: "[e3,g3,a#3,c4,e4]@4 [e3,g3,a#3,c4,e4]@3 [e3,g3,a#3,c4,e4]@4 [e3,g3,a#3,c4,e4]!2 ~@3", // C7
  Q: "[d3,a3,c4,d4,f#4]@4 [d3,a3,c4,d4,f#4]@3 [d3,a3,c4,d4,f#4]@4 [d3,a3,c4,d4,f#4]!2 ~@3", R: "[d3,g3,b3,g4] ~@3",
  S: "[e3,g3,c4,e4]@3 ~ [e3,g3,a#3,c4,e4]@3 [e3,g3,a#3,c4,e4]@4 [e3,g3,a#3,c4,e4]!2 ~@3", // C C7
  T: "[d3,a3,c4,d4,f#4]@4 [d3,a3,c4,d4,f#4]@3 [d3,a3,c4,d4,f#4]@4 [d3,a3,c4,d4,f#4] [d3,a3,c4,d4,f#4]@2 ~@2", // D7
  U: "[d3,g3,b3,g4]@4 [d3,g3,b3,g4]@3 [d3,g3,b3,g4]!2 ~@2 [d3,g3,c4,g4] [d3,g3,c4,g4]@3 ~, ~@11 b3@4 ~", // G Csus2
  V: "[f3,a3,c4,f4]@4 [f3,a3,c4,f4]@3 [f3,a3,c4,f4]@4 [f3,a3,c4,f4] [f3,a3,c4,f4]@2 ~@2", // F
  W: "[e3,g3,c4,e4]@4 ~@4 [d3,g3,b3,g4]@5 ~@3", X: "[e3,g3,c4,e4]@7 ~",
})).s("gm_acoustic_guitar_steel").gain(0.1).pan(0.7)

// drums · kick
const kick = s("bd").struct("<~@3 A@18 B@15 C A@16 B@14 A@2 B@15 C A@31 D>".pickRestart({
  A: "x!2", B: "x ~@6 x!2 ~@7", C: "x ~@6 x!2 ~@6 x", D: "x",
})).gain(0.45)

// drums · rim
const rim = s("rim").struct("<~@21 A@15 ~@17 B@13 C ~@2 B@6 D B@8 E ~@32>".pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "~@4 x ~@6 x!2 ~@3", D: "~ x ~@2", E: "~@3 x!2 ~@11",
})).gain(0.45)

// drums · snare
const snare = s("sd").struct("<~@36 [~@11 x!2 ~@3] [~ x ~ x]!14 ~@33 [~@11 x!2 ~@3] [~ x ~ x]!14 ~@18>").gain(0.4)

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

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<~@5 A@14 ~@2 A@12 B@3 C ~@16 A@14 ~@2 A@12 B@3 C ~@16 A@14 ~@2>".pickRestart({
  A: "~@3 x ~@3 x ~@3 x ~@3 x", B: "~@7 x ~@7 x", C: "~@3 x ~@3 x ~@8",
})).gain(0.15)

// drums · mid tom
const mid_tom = s("mt").struct("<~@40 A ~@3 A ~@3 A ~@39 A ~@3 A ~@3 A ~@20>".pickRestart({
  A: "~@3 x",
})).gain(0.05)

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

// drums · crash
const crash = s("cr").struct(`<
  ~@5 A ~@5 A ~@7 A ~ A ~@14 B A ~@13 A ~ A ~@5 A ~@7 A ~ A ~@14 B A ~@15 A ~@5 A ~@7 C A
>`.pickRestart({
  A: "x", B: "~@15 x", C: "x!2",
})).gain(0.2)

// drums · ride
const ride = s("rd").struct(`<
  ~@37
  [~@4 x ~@2 x!2 ~@3 x ~@2 x]
  [x ~@3 x ~@2 x!2 ~@3 x ~@2 x]!13
  ~@34
  [~@4 x ~@2 x!2 ~@3 x ~@2 x]
  [x ~@3 x ~@2 x!2 ~@3 x ~@2 x]!13
  ~@18
>`).gain(0.3)

// drums · tambourine
const tambourine = s("tb").struct("<~@5 A@14 ~@2 B@15 C D@14 E ~ A@14 ~@2 B@15 C D@14 E ~ A@14 ~@2>".pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "~ x ~@2", D: "x!4", E: "x",
})).gain(0.3)

// drums · tambourine · soft notes
const tambourine_soft = s("tb").struct("<~@37 [~@3 x ~@3 x ~@3 x ~@3 x]!14 ~@34 [~@3 x ~@3 x ~@3 x ~@3 x]!14 ~@18>")
  .gain(0.15)

stack(
  bass, synth_strings_1, string_ensemble_1, electric_guitar_clean, acoustic_guitar_steel, acoustic_guitar_steel_2, kick,
  rim, snare, hihat, hihat_soft, mid_tom, open_hat, crash, ride, tambourine, tambourine_soft
)