// Town Without Pity — Gene Pitney
// 118 bpm, 12/8, key B minor. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(118/6)

const chords = arrange(
  // intro (4 bars)
  [4, "<Bmadd9 Emadd9 G9 [F#7sus@6 F#7b13@6]>"],
  // verse (8 bars)
  [8, "<Bm!2 Em!2 [F#m7b5@6 B7@6] Em D [F#7sus@6 F#7@6]>"],
  // verse (8 bars)
  [8, "<Bm Bmadd9 Em Emadd9 [F#m7b5@6 B7@6] Em [D@6 A7@6] D>"],
  // bridge (8 bars)
  [8, "<[G@6 G6@6]!2 G [E7sus@6 E7@6] [A@6 A6@6] [A^7@6 F#m7@6] [Bm@6 E@6] A>"],
  // verse (11 bars)
  [11, "<Bm Bmadd9 Em Emadd9 [F#m7b5@6 B7@6] Em [D@6 G@6] [F#7sus@6 F#7@6] [Em@6 A@6] D G7b13>"],
  // verse (8 bars)
  [8, "<Cmadd9!2 Fmadd9 Fm [Gm7b5@6 C7@6] Fm Eb [G7sus@6 G7@6]>"],
  // outro (8 bars)
  [8, "<Ab7 [G7sus@6 G7@6] [Cm@6 G@3 Gm@3] [F@3 Fm@3 G@6] ~ Cmadd9 Fmadd9 C6>"],
)
const bassline = arrange(
  [4, "<b2 e2 g2 f#2>"],
  [8, "<b2!2 e2!2 [c2@6 b2@6] [e2@6 g2@6] a2 f#2>"],
  [8, "<b2!2 e2!2 [c2@6 b2@6] [e2@6 g2@6] a2 d2>"],
  [8, "<g2!3 e2 a2 [a2@6 f#2@6] [b2@6 e2@6] [a2@6 g2@6]>"],
  [11, "<b2!2 e2!2 [c2@6 b2@6] [e2@6 g2@6] [a2@6 g2@6] f#2 [g2@6 a2@6] d2 g2>"],
  [8, "<c2!2 f2!2 [c#2@6 c2@6] [f2@6 ab2@6] bb2 g2>"],
  [8, "<ab2 g2 [c2@6 b2@3 a#2@3] [a2@3 ab2@3 g2@6] ~ c2 f2 c2>"],
)

// 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 hh] [sd hh hh] [bd hh hh] [sd hh hh]").gain(0.8)

stack(keys, bass, drums)