// That Girl — Stevie Wonder
// 107 bpm, 4/4, key Ab minor. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(107/4)

const chords = arrange(
  // intro (4 bars)
  [4, "<~!3 [Abm@2 Eb7#9@2]>"],
  // instrumental (8 bars)
  [8, "<Abm9 Abm6 Abm [Dbm9@2 Abm7@2] Abm9 Abm6 Abm [Dbm9@2 Abm7@2]>"],
  // verse (8 bars)
  [8, "<Abm9 Abm6 Abm [Dbm9@2 Abm7@2] Abm9 Abm6 Abm [Dbm9@2 Abm7@2]>"],
  // pre-chorus (8 bars)
  [8, "<Gb Dbm7 [Bbm7@2 Eb7b13@2] Abm9 G^7 D^9 [G^9@2 C@2] [C D@2 E]>"],
  // verse (8 bars)
  [8, "<Abm9 Abm6 Abm [Dbm9@2 Abm7@2] Abm9 Abm6 Abm [Dbm9@2 Abm7@2]>"],
  // pre-chorus (8 bars)
  [8, "<Gb Dbm7 [Bbm7@2 Eb7b13@2] Abm9 G^7 D^9 [G^9@2 C@2] [C D@2 E]>"],
  // chorus (8 bars)
  [8, "<Ebm Db6 Db7sus [Gb^7@3 Am6] Ebm Db6 Db7sus [Gb^7@3 Am6]>"],
  // bridge (16 bars)
  [16, "<Dbm9 [Bbm7b5@2 Eb7#9@2] Dbm7b5 Em7 Dbm7b5 Em7 Ab7sus!2 Dbm7b5 Em7 Dbm7b5 Em7 Ab7sus!2 Bb7sus A9>"],
  // verse (8 bars)
  [8, "<Abm9 Abm6 Abm [Dbm9@2 Abm7@2] Abm9 Abm6 Abm [Dbm9@2 Abm7@2]>"],
  // pre-chorus (8 bars)
  [8, "<Gb Dbm7 [Bbm7@2 Eb7b13@2] Abm9 G^7 D^9 [G^9@2 C@2] [C D@2 E]>"],
  // verse (8 bars)
  [8, "<Abm9 Abm6 Abm [Dbm9@2 Abm7@2] Abm9 Abm6 Abm [Dbm9@2 Abm7@2]>"],
  // pre-chorus (8 bars)
  [8, "<Gb Dbm7 [Bbm7@2 Eb7b13@2] Abm9 G^7 D^9 [G^9@2 C@2] [C D@2 E]>"],
  // chorus (8 bars)
  [8, "<Ebm Db6 Db7sus [Gb^7@3 Am6] Ebm Db6 Db7sus [Gb^7@3 Am6]>"],
  // chorus (8 bars)
  [8, "<Ebm Db6 Db7sus [Gb^7@3 Am6] Ebm Db6 Db7sus [Gb^7@3 Am6]>"],
  // chorus (8 bars)
  [8, "<Ebm Db6 Db7sus [Gb^7@3 Am6] Ebm Db6 Db7sus [Gb^7@3 Am6]>"],
  // chorus (8 bars)
  [8, "<Ebm Db6 Db7sus [Gb^7@3 Am6] Ebm Db6 Db7sus [Gb^7@3 Am6]>"],
  // fadeout (7 bars)
  [7, "<Ebm Db6 Db7sus [Gb^7@3 Am6] Ebm Db6 Db7sus>"],
)
const bassline = arrange(
  [4, "<~!3 [ab2@2 eb2@2]>"],
  [8, "<ab2!3 [db2@2 ab2@2] ab2!3 [db2@2 ab2@2]>"],
  [8, "<ab2!3 [db2@2 ab2@2] ab2!3 [db2@2 ab2@2]>"],
  [8, "<gb2 db2 [bb2@2 eb2@2] ab2 a2 d2 [g2@2 f#2@2] [f#2@3 g#2]>"],
  [8, "<ab2!3 [db2@2 ab2@2] ab2!3 [db2@2 ab2@2]>"],
  [8, "<gb2 db2 [bb2@2 eb2@2] ab2 a2 d2 [g2@2 f#2@2] [f#2@3 g#2]>"],
  [8, "<db2 ab2 db2 [ab2@3 a2] db2 ab2 db2 [ab2@3 a2]>"],
  [16, "<db2 [bb2@2 eb2@2] db2 b2 db2 b2 ab2!2 db2 b2 db2 b2 ab2!2 bb2 a2>"],
  [8, "<ab2!3 [db2@2 ab2@2] ab2!3 [db2@2 ab2@2]>"],
  [8, "<gb2 db2 [bb2@2 eb2@2] ab2 a2 d2 [g2@2 f#2@2] [f#2@3 g#2]>"],
  [8, "<ab2!3 [db2@2 ab2@2] ab2!3 [db2@2 ab2@2]>"],
  [8, "<gb2 db2 [bb2@2 eb2@2] ab2 a2 d2 [g2@2 f#2@2] [f#2@3 g#2]>"],
  [8, "<db2 ab2 db2 [ab2@3 a2] db2 ab2 db2 [ab2@3 a2]>"],
  [8, "<db2 ab2 db2 [ab2@3 a2] db2 ab2 db2 [ab2@3 a2]>"],
  [8, "<db2 ab2 db2 [ab2@3 a2] db2 ab2 db2 [ab2@3 a2]>"],
  [8, "<db2 ab2 db2 [ab2@3 a2] db2 ab2 db2 [ab2@3 a2]>"],
  [7, "<db2 ab2 db2 [ab2@3 a2] db2 ab2 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)