// A Cowboys Work Is Never Done — Sonny & Cher
// 67 bpm, 4/4, key C minor. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(67/4)

const chords = arrange(
  // intro (5 bars)
  [5, "<~!4 Cm>"],
  // verse (7 bars)
  [7, "<Cm [Cm@2 G@2] G Cm [Cm@2 G@2] G Cm>"],
  // interlude (5 bars)
  [5, "<C#m!4 Cm>"],
  // verse (7 bars)
  [7, "<Cm [Cm@2 G@2] G Cm [Cm@2 G@2] G Cm>"],
  // bridge (8 bars)
  [8, "<[Ab@2 Bb@2] Cm [G7sus@2 G7@2] Cm [Ab@2 Bb@2] Cm F6 [G7sus@2 G7@2]>"],
  // interlude (7 bars)
  [7, "<Cm C#m!5 Cm>"],
  // verse (7 bars)
  [7, "<Cm [Cm@2 G7@2] G7 Cm [Cm@2 G7sus@2] [G7@2 ~@2] [~@2 ~@2]>"],
  // outro (9 bars)
  [9, "<Cm!2 G7 [G7@2 Cm@2] Cm [Cm@2 G7@2] G7 Cm [Cm@2 ~@2]>"],
)
const bassline = arrange(
  [5, "<~!4 c2>"],
  [7, "<c2 [c2@2 g2@2] g2 c2 [c2@2 g2@2] g2 c2>"],
  [5, "<c#2!4 c2>"],
  [7, "<c2 [c2@2 g2@2] g2 c2 [c2@2 g2@2] g2 c2>"],
  [8, "<[ab2@2 bb2@2] c2 g2 c2 [ab2@2 bb2@2] [c2@2 a#2@2] f2 g2>"],
  [7, "<c2 c#2!5 c2>"],
  [7, "<c2 [c2@2 g2@2] g2 c2 [c2@2 g2@2] [g2@2 ~@2] [~@2 ~@2]>"],
  [9, "<c2!2 g2 [g2@2 c2@2] c2 [c2@2 g2@2] g2 c2 [c2@2 ~@2]>"],
)

// chords · gm_piano
const keys = chord(chords).voicing().s("gm_piano").gain(0.8)
// bass · gm_electric_bass_finger
const bass = note(bassline).s("gm_electric_bass_finger").gain(0.9)
// drums
const drums = s("[bd hh] [sd hh] [bd hh] [sd hh]").gain(0.8)

stack(keys, bass, drums)