// Fool That I Am — Etta James
// 51 bpm, 4/4, key Db major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(51/4)

const chords = arrange(
  // intro (3 bars)
  [3, "<Ab7b13 [Db@2 Gb7@2] [Db@2 Ab7b9@2]>"],
  // verse (8 bars)
  [8, "<Db^7 [Bbo@2 Dbo@2] Ebm7 [Ab@2 Ab7b9@2] Db^7 [Bbo@2 Dbo@2] Ebm7 [Ab@2 Ab7b9@2]>"],
  // verse (8 bars)
  [8, "<Db^7 A7 Ebm7 F7 Bbm7 Eb7 Ebm7 Ab7>"],
  // chorus (14 bars)
  [14, "<Db^7 [Bbo@2 Dbo@2] Ebm7 [Ab@2 Ab7b9@2] Db Dbaug Gb^7 Gb6!2 Cb9 Db^9 [Fm7@2 Bb7b9@2] Ebm7 Ab7b13>"],
  // outro (4 bars)
  [4, "<[Db^7@2 Gb7@2] [Db@2 Ab7b9@2] ~ Db^9>"],
)
const bassline = arrange(
  [3, "<ab2 [db2@2 gb2@2] [db2@2 ab2@2]>"],
  [8, "<db2 [bb2@2 db2@2] eb2 ab2 db2 [bb2@2 db2@2] eb2 ab2>"],
  [8, "<db2 a2 eb2 f2 bb2 eb2!2 ab2>"],
  [14, "<db2 [bb2@2 db2@2] eb2 ab2 db2!2 gb2!3 b2 db2 [f2@2 bb2@2] eb2 ab2>"],
  [4, "<[db2@2 gb2@2] [db2@2 ab2@2] ~ db2>"],
)

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