// Bad Moon Rising — Creedence Clearwater Revival
// 184 bpm, 4/4, key D major. Source: mcgill + midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 102 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(184/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(`<
  ~@4 A B C D A B C D A B C D A B C D A B E F A B G F A B C D A B C D A B C D A B C D A H E F A B G F A I C D A J C D K
  L M N O P G F Q R C D A B C D A B C D A B C D A S E F A B G F A T U V C W G F A X
>`.pickRestart({
  A: "d2@7 ~ d2@6 ~@2", B: "d2@3 ~ d2@3 ~", C: "d2@6 ~@2 d2@7 ~", D: "a1@3 ~ g1@3 ~", E: "g1@6 ~@2 g1@7 ~",
  F: "g1@3 ~ g1@3 ~", G: "a1@6 ~@2 a1@7 ~", H: "d2@3 ~ d2@2 ~@2 d2@3 ~ d2 ~@3", I: "d2@3 ~ a1@2 ~@2 b1@2 ~@2 c#2@2 ~@2",
  J: "d2@3 ~ a1@3 ~ b1@3 ~ c#2@3 ~", K: "d2@7 ~ a1@7 ~", L: "d2@3 ~ d2@3 ~ e2@3 ~ f#2@3 ~", M: "g2@6 ~@2 d2@7 ~",
  N: "g2@4 g2@2 ~@2 d2@3 d2 g2@2 ~@2", O: "d2@6 ~@2 a1@7 ~", P: "d2@4 d2@3 ~ a1@3 ~ d2@2 ~@2", Q: "d2@7 ~ a1@6 ~@2",
  R: "d2@3 ~ a1@3 ~", S: "d2@3 ~ d2@2 ~@2 d2@2 ~@2 d2 ~@3", T: "d2@3 ~ d2@2 ~@2 e2@2 ~@2 f#2@2 ~@2",
  U: "g2@6 ~@2 g2@7 ~", V: "g2@4 g2@3 ~ d2@3 d2 g2@2 ~@2", W: "d2@4 d2@3 ~ d2@3 ~ d2@2 ~@2", X: "d2@3 ~",
})).s("gm_electric_bass_finger").gain(0.36)

// other · overdriven guitar · "elec guitar"
const overdriven_guitar = note(`<
  ~@32 A B C ~ D B C ~ A B C E F ~@10 E A G ~@2 H I ~@5 J K L ~@2 M N ~@2 D O ~@2 A P ~ E Q R ~@16
>`.pickRestart({
  A: "f#3 ~@3 d4@7 b3 ~@3 f3", B: "f#3@3 ~ a3@2 b3@4 a3@4 ~ f3", C: "f#3 ~@15", D: "d4 ~@3 d4@7 b3 ~@3 f3",
  E: "~@15 f3", F: "f#3@2 ~@2 d4@7 ~@5", G: "f#3@3 ~@13", H: "~@11 b3@2 ~ f3@2",
  I: "f#3 ~@2 a3 b3@2 ~@2 a3@2 ~@2 b3@2 ~@2", J: "~@11 b3@3 ~ g#3", K: "a3@2 ~ a3 b3@3 g#3 a3@2 ~ a3 b3@3 g#3",
  L: "a3@2 ~ a3 b3@3 g#3 a3@2 ~ a3 b3 ~@3", M: "~@4 d4@7 b3 ~@3 f3", N: "f#3@3 ~ a3@2 ~ b3@3 a3@3 ~@3",
  O: "f#3@3 ~ b3@2 b3@4 a3@4 ~@2", P: "f#3@3 ~ a3@2 b3@4 a3@4 ~@2", Q: "f#3@2 ~@13 f3", R: "~@3 b3@2 a3@2 ~",
})).s("gm_overdriven_guitar").gain(0.1)

// other · overdriven guitar · "elec guitar" · soft notes
const overdriven_guitar_soft = note(`<
  ~@33 A ~@3 A ~@3 A ~@15 B ~@4 C@2 D@2 ~@7 A ~@3 E ~@3 A ~@2 F G ~@16
>`.pickRestart({
  A: "~@3 d4 ~@12", B: "~@3 d4 b3@2 ~ a3 d4@4 ~@4", C: "[~@4 b3@5 ~@2 b3!2 ~@2 b3@3 ~ b3 b3@2 ~@2 b3@5 ~@3]/2",
  D: "[~@4 a3@5 ~@2 a3!2 ~@2 a3@3 ~ a3 f#3@2 ~@2 a3@5 ~@3]/2", E: "~@3 b3 ~@12", F: "~@4 d4@7 b3 ~@4",
  G: "f#3@3 d4 a3@2 ~@10",
})).s("gm_overdriven_guitar").gain(0.05)

// chords · overdriven guitar · "electric guit 2"
const overdriven_guitar_2 = note("<~@53 A B C D E B F G@2 H@2 I@2 J K L M ~@17 N ~ O ~@5 P ~ Q ~@4>".pickRestart({
  A: "~@3 [f#4,a4,d5]", B: "[a4,d5,f#5]@2 ~@2 [a4,d5,f#5]@6 ~ [a4,d5,f#5]!2 ~@3", C: "[a4,c#5,e5]@7 ~ [g4,b4,d5]@8",
  D: "[f#4,a4,d5] ~@3 [f#4,a4,d5]@5 ~@2 [f#4,a4,d5] ~@4", E: "[f#4,a4,d5]@6 ~ [f#4,a4,d5]@5 [f#4,a4,d5]@4",
  F: "[a4,c#5,e5]@7 ~ [b4,d5,g5]@6 ~@2", G: "[[d5,f#5]@14 ~@5 d5@4 a5@4 f#5@2 ~@3, a4@3 ~, ~@8 f#5@3 ~@5]/2",
  H: "[[g4,b4,d5] ~@3 [g4,b4,d5]@5 ~@2 [g4,b4,d5]@2 ~@2 [g4,b4,d5,g5]@3 ~ [g4,b4,d5,g5] ~ e5 ~@2 [g4,b4,d5]@4 e5@2 ~@2, ~@10 [g4,b4] ~@5]/2", // G
  I: "[[d4,f#4,a4] ~@3 [d4,f#4,a4]@5 ~@2 [d4,f#4,a4]@2 ~@2 [d4,f#4,a4,d5]@3 ~ [d4,f#4,a4,d5] [d4,f#4,b4]@2 ~@2 [d4,f#4,a4]@4 ~@4]/2", // D Bm D
  J: "~@3 [a4,c#5,e5]@2 ~@2 [a4,c#5,f#5]@3 ~ [a4,c#5,e5]@2 ~@3", // A F#m A
  K: "~@3 [g4,b4,d5]@2 ~@2 [g4,b4,e5]@3 ~ [g4,b4,d5] [g4,b4,d5]@2 ~@2", // G Em G
  L: "~ [f#4,a4,d5]@2 [f#4,a4,d5] [f#4,a4,d5]@2 ~ [f#4,a4,d5]@2 ~@2 [f#4,a4,d5] ~@2 f#4 [a4,d5]", // D D5
  M: "[f#4,a4,d5] ~@2 [f#4,a4,d5]!2 ~@2 [f#4,a4,d5]@5 [f#4,a4,d5]@4", N: "~@2 b4 d5@2 b4@2 ~",
  O: "~@4 [a4,d5,f#5]@2 ~ [a4,d5,f#5]@3 [a4,d5,f#5] ~ [a4,d5,f#5]@3 ~", P: "~@4 b4@2 d5@3 ~ b4@2 ~@4",
  Q: "f#4@2 e4@2 ~@3 a4@4 f#4@2 ~@3, ~ d4@2 ~",
})).s("gm_overdriven_guitar").gain(0.36)

// other · acoustic guitar steel · "rhythm guitar"
const acoustic_guitar_steel = note(`<
  ~@4 A@3 B A@5 B A@7 B A@3 C A@5 B A@5 B A@7 B A@3 C A@3 D A B A@5 B A@7 B A B A@5 B A@7 B A@3 C A@3 D A@3 C A@3 E
>`.pickRestart({
  A: "a2 ~@3 b2 ~@3 a2 ~@3 b2 ~@3", B: "a2 ~@2 a2 b2 ~@3 a2 ~@3 b2 ~@3", C: "a2 ~@3 b2 ~@3 a2 ~@2 a2 b2 ~@3",
  D: "a2 ~@3 a2 ~@3 b2 ~@3 c#3 ~@3", E: "d3 ~@15",
})).s("gm_acoustic_guitar_steel").gain(0.36)

// chords · acoustic guitar steel · "other guitar"
const acoustic_guitar_steel_2 = note(`<
  ~@2 A B C@2 D E C@2 F B C@2 F B C@2 G B H@2 I@2 J@2 K L J@2 D E C@2 F B C@2 F B C@2 G B C@2 M@2 N@2 O P Q@2 D E R@2 D
  E S@2 T@2 J@2 O U N@2 D E C@2 F B C@2 F B C@2 G B V@2 W@2 N@2 O P Q@2 W@2 N@2 O P X Y
>`.pickRestart({
  A: "[a2,d3,a3,d4,f#4] ~@3 [a2,d3,a3,d4,f#4]@6 ~ [d3,a3,d4,f#4] [a2,d3,a3,d4,f#4] ~@3", // D
  B: "[a2,e3,a3,c#4]@4 [a2,e3,a3,c#4] ~@3 [g2,b2,d3,g3]@3 ~ [g2,b2,d3,g3] ~@3", // A G
  C: "[[d3,a3,d4,f#4]@2 ~@3 [d4,f#4]@6 ~ [d4,f#4] ~ [d3,a3,d4,f#4]@4 ~ [d3,a3,d4,f#4] [d4,f#4] ~ [a3,d4,f#4]@4 [a3,d4,f#4] d3 [a3,d4,f#4] ~@3, ~@4 [d3,a3]@6 ~ [d3,a3,d4,f#4]@2 ~@19]/2", // D D5 D
  D: "[d3,a3,d4,f#4] ~@3 [d3,a3,d4,f#4]@6 ~ [d3,a3,d4,f#4]@3 ~@2", // D
  E: "[a2,a3,c#4]@4 [a2,e3,a3,c#4] ~@3 [g2,b2,d3,g3]@3 ~ [g2,b2,d3,g3] ~@3, e3 ~@15", // A G
  F: "[d3,a3,d4,f#4] ~@3 [d3,a3,d4,f#4]@6 ~ [d3,a3,d4,f#4] [a2,d3,a3,d4,f#4] ~@3", // D
  G: "[d3,a3,d4,f#4] ~@3 [d3,a3,d4,f#4]@6 ~@2 [a2,d3,a3,d4,f#4] ~@3", // D
  H: "[[d3,a3,d4,f#4]@2 ~@3 [d4,f#4]@6 ~ [d4,f#4] ~ [d3,a3,d4,f#4]@4 ~ [d3,a3,d4,f#4] [d4,f#4] ~ [a3,d4,f#4]@6 [a3,d4,f#4] ~@3, ~@4 [d3,a3]@6 ~ [d3,a3,d4,f#4]@2 ~@19]/2", // D D5 D
  I: "[~@4 [b3,g4]@8 [b2,d3,g3,b3,g4]@8 [b2,d3,g3,b3,g4]@2 ~ [d3,g3,b3,g4]@5 [b2,d3,g3,b3,g4]@4, g2@7 ~@9, ~ g3 ~@6]/2", // Em G
  J: "[~@4 [a3,d4,f#4]@7 ~ [a3,d4,f#4]@8 [a3,d4,f#4]@8 [d3,d4,f#4]@4, d3@6 d3@7 ~ a3 ~]/2", // D
  K: "a2 [e3,a3,c#4,e4]@2 [e3,a3,c#4,e4]", L: "b2@4 g3 ~ g3@6 [g2,b2,d3,g3,b3,g4]@3 ~, g2@3 ~, ~ [b2,d3,b3,g4]@2 ~",
  M: "[~@2 [b3,g4]@4 [b2,d3,g3,b3,g4]@4 [b2,d3,g3,b3,g4]@4 [b2,d3,g3,b3,g4] ~, g2@7 ~@9, ~ g3 ~@6]/2", // Em G
  N: "[~@4 [a3,d4,f#4]@7 ~ [a3,d4,f#4]@8 [a3,d4,f#4]@8 [d3,a3,d4,f#4]@2 ~@2, d3@6 d3@7 ~@3]/2", // D
  O: "a2@4 [e3,a3,c#4,e4]@8 [e3,a3,c#4,e4]@3 ~", // A
  P: "~@4 g3 ~ g3@6 [g2,b2,d3,g3,b3,g4]@3 ~, g2@3 ~, ~ [b2,d3,b3,g4]@2 ~", // G
  Q: "[~@4 [a3,d4,f#4]@7 ~ [d3,a3,d4,f#4]@7 [d4,f#4]!2 ~@3 [a3,d4,f#4] ~@3 [a3,d4,f#4] ~@3, d3@12 ~@7 d3@7 ~@6, ~@19 a3@2 ~@11]/2", // D
  R: "[[d3,a3,d4,f#4]@2 ~@3 [d4,f#4]@6 ~ [d4,f#4] ~ [d3,a3,d4,f#4]@4 ~ [d3,a3,d4,f#4] [d4,f#4] ~@3 [a3,d4,f#4] ~@3 [a3,d4,f#4] ~@3, ~@4 [d3,a3]@6 ~ [d3,a3,d4,f#4]@2 ~@19]/2", // D D5 D
  S: "[[d3,a3,d4,f#4]@2 ~@3 [d4,f#4]@6 ~ [d4,f#4] ~ [d3,a3,d4,f#4]@4 ~ [d3,a3,d4,f#4] [a3,d4,f#4]@8 [a3,d4,f#4]@4, ~@4 [d3,a3]@6 ~ [d3,a3,d4,f#4]@2 ~@19]/2", // D D5 D
  T: "[~ [b3,g4]@2 [b2,d3,g3,b3,g4]@2 [b2,d3,g3,b3,g4]@2 [b2,d3,g3,b3,g4], g2@7 ~@9, ~ g3 ~@6]/2", // Em G
  U: "[b2,g4]@4 g3 ~ g3@6 [g2,b2,d3,g3,b3,g4]@3 ~, g2@3 ~, ~ [b2,d3,b3,g4]@2 ~", // Em G
  V: "[[d3,a3,d4,f#4]@2 ~@3 [d4,f#4]@6 ~ [d4,f#4] ~ [d3,a3,d4,f#4]@4 ~ [d3,a3,d4,f#4] [d4,f#4] ~ [a3,d4,f#4]@4 [a3,d4,f#4] d3 [a3,d4,f#4]@3 ~, ~@4 [d3,a3]@6 ~ [d3,a3,d4,f#4]@2 ~@19]/2", // D D5 D
  W: "[~@6 [b2,d3,g3,b3,g4]@4 [b2,d3,g3,b3,g4]@4 [b2,d3,g3,b3,g4] ~, g2!2 ~@2, ~ [g3,b3,g4]@2 ~@5]/2", // G
  X: "~@4 [a3,d4,f#4]@7 ~ [d3,a3,d4,f#4]@4, d3@3 ~", Y: "[a3,d4,f#4]@15 ~",
})).s("gm_acoustic_guitar_steel").gain(0.41)

// drums · kick
const kick = s("bd").struct("<~@4 [x!2]!97 x>").gain(0.36)

// drums · kick · soft notes
const kick_soft = s("bd").struct(`<
  ~@7 A ~@3 A ~@13 B ~@5 A ~@3 A ~@13 B ~@3 C ~ A ~ C ~ A ~@6 B@2 ~@3 A ~@3 A ~@13 B ~@7 B ~@4
>`.pickRestart({
  A: "~@3 x ~@12", B: "~@11 x ~@4", C: "~ x ~ x",
})).gain(0.15)

// drums · snare
const snare = s("sd").struct("<~@4 [~ x ~ x]!49 [~ x!3] [~ x ~ x]!3 [~ x!3] [~ x ~ x]!42 [~@4 x ~@6 x!2 ~@3] x>")
  .gain(0.36)

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

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

// drums · crash
const crash = s("cr").struct("<~@101 x>").gain(0.31)

stack(
  bass, overdriven_guitar, overdriven_guitar_soft, overdriven_guitar_2, acoustic_guitar_steel, acoustic_guitar_steel_2,
  kick, kick_soft, snare, hihat, hihat_soft, crash
)