// Mony Mony — Tommy James
// 130 bpm, 4/4, key A major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(130/4)

const chords = arrange(
  // intro (4 bars)
  [4, "<~!4>"],
  // verse (19 bars)
  [19, "<A ~ [A@3 D] A!2 ~ [A@3 D] A!2 ~ [A@3 D] A!2 ~ D E!4>"],
  // chorus (12 bars)
  [12, "<[A@2 G A]!4 [D@2 C D]!4 E!4>"],
  // interlude (2 bars)
  [2, "<~!2>"],
  // verse (19 bars)
  [19, "<A ~ [A@3 D] A!2 ~ [A@3 D] A!2 ~ [A@3 D] A!2 ~ D E!4>"],
  // chorus (12 bars)
  [12, "<[A@2 G A]!4 [D@2 C D]!4 E!4>"],
  // bridge (14 bars)
  [14, "<A D5 ~!8 E!4>"],
  // chorus (4 bars)
  [4, "<[A@2 G A]!4>"],
  // fadeout (8 bars)
  [8, "<[D@2 C D]!4 E!4>"],
)
const bassline = arrange(
  [4, "<~!4>"],
  [19, "<a2 ~ [a2@3 d2] a2!2 ~ [a2@3 d2] a2!2 ~ [a2@3 d2] a2!2 ~ d2 e2!4>"],
  [12, "<[a2@2 g2 a2]!4 [d2@2 c2 d2]!4 e2!4>"],
  [2, "<~!2>"],
  [19, "<a2 ~ [a2@3 d2] a2!2 ~ [a2@3 d2] a2!2 ~ [a2@3 d2] a2!2 ~ d2 e2!4>"],
  [12, "<[a2@2 g2 a2]!4 [d2@2 c2 d2]!4 e2!4>"],
  [14, "<a2 d2 ~!8 e2!4>"],
  [4, "<[a2@2 g2 a2]!4>"],
  [8, "<[d2@2 c2 d2]!4 e2!4>"],
)

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