// Flesh For Fantasy — Billy Idol
// 95 bpm, 4/4, key B major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(95/4)

const chords = arrange(
  // intro (4 bars)
  [4, "<[B5@3 A5]!4>"],
  // verse (16 bars)
  [16, "<E9sus!2 [B5@3 A5]!2 E9sus!2 [B5@3 A5]!2 E9sus [E9sus@2 C#m7 E9sus] [B5@3 A5]!2 E9sus [E9sus@2 C#m7 E9sus] [B5@3 A5]!2>"],
  // chorus (12 bars)
  [12, "<[Bm@2 A@2] [D@2 A@2] [Bm@2 A@2] [D@2 A@2] G^7 A6 Bm7!2 G^7 A6 E9sus!2>"],
  // trans (2 bars)
  [2, "<[B5@3 A5]!2>"],
  // verse (12 bars)
  [12, "<E9sus!2 [B5@3 A5]!2 E9sus!2 [B5@3 A5]!2 [E9sus@3 C#m7]!2 [B5@3 A5]!2>"],
  // chorus (12 bars)
  [12, "<[Bm@2 A@2] [D@2 A@2] [Bm@2 A@2] [D@2 A@2] G^7 A6 Bm7!2 G^7 A6 E9sus!2>"],
  // interlude (9 bars)
  [9, "<~!2 B5 ~ B5 ~!2 B5 ~>"],
  // chorus (20 bars)
  [20, "<[Em7@2 Dadd9@2] [Em@2 A@2] [Em7@2 Dadd9@2] [Em@2 A@2] Em7 F#m7 Bm7!2 G^7 A6 Bm7!2 G^7 A6 Bm7!2 G^7 A6 [E9sus@2 E9@2]!2>"],
  // trans (2 bars)
  [2, "<[B5@3 A5]!2>"],
  // verse (16 bars)
  [16, "<E9sus!2 [B5@3 A5]!2 E9sus!2 [B5@3 A5]!2 E9sus [E9sus C#m7 E9sus C#m7] [B5@3 A5]!2 E9sus [E9sus C#m7 E9sus C#m7] [B5@3 A5]!2>"],
  // fadeout (4 bars)
  [4, "<E9sus!2 [B5@3 A5]!2>"],
)
const bassline = arrange(
  [4, "<[b2@3 a2]!4>"],
  [16, "<e2!2 [b2@3 a2]!2 e2!2 [b2@3 a2]!2 e2!2 [b2@3 a2]!2 e2!2 [b2@3 a2]!2>"],
  [12, "<[b2@2 c#2@2] [d2@2 c#2@2] [b2@2 c#2@2] [d2@2 c#2@2] g2 a2 b2!2 g2 a2 e2!2>"],
  [2, "<[b2@3 a2]!2>"],
  [12, "<e2!2 [b2@3 a2]!2 e2!2 [b2@3 a2]!2 e2!2 [b2@3 a2]!2>"],
  [12, "<[b2@2 c#2@2] [d2@2 c#2@2] [b2@2 c#2@2] [d2@2 c#2@2] g2 a2 b2!2 g2 a2 e2!2>"],
  [9, "<~!2 b2 ~ b2 ~!2 b2 ~>"],
  [20, "<[e2@2 f#2@2] [g2@2 a2@2] [e2@2 f#2@2] [g2@2 a2@2] e2 f#2 b2!2 g2 a2 b2!2 g2 a2 b2!2 g2 a2 e2!2>"],
  [2, "<[b2@3 a2]!2>"],
  [16, "<e2!2 [b2@3 a2]!2 e2!2 [b2@3 a2]!2 e2!2 [b2@3 a2]!2 e2!2 [b2@3 a2]!2>"],
  [4, "<e2!2 [b2@3 a2]!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)