// The Way You Do The Things You Do — Rita Coolidge
// 108 bpm, 4/4, key E major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(108/4)

const chords = arrange(
  // intro (6 bars)
  [6, "<E [E@2 Eb D] E7!4>"],
  // verse (24 bars)
  [24, "<E7!8 A7!2 E7!5 [E7 B@3] B7 A7 B7 A7 E7!4>"],
  // verse (24 bars)
  [24, "<E7!8 A7!2 E7!5 [E7 B7@3] B7 A7 B7 A7 E7!4>"],
  // solo (16 bars)
  [16, "<E7!7 [E7 B7@3] B7 A7 B7 A7 E7!2 F7!2>"],
  // verse (16 bars)
  [16, "<F7!7 [F7 C7@3] C7 Bb7 C7 Bb7 F7!4>"],
  // outro (4 bars)
  [4, "<F7 [F7@2 Ab Bb] F7 [F7@2 Ab Bb]>"],
  // fadeout (8 bars)
  [8, "<F7 [F7@2 Ab Bb] F7 [F7@2 Ab Bb] F7 [F7@2 Ab Bb] F7 [F7@2 Ab Bb]>"],
)
const bassline = arrange(
  [6, "<b2 [b2@2 bb2 a2] e2!4>"],
  [24, "<e2!8 a2!2 e2!5 [e2 b2@3] b2 a2 b2 a2 e2!4>"],
  [24, "<e2!8 a2!2 e2!5 [e2 b2@3] b2 a2 b2 a2 e2!4>"],
  [16, "<e2!7 [e2 b2@3] b2 a2 b2 a2 e2!2 f2!2>"],
  [16, "<f2!7 [f2 c2@3] c2 bb2 c2 bb2 f2!4>"],
  [4, "<f2 [f2@2 ab2 bb2] f2 [f2@2 ab2 bb2]>"],
  [8, "<f2 [f2@2 ab2 bb2] f2 [f2@2 ab2 bb2] f2 [f2@2 ab2 bb2] f2 [f2@2 ab2 bb2]>"],
)

// 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)