// Kiss Me Quick — Elvis Presley
// 139 bpm, 4/4, key A# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 93 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(139/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.

// bass · acoustic bass · "ACOU BASS"
const bass = note(`<
  A B C D A@2 E@4 A C F G H I A E J D A@2 E@4 A C F K L M A E J D N O P Q O@2 R S A T E@3 U V W X K L Y V U C D O@2 P Q
  O@2 R Z A@2 E@3 AA A C F AB AC AD A E A@2 T AA V A T U A AE AF
>`.pickRestart({
  A: "bb2@2 ~ f3 bb3@2 f3@2", B: "bb2@4 ~@2 f3@2 bb3@4 f3@3 ~", C: "bb2@2 ~ f3 bb3 f3 d3 c3", D: "bb2 ~@3",
  E: "f2@2 ~ c3 a3@2 c3@2", F: "bb2 ~ bb2@2 ~@2 bb2 ~ bb2@2 ~@2 bb2@2 ~@2", G: "bb2 ~ bb2@2 ~@2 bb2@2 bb3@4 bb2@4",
  H: "eb2@4 ~@2 eb2 ~ eb2@2 ~@2 eb2@2 ~@2", I: "eb2 ~ eb2@3 ~ bb2@2 eb3@3 ~ eb3@3 ~", J: "bb2@2 ~ bb2 bb3 f3 d3 c3",
  K: "bb2 ~ bb2@2 ~@2 f3@2 bb3@4 bb2@4", L: "eb2 ~ eb2@3 ~ eb2 ~ eb2@2 ~@2 eb2@2 ~@2",
  M: "eb2 ~ eb2@3 ~ bb2@2 eb3@4 eb2@4", N: "f2@5 ~ a2@6 c3@3 ~", O: "f2@5 ~ a2@6 c3@4", P: "bb2@5 ~ d3@6 f3@4",
  Q: "bb2@5 ~ d3@6 f3@2 ~@2", R: "bb2@2 ~@8 bb2 ~ bb2 ~ bb2@2", S: "f2 ~@7", T: "bb2@4 ~@2 f3@2 bb3@4 bb2@3 ~",
  U: "f2@4 ~@2 c3@2 a3@4 c3@3 ~", V: "bb2@5 ~ f3@2 bb3@4 f3@4", W: "bb2@5 ~ f3@2 bb3@2 f3@2 d3@2 c3@2",
  X: "bb2@4 ~@2 bb2 ~ bb2@2 ~@2 bb2@2 ~@2", Y: "eb2@5 ~ bb2@2 eb3@4 eb2@4", Z: "f2@3 ~@13", AA: "f2@2 ~ c3 a3@2 f2@2",
  AB: "bb2 ~ bb2@3 ~ f3@2 bb3@4 bb2@4", AC: "eb3 ~ eb3@2 ~@2 eb3 ~ eb3@2 ~@2 eb3@2 ~@2",
  AD: "eb3 ~ eb3@3 ~ eb2@2 eb3@4 eb2@4", AE: "eb2@5 ~ bb2@2 eb3@4 eb3@4", AF: "bb2@2 ~@2 bb2 ~ bb2 ~ bb2@2 ~@6",
})).s("gm_acoustic_bass").gain(0.46)

// chords · string ensemble 2 · "SLOWSTRING"
const string_ensemble_2 = note(`<
  A@4 B@2 C@8 D@2 E@2 F@2 G@6 H@7 I F@2 J@2 B@2 K@3 L B@2 M@4 N@8 F@2 J@2 B@2 O@3 L P@6 Q@8 R@3 S T@4 U@3
>`.pickRestart({
  A: "[[d4,f4,bb4]@25 ~@7]/4", B: "[[d4,f4,bb4]@31 ~]/2",
  C: "[[c4,eb4,f4,a4]@63 ~@48 ab4@16 ~, ~@63 bb4@65, ~@32 [d4,f4]@31 ~]/8", D: "[g4 gb4, eb4@31 ~]/2",
  E: "[d4@15 ~ [c4,eb4,a4]@15 ~, f4@31 ~]/2", F: "[[d4,f4,bb4]@9 ~@7]/2",
  G: "[d4@31 ~ [c4,eb4]@63 ~, f4@95 ~, bb4@29 ~@2 a4@63 ~@2]/6", // Cm
  H: "[~@48 ab4@16 g4@16 gb4@15 ~ f4@14 ~@2, bb4@111 ~, [d4,f4]@62 ~@2 eb4@31 d4@16 ~, ~@64 gb4 ~@47]/7", // Dm
  I: "[c4,eb4,f4,a4]@15 ~", J: "[[c4,f4,a4]@31 ~]/2", K: "[[c4,f4,a4]@30 ~ [d4,f4,bb4]@3 ~@14]/3",
  L: "[c4,f4,a4]@3 ~@13", M: "[[c4,f4,a4]@63 ~]/4",
  N: "[~@48 ab4@14 ~ g4@16 gb4@16 ~ d4@15 ~ [c4,a4]@16, bb4@95 bb4@15 ~@18, [d4,f4]@61 ~@2 eb4@31 ~@2 f4@31 ~]/8", // F Dm
  O: "[[c4,f4,a4]@31 [d4,f4,bb4]@3 ~@14]/3", P: "[[d4,bb4]@31 ~ [c4,eb4,a4]@63 ~, f4@95 ~]/6",
  Q: "[~@47 ab4@15 ~@2 g4@16 gb4@15 [d4,bb4]@16 ~ [c4,a4]@16, bb4@95 ~@33, [d4,f4]@61 ~@3 eb4@31 f4@31 ~@2]/8", // Gm F Dm
  R: "[[d4,f4,bb4]@47 ~]/3", S: "[c4,f4,a4]", T: "[[d4,f4,bb4]@47 [c4,f4]@15 ~@2, ~@47 a4@17]/4",
  U: "[f4@15 [eb4,g4]@16 [d4,f4]@2 ~@3 [d4,f4,bb4] ~ [d4,f4,bb4] ~ [d4,f4,bb4] ~@7, bb4@17 ~@7, d4@7 ~@17]/3", // Eb Dm Bb
})).s("gm_string_ensemble_2").gain(0.36).pan(0.7)

// other · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  A@4 B@2 C@4 D@2 ~@4 E F G ~ B@2 C@4 H@2 ~@4 E F G ~@9 B@2 C@4 I@2 ~@4 E F G ~@9 B@2 C@4 J@2 K ~@3 E F L@3 M@4 F N@2 K
>`.pickRestart({
  A: "[f5@25 ~@7]/4", B: "f5/2", C: "eb5/4", D: "[d5@13 ~@3]/2", E: "f5", F: "eb5", G: "d5", H: "[d5@5 ~@3]/2",
  I: "[d5@29 ~@3]/2", J: "d5/2", K: "f5 ~@3", L: "d5/3", M: "f5/4", N: "[d5@15 eb5@16 ~]/2",
})).s("gm_acoustic_guitar_steel").gain(0.46).pan(0.3)

// chords · piano · "HONKY TONK"
const piano = note(`<
  ~@12 A B C D E ~@11 F B G H@2 ~@3 I J K L I@2 M N O ~@7 A P Q R S ~@3 I@2 K@2 I J M T O ~@7 U P Q R V ~@11 W
>`.pickRestart({
  A: "[bb3,d4,f4,bb4] ~ [bb3,d4,f4,bb4] ~@3 [bb3,d4,f4,bb4] ~ [bb3,d4,f4,bb4] ~@3 [bb3,d4,f4,bb4] ~@3", // Bb
  B: "[bb3,d4,f4,ab4] ~ [bb3,d4,f4,ab4] ~@3 [bb3,d4,f4,ab4] ~ [bb3,d4,f4,ab4] ~@3 [bb3,d4,f4,ab4] ~@3", // Bb7
  C: "[bb3,eb4,g4] ~ [bb3,eb4,g4] ~@3 [bb3,eb4,g4] ~ [bb3,eb4,g4] ~@3 [bb3,eb4,g4] ~@3", // Eb
  D: "[bb3,eb4,gb4] ~ [bb3,eb4,gb4] ~@3 [bb3,eb4,gb4] ~ [bb3,eb4,gb4] ~@3 [bb3,gb4] ~@3, ~@6 eb4 ~", // Ebm
  E: "[bb3,d4,f4]@13 ~@3", // Bb
  F: "[bb3,d4,f4,bb4] ~ [d4,f4,bb4] ~@3 [bb3,d4,f4,bb4] ~ [bb3,f4]@2 ~@2 [bb3,f4,bb4]@2 ~@2, ~@2 bb3@2 ~@4 [d4,bb4] ~@3 d4 ~@3", // Bb Bb5 Gm
  G: "[bb3,eb4,g4] ~ [bb3,eb4] ~@3 [bb3,eb4,g4] ~ [eb4,g4]@2 ~@2 [eb4,g4]@3 ~, ~@2 g4@2 ~@4 bb3 ~@3 bb3 ~@3", // Eb Eb5 Eb
  H: "[[bb3,eb4,gb4] ~ [bb3,eb4,gb4] ~@3 [bb3,eb4,gb4] ~ [bb3,eb4,gb4] ~@3 [bb3,eb4,gb4] ~@3 [f4,bb4]@16, ~@15 [bb3,d4]@16 ~]/2", // Ebm Bb5 Bb
  I: "a5 ~ a5 c6 f6@2 c6 ~ a6@2 f6@2 c6@2 f6@2", J: "a5 ~ a5 c6 f6@2 c6@2 a6@2 f6@2 c6@2 f6 ~",
  K: "bb5 ~ bb5 d6 f6@2 d6@2 bb6@2 f6@2 d6@2 f6@2", L: "bb5 ~ bb5 d6 f6@2 d6@2 bb6@2 f6@2 d6@2 f6 ~",
  M: "[bb5,d6] ~@9 [d4,f4,bb4] ~ [d4,f4,bb4] ~ [d4,f4,bb4] ~", N: "[c4,f4,ab4,a4] ~@15", O: "[f3,bb3,d4]@13 ~@3",
  P: "[bb3,d4,f4,ab4,bb4] ~ [bb3,d4,f4,ab4,bb4] ~@3 [bb3,d4,f4,ab4,bb4] ~ [bb3,d4,f4,ab4,bb4] ~@3 [bb3,d4,f4,ab4,bb4] ~@3", // Bb7
  Q: "[bb3,eb4,g4,bb4] ~ [bb3,eb4,bb4] ~@3 [bb3,eb4,g4,bb4] ~ [bb3,eb4,g4,bb4] ~@3 [bb3,eb4,g4,bb4] ~@3, ~ g4 ~@6", // Eb Eb5 Eb
  R: "[bb3,eb4,gb4,bb4] ~ [bb3,eb4,gb4,bb4] ~@3 [bb3,eb4,gb4,bb4] ~ [bb3,eb4,gb4,bb4] ~@3 [bb3,eb4,gb4,bb4] ~@3", // Ebm
  S: "[bb3,d4,f4,bb4]@5 ~@3", T: "[c4,f4,a4] ~@15",
  U: "[bb3,d4,f4,bb4] ~ d4 f4 ~@2 [bb3,d4,f4,bb4] ~ [bb3,d4,f4,bb4] ~@3 [bb3,d4,f4,bb4] ~@3, ~ [bb3,bb4] ~@6", // Bb
  V: "[bb3,d4,f4,bb4]@13 ~@3", W: "~@4 [f3,bb3,d4] ~ [f3,bb3,d4] ~ [f3,bb3,d4]@2 ~@6",
})).s("gm_piano").gain(0.36).pan(0.7)

// chords · electric guitar clean · "CLEAN GTR"
const electric_guitar_clean = note(`<
  A@3 B A@2 C@4 A@2 D E F G A H A I A@2 C@4 A@2 D E F G A C A I J@2 K L J@2 M N O@2 C@4 A@2 D E F G A C A I J@2 K P J@2
  Q R A O C@3 H A@2 D E S G A C A@3 H A@3 C A T U
>`.pickRestart({
  A: "~@4 [bb4,d5,f5] ~ [bb4,d5,f5] ~@5 [bb4,d5,f5] ~@3", B: "[bb4,d5,f5] ~@7",
  C: "~@4 [a4,c5,f5] ~ [a4,c5,f5] ~@5 [a4,c5,f5] ~@3", // F
  D: "[bb4,d5,f5] ~ [bb4,d5,f5] ~@3 [bb4,d5,f5] ~ [bb4,d5,f5] ~@3 [bb4,d5,f5] ~@3", // Bb
  E: "[ab4,d5,f5] ~ [ab4,d5,f5] ~@3 [ab4,d5,f5] ~ [ab4,d5,f5] ~@3 [ab4,d5,f5] ~@3", // Ddim
  F: "[g4,bb4,eb5] ~ [g4,bb4,eb5] ~@3 [g4,bb4,eb5] ~ [g4,bb4,eb5] ~@3 [g4,bb4,eb5] ~@3", // Eb
  G: "[gb4,bb4,eb5] ~ [gb4,bb4,eb5] ~@3 [gb4,bb4,eb5] ~ [gb4,bb4,eb5] ~@3 [gb4,bb4,eb5] ~@3", // Ebm
  H: "~@4 [a4,c5,f5] ~ [a4,c5,f5] ~@5 [a4,c5,f5]@2 ~@2", I: "[bb4,d5,f5] ~@15", J: "f3@3 a3@3 c4@2",
  K: "bb3@5 ~ d4@6 f4@4", L: "bb3@4 ~@2 d4@6 f4@3 ~", M: "bb3@2 ~@8 [bb3,f4] ~ [bb3,f4] ~ [bb3,f4] ~", N: "[f3,c4] ~@7",
  O: "~@4 [bb4,d5,f5] ~ [bb4,d5,f5] ~@5 [bb4,d5,f5]@2 ~@2", P: "bb3@6 d4@6 f4@3 ~",
  Q: "bb3 ~@9 f4@2 bb3 ~ [bb3,f4]@2, ~@10 bb3 ~@5", R: "[f3,c4]@3 ~@13",
  S: "[g4,bb4,eb5] ~ [g4,bb4,eb5] ~@3 [g4,bb4,eb5] ~ [g4,bb4,eb5] ~@3 [g4,bb4,eb5] ~ eb5 ~", // Eb
  T: "~@4 [g4,db5,eb5] ~ [g4,db5,eb5] ~@5 [g4,db5,eb5] ~@3", U: "~@4 [bb4,d5,f5] ~ [bb4,d5,f5] ~ [bb4,d5,f5] ~@7",
})).s("gm_electric_guitar_clean").gain(0.41).pan(0.3)

// chords · overdriven guitar · "OVERDRIVE"
const overdriven_guitar = note("<~@36 A B C@2 B D E ~@17 B@2 C@2 B@2 E ~@26>".pickRestart({
  A: "[f3,c4] ~ [f3,c4] ~ [f3,d4]@2 [f3,c4] ~ [f3,c4] ~ [f3,c4] ~ [f3,d4] ~ [f3,c4] ~", // F5 Dm F5 Dm F5
  B: "[f3,c4] ~ [f3,c4] ~ [f3,d4] ~ [f3,c4] ~ [f3,c4] ~ [f3,c4] ~ [f3,d4] ~ [f3,c4] ~", // F5 Dm F5 Dm F5
  C: "[bb3,f4] ~ [bb3,f4] ~ [bb3,g4] ~ [bb3,f4] ~ [bb3,f4] ~ [bb3,f4] ~ [bb3,g4] ~ [bb3,f4] ~", // Bb5 Eb Bb5 Eb Bb5
  D: "[f3,c4] ~ [f3,c4] ~ [f3,d4] ~ [f3,c4] ~ [f3,c4] ~ [f3,c4] ~ [f3,d4] ~ c4 ~", E: "[bb3,f4] ~@7",
})).s("gm_overdriven_guitar").gain(0.36).pan(0.8)

// drums · kick
const kick = s("bd").struct("<A@3 B A@15 B A@15 B A@6 B@2 A@15 B A@6 B@2 A@24 B>".pickRestart({
  A: "x!2", B: "x",
})).gain(0.51)

// drums · snare
const snare = s("sd").struct(`<
  A@3 ~ A@8 B@4 A@2 C D A@8 B@4 A@2 E F A@6 ~@2 A@8 B@4 A@2 E G A@6 ~@2 A@8 B@4 A@12 ~
>`.pickRestart({
  A: "~@2 x!2 ~@2 x ~", B: "x!2 ~ x!2 ~ x ~", C: "~@4 x ~@5 x!3 ~ x ~", D: "x", E: "~@4 x ~ x ~@5 x ~ x!2",
  F: "~@10 x!3 ~ x ~", G: "x ~@9 x!3 ~ x ~",
})).gain(0.51)

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

// drums · crash
const crash = s("cr").struct(`<
  A ~@2 A@2 ~@7 A ~@6 A@2 ~@7 A ~@3 A ~@3 A ~@5 A@3 ~@7 A ~@3 A ~@3 A ~@5 A@3 ~@7 A ~@3 A ~@11 A
>`.pickRestart({
  A: "x",
})).gain(0.41)

// drums · ride
const ride = s("rd").struct("<~@36 A B C D@3 E ~@17 D F D@4 E ~@26>".pickRestart({
  A: "x ~ x!3 ~ x!2", B: "x!4", C: "x!3 ~ x!4", D: "x!8", E: "x", F: "x ~ x!6",
})).gain(0.31)

// drums · ride · soft notes
const ride_soft = s("rd").struct("<~@36 [~ x ~@3 x ~@2] [~ x ~ x ~ x ~ x] [~@3 x ~@4] ~@22 [~ x ~@6] ~@31>").gain(0.2)

// drums · claves
const claves = s("clave:2").struct(`<
  A@3 ~ A@8 B@4 A@3 ~ A@8 B@4 A@3 ~@9 A@8 C B@3 A@3 ~@9 A@8 D B@3 A@10 E A F
>`.pickRestart({
  A: "~@2 x!2 ~@2 x ~", B: "x!2 ~ x!2 ~ x ~", C: "~@3 x!2 ~ x ~", D: "~ x ~ x!2 ~ x ~", E: "~@3 x ~@2 x ~",
  F: "~@2 x!3 ~@3",
})).gain(2.01)

stack(
  bass, string_ensemble_2, acoustic_guitar_steel, piano, electric_guitar_clean, overdriven_guitar, kick, snare, hihat,
  crash, ride, ride_soft, claves
)