// (Marie's the Name) His Latest Flame — Elvis Presley
// 210 bpm, 4/4, key G major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(210/4)

const chords = arrange(
  // intro (6 bars)
  [6, "<G Em G Em G Em>"],
  // verse (11 bars)
  [11, "<G Em G Em G Em G Em!2 C D>"],
  // trans (4 bars)
  [4, "<G Em G Em>"],
  // verse (11 bars)
  [11, "<G Em G Em G Em G Em!2 C D>"],
  // trans (4 bars)
  [4, "<G Em G Em>"],
  // bridge (14 bars)
  [14, "<D C D C D C D C D C D C D C>"],
  // trans (4 bars)
  [4, "<G Em G Em>"],
  // verse (11 bars)
  [11, "<G Em G Em G Em G Em!2 C D>"],
  // trans (4 bars)
  [4, "<G Em G Em>"],
  // bridge (14 bars)
  [14, "<D C D C D C D C D C D C D C>"],
  // trans (4 bars)
  [4, "<G Em G Em>"],
  // verse (13 bars)
  [13, "<G Em G Em G Em G Em!2 C D G Em>"],
  // fadeout (10 bars)
  [10, "<C D G Em C D G Em C D>"],
)
const bassline = arrange(
  [6, "<g2 e2 g2 e2 g2 e2>"],
  [11, "<g2 e2 g2 e2 g2 e2 g2 e2!2 c2 d2>"],
  [4, "<g2 e2 g2 e2>"],
  [11, "<g2 e2 g2 e2 g2 e2 g2 e2!2 c2 d2>"],
  [4, "<g2 e2 g2 e2>"],
  [14, "<d2 c2 d2 c2 d2 c2 d2 c2 d2 c2 d2 c2 d2 c2>"],
  [4, "<g2 e2 g2 e2>"],
  [11, "<g2 e2 g2 e2 g2 e2 g2 e2!2 c2 d2>"],
  [4, "<g2 e2 g2 e2>"],
  [14, "<d2 c2 d2 c2 d2 c2 d2 c2 d2 c2 d2 c2 d2 c2>"],
  [4, "<g2 e2 g2 e2>"],
  [13, "<g2 e2 g2 e2 g2 e2 g2 e2!2 c2 d2 g2 e2>"],
  [10, "<c2 d2 g2 e2 c2 d2 g2 e2 c2 d2>"],
)

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