// Oh My Angel — Bertha Tillman
// 94 bpm, 6/8, key C major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(94/3)

const chords = arrange(
  // intro (6 bars)
  [6, "<[F^7@3 Em7@3] Dm7 C^7 Dm7 Em7 Dm7>"],
  // verse (16 bars)
  [16, "<C^7 Dm7 Em7 Dm7 C^7 Dm7 Em7 Dm7 C^7 Dm7 Em7 Dm7 C^7 Dm7 Em7 Dm7>"],
  // verse (16 bars)
  [16, "<C^7 Dm7 Em7 Dm7 C^7 Dm7 Em7 Dm7 C^7 Dm7 Em7 Dm7 C^7 F C^7 C7>"],
  // chorus (16 bars)
  [16, "<F G C Am F G C C7 F G C Am F!2 G7 Ab7>"],
  // verse (16 bars)
  [16, "<Db^7 Ebm7 Fm7 Ebm7 Db^7 Ebm7 Fm7 Ebm7 Db^7 Ebm7 Fm7 Ebm7 Db^7 Gb Db!2>"],
)
const bassline = arrange(
  [6, "<[a2@3 g2@3] f2 c2 d2 e2 d2>"],
  [16, "<c2 d2 e2 d2 c2 d2 e2 d2 c2 d2 e2 d2 c2 d2 e2 d2>"],
  [16, "<c2 d2 e2 d2 c2 d2 e2 d2 c2 d2 e2 d2 c2 f2 c2!2>"],
  [16, "<f2 g2 c2 a2 f2 g2 c2!2 f2 g2 c2 a2 f2!2 g2 ab2>"],
  [16, "<db2 eb2 f2 eb2 db2 eb2 f2 eb2 db2 eb2 f2 eb2 db2 gb2 db2!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)