// Never My Love — The 5th Dimension
// 75 bpm, 4/4, key G major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(75/4)

const chords = arrange(
  // intro (1 bars)
  [1, "<D>"],
  // pre-verse (4 bars)
  [4, "<G!4>"],
  // verse (8 bars)
  [8, "<G D F [C@2 G@2] Em G^7 C^7 G>"],
  // verse (8 bars)
  [8, "<G D F [C@2 G@2] Em G C G>"],
  // chorus (7 bars)
  [7, "<[B9sus@2 B7@2] [Em7@2 A7sus A7] [D@2 G@2] [C@2 C^7@2] C6 Bm D>"],
  // instrumental (8 bars)
  [8, "<G D F [C@2 G@2] Em G D^7 A>"],
  // verse (8 bars)
  [8, "<A E G [D@2 A@2] F#m A D A>"],
  // chorus (9 bars)
  [9, "<[C#9sus@2 C#7@2] [F#m7@2 B7sus B7] [E@2 A@2] [D^7@2 D6@2] D6 C#m7 D^13!2 ~>"],
  // outro (17 bars)
  [17, "<A!2 F#m [F@2 G@2] A!2 F#m [F@2 G@2] A!2 F#m [F@2 G@2] A!2 F#m [F@2 G@2] A>"],
)
const bassline = arrange(
  [1, "<d2>"],
  [4, "<g2!4>"],
  [8, "<g2 f#2 f2 [c2@2 g2@2] e2 g2 c2 g2>"],
  [8, "<g2 f#2 f2 [c2@2 g2@2] e2 g2 c2 g2>"],
  [7, "<b2 [e2@2 a2@2] [d2@2 g2@2] c2!2 b2 c2>"],
  [8, "<g2 f#2 f2 [c2@2 g2@2] e2 g2 d2 a2>"],
  [8, "<a2 g#2 g2 [d2@2 a2@2] f#2 a2 d2 a2>"],
  [9, "<c#2 [f#2@2 b2@2] [e2@2 a2@2] d2!2 c#2 d2!2 ~>"],
  [17, "<a2 g2 f#2 [f2@2 g2@2] a2 g2 f#2 [f2@2 g2@2] a2 g2 f#2 [f2@2 g2@2] a2 g2 f#2 [f2@2 g2@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)