// Don't Be Cruel — Elvis
// 155 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(155/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 · epiano2
const epiano2 = 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 R S T U AF AG X Y AH AI AJ AK AD AE N
  O P Q R S T U AF AG X Y AH AI AJ AK AD AL AM AN AO I AP AQ AD AR AS AT AU AV AW AX ~@2
>`.pickRestart({
  A: "~@4 [a3,d4] ~@5 [a3,d4] ~@5 [a3,d4] ~@5 [a3,d4,f#4] ~, d2@6 f#2@6 a2@7 ~@5, ~@2 f#4 ~@2 f#4 ~@2 f#4 b2@3", // D5 D
  B: "d2@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ b2@4 [a3,d4,f#4] ~, ~ f#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] ~ e3@4 [b3,d4,g4] ~, g2@6 b2@6 d3@7 ~@5, ~@8 g4 ~@3", // G Bm 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] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~, d2 f#2 b2 a2, ~@2 f#4 ~@9", // D5 D
  M: "~@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~ a2@4 [a3,d4,f#4] ~, d2 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@6 f#2@6 a2@7 ~@5, ~@5 f#4 ~@3 b2@3", // 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: "~@4 [b3,g4]@2 ~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~ d3@4 [b3,d4,g4] ~, g2@6 d3@6 e3@7 ~@5, ~@4 d4 ~@19", // Em G
  S: "~@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
  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 [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
  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] ~@5 [a3,c#4,e4] ~, a2@5 e4 a2@5 ~, ~@8 e4 ~@3", // 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: "~@4 [g3,b3,e4] ~ b2@4 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~, e2@6 ~@6 e2@11 ~", // Em
  AG: "~@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
  AH: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2 b2 g2!2", // G
  AI: "~@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
  AJ: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2 d2 g2!2", // G
  AK: "~@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", AL: "d2@5 ~@19",
  AM: "~@4 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~, e2 g2 b2 g2", // Em
  AN: "~@4 [a3,c#4,e4] ~@5 [a3,c#4,e4] ~ e2@4 [a3,c#4,e4] ~ a2@4 [a3,c#4,e4] ~, a2!2 ~@2", // A
  AO: "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
  AP: "e2@4 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~, ~ g2 b2 g2", // Em
  AQ: "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
  AR: "~@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
  AS: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2@3 ~ g2@3 ~", // G
  AT: "~@4 [c#4,e4,a4] ~@5 [c#4,a4]@2 ~@4 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~, a2@9 ~ e4 ~ a2@9 ~@3", // A F#m A
  AU: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2@5 ~ g2@4 ~@2", // G
  AV: "~@4 [c#4,e4] ~@5 [e4,a4] ~@5 [c#4,e4,a4] ~@5 [c#4,e4,a4] ~, a2@7 ~@5 a2@7 ~@5, ~@2 a4 ~@2 c#4 ~@6", // C#m A5 A
  AW: "d3 b2 a2 f#2", AX: "d2@19 ~@5",
})).s("gm_epiano2").gain(0.22)

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

// other · electric guitar jazz
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, ~@7 a4@22 ~@7]/3",
})).s("gm_electric_guitar_jazz").gain(0.8)

// chords · tuba
const tuba = note(`<
  ~@4 A B C D E F C G H@2 I@2 C J C G E K L M N O P@2 Q R Q R ~@2 C S C T E U V J N O W ~ Q X Q R ~@2 Y Z AA Z AB AC AD
  J N O AE@2 Q R Q X ~@2 AF AG ~@2 AF AH ~@2 Q X Q AI ~@4
>`.pickRestart({
  A: "~@3 [f#3,a3,d4] ~@5 [f#3,d4] ~@2, ~@18 a3 ~@5", B: "~@4 [f#3,a3] ~@7 [f#3,d4]@2 ~@10, ~@4 d4@2 ~@6 a3 ~@11",
  C: "~@3 [f#3,a3,d4] ~@5 [f#3,a3,d4] ~@2", D: "~@4 [f#3,a3,d4] ~@7 [f#3,a3,d4]@2 ~@10",
  E: "~@3 [g3,b3,d4] ~@5 [g3,b3,d4] ~@2", F: "~@2 [g3,d4] ~@3 [g3,b3,d4] ~@5, ~@4 b3 ~@19",
  G: "~@2 [f#3,a3,d4] ~@3 [f#3,a3,d4] ~@5", H: "[[g3,b3]@12 [a3,c#4]@7 ~@5, e4@13 ~@3]/2", I: "[[f#3,a3,d4]@3 ~]/2",
  J: "~@4 [a3,d4] ~@7 [f#3,a3,d4]@2 ~@10, ~@2 f#3 ~@9", K: "~@4 [g3,b3] ~@7 [g3,b3,d4]@2 ~@10, ~@2 d4 ~@9",
  L: "~@2 [f#3,a3,d4] ~@3 [f#3,a3,d4] ~", M: "~@4 [f#3,a3,d4]@3 ~@5 [f#3,a3,d4]@3 ~@9", N: "[g3,b3,e4]",
  O: "[a3,c#4,e4]", P: "[[f#3,a3,d4]@31 ~@17]/2", Q: "[g2,g3,b3,d4]", R: "[a2,a3,c#4,e4]@13 ~@11",
  S: "~@2 [f#3,d4] ~@3 [f#3,a3,d4] ~@5, ~@4 a3 ~@19", T: "~@4 [f#3,d4]@2 ~@6 [f#3,a3,d4]@3 ~@9, ~@4 a3 ~@19",
  U: "~@4 [b3,d4] ~@7 [g3,b3,d4]@2 ~@10, ~@2 g3 ~@9", V: "~@6 [f#3,a3,d4]@3 ~@9 [f#3,a3,d4]@2 ~@4", W: "[f#3,a3,d4]",
  X: "[a2,a3,c#4,e4] ~", Y: "~@6 [f#3,a3,d4]@2 ~@10 [f#3,a3,d4] ~@5",
  Z: "~@4 [f#3,a3,d4] ~@7 [a3,d4] ~@11, ~@6 f#3 ~@5", AA: "~@6 [a3,d4] ~@11 [a3,d4] ~@5, ~@3 f#3 ~@5 f#3 ~@2",
  AB: "~@6 [g3,b3,d4]@2 ~@10 [b3,d4] ~@5, ~@9 g3 ~@2", AC: "~@4 [g3,b3,d4] ~@7 [g3,b3,d4]@2 ~@10",
  AD: "~@6 [f#3,a3,d4]@2 ~@10 [a3,d4] ~@5, ~@9 f#3 ~@2", AE: "[[f#3,a3,d4]@5 ~@3]/2", AF: "~@2 f#3 a3", AG: "e3@11 ~",
  AH: "e3", AI: "[a2,a3,c#4,e4]@3 ~",
})).s("gm_tuba").gain(0.4)

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

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

// 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.64)

stack(epiano2, clavinet, electric_guitar_jazz, tuba, kick, snare, hihat)