// Are You Lonesome Tonight — Elvis Presley
// 66 bpm, 3/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 79 bars on a 32-step grid, each part at one level. Source detail keeps the original performance.
setcpm(66/3)

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

// other · piano · "Combined Tracks"
const piano = note("<~@4 A B C@2 D@2 E ~@68>".pickRestart({
  A: "~@21 e4@6 g4@5", B: "c5@10 b4@17 c5@5", C: "[b4@21 e4@6 g4@4 b4@11 a4@17 b4@5]/2",
  D: "[a4@21 e4@6 g4@4 a4@11 g4@17 a4@5]/2", E: "g4@10 f4@16 ~ e4@5",
})).s("gm_piano").gain(0.07)

// other · soprano sax · "Combined Tracks"
const soprano_sax = note(`<
  ~@12 A B@2 C D E F G@2 H I J K L M N@2 O P Q R S T U@2 V W X Y ~@3 Z V AA AB Y ~@3 AC H I AD AE ~@3 AF V AG AH AI ~@3
  AJ AK@3 AL@2 AM AN@2 ~@2
>`.pickRestart({
  A: "~@21 f4@6 a4@5", B: "[c5@10 b4@14 c5@7 b4@20 ~@2 f4@6 g4@5]/2", C: "b4@10 a4@13 ~@2 a4@3 b4@4",
  D: "a4@21 d4@6 e4@5", E: "f4@10 g4@15 a4@7", F: "c5@10 ~@17 g4@5, ~@5 b4@10 ~", G: "[e4@50 ~@4 g4@5 a4@5]/2",
  H: "a#4@11 a4@10 g4@11", I: "c5@11 a4@16 c5@5", J: "g4@10 f4@17 e4@5", K: "f4@21 a4@6 b4@5", L: "c5@11 b4@10 a4@11",
  M: "d5@11 b4@16 d5@5", N: "[a4@10 g4@14 f#4@7 g4@21 ~ e4@7 g4@4]/2", O: "c5@10 b4@17 c5@5", P: "b4@19 ~ b4@7 c5@5",
  Q: "e5@5 d5@8 e5@3", R: "d5@6 g#4 a4", S: "~ c5@19 b4@7 a4@5", T: "b4@11 c5@16 d5@5", U: "[c5@43 ~@10 e4@5 ~ g4@5]/2",
  V: "c5@11 b4@16 c5@5", W: "b4@16 ~@5 e4@5 ~ g4@5", X: "b4@11 a4@16 b4@5", Y: "a4 ~", Z: "~@21 f4@5 ~ a4@5",
  AA: "b4@16 ~@5 f4@5 ~ g4@5", AB: "b4@5 a4@21 ~ a4@2 b4@3", AC: "~@21 g4@5 ~ a4@5", AD: "g4@11 f4@11 ~@5 e4@5",
  AE: "f4@21 ~@11", AF: "~@21 e4@5 ~ g4@5", AG: "b4@16 ~@5 b4@5 ~ c5@5", AH: "e5@11 d5@16 c5@5", AI: "a4@21 ~@11",
  AJ: "~@21 e4@6 g4@5", AK: "[c5@23 ~ b4@4 ~@4 b4@18 ~@9 c5@4 e5@11 d5@15 e5@7, ~@29 c5@5 ~@19 b4@9 ~@34]/3",
  AL: "[d5@21 g#4@6 a4@4 ~@21 b4@7 a4@5, ~@31 c5@24 ~@9]/2", AM: "~ b4@9 ~ c5@10 d5@11", AN: "[c5@3 ~]/2",
})).s("gm_soprano_sax").gain(0.08)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~ A B C D E F G H I E J K L B@2 M N B O I P Q J R S@2 T M P U S T S B P M I V W@2 I@2 J K B X M@2 Y B P I P@2 K J T S
  Z M P U S T S B P M AA V S@2 A ~@5
>`.pickRestart({
  A: "d2@27 ~@5", B: "g2@7 ~", C: "c2@25 ~@7", D: "g2@27 ~@5", E: "c2@13 ~@3", F: "e2@27 ~@5", G: "a2@29 ~@3",
  H: "a2@13 ~@3", I: "c2@7 ~", J: "f2@29 ~@3", K: "f2@7 ~", L: "g2@23 ~@5 d2@4", M: "g2@29 ~@3", N: "g2@6 ~ d2",
  O: "c2@31 ~", P: "c2@29 ~@3", Q: "c2@15 ~", R: "f2@15 ~", S: "d2@7 ~", T: "d2@29 ~@3", U: "e2@7 ~", V: "e2@29 ~@3",
  W: "a2@7 ~", X: "g2@27 ~ d2@4", Y: "g2@13 ~ d2@2", Z: "d2@15 ~", AA: "c2@27 ~@5",
})).s("gm_electric_bass_finger").gain(0.37)

// chords · piano
const piano_2 = note(`<
  A B@4 C D@3 E@2 F G@5 H@6 I@4 J K@3 L@3 M@2 N@7 O P@6 Q@3 R@2 S T@4 U@3 L@3 M@2 V@3 W@3 X@2 Y@2 ~
>`.pickRestart({
  A: "~@21 d5@7 e5@4, ~@18 c5@5 ~@9",
  B: "[~@21 g4@7 ~@25 [b3,c5]@7 ~@25 [c5,e5]@4 b4@3 ~@25 b3@7 d4@2 ~@2, [g3,d5]@30 ~@2 g3@30 ~@2 [g3,c4]@26 ~@6 g3@7 d4@17 ~@8, ~@7 d4@19 ~@2 d4@11 b3@4 d4@18 ~@10 e4@4 g4@15 ~@2 a4@22 g3@11 ~@3, ~@11 g4@10 ~@11 [g4,f5]@18 ~@14 c5@18 e4@8 ~@6 g4@24 ~@8, ~@18 b4@32 b4@6 ~@4 d5@30 ~@6 d4@4 b3@7 [f4,d5]@21]/4", // Cmaj7 C G5 C5 G7 Dm
  C: "~@7 g4@4 ~@10 e5@4 e4@3 g4@4, [g3,c4]@13 ~@3, e4@18 e4@7 ~@7, ~@11 g4@14 ~@7, ~@11 e5@10 c5@11", // C5
  D: "[~@39 a4@4 [a4,e5]@7 ~@7 c4@3 ~@4 e4@7 ~@14 e4@4 c4@3 [g4,e5]@4, [g3,b3]@28 b4@22 e5@14 [a4,e5]@7 e4@4 g4@7 e5@9 ~@5, ~@4 e4@10 ~@4 e4@12 ~@2 e4@18 a4@9 ~ b4@18 c4@4 a4@12 ~@2, ~@7 g4@14 g4@32 a3@11 a3@28 ~@4, ~@11 b4@10 e5@11 a3@7 c4@11 c5@40 ~@6]/3", // A5 C G A5
  E: "[~@7 g4@4 ~@46 c4@3 [g4,e5]@2 ~@2, [g3,e4]@25 e4@7 ~@4 c4@7 [a#4,e5]@17 ~@4, c4@18 c4@10 ~@4 [g3,e4]@21 [g3,e4]@8 ~@3, ~@11 [g4,e5]@16 ~ g4@11 g4@11 [c4,g4]@9 ~@5, ~@18 d5@3 c5@37 ~@6]/2", // C A#dim C C5
  F: "~@21 [f4,c5]@4 ~@3 g4@4, f3@15 ~, a4@27 ~ c5 ~@3, c5@11 f4@7 c4@9 ~@5, c4@11 a3@14 a3@5 ~@2", // F5
  G: "[~@50 g4@3 [g4,d5]@4 b3@3 ~@25 g4@4 d4@3 ~@25 [b4,d5]@4 d4@3 ~@29 d4@3 [g4,b4,d5]@4, [f3,a4]@26 ~@6 g3@28 ~@4 g3@28 g4@4 d4@11 [b4,d5]@7 d4@3 a4@38 ~@5, ~@4 c4@7 f4@7 c4@8 ~@2 a4@11 g4@4 b4@14 ~@3 b4@15 [g4,d5]@7 b4@8 ~@2 b4@8 b3@24 ~@4 g4@11 [g4,b4,d5]@16 ~@5, ~@7 g4@14 [f4,c5]@25 d4@14 d5@11 b3@22 ~@3 g3@32 [g3,d4]@18 g3@11 ~@3, ~@11 a3@15 ~@6 d4@4 b3@21 ~@7 d4@21 d5@18 g4@19 ~@2 [b4,d5]@11 b3@11 d4@3 b3@7 ~@4]/5", // G5 Bm G F Bm G5 G F5 …
  H: "[~@21 g4@4 d4@3 ~@57 c5@4 ~@35 e4@4 ~@11 e5@7 d5@3 [a#4,d5]@4 ~@3 g4@4 ~@11 e5@7 e5@3 [g4,c5,e5]@7 e4 ~@3, g3@29 ~@3 g3@28 d4@22 e4@3 d5@18 e4@4 d5@3 e4@4 d5@3 g4@15 c4@3 g4@4 a#4@7 [g4,e5]@7 e4@7 a#4@11 [g4,c5]@7 [c4,a#4]@9 ~@5, [f4,b4]@26 ~@2 b4@15 d5@7 b3@11 ~@3 g3@32 [g3,c4]@29 ~@3 g3@62 ~@2, d5@18 b3@10 ~@4 d4@21 d5@22 c5@7 c4@10 g4@4 e5@11 e5@15 ~@6 e4@21 c4@11 [g4,e5]@7 e4@18 ~@7, ~@7 b3@4 d4@10 d5@18 b3@4 f4@10 g4@11 [c4,e4]@7 g4@18 e4@14 g4@11 c5@40 ~@6 a#3@28 ~@4]/6", // A# C C5 C7 Fdim C5 C
  I: "[~@21 g4@7 ~@32 a3 ~@10 f#4@4 ~@10 [f#4,a4,d5]@4 ~@3 [f#4,d5]@4 ~@21 [a3,a4,d5]@7 d4@4, f3@28 ~@4 [f3,a4]@28 ~@4 a3@36 a3@7 d5@7 c5@8 ~@6, a4@18 f4@3 c5@4 ~@7 c5@11 g4@10 f4@36 d4@14 d4@19 ~@6, c5@11 c4@15 ~@2 f4@15 c5@7 c4@3 c5@11 [f#3,d4]@27 ~@5 [f#3,f#4]@28 ~@4, ~@7 a3@21 ~@11 a3@19 ~@2 a4@15 [f#4,d5]@7 c5@8 ~@6 d5@7 a4@14 ~@11]/4", // D D5 F D F# D
  J: "~@21 [a3,a4]@7 f#4@2 ~@2, f#3@29 ~@3, d4@11 [f#4,d5]@15 ~@6, f#4@7 a4@11 [d4,c5]@8 ~@2 d4 ~@3, ~@4 a3@17 ~@11", // A D D7
  K: "[~@21 [b3,b4]@6 ~ d4 ~@24 e5@7 ~@25 [g4,e5]@4 e4@3 b4@2 ~@2, g3@28 ~@4 [g3,c4,e4]@18 [g3,c4,e4]@11 ~@3 [g3,b3]@27 ~@5, g4@25 ~@7 g4@21 g4@18 e4@18 ~@7, d4@11 [b4,d5]@7 d4@8 ~@17 c5@15 ~@2 c5@30 ~@6, d5@7 b3@14 [a4,d5]@36 ~@7 b4@11 g4@7 b4@9 ~@5]/3", // B C G Bm D5
  L: "[~@25 d4@3 ~@15 f4@7 f4@3 f4@4 d4@2 ~@16 [f4,d5]@7 [f4,d5]@3 [f4,a4,d5]@4 d4@3 f4@2 ~@2, [f3,a3]@29 ~@3 [f3,d4]@27 ~@5 [f3,d4]@26 ~@6, f4@11 f4@7 f4@9 ~@5 f4@11 d5@7 c5@3 d5@18 a3@20 ~@5, ~@7 d4@14 d5@18 a3@20 ~ f4@14 ~@8 c5@8 ~@2 d5 ~@3, ~@14 a4@12 ~@2 a4@25 a4@32 ~@11]/3", // Dm F Dm
  M: "[~@39 g4@4 ~@10 c5@4 b4@3 a4 ~@3, [g3,b4]@27 ~@5 [g3,c4,e4]@11 c5@7 [g3,c4,e4]@11 ~@3, d4@11 d5@7 d4@8 ~@2 d4@30 ~@6, d5@11 g4@15 ~@17 [g4,a#4]@15 ~@6, ~@7 b3@14 [f4,d5]@37 ~@6]/2", // G C Gm Dm
  N: "[~@21 a4@7 ~@11 g4@4 ~@10 [g4,d5,e5]@4 [c4,e4]@3 g4@2 ~@23 e4@4 ~@28 [a4,d5]@4 c4@3 ~@11 a4@4 ~@7 a4@3 a4@4 c4@3 ~@11 g4@4 ~@10 [g4,e5]@5 ~@2 g4@4 ~@7 c4@4 ~@14 e4@3 g4@2 ~@2, [g3,d4]@28 ~@4 g3@27 ~@5 g3@27 ~@5 [a3,e4]@7 a4@4 c5@7 a3@14 a3@28 ~@4 [g3,c4,e4]@11 g4@7 [g3,c4,e4]@12 ~@2 g3@11 [g3,c4]@18 ~@3, g4@11 d5@42 ~@7 c5@25 [g4,e5]@29 e4@11 ~@3 e4@11 e5@15 ~@17 c5@16 ~ c5@30 ~@6, ~@7 b3@21 g4@11 ~@4 [g4,e5]@10 ~@11 b4@11 g4@3 b3@13 ~@9 c4@21 ~@3 a4@8 c4@7 a4@3 e4@14 a4@30 ~@6 [a#4,e5]@18 g4@8 ~@6, ~@11 g4@7 b4@11 ~@3 [c4,e4]@18 [c4,e4]@7 ~@7 [b3,g4]@7 e4@11 b4@8 ~@2 b4@29 ~@3 c5@25 d5@37 ~@6 g4@11 e4@10 [a#4,e5]@8 ~@3]/7", // Em7 C D5 C G5 A5 C C5 …
  O: "~@21 c4@7 f4@2 ~@2, f3@29 ~@3, c4@9 a4@4 ~@3, a4@11 [f4,g4,c5]@16 ~@5, c5@7 a3@19 ~@6", // Fsus2
  P: "[~@25 c4@2 ~@26 g4@4 b3@3 ~@11 d5@4 ~@14 d4@3 ~@22 b4@3 ~@7 d4 ~@24 g4@7 ~@15 g3@7 ~@3 b3@4 d4@3 f4@2 ~@2, [f3,c5]@27 ~@5 g3@28 g4@4 d4@7 g4@4 f4@7 d5@25 [g4,d5]@10 [g4,d5]@18 b3@4 g4@7 b4@42 ~@4, a4@21 a4@7 [f4,c5]@22 d4@11 ~@3 g3@28 ~@4 [g3,d4]@28 ~@4 g3@43 d4@14 ~@7, a3@18 [a3,f4]@9 ~@9 b3@3 g4@7 b3@7 d5@15 b3@7 d5@3 d4@4 g4@7 b4@25 ~@3 b4@22 d5@20 ~ [f4,d5]@27 ~@5, ~@11 c4@14 ~@7 d4@11 b4@14 b4@28 b3@7 g4@14 ~ b3@16 ~@5 d4@28 d4@11 b3@11 g3@12 ~@2]/6", // F5 G5 F5 G5 Dm
  Q: "[~@21 [g3,b3]@4 d4@2 ~@12 g4@4 ~@10 [g4,e5]@4 ~@14 g4@4 ~@14 e4@3 g4@4, [g3,g4]@21 a4@8 ~@3 [g3,c4,e4]@18 [g3,e4]@14 c4@21 c4@7 ~@4, d5@18 b4@12 ~@13 c5@14 c5@18 [g4,c5,e5]@16 ~@5, ~@7 b3@11 d5@9 ~ d5@28 ~@4 g4@4 g3@18 g3@14, ~@11 d4@11 ~@6 g4@11 ~@4 g4@7 c4@11 ~@3 e4@25 ~@7]/3", // G C G C
  R: "[~@18 c4@3 ~@7 g4@4 ~@21 [a#3,c4,a#4,e5]@7 [e4,g4]@2 ~@2, e5@26 ~@6 [g4,a#4,e5]@11 [g4,a#4,c5,e5]@10 [g4,c5]@4 ~@7, g3@21 [g3,c4]@11 [a#3,c4]@21 ~@11, c4@11 [g4,c5]@15 ~@6 g3@18 g3@12 ~@2, [g4,c5]@7 e4@14 e4@18 e4@11 e4@8 ~@6]/2", // C7 Em Edim C7 C5 A#sus2 C5
  S: "~@18 f3@3 ~@4 a3@3 f4@2 ~@2, [a4,c5]@13 ~@3, c4@21 [f3,c4]@8 ~@3, f3@11 f4@16 ~@5, ~@7 a3@18 ~@7", // Am F5
  T: "[~@21 f4@4 ~@14 f#4@4 f#4@7 ~@35 f#4@4 a3@3 f#4@4 ~@7 [d4,f#4]@4 ~@10 [f#4,d5]@4 [f#3,d4]@3 f#4@2 ~@2, [f3,a4]@25 a4@25 [f#4,c5]@3 a3@7 f#4@4 d4@11 f#4@7 a4@7 d4@7 [d4,f#4]@4 a3@7 [f#4,d5]@10 ~@7 d5 ~@3, c5@21 c5@15 a3@7 d5@47 ~@2 a4@18 [a3,c5]@12 ~@6, c4@18 c4@8 ~@2 f4@29 a4@14 a3@14 c5@22 d4@7 [d4,a4]@8 ~@6, ~@11 a3@16 ~@5 [f#3,d4]@28 ~@4 f#3@28 ~@4 f#3@11 f#3@14 ~@7]/4", // D F F#dim D Am D5 D
  U: "[~@18 d5@3 [g4,d5]@4 [g3,b3,d4]@3 ~@25 e5@7 ~@25 [g4,e5]@4 e4@3 b4@2 ~@2, g3@25 ~@7 [g3,c4,e4]@18 [g3,c4,e4]@11 ~@3 [g3,b3]@27 ~@5, d4@11 [b4,d5]@3 d4@11 ~@3 g4@25 g4@18 e4@18 ~@7, d5@7 g4@11 [a4,b4]@8 ~@2 d5@29 ~@7 b4@11 g4@7 b4@9 ~@5, g4@4 b3@21 ~@18 c5@15 ~@2 c5@30 ~@6]/3", // G5 G C G Bm Asus2
  V: "[~@21 a4@7 ~@11 g4@4 ~@28 g4@4 ~@7 e5@3 [g4,e5]@4 [b3,e4]@2 ~ [g4,e5]@4, [g3,d4]@28 ~@4 [g3,c4]@26 ~@6 g3@27 ~@5, g4@11 d5@39 ~@3 c5@37 ~@6, ~@7 b3@21 g4@11 ~@4 [g4,e5]@15 ~@2 g4@11 ~@4 g4@7 b4@9 ~@5, ~@11 g4@7 b4@11 ~@3 e4@18 [e4,d5]@10 ~@4 [b3,e4]@11 e5@3 [b3,e4]@11 ~@7]/3", // C E5 C G5 C5 C E7 E5
  W: "[e4@3 ~@15 f4@3 f4@4 ~@14 f4@4 [f4,d5]@7 [f4,d5]@3 f4@4 [f3,a3,d4]@3 ~@15 f4@7 [f4,c5]@3 [f4,a4,c5,d5]@4 d4@3 [f4,a4]@2 ~@2, f3@28 f4@4 [f3,a3,d4]@25 ~@7 f3@28 ~@4, d4@14 a3@11 c5@25 c5@8 ~@2 f4@11 a3@21 ~@4, a3@11 a4@10 d5@21 ~@11 d5@21 ~ d5@10 ~@7 d5 ~@3, ~@7 f4@11 d4@10 a4@25 a4@9 ~@2 d4@25 ~@7]/3", // Dm F5 Dm7 F Dm
  X: "[[d4,f4,g4,b4,d5]@53 ~@11, g3@9 ~@23]/2", Y: "[~ b4, ~@7 g3@9, ~@15 [c4,e4,g4]@17]/2",
})).s("gm_piano").gain(0.56)

// chords · electric guitar jazz · "Guitar" · C5
const electric_guitar_jazz = note("<~@76 [e4@3 g4@2 a4@3 ~@19 e5@2 f5@3, ~@8 b4@19 ~@5, ~@21 g3@11] [[c3,g5]] ~>")
  .s("gm_electric_guitar_jazz").gain(0.38)

// chords · string ensemble 2 · "Strings"
const string_ensemble_2 = note(`<
  ~@9 A B C@2 D E F G@2 H I J K L M N O P@2 Q R S T U V W X@2 ~@3 Y Z AA AB@2 ~@3 AC AD AE AF@2 ~@3 AG AH AI AJ AK ~@3
  AL AM AN AO@2 R S T U V W AP@2 ~@2
>`.pickRestart({
  A: "[c4,c5]", B: "[c#4,a#4]@11 [d4,a4]@10 [e4,g4]@11", C: "[a3@21 f3@5 ~ e3@5 d3@11 a2@21, [c4,f4]]/2",
  D: "[b2,d4,g4]", E: "g5@11 d5@10 g4@11, [d3,b4]", F: "d4@11 e4@10 f4@11, b2, g3@21 ~@11",
  G: "[g4@11 ~@21 [b2,g3]@32, [d3,b3] ~, ~@11 d4@53]/2", H: "d4@11 d#4@21, [b2,g3]",
  I: "[c3,e4]@11 e3@10 b3@5 ~ a3@5, g3, ~@11 c4@21", J: "[g3,e4]@11 [e3,g4]@21, c4", K: "a#4@11 c5@10 a#4@11",
  L: "a4@11 c5@10 a#4@11", M: "a4@11 c5@10 g4@11", N: "f4@11 e4@10 d4@11", O: "a4@11 d5@10 c5@11",
  P: "b4@11 d5@10 c5@11", Q: "b4@11 ~@10 [e4,c5]@11, d4@21 ~@11, ~@11 g5@21", R: "[e3,c4,g4,e5,c6]",
  S: "[g3,c4,g4,e5,b5]", T: "[f3,c4,f4,d5,a5]", U: "[d3,a3,d4,a4,f5]", V: "f6@11 a5@21, [a3,f4,d5]", W: "[g3,d4,b4,g5]",
  X: "[[e3,g4,c5,c6]@53 ~@11]/2", Y: "~@21 e5@5 ~ g5@5", Z: "a5@11 g5@16 a5@5, [g3,e4,c5]",
  AA: "g5@11 f5@10 e5@11, [g3,e4,a#4]", AB: "[f3,f4,c5,a5]/2", AC: "~@21 d5@5 ~ e5@5",
  AD: "f5@11 g5@16 a5@5, [g3,d4,b4]", AE: "c6@11 b5@16 g5@5, [f3,d4,a4]", AF: "[g3,c4,g4,e5]/2", AG: "~@21 a5@5 ~ b5@5",
  AH: "c6@11 b5@16 a5@5, [d4,a4,f#5]", AI: "d6@11 b5@16 d6@5, [d4,a4,f#5]", AJ: "a5@11 g5@16 f#5@5, [d3,f#4,c5]",
  AK: "[b2,d4,g4], g5@21 ~@11", AL: "~@21 g#5@5 ~ a5@5", AM: "c6@11 b5@16 a5@5, [a3,f4,c5]",
  AN: "b5@11 c6@10 d6@11, [g3,d4,b4]", AO: "[[e3,c4,g4,c6]@53 ~@11]/2", AP: "[[e3,g4,c5]@53 ~@11]/2",
})).s("gm_string_ensemble_2").gain(0.27)

// drums · hihat
const hihat = s("hh").struct("<[~@5 x ~@3 x ~@11 x ~@10] [~@11 x ~@9 x ~@10]!73 [~@11 x ~@20]!3 ~@2>").gain(0.52)

// drums · open hat
const open_hat = s("oh").struct("<[~@11 x ~@20] ~@78>").gain(0.52)

stack(piano, soprano_sax, bass, piano_2, electric_guitar_jazz, string_ensemble_2, hihat, open_hat)