// A Lesson In Leavin' — Dottie West
// 75 bpm, 4/4, key B major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(75/4)

const chords = arrange(
  // intro (2 bars)
  [2, "<~!2>"],
  // chorus (10 bars)
  [10, "<~!4 B!2 E F# [G#m D#m E F#7sus] B>"],
  // verse (4 bars)
  [4, "<G#m7 Badd9 G#m7 Badd9>"],
  // prechorus (5 bars)
  [5, "<G#m7 D#m7 [E@2 B@2] [E@2 F#sus@2] [F#sus@2 ~@2]>"],
  // chorus (8 bars)
  [8, "<B!2 E F# B!2 E F#>"],
  // solo (4 bars)
  [4, "<G#m7 Badd9 G#m7 Badd9>"],
  // prechorus (5 bars)
  [5, "<G#m7 D#m7 [E@2 B@2] [E@2 F#sus@2] [G#sus@2 ~@2]>"],
  // chorus (9 bars)
  [9, "<~!2 Gb Ab Db!2 Gb Ab [Db@2 Ab9sus@2]>"],
  // chorus (4 bars)
  [4, "<Db!2 Gb Ab>"],
  // fadeout (6 bars)
  [6, "<Db!2 Gb Ab [Db@2 Ab9sus@2] Db>"],
)
const bassline = arrange(
  [2, "<~!2>"],
  [10, "<~!4 b2!2 e2 f#2 [g#2 d#2 e2 f#2] b2>"],
  [4, "<g#2 b2 g#2 b2>"],
  [5, "<g#2 d#2 [e2@2 d#2@2] [e2@2 f#2@2] [f#2@2 ~@2]>"],
  [8, "<b2!2 e2 f#2 b2!2 e2 f#2>"],
  [4, "<g#2 b2 g#2 b2>"],
  [5, "<g#2 d#2 [e2@2 d#2@2] [e2@2 f#2@2] [g#2@2 ~@2]>"],
  [9, "<~!2 gb2 ab2 db2!2 gb2 ab2 [db2@2 ab2@2]>"],
  [4, "<db2!2 gb2 ab2>"],
  [6, "<db2!2 gb2 ab2 [db2@2 ab2@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)