// After The Lovin' — Engelbert Humperdinck
// 115 bpm, 6/8, key C major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(115/3)

const chords = arrange(
  // intro (11 bars)
  [11, "<Am Eaug Am D7 Dm7 Em7 [F@2 Am7@4] D^9!2 G11!2>"],
  // verse (16 bars)
  [16, "<C C^7 C6 C^7 Dm Dm^7 Dm7 G Dm7 Bb G!2 C!2 G11 G>"],
  // verse (16 bars)
  [16, "<C C^7 C6 C^7 Dm Dm^7 Dm7 G Dm7 Bb G!2 C!2 C11 C7>"],
  // transition (16 bars)
  [16, "<F^7!2 C^7!2 G11!2 C C^7 Am Eaug Am F#m7b5 Dm7 G7 Dm7 G7>"],
  // verse (16 bars)
  [16, "<C C^7 C6 C^7 Dm Dm^7 Dm7 G Dm7 Bb G!2 A7!4>"],
  // chorus (16 bars)
  [16, "<F!2 E7!2 Am Am^7 D7#11 D7 Dm7 Em7 Dm7 G11 C!2 Ab7!2>"],
  // verse (16 bars)
  [16, "<Db Db^7 Db6 Db^7 Ebm Ebm^7 Ebm7 Ab Ebm7 B Ab!2 Bb11!2 Abo7!2>"],
  // chorus (16 bars)
  [16, "<Gb^7!2 F7!2 Bbm Bbm^7 Eb9!2 Ebm7 Fm7 Ebm7 Ab11 Db!2 Bb7sus Bb7>"],
  // outro (21 bars)
  [21, "<Ebm7 Fm7 Ebm7 Ab11 Db!2 Bbm7 Bb7 Ebm7 Fm7 Ebm7 Ab11 Db Faug Bbm7 Eb7 Ebm7 Fm7 [Db@3 Ab@3] [Ebm7@3 Ab11@3] Db^7>"],
)
const bassline = arrange(
  [11, "<a2 e2 a2 d2!2 e2 [f2@2 a2@4] d2!2 g2!2>"],
  [16, "<c2!4 d2!3 g2 d2!3 g2 c2!2 g2!2>"],
  [16, "<c2!4 d2!3 g2 d2!3 g2 c2!4>"],
  [16, "<f2!2 c2!2 g2!2 c2!2 a2 e2 a2!2 d2 g2 d2 g2>"],
  [16, "<c2!4 d2!3 g2 d2!3 g2 a2!4>"],
  [16, "<f2!2 e2 g#2 a2!2 d2!3 e2 d2 g2 c2!2 ab2!2>"],
  [16, "<db2!4 eb2!3 ab2 eb2 d#2 ab2!2 bb2!4>"],
  [16, "<gb2!2 f2!2 bb2!2 eb2!3 f2 eb2 ab2 db2!2 bb2!2>"],
  [21, "<eb2 f2 eb2 ab2 db2!2 bb2!2 eb2 f2 eb2 ab2 db2 f2 bb2 eb2!2 f2 [f2@3 bb2@3] [eb2@3 ab2@3] 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 hh] [sd hh hh]").gain(0.8)

stack(keys, bass, drums)