// Superman — Donna Fargo
// 99 bpm, 4/4, key B major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(99/4)

const chords = arrange(
  // chorus (4 bars)
  [4, "<F#7 E7 B!2>"],
  // verse (8 bars)
  [8, "<B E B F#7 B E F#7 [E@2 B@2]>"],
  // chorus (3 bars)
  [3, "<F#7 E7 B>"],
  // bridge (8 bars)
  [8, "<E B F#7 [E@2 B@2] E B F#7 [E@2 B@2]>"],
  // chorus (3 bars)
  [3, "<F#7 E7 B>"],
  // solo (4 bars)
  [4, "<F#7 E7 B!2>"],
  // verse (8 bars)
  [8, "<B E B F#7 B E F#7 [E@2 B@2]>"],
  // chorus (3 bars)
  [3, "<F#7 E7 B>"],
  // bridge (8 bars)
  [8, "<E B F#7 [E@2 B@2] E B F#7 [E@2 B@2]>"],
  // chorus (3 bars)
  [3, "<F#7 E7 B>"],
  // bridge (2 bars)
  [2, "<E B>"],
  // fadeout (6 bars)
  [6, "<F#7 [E@2 B@2] E B F#7 [E@2 B@2]>"],
)
const bassline = arrange(
  [4, "<f#2 e2 b2!2>"],
  [8, "<b2 e2 b2 f#2 b2 e2 f#2 [e2@2 b2@2]>"],
  [3, "<f#2 e2 b2>"],
  [8, "<e2 b2 f#2 [e2@2 b2@2] e2 b2 f#2 [e2@2 b2@2]>"],
  [3, "<f#2 e2 b2>"],
  [4, "<f#2 e2 b2!2>"],
  [8, "<b2 e2 b2 f#2 b2 e2 f#2 [e2@2 b2@2]>"],
  [3, "<f#2 e2 b2>"],
  [8, "<e2 b2 f#2 [e2@2 b2@2] e2 b2 f#2 [e2@2 b2@2]>"],
  [3, "<f#2 e2 b2>"],
  [2, "<e2 b2>"],
  [6, "<f#2 [e2@2 b2@2] e2 b2 f#2 [e2@2 b2@2]>"],
)

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