// Who'll Stop the Rain — Creedence Clearwater Revival
// 123 bpm, 4/4, key G 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: duplicate parts dropped: ch 5 acoustic guitar steel (copy of ch 3 electric guitar clean); ch 11 electric guitar muted (copy of ch 3 electric guitar clean); ch 7 breath noise (copy of ch 6 acoustic guitar steel)
// note: Full arrangement: all 81 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): guitar program 27, guitar program 30, guitar program 27, guitar program 25.
setcpm(123/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
const bass = note(`<
  A B C D E@2 A F G H A I J K J L J L J M N O E A F G H A P J K J L J L J M N O Q R S T U E@2 A F G H A P J K J L J L J
  M V@2 A B C D A B C D A B C D A B C D W@2 ~
>`.pickRestart({
  A: "g1@5 ~ g1@2 d2@8", B: "g1@5 ~ g1@2 g2@2 ~@2 f#2@2 ~@2", C: "e2@5 ~ e2@2 b1@8", D: "e2@5 ~ e2 ~ e2@2 ~@2 d2@2 ~@2",
  E: "g1@5 ~ g1 ~ g1@8", F: "g1@5 ~ g1@2 b1@4 g1@4", G: "c2@5 ~ c2@2 e2@4 c2@4", H: "g1@5 ~ g1@2 d2@4 b1@4",
  I: "g1@5 ~ g1@2 d2@4 g2@2 d2@2", J: "c2@5 ~ c2@2 g1@4 c2@4", K: "g1@5 ~ g1@2 d2@4 g1@2 b1@2, ~@14 g1 ~",
  L: "g1@5 ~ g1@2 d2@4 g1@2 b1@2", M: "d2@5 ~ d2@2 a1@4 d2@4", N: "e2@3 d2 c2 b1 a1 b1",
  O: "g1@6 d2@2 g2 ~ d2 ~ g1@2 d2@2", P: "b1@5 ~ b1@2 f#2@4 b1@2 d2@2", Q: "g1@5 ~ g1@2 b1@2 d2@2 b1@2 a1@2",
  R: "c2 g2 c3 g1 d2 g2 d2@2", S: "d2@9 ~ d2 d3 ~ d3 d2 d3", T: "a1 e2 a2 c2 g2 c3 e2@2", U: "e2!6 d2 ~", V: "e2/2",
  W: "g1/2",
})).s("gm_electric_bass_finger").gain(0.22)

// other · electric guitar clean
const electric_guitar_clean = note("<~@20 A ~@16 A ~ B C D E ~@38>".pickRestart({
  A: "~@3 d3 c3 ~ a2 ~", B: "~@7 a2", C: "~ g3 c4 ~ d3 g3 ~@2", D: "~@11 d4 ~ d4 ~ d4", E: "~ e3 a3 ~ g3 c4 ~@2",
})).s("gm_electric_guitar_clean").gain(0.1)

// chords · piano
const piano = note(`<
  A@2 B@2 C D E@2 F G E@2 F H F I F J F K L C D E@2 F G M N F H F I F J F K L C D O@2 P@2 C D E@2 F G M N F H F I F J F
  K Q@2 R@2 S@2 R@2 S@2 R@2 S@2 R@2 S@2 T@2 ~
>`.pickRestart({
  A: "[[b3,g4]@12 [b3,g4] ~ [a3,f#4] ~]/2", B: "[[b3,e4,g4]@12 [b3,e4,g4] ~ [a3,f#4] ~]/2",
  C: "[b3,g4]@8 [b3,d4] g4 b4 [d4,g4] b4 d5 [g4,b4] d5", // Em Bm G5 G
  D: "g5 [b4,d5] g5 b5 [d5,g5] b5 [a5,c6] [b5,d6] e6 [b5,d6] g5 d5 [c5,e6] [b4,d6] [g4,b5] [d4,g5], ~@4 c6 ~@3", // Bm G5 Am Bm C Bm G G5
  E: "[[b3,d4,g4]@12 ~@3 g4, ~@3 b3, ~@7 d4]/2", F: "[c4,e4,g4]", G: "[b3,d4,g4]@4 [a4,d5] b4 g4 d4",
  H: "[b3,d4,g4]@3 [e5,c6] [d5,b5] [b4,g5] [g4,d5] [d4,b4]", // G C G Em G5 G
  I: "[b3,g4]@4 [g3,d4] [b3,g4] [d4,b4] [b3,g4] [d4,b4] [g4,d5] [d4,b4] [g4,d5] [b4,g5] [g4,d5] [d4,b4] [b3,g4]", // Em G5 Em G Em G G5 G …
  J: "[b3,d4,g4]@4 [g5,d6] [d5,b5] [b4,g5] [d5,b5] [b4,g5] [g4,d5] [b4,g5] [g4,d5] [d4,b4] [g4,d5] [d4,b4] [b3,g4]", // G G5 G Em G Em G5 Em …
  K: "[a3,d4,f#4]@3 [g5,b5] [f#5,a5] [d5,f#5] [a4,d5] f#4", L: "[b3,e4,g4]@5 b3 e4 g4", M: "[b3,d4,g4]",
  N: "[b3,d4,f#4]@4 b3@2 d4 f#4", // Bm
  O: "[[c4,e4,g4]@3 [b3,d4,g4]@3 [a3,d4,f#4]@3 [g5,b5] [f#5,a5] d5 [a4,d5] [g4,b4] [f#4,a4] d4]/2", // C G D G F#m D5 G F#m
  P: "[[c4,e4,a4]@3 [c4,e4,g4]@3 [b3,e4,g4]@8 [a3,f#4] ~]/2", Q: "[b3,e4,g4]/2",
  R: "[[b3,d4,g4]@12 [b3,d4,g4] ~ [a3,d4,f#4] ~]/2", S: "[[b3,e4,g4]@12 [b3,e4,g4] ~ [a3,d4,f#4] ~]/2",
  T: "[d4,g4,b4]/2", // G
})).s("gm_piano").gain(0.19)

// chords · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  A B C D A@4 E A@3 E A E A E A E F C A@4 E A@2 G E A E A E A E F C A@2 H F I J A@4 E A@2 G E A E A E A E F K@2 A B C D
  A B C D A B C D A B C D L@2 ~
>`.pickRestart({
  A: "[b3,d4,g4]!8", B: "[b3,d4,g4]!5 ~ [a3,d4,f#4] ~", C: "[b3,e4,g4]!8", D: "[b3,e4,g4]!5 ~ [a3,d4,f#4] ~",
  E: "[g3,c4,e4]!8", F: "[a3,d4,f#4]!8", G: "[b3,d4,f#4]!8", H: "[g3,c4,e4]@3 [b3,d4,g4]@3 [a3,d4,f#4]@2",
  I: "[a3,c4,e4]@3 [g3,c4,e4]@3 [b3,e4,g4]@2", J: "[b3,e4,g4]!6 [d4,f#4,a4] ~", K: "[b3,e4,g4]/2", L: "[b3,d4,g4]/2",
})).s("gm_acoustic_guitar_steel").gain(0.12)

// chords · electric guitar clean
const electric_guitar_clean_2 = note("<~@19 A ~@16 A ~@14 B ~@7 A ~@21>".pickRestart({
  A: "~@4 [f4,c#5] ~@7 f4 ~@3", B: "~@4 g4 ~@7 g4 ~@3",
})).s("gm_electric_guitar_clean").gain(0.12)

// other · acoustic guitar steel
const acoustic_guitar_steel_2 = note("<~@30 [~ c4 ~ a#3 a4 a3 ~@2] ~@50>").s("gm_acoustic_guitar_steel").gain(0.24)

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

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

// drums · hihat
const hihat = s("hh").struct("<A@19 B A@10 ~ A@5 B A@6 ~ A@2 C@4 A@9 B ~@2 A@16 ~@3>".pickRestart({
  A: "x!8", B: "x!7 ~", C: "x!16",
})).gain(0.25)

// drums · mid tom
const mid_tom = s("mt").struct("<~@15 A ~@16 A ~@11 B ~@10 A ~@7 A ~@7 A ~@9>".pickRestart({
  A: "~@14 x!2", B: "~@15 x",
})).gain(0.45)

// drums · open hat
const open_hat = s("oh").struct("<~@30 [~ x!7] ~@50>").gain(0.35)

// drums · high tom
const high_tom = s("ht").struct("<~@15 A ~@16 A ~@11 B ~@10 A ~@7 A ~@7 A ~@9>".pickRestart({
  A: "~@12 x!2 ~@2", B: "~@7 x",
})).gain(0.45)

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

// drums · ride
const ride = s("rd").struct("<~@14 A@5 B A@2 ~@9 A@5 B A@2 ~@15 A@5 B ~ C ~@19>".pickRestart({
  A: "x!8", B: "x!7 ~", C: "~@10 x!3 ~@3",
})).gain(0.45)

// drums · shaker
const shaker = s("sh").struct("<A@19 B A@10 ~ A@5 B A@6 ~ A@15 B ~@2 A@16 ~@3>".pickRestart({
  A: "~ x ~ x ~@7 x ~@3 x", B: "~ x ~ x ~@7 x ~@4",
})).gain(0.2)

stack(
  bass, electric_guitar_clean, piano, acoustic_guitar_steel, electric_guitar_clean_2, acoustic_guitar_steel_2, kick,
  snare, hihat, mid_tom, open_hat, high_tom, crash, ride, shaker
)