// White Christmas — Bing Crosby
// 97 bpm, 4/4, key A major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(97/4)

const chords = arrange(
  // intro (4 bars)
  [4, "<A [C#m7@2 Co@2] [Aadd9@2 A@2] [C#m7 Co Bm7 ~]>"],
  // theme (16 bars)
  [16, "<A [D A G# A] Bm [D#o@2 E7@2] Bm7 [Bm7@2 E7@2] [A@2 E7@2] [G# A Bm7 E7] A [A9@2 A7b9@2] D^7 D6 F#m [F#m7@2 B7@2] E7sus E7>"],
  // theme (17 bars)
  [17, "<A7 [D A G# A] Bm [D#o@2 E7@2] Bm7 [Bm7@2 E7@2] [A@2 G#@2] [A@2 Bm7 E7] A [A9@2 A7b9@2] D^7 Dm [A@2 A7@2] [D@2 E7b9@2] [A@2 C#m7@2] F#m7 [E7@2 Bb@2]>"],
  // theme (16 bars)
  [16, "<A [D A G# A] Bm7 [D#o@2 E7@2] Bm7 [D@2 E7@2] A [G# A@3] [A@2 A7@2] A7 D D6 A [Asus A B7@2] E7!2>"],
  // theme (15 bars)
  [15, "<A [D A G# A] Bm7 [D#o@2 E7@2] Bm7 [D@2 E7@2] A [G# A@3] [A@2 A7@2] A7 D Dm6 A E7 A6>"],
)
const bassline = arrange(
  [4, "<e2 [e2@2 c2@2] e2 [e2 c2 e2 ~]>"],
  [16, "<a2!2 b2 e2 b2 [d2@2 e2@2] [a2@2 e2@2] [a2@2 b2 e2] a2!2 d2!2 f#2 [f#2@2 b2@2] e2!2>"],
  [17, "<a2!2 b2 e2 b2 [d2@2 e2@2] a2 [a2@2 b2 e2] a2!2 d2!2 a2 [d2@2 e2@2] [a2@2 c#2@2] f#2 [b2@2 bb2@2]>"],
  [16, "<a2!2 b2 e2 b2 [d2@2 e2@2] a2!4 d2!2 a2 [a2@2 b2@2] e2!2>"],
  [15, "<a2!2 b2 e2 b2 [d2@2 e2@2] a2!4 d2!2 a2 e2 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)