// Jailhouse Rock — Elvis Presley
// 168 bpm, 4/4, key E major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 100 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(168/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.

// bass · electric bass finger · "FINGERDBAS"
const bass = note(`<
  A B@10 C D E@2 F@2 G H F I B@6 C D E@2 F@2 G H F I B@6 C D E@2 F@2 G H F@2 E J F K G E F L B@6 C D E@2 F@2 G H F I B@6
  C D E@2 F@2 G H F@8 M
>`.pickRestart({
  A: "~@5 d#2@3", B: "[e2@25 ~ d#2@6]/2", C: "e2@3 ~@13", D: "~ e1 f#1 g#1", E: "a1 c#2 e2 f#2", F: "e1 g#1 b1 c#2",
  G: "b1 d#2 f#2 g#2", H: "a1@4 c#2@4 e2@3 ~ f#2@4", I: "e1@2 g#1@2 b1 d#2@3", J: "g2@4 f#2@4 e2@4 c#2@3 ~",
  K: "d2 c#2 b1 g#1", L: "e2@2 c#2@2 b1 d#2@3", M: "e1 ~@3",
})).s("gm_electric_bass_finger").gain(0.4)

// chords · electric guitar clean · "CLEAN GTR"
const electric_guitar_clean = note(`<
  A B@10 C ~ D@2 E@2 F D E G B@6 C ~ D@2 E@2 F D E G B@6 C ~ D@2 E@2 F D E@2 H I J@3 K L M B@6 C ~ D@2 E@2 F D E G B@6 C
  ~ D@2 E@2 F D E@8 ~
>`.pickRestart({
  A: "~@5 [a#2,d#3,g3,a#3,d#4]@3", B: "[[b2,e3,g#3,b3,e4]@25 ~ [a#2,d#3,g3,a#3,d#4]@6]/2",
  C: "[b2,e3,g#3,b3,e4]@3 ~@13", D: "a2!2 c#3!2 e3!2 f#3 e3", E: "e2!2 g#2!2 b2!2 c#3 b2",
  F: "b2!2 d#3!2 f#3!2 g#3 f#3", G: "e2@2 e2@2 g#2@2 g#2@2 b2 ~ [a#2,d#3,g3,a#3,d#4]@6",
  H: "~@2 [g4,e5] ~ [g4,e5]@2 [g4,e5]@3 ~ [g4,e5] ~ [g4,e5]@2 [g4,e5]@2", // C
  I: "~@2 [g4,e5] ~ [g4,e5]@2 ~ [g4,e5]@3 [g4,e5] ~ [g4,e5]@3 ~", // C
  J: "[~@2 g#4@4 g#4@4 g#4 ~ g#4@2 ~ g#4@3 g#4 ~ g#4@2 ~ g#4@3 g#4 ~ g#4@2 [d#4,a4,b4]@4 d#4@2 [d#4,a4]@3 [d#4,a4]@3 [b3,d#4,a4]@2 [b3,d#4,a4,b4]@2 [b3,d#4,a4,b4]@2, ~@5 b3 b3 ~, ~@34 b4@4 ~ b4@5 ~@4, ~@34 a4 ~@13]/3", // B7 D#dim B7
  K: "[c#4,g4,a4]@2 c#4@2 [c#4,g4]@3 [c#4,g4]@3 [a3,c#4,g4]@2 [a3,c#4,g4,a4]@2 [a3,c#4,g4,a4]@2, a3@2 a3@3 ~@3, ~@2 a4@4 ~ a4@5 ~@4, ~@2 g4 ~@13", // A7 C#dim A7
  L: "[g#3,e4,g#4]@3 e3 a3@2 a3 ~ [e3,g#3]@2 [e3,g#3]@2 [e3,a3,c#4,a4]@2 ~ e3, e3 ~ [e3,c#4,a4]@2 [e4,g#4]@2 ~ [a3,c#4]", // C#m E A E A
  M: "[g#3,e4]@2 [g#3,e4] ~ [e3,g#3,e4,g#4]@2 [e3,g#3,e4,g#4]@4 [a#2,d#3,g3,a#3,d#4]@6, [e3,g#4] ~@3", // C#m E D# E
})).s("gm_electric_guitar_clean").gain(0.26).pan(0.7)

// chords · piano · "A.PIANO 1"
const piano = note(`<
  A B@2 C@4 D@4 E F G H I J@2 K L M C@2 D@4 E F N@3 O P Q R S C@2 D@4 E ~ T@3 U@2 V@2 W@4 X@4 Y Z@6 AA AB AC AD AE AF@2
  K AG AH Z@6 AA ~ AI AJ AK AL AM@2 AN AO AP AQ AR@2 AS@2 AT
>`.pickRestart({
  A: "~@10 [g3,a#3,d#4]@5 ~", B: "[[g#3,b3,e4]@25 ~@2 [g3,a#3,d#4]@4 ~]/2", C: "[[g#3,b3,e4]@25 ~ [g3,a#3,d#4]@5 ~]/2",
  D: "[[g#3,b3,e4]@23 ~@3 [g3,a#3,d#4]@5 ~]/2", E: "[g#3,b3,e4]@3 ~@13",
  F: "~@4 [e6,b6,e7] ~ [e6,b6,e7] e6 [b6,e7] ~ [e6,b6,e7] ~ [e6,b6,e7] ~ [e6,b6,e7] ~", // E5
  G: "[e6,a6,e7]@3 ~@5 [c#5,g5]@3 e5 [c#5,f#5]@3 ~", H: "[c#5,g5]@3 e5 c#5@3 e5@2 ~@7, ~@2 f#5 ~@5",
  I: "~@7 c#7 ~ a6@2 g#6 e6@2 ~@2, ~@4 b6 ~@3",
  J: "[~@4 g5 g#5@2 ~ [g#5,b5]@3 ~@4 [d#4,f#4,a4,b4]@3 c#6 ~ [a6,c#7]@3 c#6 g6 g#6@2 [f#6,a6]@2 ~@3, ~@4 e5@3 ~@17 b6@3 ~@5]/2", // G#m B7 A F#m
  K: "~@2 b5 ~ [g6,b6]@3 b5 f6 f#6@2 [e6,g6]@2 ~@3, [c#4,e4]@7 ~, g4@3 ~, ~@8 a6@3 ~@5", // G Em C#m
  L: "~@2 g5@2 ~ g#5 ~ b5 e6@2 ~ e6!2 ~ e6 ~, [b3,d4,e4,g#4]@3 ~", // E7
  M: "e6@2 d6@2 b5@2 g5@2 ~@2 [g3,a#3,d#4]@5 ~, ~@2 g#5 ~", // D#
  N: "[[e6,a6,e7]@3 ~ b6 a6 g6 c#6 b6 a6 g6 ~ b6 a6 ~@2 b6 ~ g6 ~@2 a6 ~@2 b6 a6 g6 ~ b6 a6 ~ c#6@2 ~ [a6,c#7]@2 [g#6,b6]@2 ~@2 [g#6,b6]@2 ~@2 [g#6,b6]@2 [a6,c#7]@2, ~@11 c#6@2 ~ g6@2 ~ a6@2 ~ b6@2 g6@2 ~@6 g6@2 ~@7 [a6,c#7]@3 ~@6, ~@15 c#6@2 ~@2 c#6@2 ~@2 c#6@2 ~@2 c#6@2 ~@19]/3", // A5 A G#m A
  O: "[g#6,b6]@3 ~ [g#6,b6]@2 ~@2 [g#6,b6]@3 ~@5, ~@3 c#7 ~@4, ~@7 a6@2 ~@7", // G#m
  P: "~@3 c#6 [a6,c#7]@3 c#6 g6 g#6@2 [f#6,a6]@4 ~, ~@8 b6@3 ~@5", // A F#m
  Q: "~@3 b5 g6 g#6@2 b5 g6 f#6@2 [e6,g6]@4 ~, ~@2 b6 ~ a6 ~@3", // Em
  R: "~@4 [e6,b6,e7] ~ [e6,b6,e7] ~ [e6,b6,e7] ~ [d6,a6,d7] ~ [b5,g6,b6] ~ [a5,e6,a6] ~", // E5 D5 Em A5
  S: "[g5,d6,g6] ~@2 [e5,b5,e6]@7 [g3,a#3,d#4]@5 ~", // G5 E5 D#
  T: "[g5 f#5@2 e5 ~ f#5@2 e5 g5 f#5@2 e5 g5@2 ~@3 c#5 ~@2 [g5,g6]@3 [a5,a6] [g5,g6]@3 ~ [g5,g6]@3 a5 [g5,g6]@2 ~ [e5,e6] ~@4 [e5,e6]@5 ~@3, c#5@2 ~@2 [c#5,g5]@2 ~@2 c#5@2 ~@2 c#5@3 e5@2 ~@31, ~@14 f#5@2 g5@2 ~@13 a6@2 ~@15]/3", // G A G E C#dim
  U: "[~@2 c#6 ~ g6 g#6@2 ~ [g#6,b6]@3 ~ [g#6,b6]@3 ~ [f#6,a6]@3 ~ [f#6,a6]@3 ~@2 a6@3 [d#6,f#6]@3 b5, ~@4 b6@2 ~ [a6,c#7]@2 ~@6 c#7@2 ~@6 b6@2 ~@7, ~@24 f#6@3 ~@5]/2", // G#m F#m D#m A
  V: "[b6@2 g#6 ~ g6 g#6@2 ~ [f#6,a6]@2 ~@2 d6 d#6@5 ~@2 [d6,d7]@2 ~ [b5,b6] [a5,a6]@2 ~ [g5,g6] [g#5,g#6] ~ [d#5,d#6] ~, g6 ~@3 b6@2 ~@6 f#6@5 ~@2 [e6,e7]@2 ~@11]/2", // F#m D B A G G# D# E
  W: "[[e5,e6]@7 ~@9 a2@3 ~@6 e3@3 f#3@2 ~@2 g3@4 ~@3 [b3,c#4,e4,g4] ~@3 b3 ~ c#3 ~@2 e2@3 ~ g#2@4 ~@2 [b3,d4,e4,g#4]@2 ~@2 b3 ~, ~@15 [b3,c#4,e4,g4]@2 ~@3 c#3@5 ~@11 f#3@5 ~@3 [b3,c#4,e4,g4]@2 ~ [b3,d4,e4,g#4]@11 ~@2 c#3@4, ~@23 [b3,c#4,e4,g4]@7 [b3,c#4,e4,g4]@6 ~@4 e3@5 ~@11 b2@5 ~@3]/4", // E C#m7b5 E7 C#m7b5 E7 C#m7b5
  X: "[[d3,b3,d4,e4,g#4]@4 ~@2 [b3,d4,e4,g#4] ~@3 b3 ~ [g#2,b3,d4,e4]@3 ~ b2@4 ~ b1@3 f#3@4 [b1,g#3]@3 ~ a2@3 ~@5 e3@4 [a1,f#3]@3 ~ e2@3 ~ g#2@4 b2@4 c#3@3 ~, ~@4 c#3@4 b2@4 g#4 ~@2 [a3,c#4,d#4,f#4]@10 ~@6 [g3,b3,c#4,g4]@10 ~@6 [b3,d4,e4,g#4]@10 ~@7, ~@20 d#3@4 ~@11 c#3@5 ~@24, ~@18 a1@3 ~@11]/4", // E7 E D D#m7b5 C#m7b5 E7
  Y: "d3@4 c#3@4 ~@2 [a#3,d#4,g4]@5 ~", Z: "[[b3,e4,g#4]@25 ~ [a#3,d#4,g4]@5 ~]/2", AA: "[b3,e4,g#4]@3 ~@13",
  AB: "~@12 [e6,b6,e7] ~@2 [e6,b6,e7]", // E5
  AC: "[e6,b6,e7] ~ b6 [e6,e7] [e6,b6,e7] ~ [e6,b6,e7] ~ [g6,d7,g7] ~ [g6,d7,g7] ~ [a6,d7,a7] ~ a6 [d7,a7]", // E5 E E5 G5 D5
  AD: "[a#6,e7,a#7] ~ [a#6,e7,a#7] ~ [a6,e7,a7] ~@2 [a6,e7,a7] [g6,d7,g7] ~ [g6,g7] d7 [e6,b6,e7] ~ [e6,b6,e7] ~", // A#dim A5 G5 G E5
  AE: "[d6,a6,d7]@2 [d6,a6,d7] ~ [b5,e6,b6]@2 ~ [b5,e6,b6] [a5,d6,a6]@2 ~ [a5,d6,a6] [g5,d6,g6]@2 [a5,e6,a6] ~", // D5 E5 D5 G5 A5
  AF: "[[e5,b5,e6]@2 ~ [b4,e5,b5]@2 ~@2 e5@5 ~@3 [d#4,f#4,a4,b4]@3 c#6 ~ [a6,c#7]@3 c#6 g6 g#6@2 [f#6,a6]@2 ~@3, ~@6 [b4,b5]@5 ~@13 b6@3 ~@5]/2", // E5 B7 A F#m B
  AG: "~@3 g5 g#5 b5 c#6 ~ [e6,e7]@2 ~ [d6,d7] [b5,b6]@2 ~ [a5,a6]", // E D B A
  AH: "[g5,g6]@2 g#6@2 [e5,e6] ~@2 [b4,b5]@3 [a#3,d#4,g4]@5 ~, ~@2 g#5 ~@13", // G E B D#
  AI: "[g6,d7,g7]@2 ~@6 [g6,d7,g7]@2 ~@2 g6 ~@3", AJ: "[d7,g7]@2 ~@5 [g6,d7,g7] ~@4 [g6,d7,g7] ~ [g6,d7,g7] ~, g6 ~@15",
  AK: "[g6,d7,g7] ~ [e6,b6,e7] ~ [d6,a6,d7]@3 ~ [b5,e6,b6]@3 ~ [a5,e6,a6]@3 ~", // G5 E5 D5 E5 A5
  AL: "[g#5,d6,g#6]@3 ~ e5@2 ~ [b4,b5]@3 [b4,b5] b4 b5 ~ b4 b5, [g5,g6] ~@3 e6 ~@11", // G#dim B G
  AM: "[~@3 [a6,c#7] [g#6,b6]@2 ~ [a6,c#7] ~@3 [a3,b3,d#4] ~@8 [g6,b6]@4 [f#6,a6]@2 ~ [e6,g6]@3 ~@2, [a3,b3,d#4]@8 [g#6,b6]@6 ~ [g3,a3,b3,c#4]@10 ~@7]/2", // A G#m A B7 G F#m Em B7 …
  AN: "~@2 f#5 g5 [g#5,b5]@2 c#6@2 b5@2 f#5 ~ [g#5,b5]@3 c#6, [e3,g#3,b3,c#4]@7 ~@5 g5 ~@3", // G#m C#m7
  AO: "b5@3 ~ [g#5,b5]@3 ~ b5@2 [a#3,d#4,g4]@5 ~, ~@4 g5 ~@2 c#6@2 ~@7", AP: "[b3,e4,g#4]", AQ: "~@11 [a#3,d#4,g4]@5",
  AR: "[[b3,e4,g#4]@24 ~@3 [a#3,d#4]@5, ~@26 g4@5 ~]/2", AS: "[[b3,e4,g#4]@23 ~@4 [a#3,d#4,g4]@5]/2",
  AT: "[b3,e4,g#4]@5 ~@11", // E
})).s("gm_piano").gain(0.3).pan(0.4)

// drums · kick
const kick = s("bd").struct("<~@11 A ~ B@8 ~@6 A ~ B@8 ~@6 A ~ B@7 C B@8 ~@6 A ~ B@8 ~@6 A ~ B@15>".pickRestart({
  A: "x", B: "x!2", C: "x ~ x!2",
})).gain(0.62)

// drums · snare
const snare = s("sd").struct(`<
  A B@10 C D E@7 F G@6 C D E@7 F G@6 C D E@7 H E@7 F G@6 C D E@7 F G@6 C D E@14 I
>`.pickRestart({
  A: "~@5 x ~@2", B: "x ~@4 x ~@2", C: "x", D: "~@11 x!2 ~@3", E: "~ x ~ x", F: "~@4 x ~@6 x!2 ~@2 x", G: "x ~@4 x!2 ~",
  H: "~@2 x ~@4 x!2 ~@7", I: "~ x ~@2",
})).gain(0.55)

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@21 A@6 ~@10 A@6 ~@18 A@6 ~@10 A@6 ~@17>".pickRestart({
  A: "~@15 x",
})).gain(0.21)

// drums · hihat
const hihat = s("hh").struct("<A B@12 C D@6 E B@8 C D@6 E B@8 C D@6 F ~@8 B@8 C D@6 E B@8 C D@13 G>".pickRestart({
  A: "~@2 x!2", B: "x!4", C: "~@2 x!6", D: "x!8", E: "x!5 ~ x ~", F: "x!2 ~@6", G: "x!5 ~@3",
})).gain(0.35)

// drums · open hat
const open_hat = s("oh").struct("<~@52 [~ x ~@2] ~@47>").gain(0.41)

// drums · crash
const crash = s("cr").struct("<~@52 [~@3 x] x ~@46>").gain(0.28)

// drums · ride
const ride = s("rd").struct("<~@53 [~ x!7] [x!8]!6 [x!5 ~ x ~] ~@39>").gain(0.35)

stack(bass, electric_guitar_clean, piano, kick, snare, snare_soft, hihat, open_hat, crash, ride)