// I've Been Loving You Too Long (To Stop Now) — Otis Redding
// 69 bpm, 6/8, key A major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(69/3)

const chords = arrange(
  // chorus (8 bars)
  [8, "<A!2 E!2 A!2 E!2>"],
  // verse (8 bars)
  [8, "<A!2 C#!2 D!2 F!2>"],
  // chorus (8 bars)
  [8, "<A!2 E!2 A!2 E!2>"],
  // verse (8 bars)
  [8, "<A!2 E!2 A!2 E!2>"],
  // verse (8 bars)
  [8, "<A!2 C#!2 D!2 F!2>"],
  // chorus (8 bars)
  [8, "<A!2 E!2 A!2 F!2>"],
  // chorus (8 bars)
  [8, "<Bb!2 F!2 Bb!2 Gb!2>"],
  // outro (20 bars)
  [20, "<Bb!2 Gb!2 Bb!2 Gb!2 Bb!2 Gb!2 Bb!2 Gb!2 Bb!2 Gb!2>"],
)
const bassline = arrange(
  [8, "<a2!2 e2!2 a2!2 e2!2>"],
  [8, "<a2!2 c#2!2 d2!2 f2!2>"],
  [8, "<a2!2 e2!2 a2!2 e2!2>"],
  [8, "<a2!2 e2!2 a2!2 e2!2>"],
  [8, "<a2!2 c#2!2 d2!2 f2!2>"],
  [8, "<a2!2 e2!2 a2!2 f2!2>"],
  [8, "<bb2!2 f2!2 bb2!2 gb2!2>"],
  [20, "<bb2!2 gb2!2 bb2!2 gb2!2 bb2!2 gb2!2 bb2!2 gb2!2 bb2!2 gb2!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 hh] [sd hh hh]").gain(0.8)

stack(keys, bass, drums)