// Absolutely Right — Five Man Electrical Band
// 170 bpm, 4/4, key A major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(170/4)

const chords = arrange(
  // intro (6 bars)
  [6, "<A D A D G E>"],
  // verse (14 bars)
  [14, "<A D A D A D A D A D A D A D>"],
  // chorus (6 bars)
  [6, "<A D G C B E7>"],
  // trans (4 bars)
  [4, "<Am Dm C A>"],
  // verse (12 bars)
  [12, "<A D A D A D A D A D A D>"],
  // chorus (6 bars)
  [6, "<A D G C B E>"],
  // trans (4 bars)
  [4, "<A D G E>"],
  // bridge (12 bars)
  [12, "<A D G E A D G E A D G E>"],
  // verse (12 bars)
  [12, "<A D A D A D A D A D A D>"],
  // chorus (6 bars)
  [6, "<A D G C B E>"],
  // chorus (6 bars)
  [6, "<A D G C B E>"],
  // outro (8 bars)
  [8, "<A D A D A D [G@2 D@2] A>"],
)
const bassline = arrange(
  [6, "<a2 d2 a2 d2 g2 e2>"],
  [14, "<a2 d2 a2 d2 a2 d2 a2 d2 a2 d2 a2 d2 a2 d2>"],
  [6, "<a2 d2 g2 c2 b2 e2>"],
  [4, "<a2 d2 c2 a2>"],
  [12, "<a2 d2 a2 d2 a2 d2 a2 d2 a2 d2 a2 d2>"],
  [6, "<a2 d2 g2 c2 b2 e2>"],
  [4, "<a2 d2 g2 e2>"],
  [12, "<a2 d2 g2 e2 a2 d2 g2 e2 a2 d2 g2 e2>"],
  [12, "<a2 d2 a2 d2 a2 d2 a2 d2 a2 d2 a2 d2>"],
  [6, "<a2 d2 g2 c2 b2 e2>"],
  [6, "<a2 d2 g2 c2 b2 e2>"],
  [8, "<a2!6 [g2@2 d2@2] a2>"],
)

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