// Dial My Heart — The Boys
// 101 bpm, 4/4, key A major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(101/4)

const chords = arrange(
  // intro (4 bars)
  [4, "<~!3 G^9>"],
  // instrumental (8 bars)
  [8, "<A [Em7@2 Em9@2] A Em9 A [Em7@2 Em9@2] A Em9>"],
  // verse (8 bars)
  [8, "<B5 [E5@2 F#5@2] B5 [G5 F#5 E5@2] Em9 A Em9 [A5@2 A#o@2]>"],
  // chorus (8 bars)
  [8, "<A Em9 A Em9 A Em9 A Em9>"],
  // interlude (8 bars)
  [8, "<[Bm@2 Bb@2] [Asus@2 A@2] [Bm@2 E7@2] [G^7@2 A@2] B7 [E5@2 F#5@2] B7 [G5 F#5 E5@2]>"],
  // verse (8 bars)
  [8, "<B5 [E5@2 F#5@2] B5 [G5 F#5 E5@2] Em9 A Em9 [A5@2 A#o@2]>"],
  // chorus (8 bars)
  [8, "<A Em9 A Em9 A Em9 A Em9>"],
  // instrumental (8 bars)
  [8, "<A Em7 A Em9 A Em7 A Em9>"],
  // solo (8 bars)
  [8, "<Em9 A Em9 A Em9 A Em9 [A5@2 A#o@2]>"],
  // chorus (8 bars)
  [8, "<A Em9 A Em9 A Em9 A Em9>"],
  // chorus (8 bars)
  [8, "<A Em9 A Em9 A Em9 A Em9>"],
  // interlude (8 bars)
  [8, "<A Em7 A Em9 A Em7 A Em9>"],
  // chorus (8 bars)
  [8, "<A Em9 A Em9 A Em9 A Em9>"],
  // fadeout (10 bars)
  [10, "<A Em7 A Em9 A!2 Em7 A Em9 A>"],
)
const bassline = arrange(
  [4, "<~!3 g2>"],
  [8, "<b2 [e2@2 f#2@2] b2 e2 b2 [e2@2 f#2@2] b2 e2>"],
  [8, "<b2 [e2@2 f#2@2] b2 [g2 f#2 e2@2] e2 b2 e2 [a2@2 a#2@2]>"],
  [8, "<b2 e2 b2 e2 b2 e2 b2 e2>"],
  [8, "<[b2@2 bb2@2] a2 [b2@2 a#2@2] a2 b2 [e2@2 f#2@2] b2 [g2 f#2 e2@2]>"],
  [8, "<b2 [e2@2 f#2@2] b2 [g2 f#2 e2@2] e2 b2 e2 [a2@2 a#2@2]>"],
  [8, "<b2 e2 b2 e2 b2 e2 b2 e2>"],
  [8, "<b2 e2 b2 e2 b2 e2 b2 e2>"],
  [8, "<e2 b2 e2 b2 e2 b2 e2 [a2@2 a#2@2]>"],
  [8, "<b2 e2 b2 e2 b2 e2 b2 e2>"],
  [8, "<b2 e2 b2 e2 b2 e2 b2 e2>"],
  [8, "<b2 e2 b2 e2 b2 e2 b2 e2>"],
  [8, "<b2 e2 b2 e2 b2 e2 b2 e2>"],
  [10, "<b2 e2 b2 e2 b2!2 e2 b2 e2 b2>"],
)

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