// I'm In Love — Wilson Pickett
// 92 bpm, 4/4, key E major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(92/4)

const chords = arrange(
  // intro (8 bars)
  [8, "<[E6@2 B6 C#m7] [C#m7@2 E@2] [A^7@2 G#m7 F#m7] [F#m7@2 B9@2] [E6@2 B6 C#m7] [C#m7@2 E@2] [A^7@2 G#m7 F#m7] [F#m7@2 B9@2]>"],
  // verse (8 bars)
  [8, "<[E6@2 B6 C#m7] [C#m7@2 E@2] [A^7@2 G#m7 F#m7] [F#m7@2 B9@2] [E6@2 B6 C#m7] [C#m7@2 E@2] [A^7@2 G#m7 F#m7] [F#m7@3 Gm7]>"],
  // pre-chorus (4 bars)
  [4, "<G#m7!2 A B>"],
  // chorus (4 bars)
  [4, "<[E@2 G#m7 A] A [F#m7@2 B7 E] E>"],
  // verse (8 bars)
  [8, "<[E6@2 B6 C#m7] [C#m7@2 E@2] [A^7@2 G#m7 F#m7] [F#m7@2 B9@2] [E6@2 B6 C#m7] [C#m7@2 E@2] [A^7@2 G#m7 F#m7] [F#m7@3 Gm7]>"],
  // pre-chorus (4 bars)
  [4, "<G#m7!2 A B>"],
  // chorus (4 bars)
  [4, "<[E@2 G#m7 A] A [F#m7@2 B7 E] [E@2 F#m7 Gm7]>"],
  // solo (4 bars)
  [4, "<G#m7!2 A B>"],
  // chorus (8 bars)
  [8, "<[E6@2 B6 C#m7] [C#m7@2 E@2] [A^7@2 G#m7 F#m7] [F#m7@2 B9@2] [E6@2 B6 C#m7] [C#m7@2 E@2] [A^7@2 G#m7 F#m7] [F#m7@2 B9@2]>"],
  // fadeout (4 bars)
  [4, "<[E6@2 B6 C#m7] [C#m7@2 E@2] [A^7@2 G#m7 F#m7] [F#m7@2 B9@2]>"],
)
const bassline = arrange(
  [8, "<[e2@2 d#2 c#2] [c#2@2 e2@2] [a2@2 g#2 f#2] [f#2@2 b2@2] [e2@2 d#2 c#2] [c#2@2 e2@2] [a2@2 g#2 f#2] [f#2@2 b2@2]>"],
  [8, "<[e2@2 d#2 c#2] [c#2@2 e2@2] [a2@2 g#2 f#2] [f#2@2 b2@2] [e2@2 d#2 c#2] [c#2@2 e2@2] [a2@2 g#2 f#2] [f#2@3 g2]>"],
  [4, "<g#2!2 a2 b2>"],
  [4, "<[e2@2 g#2 a2] a2 [f#2@2 b2 e2] e2>"],
  [8, "<[e2@2 d#2 c#2] [c#2@2 e2@2] [a2@2 g#2 f#2] [f#2@2 b2@2] [e2@2 d#2 c#2] [c#2@2 e2@2] [a2@2 g#2 f#2] [f#2@3 g2]>"],
  [4, "<g#2!2 a2 b2>"],
  [4, "<[e2@2 g#2 a2] a2 [f#2@2 b2 e2] [e2@2 f#2 g2]>"],
  [4, "<g#2!2 a2 b2>"],
  [8, "<[e2@2 d#2 c#2] [c#2@2 e2@2] [a2@2 g#2 f#2] [f#2@2 b2@2] [e2@2 d#2 c#2] [c#2@2 e2@2] [a2@2 g#2 f#2] [f#2@2 b2@2]>"],
  [4, "<[e2@2 d#2 c#2] [c#2@2 e2@2] [a2@2 g#2 f#2] [f#2@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)