// I Adore Mi Amor — Color Me Badd
// 92 bpm, 4/4, key Eb major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(92/4)

const chords = arrange(
  // intro (15 bars)
  [15, "<Eb [B@2 Do@2] Eb B Db ~ [Gb6@2 Ab6@2] Eb [Gb6@2 Ab6@2] Eb [Gb6@2 Ab6@2] Eb [Gb6@2 Ab6@2] Eb!2>"],
  // verse (9 bars)
  [9, "<Ebm11 [Abm11@2 Bbm@2] Ebm11 [Abm11@2 Bbm@2] [Abm11@2 Abm9@2] Ebm11 Abm9 [Bbsus@2 Bb@2] Bb>"],
  // verse (8 bars)
  [8, "<Ebm11 [Abm11@2 Bbm@2] Ebm11 [Abm11@2 Bbm@2] [Abm11@2 Abm9@2] Ebm11 Abm9 [Bbsus@2 Bb@2]>"],
  // chorus (13 bars)
  [13, "<Eb [B@2 Bb7@2] Eb Abm7 Bb11 Eb^9 [Gb@2 Ab11@2] Eb^9 [Gb@2 Ab11@2] Eb^9 [Gb@2 Ab11@2] Eb^9 [Gb@2 Ab11@2]>"],
  // transition (2 bars)
  [2, "<Eb^9!2>"],
  // verse (8 bars)
  [8, "<Ebm11 [Abm11@2 Bbm@2] Ebm11 [Abm11@2 Bbm@2] [Abm11@2 Abm9@2] Ebm11 Abm9 [Bbsus@2 Bb@2]>"],
  // verse (8 bars)
  [8, "<Ebm11 Abm Ebm11 [Abm11@2 Bbm@2] [Abm11@2 Abm9@2] Ebm11 [Abm9@2 Ao@2] [Bbsus@2 Bb@2]>"],
  // chorus (13 bars)
  [13, "<Eb [B@2 Bb7@2] Eb Abm7 Bb11 Eb^9 [Gb@2 Ab11@2] Eb^9 [Gb@2 Ab11@2] Eb^9 [Gb@2 Ab11@2] Eb^9 [Gb@2 Ab11@2]>"],
  // transition (2 bars)
  [2, "<Eb^9!2>"],
  // interlude (13 bars)
  [13, "<Ebm11 [Abm11@2 Bbm@2] Ebm11 [Abm11@2 Bbm@2] Ebm11 [Abm11@2 Bbm@2] Ebm11 [Abm11@2 Bbm@2] [Abm11@2 Abm9@2] Ebm11 Abm9 [Bbsus@2 Bb@2] Bb11>"],
  // chorus (8 bars)
  [8, "<Eb^9 [Gb@2 Ab11@2] Eb^9 [Gb@2 Ab11@2] Eb^9 [Gb@2 Ab11@2] Eb^9 [Gb@2 Ab11@2]>"],
  // chorus (4 bars)
  [4, "<Eb^9 [Gb@2 Ab11@2] Eb^9 [Gb@2 Ab11@2]>"],
  // fadeout (4 bars)
  [4, "<Eb^9 [Gb@2 Ab11@2] Eb^9 [Gb@2 Ab11@2]>"],
)
const bassline = arrange(
  [15, "<eb2 [b2@2 d2@2] eb2 b2 db2 ~ [gb2@2 ab2@2] eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2] eb2!2>"],
  [9, "<eb2 [ab2@2 bb2@2] eb2 [ab2@2 bb2@2] ab2 eb2 ab2 bb2!2>"],
  [8, "<eb2 [ab2@2 bb2@2] eb2 [ab2@2 bb2@2] ab2 eb2 ab2 bb2>"],
  [13, "<eb2 [b2@2 bb2@2] eb2 ab2 bb2 eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2]>"],
  [2, "<eb2!2>"],
  [8, "<eb2 [ab2@2 bb2@2] eb2 [ab2@2 bb2@2] ab2 eb2 ab2 bb2>"],
  [8, "<eb2!3 [ab2@2 bb2@2] ab2 eb2 [ab2@2 a2@2] bb2>"],
  [13, "<eb2 [b2@2 bb2@2] eb2 ab2 bb2 eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2]>"],
  [2, "<eb2!2>"],
  [13, "<eb2 [ab2@2 bb2@2] eb2 [ab2@2 bb2@2] eb2 [ab2@2 bb2@2] eb2 [ab2@2 bb2@2] ab2 eb2 ab2 bb2!2>"],
  [8, "<eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2]>"],
  [4, "<eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@2]>"],
  [4, "<eb2 [gb2@2 ab2@2] eb2 [gb2@2 ab2@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)