// Can't Help Falling in Love — Elvis Presley
// 67 bpm, 4/4, key D 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 49 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): NYLON GTR, STEEL GTR.
setcpm(67/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.

// other · piano · "A.PIANO 1"
const piano = note(`<
  A B C D E F G H I J C D E F G H I J K@3 L M N D O P Q R S T K@3 L U V D W X G Y S T Z AA AB AC@2
>`.pickRestart({
  A: "~@5 a3 ~ a3 c#4 e4 c#4 a3, d2 a1, ~ a3@4 ~@7, ~ d4!2 ~@3, ~ f#4 ~@2",
  B: "~ f#3 a3 d4 a3 f#3 f#4 d4 a3 a4 f#4 d4, d2 ~",
  C: "~@2 d4@2 f#4@2 a4@2 f#4@2 d4@2 ~@2 c#4@2 f#4@2 a4@2 f#4@2 c#4 ~", D: "~ b3 d4 f#4 d4 b3 ~ b3 d4 f#4 d4 b3",
  E: "~ b3 d4 g4 d4 b3 ~ a3 d4 f#4 d4 a3", F: "~@2 a3@2 c#4@2 e4@2 c#4@2 a3@2 ~@2 a3@2 c#4@2 e4@2 c#4@2 a3 ~",
  G: "~ d4 g4 b4 g4 d4 ~ e4 g4 c#5 g4 e4", H: "~@2 f#4@2 b4@2 d5@2 b4@2 f#4 ~@3 g3@2 b3@2 e4@2 b3@2 g3@2",
  I: "~ a3 d4 f#4 d4 a3 ~ a3 c#4 e4 c#4 a3", J: "~@2 f#3@2 a3@2 d4@2 a3@2 f#3@2 f#4@2 d4@2 a3 ~ a4@2 f#4@2 d4@2",
  K: "~ c#4 f#4 a4 f#4 c#4 ~ f4 g#4 b4 g#4 f4", L: "~ c#4 f#4 a4 f#4 c#4 ~ b3 d#4 a4 f#4 d#4",
  M: "g3 b3 e4 g3 b3 e4 g3 a3 c#4 g4 e4 a3", N: "~ d4 f#4 a4 f#4 d4 ~ c#4 f#4 a4 f#4 c#4",
  O: "~ d4 g4 b4 g4 d4 ~ a3 d4 a4 f#4 d4", P: "~ a3 c#4 g4 e4 c#4 ~ a3 c#4 g4 e4 c#4",
  Q: "~ d4 g4 b4 g4 d4 ~ c#4 e4 a4 e4 c#4", R: "~ b3 d4 a4 d4 b3 ~ g3 b3 d4 b3 g3",
  S: "~ a3 d4 a4 f#4 d4 ~ a3 c#4 e4 c#4 a3", T: "~ f#3 a3 d4 a3 f#3 f#4 d4 a3 a4 f#4 d4",
  U: "g3 b3 e4 g3 b3 e4 g3 a3 c#4 a4 e4 a3", V: "~ a3 d4 f#4 d4 a3 ~ c#4 f#4 a4 f#4 c#4",
  W: "~ d4 g4 d5 b4 g4 ~ a3 d4 a4 f#4 d4", X: "~ a3 c#4 e4 c#4 a3 ~ a3 c#4 e4 c#4 a3",
  Y: "~@2 f#4@2 b4@2 d5@2 b4@2 f#4@2 ~@2 g3@2 b3@2 e4@2 b3@2 g3 ~", Z: "~ d4 g4 b4 g4 d4 ~ a3 c#4 a4 e4 c#4",
  AA: "~ b3 d4 f#4 d4 b3 ~@6", AB: "a3@2 d4@2 f#4 ~ a4@2 f#4@2 d4@2 a3@2 c#4@2 e4@2 a4@2 e4@2 c#4@2",
  AC: "[~ [d5,f#5,a5], d2@9 f#5 d5 a4@13, ~ a3@23, ~@2 d4@2 f#4@2 d5 a4 f#4@16, ~@3 a4@2 d4@19]/2", // D
})).s("gm_piano").gain(0.25)

// bass · acoustic bass · "ACOU BASS"
const bass = note(`<
  A B C D E F G H I J K L E M N O P Q R S T U V W X E Y Z AA I AB AC AD AE AF AG AH AI AJ AK AL AA AM AN AO AP AQ ~@2
>`.pickRestart({
  A: "d2@4 ~@2 a1@5 ~", B: "d2@9 ~@3 a1@4 ~@2 a1@2 b1@2 c#2@2", C: "d2@7 ~@5 f#1@7 ~@5", D: "b1@8 ~@4 a1@9 ~@3",
  E: "g1 ~ f#1 ~", F: "e1@5 ~ a1@5 ~", G: "g1@3 ~@3 a1@4 ~@2", H: "b1@6 ~@2 d2@2 f#2@2 g2@5 ~ e2@4 ~@2",
  I: "a1@3 ~@3 a1@4 ~@2", J: "d2@7 ~@5 a2@6 a1@5 ~", K: "d2@7 ~@5 f#1@5 ~@7", L: "b1@8 ~@4 b1@5 ~ a1@4 ~@2",
  M: "e1@7 ~@5 a1@6 ~@6", N: "g2@7 ~@5 a1@6 ~@6", O: "b1@3 ~ d2 f#2 g2@3 e2@2 ~", P: "a1@2 ~ a1@2 ~",
  Q: "d2@9 ~@3 a1@5 ~ d2@5 ~", R: "f#2@7 ~@5 c#2@5 ~ c#2@5 ~", S: "f#2@8 ~@4 c#2@5 ~ c#2@5 ~",
  T: "f#2@10 ~@2 c#2@5 ~ c#2@5 ~", U: "f#2@5 ~ f#2@5 ~ b1@6 ~@2 d#2@2 f#2@2", V: "e2@3 ~ c#2 b1 a1@2 ~ a2@2 ~",
  W: "d2@6 ~@6 f#1@7 ~@5", X: "b1@7 ~@5 b1@5 ~ a1@5 ~", Y: "e1@7 ~@5 a1@8 ~@4", Z: "g2@7 ~@5 a1@7 ~@5",
  AA: "b1@6 ~@2 d2@2 f#2@2 g2@5 ~ e2@5 ~", AB: "d2@8 ~@4 a1@6 d2@5 ~", AC: "f#2@7 ~@5 c#2@5 ~ c#2@2 f2@2 g#2@2",
  AD: "f#2@3 ~@3 c#2@3 c#2 f2 g#2", AE: "f#2@6 ~@6 c#2@5 ~ c#2@2 f2@2 g#2@2", AF: "f#2@5 ~ f#1@6 b1@6 ~@2 d#2@2 f#2@2",
  AG: "e2@6 ~@2 c#2@2 b1@2 a1@6 a2@5 ~", AH: "d2@2 ~ f#1@2 ~", AI: "b1@5 ~ b1@3 a1@3", AJ: "g1@8 ~@4 f#1@7 ~@5",
  AK: "e1@8 ~@4 a1@5 ~ a1@5 ~", AL: "g1@2 ~ a1@2 ~", AM: "a1@8 ~@4 a1@9 ~@3", AN: "d2@10 ~@2 a1@5 ~ d2@5 ~",
  AO: "g1@2 ~@2 a1@3 ~", AP: "b1@6 ~@2 d2@2 f#2@2 g2@5 ~ e2@6", AQ: "a1 ~@2",
})).s("gm_acoustic_bass").gain(0.29)

// chords · acoustic guitar nylon · "+UKELELE"
const acoustic_guitar_nylon = note(`<
  ~@2 A B C D E F G H A B C D E F G H I J I K L M B C D E F G H I J I K L M B C D E F G N O P ~@3
>`.pickRestart({
  A: "[d4,a4] [d4,f#4,a4]!5 [f#4,c#5] [f#4,a4,c#5]!5", B: "[d4,b4] [d4,f#4,b4]!11",
  C: "[d4,a4] [d4,g4,b4]!5 [d4,a4] [d4,f#4,a4]!5", D: "[e4,a4] [e4,g4,c#5]!11",
  E: "[d4,g4] [d4,g4,b4]!5 ~ [e4,g4,c#5]!5", F: "[d4,b4] [d4,f#4,b4]!5 [e4,g4,b4]!6",
  G: "[d4,a4] [d4,f#4,a4]!5 ~ [e4,g4,c#5]!5", H: "[d4,a4] [d4,f#4,a4]!11",
  I: "[f#4,c#5] [f#4,a4,c#5]!5 [c#4,g#4] [c#4,f4,b4]!5", J: "[f#4,c#5] [a4,c#5] [f#4,a4,c#5]!4 [c#4,g#4] [c#4,f4,b4]!5",
  K: "[f#4,c#5] [f#4,a4,c#5]!5 [d#4,b4] [d#4,f#4,a4]!5", L: "[e4,g4] [e4,g4,b4]!5 [e4,a4] [e4,g4,c#5]!5",
  M: "d4 [d4,f#4,a4]!5 [f#4,c#5] [f#4,a4,c#5]!5", N: "[d4,a4] [f#4,a4] [d4,f#4,a4]!4 [d4,f#4,b4]!6",
  O: "~ [d4,g4,b4]!5 ~ [e4,g4,c#5]!5", P: "~ [d4,f#4,b4]!5 [e4,g4,b4] ~@2 [e4,g4,b4] ~@2",
})).s("gm_acoustic_guitar_nylon").gain(0.25).pan(0.7)

// other · vibraphone
const vibraphone = note(`<
  ~@2 A B C@2 D E F G H I J K L E M N O P Q R S H T U V D W X Y Q P Q R S H T U V D W X Z AA AB M AC ~
>`.pickRestart({
  A: "d4@12 a4@11 ~", B: "d4@17 ~@3 e4@3 ~", C: "[g4@10 ~@2 f#4@10 ~ e4@19 ~@4 a3@2]/2", D: "b3@6 c#4@5 ~",
  E: "d4@9 ~@3 e4@4 f#4@3 ~ g4@3 ~", F: "f#4@5 ~ e4@5 ~", G: "d4@7 ~", H: "d4@11 ~ a4@12", I: "d4@17 ~@3 e4@2 f#4 ~",
  J: "g4@11 ~ f#4@11 ~", K: "e4@9 ~@2 a3, f#4 ~@23", L: "b3@11 ~ c#4@11 ~", M: "f#4@11 ~ e4@12", N: "d4@11 ~",
  O: "c#4@7 ~ a4@3 ~ c#5@7 ~@5", P: "c#4@4 f#4@4 a4@2 c#5 ~ b4@8 ~@4", Q: "c#4@4 f#4@4 a4 ~ c#5 ~ c#5@7 ~@5",
  R: "a4@3 ~ a4@11 ~ f#4@3 ~ a4@2 f#4 ~", S: "g4@7 ~", T: "d4@15 ~@3 e4@4 f#4@2", U: "g4@12 f#4@11 ~",
  V: "f#4@9 ~@2 a3", W: "d4@10 ~@2 e4@4 f#4@3 ~ g4@3 ~", X: "f#4@11 ~ e4@11 ~", Y: "d4@3 ~", Z: "d4@19 ~@3 a3@2",
  AA: "b3@12 c#4@11 ~", AB: "d4@11 ~ e4@4 f#4@4 g4@3 ~", AC: "d4",
})).s("gm_vibraphone").gain(0.54)

// other · electric guitar jazz · "+HAWAIIGTR"
const electric_guitar_jazz = note(`<
  ~@6 A B C D E F G H I J K L M N O ~@2 P Q R S T U V W M N O ~@2 X Y Z AA AB AC K AD ~@5
>`.pickRestart({
  A: "~@2 b3 d4@3 ~@2 c#4 e4@3", B: "~@4 d4@3 f#4@5 ~@4 e4@2 f#4@6", C: "~@2 f#4 a4@3 ~@2 c#4 a4@3",
  D: "~@4 f#4@2 ~ d5@6 ~@11", E: "d4@5 ~ c#4@5 ~", F: "b3@5 ~@7", G: "g3@5 ~ f#3@5 ~", H: "a3@5 ~@7",
  I: "g3@5 ~ a3@5 ~", J: "f#3@11 ~ g3@5 ~ e3@5 ~", K: "a3@11 ~ a3@11 ~", L: "d4@3 ~", M: "~@14 c#5@9 ~",
  N: "~@15 c#5@8 ~", O: "~@2 c#5", P: "d4@11 ~ a4@11 ~", Q: "d4@17 ~@3 e4@2 f#4@2", R: "g4@5 ~ f#4@6", S: "e4@2 ~ a3",
  T: "b3@11 ~ c#4@11 ~", U: "d4@9 ~@3 e4@4 f#4@7 ~", V: "f#4@11 ~ e4@11 ~", W: "d4@5 ~", X: "d4@11 ~ c#4@12",
  Y: "b3@7 ~", Z: "~ g3@10 ~ a3@11 ~", AA: "a3@23 ~", AB: "~ g3@11 a3@11 ~", AC: "b3@11 ~ g3@6 f#3@5 ~", AD: "d4@11 ~",
})).s("gm_electric_guitar_jazz").gain(0.29).pan(0.9)

// other · celesta
const celesta = note("<~ A B C D E F G H I ~@39>".pickRestart({
  A: "f#7 d7", B: "~@3 f#7@2 ~", C: "d7@8 ~@10 e7@3 ~ f#7@2", D: "g7@8 ~@4 f#7@7 ~@5", E: "e7@7 ~@5",
  F: "b6@3 ~ c#7@3 ~", G: "d7@8 ~@4 e7@3 ~ f#7@3 ~ g7@3 ~", H: "f#7@5 ~ e7@5 ~", I: "d7@2 ~",
})).s("gm_celesta").gain(0.17).pan(0.9)

// other · acoustic guitar nylon · "NYLON GTR"
const acoustic_guitar_nylon_2 = note("<~@13 A ~@2 B ~@9 C D E B ~@9 A ~@9>".pickRestart({
  A: "~ a2 ~@3 a2 ~ a2 ~@3 a2", B: "~@7 a2 ~@3 a2", C: "~ a2 ~@5 a2 ~@4", D: "~@9 a3 ~@2", E: "~@3 a3 ~@5 d3 ~@2",
})).s("gm_acoustic_guitar_nylon").gain(0.12).pan(0.9)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~@2 A@2 B C D E F E@2 A B C D G F E H I H J K E A B C D G F E H I H J K E A B C D G F L M N ~@3
>`.pickRestart({
  A: "f#4 ~@23", B: "g4 ~@11 f#4 ~@11", C: "[c#4,g4] ~@11", D: "~@6 [c#4,g4] ~@5", E: "f#4 ~@11",
  F: "f#4 ~@5 [c#4,g4] ~@5", G: "f#4@2 ~@15 [b3,e4] ~@5 [b3,e4]", H: "~@6 f4 g#4!5", I: "~ f#4 ~@4 f4 g#4!5",
  J: "~@6 a4 ~@5", K: "b3 ~@5 [c#4,g4] ~@5", L: "f#4 d4 ~@10", M: "[d4,g4] ~@5 [c#4,g4] ~@5", N: "[d4,f#4] ~@11",
})).s("gm_acoustic_guitar_steel").gain(0.05).pan(0.9)

// drums · snare
const snare = s("sd").struct("<A B@14 C B@12 C D B@11 C B@3 E ~@3>".pickRestart({
  A: "x!7 ~@2 x!3", B: "x!12", C: "x ~ x ~ x ~ x ~ x ~ x ~ x ~ x ~ x!3 ~ x ~ x ~", D: "~ x!11", E: "x!7 ~@2 x ~@2",
})).gain(0.29)

// drums · pedal hat
const pedal_hat = s("hh").struct("<~@2 [~ x ~ x]!43 [~@3 x ~@7 x] ~@3>").gain(0.29)

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

// drums · ride
const ride = s("rd").struct("<[~ x] ~@7 x ~@36 [~@2 x!2] x ~@2>").gain(0.22)

stack(
  piano, bass, acoustic_guitar_nylon, vibraphone, electric_guitar_jazz, celesta, acoustic_guitar_nylon_2,
  acoustic_guitar_steel, snare, pedal_hat, open_hat, ride
)