// Good Luck Charm — Elvis Presley
// 128 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 113 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(128/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 · synth bass 1 · "SYN BASS 1"
const bass = note(`<
  ~ A B C D E F G H I J K L M N G O M@2 P M Q R E F G H I J K L M N G O M@2 P M Q D S M Q D P M Q R E F G H I J K L M N
  G O M@2 P M Q R E F G H I J K L M N G O M@2 P M Q R E F G H I J K L M N G O M@2 P M Q R P M Q R P M Q T@3
>`.pickRestart({
  A: "b1 d#2 f#2 d#2", B: "e2 d2 c#2 b1", C: "a1@3 c#2@3 e2@3 f#2@2 e2", D: "a2@3 f#2@3 e2@3 c#2@2 ~",
  E: "a1@5 ~ c#2@6 e2@6 c#2@6", F: "d2@3 f#2@3 a2@3 f#2@2 e2", G: "a1 c#2 e2 f#2", H: "e2@3 g#2@3 b2@3 g#2@2 ~",
  I: "a1@5 ~ c#2@6 e2@6 c#2@4 e2@2", J: "d2 f#2 a2 f#2", K: "e2@6 g#2@6 b2@6 g#2@5 ~", L: "a1 ~@7",
  M: "e2@3 g#2@3 b2@3 g#2@2 b2", N: "e2@6 g#2@6 b2@6 g#2@4 b2 ~", O: "a2 f#2 e2 a1", P: "b1@3 d#2@3 f#2@3 d#2@2 f#2",
  Q: "a1@6 c#2@6 e2@6 f#2@5 ~", R: "a2@3 f#2@3 e2@3 c#2@2 e2", S: "b1@3 d#2@3 f#2@3 d#2@2 ~",
  T: "[a1@2 ~@8 a1@51 ~@11]/3",
})).s("gm_synth_bass_1").gain(0.59)

// chords · piano · "A.PIANO 1"
const piano = note(`<
  ~ A B C@3 D E F C G H I J K C@2 L@2 M L C@3 D E F C G H I J K C@2 L@2 M L C@2 M L C@2 M L C@3 D E F C G H I J K C@2
  L@2 M L C@3 D E F C G H I J K C@2 L@2 M L C@3 D E F C G H I J K C@2 L@2 M L C@2 M L C@2 M L C N@3
>`.pickRestart({
  A: "b4 ~@3 [f#4,b4]@2 ~@4 [d#4,f#4,b4]@2 ~@4 [d#4,f#4,b4]@2 ~@4 [d#4,f#4,b4]@2, ~@4 d#4 ~@19", // B5 B
  B: "~@2 [d4,e4,g#4,b4] ~@2 [d4,e4,b4] ~@2 [d4,e4,g#4,b4] ~@2 [d4,e4,g#4,b4], ~@10 g#4 ~@13", // E7
  C: "~@2 [c#4,e4,a4] ~@2 [c#4,e4,a4] ~@2 [c#4,e4,a4] ~@2 [c#4,e4,a4]", // A
  D: "~@4 [d4,f#4,a4]@2 ~@4 [d4,f#4,a4] ~@5 [d4,f#4,a4]@2 ~@4 [d4,f#4,a4]@2", // D
  E: "~@2 [e4,a4] ~@2 [c#4,e4,a4] ~@2 [c#4,e4,a4] ~@2 [c#4,e4,a4], ~@4 c#4 ~@19", // A5 A
  F: "~@2 [b3,e4,g#4] ~@2 [b3,e4,g#4] ~@2 [b3,e4,g#4] ~@2 [b3,g#4], ~@22 e4 ~", // E
  G: "~@2 [d4,f#4,a4] ~@2 [d4,f#4,a4] ~@2 [d4,f#4,a4] ~@2 [d4,f#4,a4]", // D
  H: "~@4 [d4,e4,g#4,b4]@2 ~@4 [d4,e4,g#4,b4]@2 ~@4 [d4,e4,g#4,b4]@2 ~@4 [d4,e4,g#4,b4] ~", I: "[c#4,e4,a4]!2 ~@22",
  J: "~@2 [d4,e4,g#4,b4] ~@2 [d4,e4,g#4,b4] ~@2 [d4,g#4,b4] ~@2 [d4,e4,g#4,b4], ~@16 e4 ~@7", // E7 G#dim E7
  K: "~@2 [g#4,b4] ~@2 [d4,e4,g#4,b4] ~@2 [d4,e4,g#4,b4] ~@2 [d4,e4,g#4,b4], ~@4 [d4,e4] ~@19", // G#m E7 Dsus2
  L: "~@2 [d4,e4,g#4,b4] ~@2 [d4,e4,g#4,b4] ~@2 [d4,e4,g#4,b4] ~@2 [d4,e4,g#4,b4]", // E7
  M: "~@2 [f#4,b4] ~@2 [d#4,f#4,b4] ~@2 [d#4,f#4,b4] ~@2 [d#4,f#4,b4], ~@4 d#4 ~@19", // B5 B
  N: "[[c#4,e4,a4]@2 ~@8 [c#4,e4,a4]@51 ~@11]/3", // A
})).s("gm_piano").gain(0.56)

// chords · piano · "A.PIANO 2"
const piano_2 = note("<~@67 A@2 B C D E F G H I J K L M@2 N@2 O ~@28>".pickRestart({
  A: "[~@4 [e5,a5] ~@8 [e5,a5]@2 ~ [e5,a5]@2 ~@2 a4@2 ~ a5@2 ~ [d5,f#5]@2 ~@6 d5 ~@2 [g5,b5,d6]@3 [g5,b5] ~@2 [f#5,a5,d6]@2 ~@3, ~@22 e5@2 ~@16 d6@2 ~ b5 ~@4]/2", // A5 D G D
  B: "~@4 a4 ~@2 [d5,f#5,a5]@2 ~ [d5,f#5,a5]@2 ~ [c#5,a5]@4 [c#5,e5,f5] a4@3 ~@3", // D F#m C#
  C: "[c#5,e5]@2 ~@4 [g4,c5,d#5]@3 ~ a#4@2 b4@10 ~@2, g#4@2 ~@3 [f#4,d5]@6 ~", // C#m Cm D
  D: "~@7 d#5 e5 ~ g5@2 ~@2 d#5 e5 g5@2 ~ d5@2 e5 g5@2, ~@6 d5@3 ~@4 d5@2 ~@4 d#5 ~@4",
  E: "~ d#5 e5 ~ g5@2 d#5 d5 ~ a4 ~@2 c5 ~@2 c5@7 ~@2, ~ d5@2 ~@5 c5@2 ~@4 d5@2 ~@8",
  F: "~@4 [d5,d#5] e5 ~@18, ~@2 g5 ~@9", G: "~@4 e4 ~ g4 ~ a4 ~ c5 ~ [d5,a5]@3 ~ c5 ~ [d5,a5]@3 ~ c5 ~",
  H: "d#5 e5 ~@2 d#5 e5 ~@10 [a5,a#5,c#6] ~@2 b5 d6 b5 d6 ~, [d5,a5]@2 ~ [d5,a5]@2 ~@11 d6@2 ~@6", // A D5
  I: "b5 d6 b5 d6 b5 d6 b5 d6 ~ b5 d6 b5 d6 b5 d6 b5 ~ d6 ~ d6 ~ d6 b5 ~, ~@6 b5 ~",
  J: "~ [d#5,a5] ~ [e5,a5] e5 a5 ~ [d#5,a5] ~ [e5,a5]!2 ~ [d#5,a5] ~ e5 a5 a5@2 d#5 ~ e5 a5 [e5,a5] ~, ~@16 e5 ~@7", // D#dim A5 D#dim A5 D#dim A5
  K: "[d#5,a5] ~@2 [e5,a5]!2 ~ [d5,f#5,a5]@4 a4 ~ [c#5,e5,a5]@5 ~ [d5,f#5,a5]@3 ~@3", // D#dim A5 D A D
  L: "~@2 [a#5,b5] ~ d6@2 ~ a#5 b5 ~ d6@2 ~ a#5 b5 ~ d6@2 ~ a#5 b5@2 d6 ~, ~ a5@2 ~@4 a5@2 ~@4 a5@2 ~@3 a5@2 ~@4", // Bmaj7
  M: "[~@2 b5 ~ e5 ~ [a5,c#6,e6]@2 ~@2 [g#5,b5,e6] ~@7 [b4,g#5]@2 e5@2 ~ [d#5,f#5]@3 a4 f#5 a4 f#5 a4 ~ f#5 a4 f#5 a4 f#5 ~@2 f#5 ~@2 [a4,f#5]@2 ~@2 [g#4,d#5]@2, ~ [a#5,e6]@3 ~@14 d#5 ~@3 a4@2 ~@14 a4@2 ~@8]/2", // A E D#m D G#5 A#dim
  N: "[e5@2 g#4 ~ g#4 e5 ~ g#4 e5 g#4 e5 g#4 e5 ~ g#4 ~@3 [g#4,e5] ~@4 [c#5,a5]@2 ~ c#5 a5 c#5 a5 c#5 a5 ~ c#5 a5 c#5 a5 c#5 a5 ~ a5 ~@3 [g4,a4,b4] [c5,d5] [e5,f5,g5] [a5,b5,c6,d6], ~@3 e5@2 ~@17 g#5@2 ~@15 c#5@2 ~@7]/2", // C#m F#m G Csus2 Em D7
  O: "[e6,f6,g6,a6,b6] c7 [a6,b6] [f6,g6] [d6,e6] [b5,c6] [g5,a5] [e5,f5] [c5,d5] [g4,a4,b4] [e4,f4] [c4,d4] [a3,b3] g3 ~@10", // Em Asus2 Fsus2 Dsus2 Cmaj7 Gsus2 Fmaj7 Csus2 …
})).s("gm_piano").gain(0.72)

// chords · electric guitar muted · "MUTED GTR"
const electric_guitar_muted = note(`<
  ~ A B C D E F E G H I J K L M N O P Q@5 E F E G H I J K L M N O P R@5 A B C D A B S D E F E G H I J K L M N O P Q@5 E
  F E G H I J K L M N O P Q@5 E F E G H I J K L M N O P Q@5 A B C D A B S T@3
>`.pickRestart({
  A: "[a3,d#4,f#4]@2 ~@8 [a3,d#4,f#4] ~@13", B: "[d4,g#4,b4] ~@9 [d4,g#4,b4] ~@13",
  C: "[c#4,e4,a4] ~@9 [c#4,e4,a4] ~@13", D: "c4 ~ c#4@4 [g3,d4]@5 ~ [g3,c4]@4 c#4@2 ~@6, g3@5 ~@19",
  E: "[g3,c#4,e4] ~@4 [g3,c#4,e4] ~@6", F: "[a3,d4,f#4] ~@4 [a3,d4,f#4] ~@6", G: "[b3,e4,g#4]@2 ~@8 [b3,e4,g#4] ~@13",
  H: "[c#4,e4,a4]@11 ~", I: "[d4,f#4,a4]@11 ~", J: "[d4,g#4,b4]@7 ~", K: "[c#4,e4,a4] ~@11",
  L: "~@2 [d4,g#4,b4] ~@3 [d4,g#4,b4] ~ [d4,g#4,b4] ~@3", M: "[d4,g#4,b4]@2 ~@8 [d4,g#4,b4] ~@13",
  N: "~@4 [c#4,e4,a4] ~@7 [c#4,e4,a4]@2 ~@10", O: "c4@2 c#4@4 [a3,d4,f#4]@5 ~ [g3,c4,e4]@4 c#4@2 ~@6, [g3,e4]@5 ~@19",
  P: "~@2 [d4,g#4,b4] ~@3 [d4,g#4,b4] ~@5", // G#dim
  Q: "[[d4,g#4,b4]@2 ~@8 [d4,g#4,b4] ~@7 [g#3,d4,f4]@3 ~ [a3,d#4,f#4]@18 ~@2 [c#4,g4,a#4]@3 ~ [d4,g#4,b4]@18 ~@2 [c4,d#4,g#4]@4 [c#4,e4]@37 ~@5 [c#4,e4,a4] ~@7, ~@70 a4@41 ~@9]/5", // G#dim Ddim D#dim Gdim G#dim G# C#m A
  R: "[[d4,g#4,b4]@2 ~@8 [d4,g#4,b4] ~@7 [g#3,d4,f4]@3 ~ [a3,d#4,f#4]@18 ~@2 [c#4,g4,a#4]@3 ~ [d4,g#4,b4]@18 ~@2 [c4,d#4,g#4]@4 [c#4,e4,a4]@47 ~@3]/5", // G#dim Ddim D#dim Gdim G#dim G# A
  S: "[c#4,e4,a4]@23 ~", T: "[[g3,c#4,f#4,a4]@2 ~@8 [g3,c#4,f#4,a4]@51 ~@11]/3",
})).s("gm_electric_guitar_muted").gain(0.56)

// other · electric guitar muted · "MUTED GTR"
const electric_guitar_muted_2 = note("<~@48 A B C D E F@6 G@5 H@2 I ~@46>".pickRestart({
  A: "~@4 a2@2 b2@2 c3@2 c#3@2 e3@4 f#3@2 e3 ~ a3@2 f#3 ~", B: "b3@16 a3@2 b3@4 a3 ~", C: "d4@12 b3@3 ~ a3@8",
  D: "~@4 e4@6 d4 ~ e4 ~@3 a3@8", E: "g3 ~ e3 ~ e3@10 ~@2 e3@4 f#3@2 a3@2",
  F: "[e3@2 f#3@2 a3@2 e3@2 f#3@2 a3@2 e3@2 f#3@2 a3 ~ b3@3 ~ b3@6 a3 ~ b3@4 f#3@2 a3@2 ~@4 d4@10 ~@2 e4@15 ~ b4@12 a4@2 b4@2 ~@2 f#4 ~ a4@12 f#4@6 e4@3 ~@3 e4 ~@3 a4@6 ~@2 f#4@6 e4@7 ~@5]/6",
  G: "[~@4 d4@6 f4@2 d4@4 c4@2 d4@4 b3@12 g4 ~@7 a4@12 c5@6 a4@4 g4 ~ a4@4 g4@7 ~ e4 ~@3 e4@2 ~@10 a4@16 ~@2 f#4@2 ~@4 e4 ~, ~@88 c#4@23 ~@9]/5",
  H: "[~@6 d5@9 ~@7 g5@13 ~ b4@4 a4 ~ b4@5 ~, f#4@15 ~ b4@19 ~@13]/2", I: "a4",
})).s("gm_electric_guitar_muted").gain(0.8)

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

// drums · snare
const snare = s("sd").struct("<~ A@11 B A@17 B A@25 B A@17 B A@17 B A@17 C ~ D>".pickRestart({
  A: "~@2 x!2 ~ x ~@2 x!2 ~ x", B: "x", C: "~@5 x ~@6", D: "~@5 x!2 ~@5",
})).gain(0.36)

// drums · hihat
const hihat = s("hh").struct("<~ A@11 B C A@16 B C A@24 B C A@16 B C A@16 B C A@16 ~@3>".pickRestart({
  A: "x ~ x!2 ~ x!2 ~ x!2 ~ x", B: "x", C: "~@2 x!2 ~ x!2 ~ x!2 ~ x",
})).gain(0.57)

// drums · low tom
const low_tom = s("lt").struct("<~@110 [~ x ~@4] ~@2>").gain(0.57)

// drums · mid tom
const mid_tom = s("mt").struct("<~@110 [~ x ~@10] ~@2>").gain(0.57)

// drums · crash
const crash = s("cr").struct("<~@110 [~@5 x ~@6] ~@2>").gain(0.57)

stack(bass, piano, piano_2, electric_guitar_muted, electric_guitar_muted_2, kick, snare, hihat, low_tom, mid_tom, crash)