// This Should Go On Forever — Rod Bernard
// 72 bpm, 4/4, key Gb major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(72/4)

const chords = arrange(
  // intro (1 bars)
  [1, "<Dbaug>"],
  // chorus (8 bars)
  [8, "<Gb!2 Db!2 Ab Gb [Db@2 Gb@2] Db>"],
  // chorus (8 bars)
  [8, "<Gb!2 Db!2 Ab Gb [Db@2 Gb@2] Db>"],
  // bridge (8 bars)
  [8, "<Gb!2 Db!2 Eb!2 [Ab@2 Eb7@2] Ab>"],
  // chorus (8 bars)
  [8, "<Gb!2 Db!2 Ab Gb Db!2>"],
  // bridge (8 bars)
  [8, "<Gb!2 Db!2 Eb!2 [Ab@2 Eb7@2] Ab>"],
  // chorus (8 bars)
  [8, "<Gb!2 Db!2 Ab Gb [Db@2 Gb@2] Db9>"],
)
const bassline = arrange(
  [1, "<db2>"],
  [8, "<gb2!2 db2!2 [ab2@3 g2] gb2 [db2@2 gb2@2] db2>"],
  [8, "<gb2!2 db2!2 [ab2@3 g2] gb2 [db2@2 gb2@2] db2>"],
  [8, "<gb2!2 db2!2 eb2!2 [ab2@2 g2@2] ab2>"],
  [8, "<gb2!2 db2!2 [ab2@3 g2] gb2 db2!2>"],
  [8, "<gb2!2 db2!2 eb2!2 [ab2@2 g2@2] ab2>"],
  [8, "<gb2!2 db2!2 [ab2@3 g2] gb2 [db2@2 gb2@2] db2>"],
)

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