// 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, A@4 for four bars: edit a riff to change every repeat.

// chords · piano
const piano = note(`<
  A@3 B A C A D E F G H I J K L A B A M N O P Q R J P S T U V W X@2 A B A M N O P Q Y Z P S AA AB AC AB X@2 A B A M N O
  P Q Y Z P S AA AB AC AB X AD AE AF P H AE AF AG AH T U AI AJ AK AL ~@2
>`.pickRestart({
  A: "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
  B: "~@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
  C: "~@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
  D: "~@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
  E: "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
  F: "~@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
  G: "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
  H: "~@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
  I: "~@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
  J: "~@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
  K: "~@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
  L: "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
  M: "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
  N: "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
  O: "~@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
  P: "~@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
  Q: "~@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
  R: "~@4 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~, e2@10 ~@2 e2@11 ~", // Em
  S: "~@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
  T: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2@4 ~@2 g2@5 ~", // G
  U: "~@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
  V: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2@7 ~@5 g2@8 ~@4", // G
  W: "~@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
  X: "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
  Y: "~@4 [g3,b3,e4] ~ b2@4 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~, e2@6 ~@6 e2@11 ~", // Em
  Z: "~@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
  AA: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2 b2 g2!2", // G
  AB: "~@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
  AC: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2 d2 g2!2", AD: "d2@5 ~@19",
  AE: "~@4 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4] ~, e2 g2 b2 g2", // Em
  AF: "~@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
  AG: "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
  AH: "~@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
  AI: "~@4 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~@5 [b3,d4,g4] ~, g2@3 ~ g2@3 ~", // G
  AJ: "~@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
  AK: "d3 b2 a2 f#2", AL: "d2@19 ~@5",
})).s("gm_piano").gain(0.39)

// bass · fretless bass · "Bass"
const bass = note(`<
  A@3 B@4 C D@2 B E F G E@2 B@3 C D@2 B E H G E I D J D J E@2 B K B C D@2 B E H L E I D L D L E@2 B K B C M D B@2 H N E
  I D L D L B O H L E P@2 L E Q D L R L S T ~@2
>`.pickRestart({
  A: "d2@7 ~@5 a2@9 ~@3", B: "d2@6 ~@6 a2@7 ~@5", C: "d2@3 ~@3 e2@3 f#2@2 ~", D: "g2@7 ~@5 g2@6 ~@6",
  E: "d2@6 ~@6 d2@7 ~@5", F: "e2@8 ~@4 e2@7 ~@5", G: "a2@9 ~@3 a2@7 ~@5", H: "e2@6 ~@6 e2@7 ~@5",
  I: "d3@5 ~ c3@5 ~ b2@6 a2@4 ~@2", J: "a2@9 ~@3 e2@7 ~@5", K: "d2 ~ a2 ~", L: "a2 ~ a2 ~", M: "g2@5 ~@6 d2@7 ~@6",
  N: "a2@7 ~@5 a2@7 ~@5", O: "d2@5 ~@19", P: "[d2@5 ~@7 d2@7 ~@4 e2@5 ~@8 e2@7 ~@5]/2", Q: "d3 c3 b2 a2",
  R: "g2@8 ~@4 g2@7 ~@5", S: "d3@6 b2@6 a2@3 ~@3 f#2@4 ~@2", T: "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)