// Don't Be Cruel — Elvis Presley
// 167 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 86 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(167/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · "a, b" plays two voices at once · [...]/2 spreads a riff over 2 bars.
// A part's distinct bars are riffs (A, B, C...) played in order: edit a riff to change every repeat.

// chords · piano
const piano = note(`<
  A B C D C D@2 E F G H I J K L M N O P Q R S T U V W X Y Z AA AB AC AD AE N O P Q AF AG T AH AI AJ X Y AK AL AM AN AD
  AE AO D@2 AP R AG T AH AI AJ X Y AK AQ AM AN AD AR AS AT AU AV AW AX AD AY AZ BA BB BC BD BE ~@2
>`.pickRestart({
  A: "d2@4 [a3,d4] ~@5 [a3,d4] ~@5 [a3,d4] ~@5 [a3,d4,f#4] ~, ~@4 f#4@2 f#2@6 a2@7 ~@5, ~@5 f#4 ~@2 f#4 b2@3", // D5 D
  B: "d2@4 [a3,d4,f#4] ~ f#2@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ b2@4 [a3,d4,f#4] ~, ~@2 a2 ~", // D
  C: "d2@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~, ~ f#2 a2 b2", // D
  D: "~@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~, d2 f#2 a2 b2", // D
  E: "~@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ b2@4 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~, d2 a2 ~@2", // D
  F: "g2@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~ d3@4 [b3,d4,g4] ~, ~@6 d3@6 e3@7 ~@5", // G
  G: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~ e3@4 [b3,d4,g4] ~, g2@6 b2@6 d3@7 ~@5", // G
  H: "d2@4 [a3,d4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ b2@4 [a3,d4,f#4] ~, ~@4 f#4@2 f#2@6 a2@7 ~@5", // D5 D
  I: "~@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ f#2@4 [a3,d4,f#4] ~, d2 f#2 a2 ~", // D
  J: "~@4 [g3,b3] ~@5 [g3,b3] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~, e2@7 ~@5 e2@8 ~@4, ~@2 e4 ~@2 e4 ~@6", // G Em
  K: "~@4 [a3,c#4,e4] ~@5 [a3,c#4,e4] ~@5 [a3,c#4,e4] ~@5 [a3,c#4,e4] ~, a2@9 ~@3 a2@10 ~@2", // A
  L: "~@4 [a3,d4] ~@5 [a3,d4,f#4] ~ b2@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~, d2 f#2 ~ a2, ~@2 f#4 ~@9", // D5 D
  M: "d2@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~, ~ f#2 b2 ~", // D
  N: "d2@4 [a3,d4,f#4] ~@5 [a3,d4] ~@5 [a3,d4,f#4] ~@5 [a3,d4] ~, ~ f#2 a2 b2, ~@5 f#4 ~@5 f#4", // D D5 D D5
  O: "~@4 [a3,d4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~, d2@7 ~@17, ~@2 f#4 f#2@3 a2@3 b2@3", // D5 D
  P: "~@4 [a3,d4,f#4] ~@5 [a3,d4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~, d2 f#2 a2 b2, ~@5 f#4 ~@6", // D D5 D
  Q: "d2@4 [a3,d4] ~ a2@4 [a3,d4,f#4] ~@5 [d4,f#4]@2 a2@4 [a3,d4,f#4] ~, ~@2 f#4 ~@3 b2@3 ~@3, ~@16 a3 ~@7", // D5 D
  R: "g2@4 [b3,g4]@2 ~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~ d3@4 [b3,d4,g4] ~, ~@4 d4 ~ d3@6 e3@7 ~@5", // Em G
  S: "~@4 [b3,g4]@2 ~@4 [b3,d4] ~@5 [b3,d4] ~ e3@3 ~ [b3,d4,g4] ~, g2@7 ~@3 g4@2 d3@7 ~@5, ~@4 d4 ~ b2@7 ~@3 g4@2 ~@6", // Em Bm G
  T: "~@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~, d2@6 a2@6 b2@7 ~@5", // D
  U: "~@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,f#4]@2 f#2@3 ~ [a3,d4,f#4] ~, d2 f#2 a2 ~, ~@16 d4 ~@7", // D
  V: "~@4 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~, e2@10 ~@2 e2@11 ~", // Em
  W: "~@4 [a3,c#4,e4] ~@5 [a3,c#4] ~@5 [a3,c#4,e4] ~@5 [a3,c#4,e4] ~, a2@5 e4 a2@5 ~", // A
  X: "~@4 [a3,d4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~, d2@7 ~@17, ~@2 f#4 a2@3 b2@3 ~@3", // D5 D
  Y: "~@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~, d3 c3 b2 ~", // D
  Z: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2@4 ~@2 g2@5 ~", // G
  AA: "~@4 [c#4,e4] ~@5 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~, a2@10 ~@2 a2@9 ~@3, ~@2 a4 ~@9", // C#m A
  AB: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2@7 ~@5 g2@8 ~@4", // G
  AC: "~@4 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~, a2@9 ~@3 a2@8 ~@4", // A
  AD: "d2@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ b2@4 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~, ~ a2 ~@2", // D
  AE: "d2@4 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~ b2@4 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~", // D
  AF: "g2@4 [b3,d4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~ d3@4 [b3,d4,g4] ~, ~@4 g4@2 d3@6 e3@7 ~@5", // Bm G
  AG: "~@4 [b3,g4]@2 ~@4 [b3,g4]@2 ~@4 [b3,d4] ~ e3@3 ~ [b3,d4,g4] ~, g2@7 ~@3 d4 ~ d3@7 ~@5, ~@4 d4 ~ b2@7 ~@3 g4@2 ~@6", // Em Bm G
  AH: "~@4 [a3,d4,f#4] ~@5 [d4,f#4] ~@5 [a3,f#4]@2 f#2@3 ~ [a3,d4,f#4] ~, d2 f#2 a2 ~, ~@10 a3@2 ~@4 d4 ~@7", // D
  AI: "~@4 [g3,b3,e4] ~ b2@4 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~, e2@6 ~@6 e2@11 ~", // Em
  AJ: "~@4 [a3,c#4,e4] ~ a2@4 [a3,c#4] ~@5 [a3,c#4] ~@5 [a3,c#4,e4] ~, a2@3 ~@2 e4 a2@5 ~, ~@8 e4 ~@3", // A
  AK: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2 b2 g2!2", // G
  AL: "~@4 [c#4,e4] ~ a2@4 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~, a2@2 ~@2 a2@3 ~, ~@2 a4 ~@9", // C#m A
  AM: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2 d2 g2!2", // G
  AN: "~@4 [c#4,e4,a4] ~ a2@4 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~, a2@3 ~@3 a2@4 ~@2", // A
  AO: "d2@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4] ~, ~ f#2 a2 b2, ~@11 f#4", // D D5
  AP: "d2@4 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~@5 [d4,f#4]@2 a2@4 [a3,d4,f#4] ~, ~@2 b2 ~, ~@16 a3 ~@7", // D
  AQ: "~@4 [c#4,e4,a4] ~ a2@4 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~, a2@2 ~@2 a2@3 ~", AR: "d2@5 ~@19",
  AS: "~@4 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~, e2 g2 b2 g2", // Em
  AT: "~@4 [a3,c#4,e4] ~ a2@4 [a3,c#4,e4] ~ e2@4 [a3,c#4,e4] ~ a2@4 [a3,c#4,e4] ~, a2 ~@3", // A
  AU: "d2@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~, ~@6 a2@6 b2@7 ~@5", // D
  AV: "d2@4 [a3,d4,f#4] ~ f#2@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ f#2@4 [a3,d4,f#4] ~, ~@2 a2 ~", // D
  AW: "e2@4 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~, ~ g2 b2 g2", // Em
  AX: "a2@4 [a3,c#4,e4] ~ a2@4 [a3,c#4,e4] ~@5 [a3,c#4,e4] ~ a2@4 [a3,c#4,e4] ~, ~@2 e2 ~", // A
  AY: "~@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~, d3@6 c3@6 b2@6 b2 ~@5", // D
  AZ: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2@3 ~ g2@3 ~", // G
  BA: "~@4 [c#4,e4,a4] ~@5 [c#4,a4]@2 ~@4 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~, a2@9 ~ e4 ~ a2@8 ~@4", // A F#m A
  BB: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2@5 ~ g2@4 ~@2", // G
  BC: "~@4 [c#4,e4] ~@5 [e4,a4] ~@5 [c#4,e4,a4] ~@4 [c#4,a4] e4 ~, a2@7 ~@5 a2@7 ~@5, ~@2 a4 ~@2 c#4 ~@6", // C#m A5 A F#m
  BD: "d3 b2 a2 f#2", BE: "d2@19 ~@5",
})).s("gm_piano").gain(0.39)

// bass · fretless bass · "Bass"
const bass = note(`<
  A B C B@2 D E F G H I J K L M@2 N I N O P Q E R S T U V P W Q X M Y Z AA N AB P Q N M AC AD U AE AF AG H AH U AI Z AJ
  Z AK AL Q AJ N AC AM U AN AF AH Q AH N AO AP AH AI AQ@2 AR AI AS H AR AT AD AU AV ~@2
>`.pickRestart({
  A: "d2@7 ~@5 a2@10 ~@2", B: "d2@7 ~@5 a2@9 ~@3", C: "d2@2 ~ a2@2 ~", D: "d2@7 ~@5 a2@8 ~@4", E: "d2@3 ~@3 a2@4 ~@2",
  F: "d2@3 ~@3 e2@3 f#2@2 ~", G: "g2@7 ~@5 g2@7 ~@5", H: "g2@6 ~@6 g2@7 ~@5", I: "d2@7 ~@5 a2@7 ~@5",
  J: "d2@7 ~@5 d2@8 ~@4", K: "e2@8 ~@4 e2@7 ~@5", L: "a2@9 ~@3 a2@7 ~@5", M: "d2@6 ~@6 d2@7 ~@5",
  N: "d2@6 ~@6 a2@7 ~@5", O: "d2@7 ~@5 e2@5 ~ f#2@5 ~", P: "g2@8 ~@4 g2@7 ~@5", Q: "g2@7 ~@5 g2@6 ~@6", R: "d2 ~ d2 ~",
  S: "e2 ~ e2 ~", T: "a2@10 ~@2 a2@7 ~@5", U: "d2@7 ~@5 d2@7 ~@5", V: "d3@5 ~ c3@5 ~ b2@6 a2@4 ~@2",
  W: "a2@9 ~@3 e2@7 ~@5", X: "a2@3 ~ e2@2 ~@2", Y: "d2@5 ~@7 d2@6 ~@6", Z: "d2 ~ a2 ~", AA: "d2@7 ~@5 a2@5 ~@7",
  AB: "d2@6 ~@6 e2@5 ~ f#2@5 ~", AC: "e2@6 ~@6 e2@7 ~@5", AD: "a2@7 ~@5 a2@6 ~@6", AE: "d3@5 ~ c3@5 ~ b2@5 ~ a2@4 ~@2",
  AF: "g2 ~ g2 ~", AG: "a2@6 ~@6 a2@7 ~@5", AH: "a2 ~ a2 ~", AI: "d2@5 ~@7 d2@7 ~@5", AJ: "d2@7 ~@5 a2@6 ~@6",
  AK: "d2@7 ~@5 e2@6 f#2@5 ~", AL: "g2@5 ~@6 d2@7 ~@6", AM: "a2@3 ~@3 a2@4 ~@2", AN: "d3@5 ~ c3@6 b2@6 a2@3 ~@3",
  AO: "d2@5 ~@19", AP: "e2@7 ~@5 e2@7 ~@5", AQ: "[d2@5 ~@7 d2@7 ~@4 e2@5 ~@8 e2@7 ~@5]/2", AR: "a2@7 ~@5 a2@7 ~@5",
  AS: "d3 c3 b2 a2", AT: "g2@10 ~@2 g2@7 ~@5", AU: "d3@6 b2@6 a2@3 ~@3 f#2@4 ~@2", AV: "d2@3 ~",
})).s("gm_fretless_bass").gain(0.45)

// other · electric guitar jazz · "Guitar"
const electric_guitar_jazz = note("<A@3 B ~@79 C@3>".pickRestart({
  A: "d3@9 ~ f#3@3 ~@3 a3@2 b3@4 a3@2", B: "d3@10 f#3@2 ~@4 a3@2 b3@4 a3 ~",
  C: "[~@15 d5@44 ~@13, ~@11 d3@48 ~@13, ~@12 b3@47 ~@13, ~@13 e4@46 ~@13, ~@14 a4@43 ~@15]/3",
})).s("gm_electric_guitar_jazz").gain(0.48).pan(0.7)

// drums · kick
const kick = s("bd").struct("<[x!2]!69 x [x!2]!13 ~@3>").gain(0.4)

// drums · snare
const snare = s("sd").struct("<[~ x ~ x]!69 ~ [~ x ~ x]!12 [~ x!3] x ~@2>").gain(0.35)

// drums · hihat
const hihat = s("hh").struct(`<
  [x ~@2 x ~ x!2 ~@2 x ~ x]!69
  x
  [x ~@2 x ~ x!2 ~@2 x ~ x]!12
  [x ~ x!2 ~@2 x ~@2 x ~@2]
  x
  ~@2
>`).gain(0.3)

stack(piano, bass, electric_guitar_jazz, kick, snare, hihat)