// Guitar Man — Elvis Presley
// 234 bpm, 4/4, key Db major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(234/4)

const chords = arrange(
  // intro (6 bars)
  [6, "<Db!3 [Dbo@2 Ab7@2] [Db@3 Ab7] Ab7>"],
  // verse (24 bars)
  [24, "<Db7!8 Gb7!4 Db7!4 Ab7!2 Gb7!2 Db [Dbo@2 Ab7@2] [Db@3 Ab7] Ab7>"],
  // verse (24 bars)
  [24, "<Db7!8 Gb7!4 Db7!4 Ab7!2 Gb7!2 Db [Dbo@2 Ab7@2] Db7!2>"],
  // bridge (16 bars)
  [16, "<Gb7!4 Db7!4 Gb7!4 Eb7!2 Ab7!2>"],
  // solo (22 bars)
  [22, "<Db7!2 Gb7!2 Db7!8 Gb7!2 Db7!2 Ab7 Gb7 Db7!2 [Db@3 Ab7] Ab7>"],
  // verse (20 bars)
  [20, "<Db7!8 Gb7!4 Db7!4 Ab7!2 Gb7!2>"],
  // solo (56 bars)
  [56, "<Db7!2 Gb7!2 Db7!8 Gb7!2 Db7!2 Ab7 Gb7 Db7!6 Gb7!2 Db7!2 Ab7 Gb7 Db7!6 Gb7!2 Db7!2 Ab7 Gb7 Db7!6 Gb7!2 Db7!2 Ab7 Gb7 Db7!2>"],
  // fadeout (2 bars)
  [2, "<Db7!2>"],
)
const bassline = arrange(
  [6, "<db2!4 [db2@3 ab2] ab2>"],
  [24, "<db2!8 gb2!4 db2!4 ab2!2 gb2!2 db2!2 [db2@3 ab2] ab2>"],
  [24, "<db2!8 gb2!4 db2!4 ab2!2 gb2!2 db2!4>"],
  [16, "<gb2!4 db2!4 gb2!4 eb2!2 ab2!2>"],
  [22, "<db2!2 gb2!2 db2!8 gb2!2 db2!2 ab2 gb2 db2!2 [db2@3 ab2] ab2>"],
  [20, "<db2!8 gb2!4 db2!4 ab2!2 gb2!2>"],
  [56, "<db2!2 gb2!2 db2!8 gb2!2 db2!2 ab2 gb2 db2!6 gb2!2 db2!2 ab2 gb2 db2!6 gb2!2 db2!2 ab2 gb2 db2!6 gb2!2 db2!2 ab2 gb2 db2!2>"],
  [2, "<db2!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)