// Rock Steady — Bad Company
// 100 bpm, 4/4, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: ch 2 "Organ" named as an organ, played on drawbar organ (its trumpet patch is not one)
// note: duplicate parts dropped: ch 12 "Guitar" overdriven guitar (copy of ch 1 "Guitar" overdriven guitar); ch 6 distortion guitar (copy of ch 4 distortion guitar); ch 7 distortion guitar (copy of ch 4 distortion guitar, 0.25 beats late); ch 8 brass section (copy of ch 5 brass section, 0.075 beats late)
// note: Full arrangement: all 94 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.
setcpm(100/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.

// chords · overdriven guitar · "Guitar"
const overdriven_guitar = note(`<
  A B C B C D E D E D E D E D E D E D E D E D E D E F G H I J K L@2 D E D E D E D E D E D E D E D E D E D E M G H I J K
  L@2 D N D N D N D N D N D N D N D N F G H O J K P@2 F G H O J K Q@2 ~
>`.pickRestart({
  A: "~@13 [g3,c4,e4]@3", B: "a2@2 a2@2 ~ [g3,c4,e4]@3 a2@2 a2@2 ~ [g3,c4,e4]@3",
  C: "a2!2 e2 g2 [c3,g3,c4,e4] a2 [d3,a3,d4,f#4]@2", D: "a2@2 a2@2 a2 [g3,c4,e4]@3 a2@2 a2@2 a2 [g3,c4,e4]@3",
  E: "a2!2 e2 g2 [c3,g3,c4,e4] [a2,d3] [d3,a3,d4,f#4]@2", F: "[c3,g3,c4]@2 [c3,g3,c4] [c3,g3,c4]@3 [c3,g3,c4]@2",
  G: "[d3,a3,d4]@2 [d3,a3,d4] [d3,a3,d4]@3 [d3,a3,d4]@2", H: "[c3,f3]@2 [c3,f3]!2 [d3,g3]@2 [d3,g3]!2, f2 g2",
  I: "[a2,e3,a3]@3 [a2,e3,a3,c4,e4]@5", J: "[c3,g3,c4]", K: "[d2,d3,a3,d4]@3 [e2,b2,e3] [f2,c3,f3]!2 [g2,d3,g3]@2",
  L: "[[a2,e3,a3]@2 [a2,e3,a3]@2 ~@2 [a2,e3,a3]@25 ~]/2", M: "[c3,g3,c4]!3 [c3,g3,c4]@3 [c3,g3,c4]@2",
  N: "a2@2 a2@2 e2@2 g2@2 [c3,g3,c4,e4]@2 [a2,d3]@2 [d3,a3,d4] [c3,g3,c4]@3", // C D5 C5
  O: "~@2 [c4,e4]@2 ~ [a3,c4,e4] [a3,c4,e4]@2 [a3,c4,e4] [a3,c4,e4]@2 [a3,c4,e4] ~ [a3,c4,e4]!3, [a2,e3]@3 [a2,e3]@5, a3 ~@3", // C Am A5
  P: "[[a2,e3,a3]@2 [a3,c4,e4]@2 ~ [a3,c4,e4] [a3,c4,e4]@2 [a3,c4,e4] [a3,c4,e4]@2 [a3,c4,e4] ~ [a3,c4,e4]!3 [a3,c4]@16, ~@2 [a2,e3]@3 ~ [a2,e3]@26]/2", // A5 Am A5
  Q: "[[a2,e3,a3] [a3,c4,e4] ~ [a2,e3,a3]@13, ~ [a2,e3]@2 ~@13]/2", // A5 Am A5
})).s("gm_overdriven_guitar").gain(0.8).pan(0.7)

// other · drawbar organ · "Organ" · A G A G A
const drawbar_organ = note(`<
  ~@39
  [~@12 [a3,a4,a5]@3 ~]
  [[g3,g4,g5]@2 [a3,a4,a5]@3 ~@11]
  ~@6
  [~@12 [a3,a4,a5]@3 ~]
  [[g3,g4,g5]@2 [a3,a4,a5]@3 ~@11]
  ~@45
>`).s("gm_drawbar_organ").gain(0.8).pan(0.7)

// bass · electric bass pick · "Bass"
const bass = note(`<
  ~@4 A B C B C B C B D B C B D B C B D B C B C E F G H I J K@2 B C B D B C B D B C B D B C B D B C B C E F G H I J K@2
  B L B M B L B M B L B M B L B M E F G H I J N O E F G H I J P@2 ~
>`.pickRestart({
  A: "[a2,a3]@4 [g2,g3]@4 [e2,e3]@4 [d2,d3] [c2,c3]@3", B: "a1@2 a1@2 ~@3 a1 a1@2 a1@2 ~@3 a1",
  C: "a1!2 d2 e2 g2 e2 a2@2", D: "a1!2 d2 e2 g2 g#2 a2@2", E: "c2 c2@2 c2!5", F: "d2 d2@2 d2!5",
  G: "f2 f2@2 f2 g2 g2@2 g2", H: "a2@4 a2@2 a2@2 a2@2 a2@2 a2 g2 e2 d2", I: "c2 c2@2 c2@3 c2!2", J: "d2!3 e2 f2!2 g2!2",
  K: "[a2 ~ a2 ~@3 a2@18 ~@8]/2", L: "a1@2 a1@2 d2@2 e2@2 c3@2 a2@2 d3 c3@3",
  M: "a1@2 a1@2 d2@2 e2@2 g2@2 g#2@2 d3 c3@3", N: "a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~",
  O: "a2 ~ a2 ~ a2 ~ a2!2 c3@2 a2@2 g2 e2 d2 c2", P: "[a2 ~ a2 ~@3 a2@26]/2",
})).s("gm_electric_bass_pick").gain(0.8).pan(0.3)

// other · distortion guitar
const distortion_guitar = note(`<
  ~@4 A B@2 ~@24 C@2 ~@3 D ~@22 C@2 E F G H I J K@2 L M N O P Q@3 ~@7 R S ~@5 T@2 ~
>`.pickRestart({
  A: "~@8 d5@4 g5 e5@3", B: "[c5 a4@18 ~@13]/2", C: "[~@3 a4@13]/2", D: "~@4 g5 e5@3 c5@2 ~@6", E: "~ d4@2 g4 e4@4",
  F: "~@2 f4@2 f4@4 e4@2 c4 d4@3 d4 c4, d4@3 ~@5", G: "a3@11 g3 a3@2 c4!2", H: "a3@12 ~@2 g4 a4, ~@13 e4@2 ~",
  I: "g4@3 a#4", J: "a#4@11 f4 g4 a#4!2 g4", K: "[g4@6 g4 a4 e4@16 c5@2 d5@4 g5@2]/2", L: "~@3 g5, e5@7 ~",
  M: "~@4 g5@4 e5@4 c5 d5 e5@2, e5@3 ~@5", N: "c5 d5 a4@14", O: "~@4 g5 e5@3 c5 d5@2 ~ e5@2 c5 ~", P: "a4@3 c5",
  Q: "[c5@4 c5@8 g4 a4 c5 a4@9 g4 a4@3 e4 [c4,d4] d4@4 d4 g4 [c4,d4] a#3 c4 g4@8 ~]/3", // Csus2
  R: "~@2 g4!2 ~@2 g4!2 ~@2 g4!2 ~ [d4,g4] c4 a3, d4@13 ~@3", S: "c4 ~@3", T: "[~@3 a3@13]/2",
})).s("gm_distortion_guitar").gain(0.8).pan(0.4)

// drums · kick
const kick = s("bd").struct(`<
  ~@5 A B A B A B A B A B A B A B A B A B A C D@3 E D@2 F G A B A B A B A B A B A B A B A B A B A B D@6 H I A B A J K L
  K L K L K L K L K B D@6 H I D@6 H ~ M
>`.pickRestart({
  A: "x ~ x ~@4 x!2 ~ x ~@4 x", B: "x!2 ~ x ~ x ~ x", C: "x!2 ~ x ~@2 x!2", D: "x ~ x ~@3 x!2 ~@2 x ~@3 x ~",
  E: "x ~ x!2 ~@2 x!2 ~@2 x ~@3 x ~", F: "x!4 ~@4", G: "~ x ~@2", H: "~ x!3 ~@4", I: "~@2 x ~ x ~@2 x ~ x!2 ~@5",
  J: "x!2 ~ x ~ x!3", K: "x ~ x ~ x ~@2 x!2 ~ x ~ x ~@2 x", L: "x!4 ~ x!3", M: "~ x ~@14",
})).gain(0.8).pan(0.6)

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

// drums · low tom
const low_tom = s("lt").struct("<~@30 [~@14 x!2] ~@62 x>").gain(0.8).pan(0.6)

// drums · hihat
const hihat = s("hh").struct(`<
  ~@5 A B A B A B A B A B A B A B A B A B A B ~@8 A B A B A B A B A B A B A B A B A B A B ~@8 A B A B A B A B A B A B A
  B A B ~@17
>`.pickRestart({
  A: "x!4", B: "x!2 ~ x",
})).gain(0.8).pan(0.6)

// drums · mid tom
const mid_tom = s("mt").struct("<~@30 [~@13 x ~@2] ~@25 [~@2 x ~ x ~ x!2 ~ x!2 ~ x!4] ~@36 x>").gain(0.8).pan(0.6)

// drums · open hat
const open_hat = s("oh").struct("<~@16 A ~@7 B ~@15 A ~@3 C ~@7 D ~@41>".pickRestart({
  A: "~@5 x ~ x", B: "~ x ~@2 x ~@3", C: "~@5 x ~@2", D: "~ x",
})).gain(0.8).pan(0.6)

// drums · high tom
const high_tom = s("ht").struct("<~@4 [~ x ~@2] ~@25 [~@3 x] ~ [~@3 x] ~@61>").gain(0.8).pan(0.6)

// drums · crash
const crash = s("cr").struct(`<
  ~@5 A ~@3 A ~@3 A ~@3 A ~@3 A ~@2 B A@6 C ~ A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A@6 C ~ A ~@2 D E@11 ~ A@6 C ~ A@6 C ~@2
>`.pickRestart({
  A: "x", B: "~ x", C: "~@3 x ~@4", D: "~@3 x", E: "~ x ~ x",
})).gain(0.8).pan(0.6)

// drums · ride bell
const ride_bell = s("rd").struct("<~@52 [~ x] ~@41>").gain(0.8).pan(0.6)

// drums · tambourine
const tambourine = s("tb").struct("<~@5 A@20 B@4 C B ~@2 A@20 B@4 C B ~@2 A@16 B@4 C B ~@2 B@4 C B ~@3>".pickRestart({
  A: "x!16", B: "x!4", C: "~ x!3",
})).gain(0.56).pan(0.6)

// drums · cowbell
const cowbell = s("cb").struct("<~@5 [x!4]!20 ~@8 [x!4]!20 ~@8 [x!4]!16 ~@17>").gain(0.8).pan(0.6)

stack(
  overdriven_guitar, drawbar_organ, bass, distortion_guitar, kick, snare, low_tom, hihat, mid_tom, open_hat, high_tom,
  crash, ride_bell, tambourine, cowbell
)